Google
 

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





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

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

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

	FUNCTION:	PUSH, POP, XCT, BASIC SHIFT/ROTATE

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


1.0	ABSTRACT

	THIS PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC IS THE
	SEVENTH IN A SERIES OF PDP-10 KA10 PROCESSOR DIAGNOSTICS.
	THE DIAGNOSTIC TESTS THE PUSH, POP, XCT AND BASIC
	SHIFT ROTATE INSTRUCTIONS.

2.0	REQUIREMENTS

2.1	EQUIPMENT

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

	PAPER TAPE READER 
	DECTAPE (OPTIONAL)
	CONSOLE TELETYPE

2.2	STORAGE

	THE PROGRAM RUNS WITHIN 32K OF MEMORY.

2.3	PRELIMINARY PROGRAMS

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

PRODUCT CODE:		MAINDEC-10-DAKAG

PRODUCT NAME:		BASIC INSTRUCTION DIAGNOSTIC #7

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

************************************************************************
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 1
DAKAGT	MAC	19-JAN-77 16:54		DIAGNOSTIC PARAMETERS                                                              SEQ 0007

     1					;DAKAG
     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	DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 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
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 2
DAKAGT	MAC	19-JAN-77 16:54		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		444153	414700		PAREA3=SIXBIT/DAKAG/
    62		645560	000000		PAREA4=SIXBIT/TMP/
    63			000000		PAREA5=0
    64			000000		PAREA6=0
    65			001000		ITERAT==1000
    66			000001		PGMEND==1
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 3
DAKAGT	MAC	19-JAN-77 16:54		DIAGNOSTIC PARAMETERS                                                              SEQ 0009

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

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

   137					SUBTTL	*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977
   138
   139					S^;*********************************************************************^
   140					;*SPECIAL SUBPROGRAM LINKAGES
   141					S^;*********************************************************************^
   142
   143			027772		FSELNK=	27772	;FILE SELECT LINK
   144			027773		FRDLNK=	27773	;FILE READ LINK
   145			027774		LDLNK=	27774	;LOAD LINKAGE ADDRESS
   146			027775		DDTLNK=	27775	;DDT LINKAGE ADDRESS
   147			027776		MODLNK=	27776	;OPERATIONAL MODE CHECK LINKAGE ADDRESS
   148			027777		SUBLNK=	27777	;SUBROUTINE LINKAGE ADDRESS
   149
   150					S^;*********************************************************************^
   151					;*SPECIAL SUBROUTINE FATAL HALTS
   152					;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
   153					S^;*********************************************************************^
   154
   155					;ADDRESS   TAG	REASON
   156					;---------------------
   157
   158					; 1010 	NOEXEC	;PROGRAM NOT CODED FOR EXEC MODE OPERATION
   159					; 1011  PLERR	;FATAL PUSH LIST POINTER ERROR
   160					; 1012  PLERR1	;INITIAL PUSH LIST POINTER ERROR
   161					; 1013  MUOERR	;MUUO WITH LUUO HANDLER WIPED OUT
   162					; 1014  DTEBER	;DTE20 INTERRUPT WITHOUT DOORBELL
   163					; 1015  DTECER	;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
   164					; 1016  CPIERR	;CPU INITIALIZATION ERROR
   165					; 1017  EOPERR	;END OF PROGRAM ERROR
   166					; 1020  LUOERR	;INTERRUPT WITH LUUO HANDLER WIPED OUT
   167
   168					S^;*********************************************************************^
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 3
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0012

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

   211					;*TERMINAL OUTPUT UUO'S.
   212
   213		037000	000000		OPDEF	PNTA	[37B8!0B12!0]	;PRINT ASCII WORD
   214		037000	000001		OPDEF	PNTAF	[37B8!0B12!1]	;PRINT ASCII WORD FORCED
   215		037740	000000		OPDEF	PNTAL	[37B8!17B12!0]	;PRINT ASCIZ LINE
   216		037740	000001		OPDEF	PNTALF	[37B8!17B12!1]	;PRINT ASCIZ LINE FORCED
   217		037600	000003		OPDEF	PSIXL	[37B8!14B12!3]	;PRINT SIXBIT'Z LINE
   218		037640	000003		OPDEF	PSIXLF	[37B8!15B12!3]	;PRINT SIXBIT'Z LINE FORCED
   219		037000	000000		OPDEF	PNTMSG	[37B8!0B12!0]	;PRINT MESSAGE IMMEDIATE
   220		037040	000000		OPDEF	PNTMSF	[37B8!1B12!0]	;PRINT MESSAGE IMMEDIATE FORCED
   221		037100	000000		OPDEF	PSIXM	[37B8!2B12!0]	;PRINT SIXBIT'Z MSG IMMEDIATE
   222		037200	000000		OPDEF	PSIXMF	[37B8!4B12!0]	;PRINT SIXBIT'Z MSG IMM FORCED
   223		037000	000000		OPDEF	PNTCI	[37B8!0B12!0]	;PRINT CHARACTER IMMEDIATE
   224		037040	000000		OPDEF	PNTCIF	[37B8!1B12!0]	;PRINT CHARACTER IMMEDIATE FORCED
   225		037500	000000		OPDEF	PNTCHR	[37B8!12B12!0]	;PRINT CHARACTER
   226		037500	000001		OPDEF	PNTCHF	[37B8!12B12!1]	;PRINT CHARACTER FORCED
   227		037040	000000		OPDEF	PNT1	[37B8!1B12!0]	;PRINT ONE OCTAL DIGIT
   228		037040	000001		OPDEF	PNT1F	[37B8!1B12!1]	;PRINT 1 OCTAL DIGIT FORCED	
   229		037100	000000		OPDEF	PNT2	[37B8!2B12!0]	;PRINT TWO OCTAL DIGITS
   230		037100	000001		OPDEF	PNT2F	[37B8!2B12!1]	;PRINT 2 OCTAL DIGITS FORCED	
   231		037140	000000		OPDEF	PNT3	[37B8!3B12!0]	;PRINT THREE OCTAL DIGITS
   232		037140	000001		OPDEF	PNT3F	[37B8!3B12!1]	;PRINT THREE OCTAL DIGITS FORCED	
   233		037200	000000		OPDEF	PNT4	[37B8!4B12!0]	;PRINT FOUR OCTAL DIGITS
   234		037200	000001		OPDEF	PNT4F	[37B8!4B12!1]	;PRINT FOUR OCTAL DIGITS FORCED
   235		037240	000000		OPDEF	PNT5	[37B8!5B12!0]	;PRINT FIVE OCTAL DIGITS
   236		037240	000001		OPDEF	PNT5F	[37B8!5B12!1]	;PRINT FIVE OCTAL DIGITS FORCED
   237		037300	000000		OPDEF	PNT6	[37B8!6B12!0]	;PRINT SIX OCTAL DIGITS
   238		037300	000001		OPDEF	PNT6F	[37B8!6B12!1]	;PRINT SIX OCTAL DIGITS FORCED
   239		037340	000000		OPDEF	PNT7	[37B8!7B12!0]	;PRINT 7 OCTAL DIGITS
   240		037340	000001		OPDEF	PNT7F	[37B8!7B12!1]	;PRINT 7 OCTAL DIGITS FORCED
   241		037440	000000		OPDEF	PNT11	[37B8!11B12!0]	;PRINT 11 OCTAL DIGITS
   242		037440	000001		OPDEF	PNT11F	[37B8!11B12!1]	;PRINT 11 OCTAL DIGITS FORCED.
   243		037400	000000		OPDEF	PNTADR	[37B8!10B12!0]	;PRINT PHYSICAL ADDRESS
   244		037400	000001		OPDEF	PNTADF	[37B8!10B12!1]	;PRINT PHYSICAL ADDRESS FORCED
   245		037600	000000		OPDEF	PNTOCT  [37B8!14B12!0]	;PRINT FULL WORD OCTAL
   246		037600	000001		OPDEF	PNTOTF	[37B8!14B12!1]	;PRINT FULL WORD OCTAL FORCED
   247		037540	000000		OPDEF	PNTHW	[37B8!13B12!0]	;PRINT OCTAL HALF WORDS, 6 SP 6
   248		037540	000001		OPDEF	PNTHWF	[37B8!13B12!1]	;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
   249		037700	000003		OPDEF	PNTOCS	[37B8!16B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S
   250		037740	000003		OPDEF	PNTOCF	[37B8!17B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
   251		037640	000000		OPDEF	PNTDEC	[37B8!15B12!0]	;PRINT DECIMAL, SUPRESS LEADING 0'S
   252		037640	000001		OPDEF	PNTDCF	[37B8!15B12!1]	;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
   253		037700	000000		OPDEF	PNTDS	[37B8!16B12!0]	;PRINT DECIMAL, SPACES FOR LD 0'S
   254		037700	000001		OPDEF	PNTDSF	[37B8!16B12!1]	;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
   255		037200	000002		OPDEF	PNTNM	[37B8!4B12!2]	;PRINT PROGRAM NAME
   256		037000	000002		OPDEF	PNTSIX	[37B8!0B12!2]	;PRINT SIXBIT WORD
   257		037040	000002		OPDEF	PNTSXF	[37B8!1B12!2]	;PRINT SIXBIT WORD FORCED
   258		037240	000002		OPDEF	DROPDV	[37B8!5B12!2]	;CLOSE LOGICAL FILE, USER MODE
   259		037100	000002		OPDEF	PNTCW	[37B8!2B12!2]	;PRINT DF10 CONTROL WORD
   260		037140	000002		OPDEF	PNTCWF	[37B8!3B12!2]	;PRINT DF10 CONTROL WORD FORCED
   261		037000	030242		OPDEF	PCRL	[37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
   262		037040	030242		OPDEF	PCRLF	[37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
   263		037000	000040		OPDEF	PSP	[37B8!0B12!40]	;PRINT SPACE
   264		037040	000040		OPDEF	PSPF	[37B8!1B12!40]	;PRINT SPACE FORCED
   265		037000	030243		OPDEF	PCRL2	[37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 4-1
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0014

   266		037040	030243		OPDEF	PCRL2F	[37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
   267		037040	000007		OPDEF	PBELL	[37B8!1B12!7]	;PRINT TTY BELL
   268
   269		037040	000026		OPDEF	PFORCE	[37B8!1B12!26]	;PRINT FORCE, CONTROL O OVERRIDE
   270
   271					DEFINE	PMSG	(ARG),<
   272						PSIXM	[SIXBIT\ARG'_\]>
   273
   274					DEFINE	PMSGF	(ARG),<
   275						PSIXMF	[SIXBIT\ARG'_\]>
   276
   277					;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
   278					;*	CONSERVES CORE OVER ASCIZ
   279
   280					DEFINE	SIXBTZ	(ARG),<	[SIXBIT\ARG'_\]>
   281
   282					;*CONSOLE SWITCH INPUT UUO.
   283					;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
   284					;* USER MODE.
   285
   286		037400	000002		OPDEF	SWITCH	[37B8!10B12!2]	;INPUT CONSOLE SWITCHES
   287
   288					;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
   289					;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
   290
   291		037540	000004		OPDEF	CLOKOP	[37B8!13B12!4]	;CLOCK OPERATION UUO - PDP-11 CLOCK
   292		037200	000004		OPDEF	MTROP	[37B8!4B12!4]	;CLOCK OPERATION UUO - DK20 METER
   293
   294					;*KL10 ONLY CACHE OPERATION UUO'S
   295
   296		037040	000004		OPDEF	CINVAL	[37B8!1B12!4]	;CACHE INVALIDATE
   297		037100	000004		OPDEF	CFLUSH	[37B8!2B12!4]	;CACHE FLUSH
   298		037140	000004		OPDEF	CWRTBI	[37B8!3B12!4]	;CACHE WRITE-BACK & INVALIDATE
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 5
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0015

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

   342					SUBTTL	ERROR HANDLING UUO DEFINITIONS, JAN 18,1977
   343
   344					S^;*********************************************************************^
   345					;*ERROR HANDLER PARAMETERS
   346					S^;*********************************************************************^
   347
   348		036000	000000		OPDEF	ERUUO	[36B8]		;ERROR CALL UUO
   349		035000	000000		OPDEF	ERLOOP	[35B8]		;ERROR LOOP, CHECKS PC,REPT,REPT1,ERROR
   350		035040	000000		OPDEF	ERLP1	[35B8!1B12]	;ERROR LOOP IF PC'S MATCH
   351		035100	000000		OPDEF	ERLP2	[35B8!2B12]	;ERROR LOOP IF ANY ERROR
   352		034000	000000		OPDEF	REPTUO	[34B8]		;REPEAT LOOP UUO
   353
   354					;*THE ERROR HANDLER MACROS
   355
   356					;*A MACRO TO REPORT AN ERROR AND LOOP
   357
   358						DEFINE	ERROR	(ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<
   359						SALL
   360						ERUUO	FORMAT,[T,,[SIXBIT\F'_\]
   361							   CORECT,,ACTUAL
   362							   [SIXBIT\D'_\],,ERR]
   363						XALL
   364					
   365						ERLOOP	ADR		;IF ERROR, LOOP TO ADR
   366					>
   367
   368					;*A MACRO TO REPORT AN ERROR AND NOT LOOP
   369
   370						DEFINE	ERROR1	(FORMAT,CORECT,ACTUAL,F,D,ERR)<
   371						SALL
   372						ERUUO	FORMAT,[T,,[SIXBIT\F'_\]
   373							   CORECT,,ACTUAL
   374							   [SIXBIT\D'_\],,ERR]
   375						XALL	>
   376
   377					>;END OF KLOLD CONDITIONAL
   378
   379						XLIST
   380						LIST
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 1
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0017

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

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

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

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

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

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

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

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

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

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

   822					;SPECIAL "BEGEND" ROUTINE
   823
   824	030641	350 00 0 00 030047 	$SPBEND:AOS	PASCNT		;INCREMENT PASS COUNT
   825	030642	370 00 0 00 030024 		SOS	ITRCNT		;DECREMENT ITERATION COUNT
   826	030643	336 00 0 00 030037 	$SPB1:	SKIPN	USER
   827	030644	254 00 0 00 030652 		JRST	$SPBEX		;EXEC MODE
   828
   829	030645	332 00 0 00 030024 	$SPBUS:	SKIPE	ITRCNT		;USER MODE, COMPLETED ?
   830	030646	254 00 0 00 030741 		JRST	STARTA		;NO, KEEP RUNNING
   831	030647	336 00 0 00 030044 		SKIPN	MONTEN		;DONE, LOADED BY "DIAMON" ?
   832	030650	047 00 0 00 000012 		EXIT			;NO, RETURN TO MONITOR
   833	030651	254 00 1 00 030012 		JRST	@RETURN		;YES, RETURN TO "DIAMON"
   834
   835	030652	332 00 0 00 030041 	$SPBEX:	SKIPE	KLFLG
   836	030653	254 00 0 00 030660 		JRST	$SPBKL		;KL10 & EXEC
   837	030654	7 004 14 0 00 030024 		DATAO	PI,ITRCNT	;KI10 & EXEC, DISPLAY ITER COUNT
   838	030655	332 00 0 00 030024 		SKIPE	ITRCNT
   839	030656	254 00 0 00 030741 		JRST	STARTA		;NOT COMPLETED YET
   840	030657	254 00 1 00 030012 		JRST	@RETURN		;DONE
   841
   842	030660	336 00 0 00 030024 	$SPBKL:	SKIPN	ITRCNT
   843	030661	254 00 0 00 030676 		JRST	$SPKLD		;KL10, EXEC & COMPLETED
   844
   845	030662	335 00 0 00 030043 		SKIPGE	MONCTL
   846	030663	254 00 0 00 030741 		JRST	STARTA		;"DIAMON" CONTROL
   847	030664	201 00 0 00 000404 		MOVEI	0,404		;NOTIFY PDP-11 OF END OF PASS
   848	030665	202 00 0 00 000451 		MOVEM	0,$DTCMD
   849	030666	402 00 0 00 000444 		SETZM	$DTFLG
   850	030667	336 00 0 00 030516 		SKIPN	KLTYP
   851	030670	7 200 20 0 00 020000 	$$DTE0:	CONO	DTE,DONG11
   852	030671	332 00 0 00 030516 		SKIPE	KLTYP
   853	030672	7 200 20 0 00 010000 	$$DTE1:	CONO	DTE,10000
   854	030673	336 00 0 00 000444 		SKIPN	$DTFLG		;WAIT TILL 11 RESPONDS
   855	030674	254 00 0 00 030673 		JRST	.-1
   856	030675	254 00 0 00 030741 		JRST	STARTA		;KEEP RUNNING
   857
   858					;SPECIAL KL10 COMPLETED ROUTINE
   859
   860	030676	332 00 0 00 030044 	$SPKLD:	SKIPE	MONTEN
   861	030677	254 00 1 00 030012 		JRST	@RETURN		;LOADED BY "DIAMON"
   862
   863	030700	201 00 0 00 000403 		MOVEI	0,403		;NOTIFY PDP-11 OF COMPLETION
   864	030701	202 00 0 00 000451 		MOVEM	0,$DTCMD
   865	030702	402 00 0 00 000444 		SETZM	$DTFLG
   866	030703	336 00 0 00 030516 		SKIPN	KLTYP
   867	030704	7 200 20 0 00 020000 	$$DTE2:	CONO	DTE,DONG11
   868	030705	332 00 0 00 030516 		SKIPE	KLTYP
   869	030706	7 200 20 0 00 010000 	$$DTE3:	CONO	DTE,10000
   870	030707	336 00 0 00 000444 		SKIPN	$DTFLG		;SHOULD NEVER HAPPEN
   871	030710	254 00 0 00 030707 		JRST	.-1		;11 NEVER RETURNS ON END OF PROGRAM
   872	030711	254 04 0 00 030000 		HALT	BEGIN		;IF IT DOES, HALT.
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 1
DAKAGM	MAC	19-JAN-77 17:37		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 030741 		JRST	STARTA
   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 KI10 BASIC INSTRUCTION DIAGNOSTIC (7) [DAKAG]
   889	030726	055 061 060 040 113 
   890	030727	111 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 067 
   897	030736	051 040 133 104 101 
   898	030737	113 101 107 135 015 
   899	030740	012 000 000 000 000 	/
   900
   901	030741	254 00 0 00 030742 	STARTA:	JRST	.+1
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 2
DAKAGM	MAC	19-JAN-77 17:37		TEST OF PUSH INSTRUCTION                                                           SEQ 0029

   902					SUBTTL	TEST OF PUSH INSTRUCTION
   903
   904					;**********
   905
   906					;THIS TEST VERIFIES THAT PUSH DECODES CORRECTLY.
   907					;IF PUSH DECODES AS PUSHJ, THIS TEST FAILS.
   908
   909	030742	400 02 0 00 000000 	C27200:	SETZ	2,		;CLEAR AC
   910	030743	261 02 0 00 030745 		PUSH	2,.+2		;*PUSH SHOULD NOT JUMP
   911	030744	334 00 0 00 000000 		SKIPA			;PASS IF PUSH DID NOT JUMP
   912						STOP^
   913	030745	254 04 0 00 030746 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   914	030746	324 00 0 00 030747 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   915									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
   916									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
   917									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
   918
   919					;**********
   920
   921					;THIS TEST VERIFIES THAT PUSH DOES NOT MODIFY C(E).
   922					;CLEAR E AND AC; THEN, EXECUTE PUSH.
   923					;CHECK E FOR ORIGINAL CONTENTS ,0.
   924					;PASS IF C(E)=0.
   925
   926	030747	403 00 0 00 000002 	C27300:	SETZB	2		;CLEAR AC,E
   927	030750	261 02 0 00 000000 		PUSH	2,		;*PUSH SHOULD NOT ALTER C(E)
   928	030751	332 00 0 00 000000 		SKIPE			;PASS IF C(E)=0,,0
   929						STOP^
   930	030752	254 04 0 00 030753 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   931	030753	324 00 0 00 030754 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   932									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
   933									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
   934									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
   935
   936					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 3
DAKAGM	MAC	19-JAN-77 17:37		TEST OF PUSH INSTRUCTION                                                           SEQ 0030

   937					;THIS TEST VERIFIES THAT PUSH ADDS 1,,1 TO THE AC.
   938					;FIRST THE AC IS CLEARED; THEN PUSH IS EXECUTED.
   939					;THE AC IS CHECKED FOR 1,,1.  IF C(AC)=1,,1, THIS TEST PASSES.
   940
   941	030754	400 02 0 00 000000 	C27400:	SETZ	2,		;CLEAR AC
   942	030755	261 02 0 00 030756 		PUSH	2,.+1		;*PUSH SHOULD ADD 1,,1 TO C(AC)
   943	030756	312 02 0 00 032223 		CAME	2,[XWD 1,1]	;PASS IF C(AC)=1,,1
   944						STOP^
   945	030757	254 04 0 00 030760 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   946	030760	324 00 0 00 030761 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   947									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
   948									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
   949									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
   950
   951					;**********
   952
   953					;THIS TEST VERIFIES THAT PUSH ADDS 1,,1 TO THE AC BEFORE MODIFYING C(C(AC-RIGHT)).
   954					;FIRST, THE AC AND AC0 ARE ZEROED; THEN PUSH IS EXECUTED.
   955					;C(C(AC-RIGHT)) [BEFORE AC UPDATING] (AC0) IS CHECKED FOR THE INITIAL VALUE, 0.
   956					;IF C(AC0)=0, THIS TEST PASSES
   957
   958	030761	403 00 0 00 000002 	C27500:	SETZB	2		;CLEAR AC AND AC0
   959	030762	261 02 0 00 032225 		PUSH	2,[16541320]	;*PUSH SHOULD NOT MODIFY C(AC0)
   960	030763	332 00 0 00 000000 		SKIPE			;PASS IF C(AC0)=0
   961						STOP^
   962	030764	254 04 0 00 030765 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   963	030765	324 00 0 00 030766 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   964									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
   965									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
   966									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
   967
   968					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 4
DAKAGM	MAC	19-JAN-77 17:37		TEST OF PUSH INSTRUCTION                                                           SEQ 0031

   969					;THIS TEST VERIFIES THAT PUSH ADDS 1,,1 TO THE AC BEFORE MODIFYING C(C(AC-RIGHT)).
   970					;FIRST, THE AC AND AC0 ARE ZEROED; THEN PUSH IS EXECUTED.
   971					;C(C(AC-RIGHT)) [BEFORE AC UPDATING] (AC0) IS CHECKED FOR 
   972					;IF C(AC0)IS NOT EQUAL TO E, THIS TEST PASSES
   973
   974	030766	403 01 0 00 000002 	C27600:	SETZB	1,2		;CLEAR AC AND AC0
   975	030767	261 02 0 00 030770 		PUSH	2,.+1		;*PUSH SHOULD NOT MODIFY C(AC0)
   976	030770	306 00 0 00 030770 		CAIN	.		;FAIL IF C(AC0)=E
   977						STOP^
   978	030771	254 04 0 00 030772 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   979	030772	324 00 0 00 030773 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   980									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
   981									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
   982									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
   983
   984					;**********
   985
   986					;THIS TEST VERIFIES THAT PUSH ADDS 1,,1 TO THE AC; THEN, MOVES C(E) INTO
   987					;THE LOCATION SPECIFIED BY C(AC-RIGHT).  IN THIS CASE, AC AND THE LOCATION SPECIFIED
   988					;BY UPDATING C(AC-RIGHT) ARE CLEARED; THEN, PUSH IS EXECUTED WITH C(E)=-1,,-1.
   989					;THE LOCATION SPECIFIED BY C(AC-RIGHT) IS THEN CHECKED FOR -1,,-1, THE
   990					;ORIGINAL C(E).  IF C(C(AC-RIGHT))=-1,,-1, THIS TEST PASSES.
   991
   992	030773	403 01 0 00 000002 	C27700:	SETZB	1,2		;CLEAR AC, C(AC-RIGHT)
   993	030774	261 02 0 00 032226 		PUSH	2,[-1]		;*PUSH SHOULD PLACE -1,,-1 INTO AC1
   994	030775	312 01 0 00 032226 		CAME	1,[-1]		;PASS IF C(1)=-1,,-1
   995						STOP^
   996	030776	254 04 0 00 030777 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   997	030777	324 00 0 00 031000 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   998									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
   999									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1000									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1001
  1002					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 5
DAKAGM	MAC	19-JAN-77 17:37		TEST OF PUSH INSTRUCTION                                                           SEQ 0032

  1003					;THIS TEST VERIFIES THAT PUSH ADDS 1,,1 TO THE AC; THEN, MOVES C(E) INTO
  1004					;THE LOCATION SPECIFIED BY C(AC-RIGHT).  IN THIS CASE, AC
  1005					;IS CLEARED; THEN, PUSH IS EXECUTED WITH C(E)=0.
  1006					;THE LOCATION SPECIFIED BY C(AC-RIGHT) IS THEN CHECKED FOR 0, THE
  1007					;ORIGINAL C(E).  IF C(C(AC-RIGHT))=0, THIS TEST PASSES.
  1008
  1009	031000	402 00 0 00 000002 	C30000:	SETZM	2		;CLEAR AC
  1010	031001	261 02 0 00 032227 		PUSH	2,[0]		;*PUSH SHOULD PLACE 0 INTO AC1
  1011	031002	332 00 0 00 000001 		SKIPE	1		;PASS IF C(1)=0
  1012						STOP^
  1013	031003	254 04 0 00 031004 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1014	031004	324 00 0 00 031005 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1015									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1016									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1017									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1018
  1019					;**********
  1020
  1021					;THIS TEST VERIFIES THAT PUSH ADDS 1,,1 TO THE AC; THEN, MOVES C(E) INTO
  1022					;THE LOCATION SPECIFIED BY C(AC-RIGHT).  IN THIS CASE,
  1023					;AC IS PRELOADED WITH 0,,-1, AND THE LOCATION SPECIFIED
  1024					;BY UPDATING C(AC-RIGHT) IS CLEARED; THEN, PUSH IS EXECUTED WITH C(E)=-1,,-1.
  1025					;THE LOCATION SPECIFIED BY C(AC-RIGHT) IS THEN CHECKED FOR -1,,-1, THE
  1026					;ORIGINAL C(E).  IF C(C(AC-RIGHT))=-1,,-1, THIS TEST PASSES.
  1027
  1028	031005	201 02 0 00 777777 	C30100:	MOVEI	2,-1		;PRELOAD AC WITH 0,,-1
  1029	031006	400 00 0 00 000000 		SETZ			;CLEAR AC, C(AC-RIGHT)
  1030	031007	261 02 0 00 032226 		PUSH	2,[-1]		;*PUSH SHOULD PLACE -1,,-1 INTO AC0
  1031	031010	312 00 0 00 032226 		CAME	[-1]		;PASS IF C(0)=-1,,-1
  1032						STOP^
  1033	031011	254 04 0 00 031012 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1034	031012	324 00 0 00 031013 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1035									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1036									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1037									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1038
  1039					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 6
DAKAGM	MAC	19-JAN-77 17:37		TEST OF PUSH INSTRUCTION                                                           SEQ 0033

  1040					;THIS TEST VERIFIES THAT THERE IS A CARRY FROM AC BIT 18 TO BIT 17 OF THE AC ON PUSH.
  1041					;THE AC IS PRELOADED WITH 0,,-1; THEN PUSH IS EXECUTED. PUSH SHOULD ADD ONE TO BOTH
  1042					;HALVES OF THE AC, GENERATING A CARRY FROM BIT 18 TO BIT 17. IF A CARRY WAS GENERATED, 
  1043					;THIS TEST PASSES.
  1044
  1045	031013	201 02 0 00 777777 	C30101:	MOVEI	2,-1		;PRELOAD AC WITH 0,,-1
  1046	031014	261 02 0 00 000000 		PUSH	2,0		;*PUSH SHOULD GENERATE A CARRY FROM BIT 18 TO BIT 17
  1047	031015	312 02 0 00 032230 		CAME	2,[2,,0]	;PASS IF C(AC)=2,,0 (CARRY WAS GENERATED)
  1048						STOP^
  1049	031016	254 04 0 00 031017 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1050	031017	324 00 0 00 031020 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1051									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1052									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1053									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1054
  1055					;*************
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 7
DAKAGM	MAC	19-JAN-77 17:37		TEST OF PUSHJ INSTRUCTION                                                          SEQ 0034

  1056					SUBTTL	TEST OF PUSHJ INSTRUCTION
  1057
  1058					;**********
  1059
  1060					;THIS TEST VERIFIES THAT PUSHJ TRANSFERS CONTROL TO THE LOCATION ADDRESSED BY E.
  1061					;IF PUSHJ DOES NOT JUMP, THIS TEST FAILS
  1062
  1063	031020				C30200:	SFLAG	CRY0		^;SETS CRY0 FLAG
  1064
  1065	031020	205 01 0 00 200000 		MOVSI	1,CRY0
  1066	031021	255 17 0 00 031022 		JFCL	17,.+1		;RESET ALL FLAGS
  1067	031022	254 02 0 01 031023 		JRST	2,.+1(1)	;SET CRY0 FLAG
  1068	031023	400 00 0 00 000000 		SETZ			;CLEAR AC
  1069	031024	260 00 0 00 031026 		PUSHJ	.+2		;*PUSHJ SHOULD JUMP TO LOCATION E
  1070						STOP^
  1071	031025	254 04 0 00 031026 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1072	031026	324 00 0 00 031027 		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
  1077					;**********
  1078
  1079					;THIS TEST VERIFIES THAT PUSHJ DOES NOT MODIFY C(PC) WHERE PC IS ONE GREATER
  1080					;THAN THE LOCATION OF THE PUSHJ INSTRUCTION.
  1081					;IF PUSHJ MODIFIES C(PC), THIS TEST FAILS
  1082
  1083	031027				C30300:	SFLAG	CRY0		^;SET CRY0
  1084
  1085	031027	205 01 0 00 200000 		MOVSI	1,CRY0
  1086	031030	255 17 0 00 031031 		JFCL	17,.+1		;RESET ALL FLAGS
  1087	031031	254 02 0 01 031032 		JRST	2,.+1(1)	;SET CRY0 FLAG
  1088	031032	403 01 0 00 031034 		SETZB	1,.+2		;CLEAR C(AC-RIGHT) AND C(PC)
  1089	031033	260 00 0 00 031036 		PUSHJ	.+3		;*PUSHJ SHOULD NOT MODIFY C(PC)
  1090	031034	000000	000000			0			;THIS LOCATION SHOULD NOT BE MODIFIED BY PUSHJ
  1091	031035	310 00 0 00 000000 		CAM			;PUSHJ SHOULD JUMP OVER THIS LOCATION
  1092	031036	332 00 0 00 031034 		SKIPE	.-2		;PASS IF PUSHJ DID NOT MODIFY C(PC)
  1093						STOP^
  1094	031037	254 04 0 00 031040 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1095	031040	324 00 0 00 031041 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1096									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1097									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1098									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1099
  1100					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 8
DAKAGM	MAC	19-JAN-77 17:37		TEST OF PUSHJ INSTRUCTION                                                          SEQ 0035

  1101					;THIS TEST VERIFIES THAT PUSHJ DOES NOT STORE IN E
  1102					;IF PUSHJ STORED IN E, THIS TEST FAILS
  1103
  1104	031041				C30400:	SFLAG	CRY0		^;SET CRY0
  1105
  1106	031041	205 01 0 00 200000 		MOVSI	1,CRY0
  1107	031042	255 17 0 00 031043 		JFCL	17,.+1		;RESET ALL FLAGS
  1108	031043	254 02 0 01 031044 		JRST	2,.+1(1)	;SET CRY0 FLAG
  1109	031044	403 00 0 00 000001 		SETZB	1		;CLEAR AC AND C(AC-RIGHT
  1110	031045	260 00 0 00 031046 		PUSHJ	.+1		;*PUSHJ SHOULD NOT STORE IN E
  1111	031046	200 02 0 00 031046 		MOVE	2,.		;SAVE C(E)
  1112	031047	312 02 0 00 031046 		CAME	2,.-1		;FAIL IF PUSHJ STORED IN E
  1113						STOP^
  1114	031050	254 04 0 00 031051 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1115	031051	324 00 0 00 031052 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1116									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1117									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1118									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1119
  1120					;**********
  1121
  1122					;THIS TEST VERIFIES THAT PUSHJ DOES NOT STORE IN LOC 0
  1123					;PUSHJ SHOULD STORE PC IN C(AC-RIGHT) - LOCATION 2.
  1124					;IF PUSHJ STORES IN LOCATION 0, THIS TEST FAILS
  1125
  1126	031052	201 02 0 00 000001 	C30500:	MOVEI	2,1		;PRELOAD AC WITH 0,,1
  1127	031053	400 00 0 00 000000 		SETZ	0		;CLEAR 0
  1128	031054	260 02 0 00 031055 		PUSHJ	2,.+1		;*PUSHJ SHOULD NOT STORE IN LOCATION 0
  1129	031055	332 00 0 00 000000 		SKIPE			;FAIL IF PUSHJ STORED IN LOCATION 0
  1130						STOP^
  1131	031056	254 04 0 00 031057 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1132	031057	324 00 0 00 031060 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1133									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1134									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1135									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1136
  1137					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 9
DAKAGM	MAC	19-JAN-77 17:37		TEST OF PUSHJ INSTRUCTION                                                          SEQ 0036

  1138					;THIS TEST VERIFIES THAT PUSHJ STORES THE PC IN THE LOCATION SPECIFIED
  1139					;BY C(AC-RIGHT) AFTER INCREMENTING AC.
  1140					;IN THIS TEST, AC AND C(AC-RIGHT) ARE CLEARED; THEN, PUSHJ IS EXECUTED.
  1141					;C(C(AC-RIGHT))IS THEN COMPARED TO ZERO.  IF C(C(AC-RIGHT)) IS NON-ZERO,
  1142					;A PC WAS STORED AND THIS TEST PASSES.
  1143
  1144	031060	403 00 0 00 000001 	C30600:	SETZB	1		;CLEAR AC, C(AC-RIGHT)
  1145	031061	260 00 0 00 031063 		PUSHJ	.+2		;*PUSHJ SHOULD STORE PC IN RIGHT HALF OF C(AC-RIGHT)
  1146	031062	254 04 0 00 031062 		HALT	.		;PUSHJ SHOULD JUMP OVER THIS INSTRUCTION
  1147	031063	405 01 0 00 777777 		ANDI	1,-1		;SAVE C(C(AC-RIGHT))
  1148	031064	306 01 0 00 031063 		CAIN	1,.-1		;FAIL IF PC WAS NOT STORED IN C(AC-RIGHT)
  1149						STOP^
  1150	031065	254 04 0 00 031066 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1151	031066	324 00 0 00 031067 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1152									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1153									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1154									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1155
  1156					;**********
  1157
  1158					;THIS TEST VERIFIES THAT PUSHJ ADDS 1,,1 TO THE AC
  1159					;THE AC IS CLEARED AND PUSHJ IS EXECUTED
  1160					;AC IS CHECKED FOR 1,,1 IF C(AC)=1,,1, THIS TEST PASSES
  1161
  1162	031067	400 00 0 00 000000 	C31000:	SETZ			;CLEAR AC
  1163	031070	260 00 0 00 031071 		PUSHJ	.+1		;*PUSHJ SHOULD PLACE 1,,1 INTO THE AC
  1164	031071	312 00 0 00 032223 		CAME	[1,,1]		;PASS IF C(AC)=1,,1
  1165						STOP^
  1166	031072	254 04 0 00 031073 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1167	031073	324 00 0 00 031074 		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
  1172					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 10
DAKAGM	MAC	19-JAN-77 17:37		TEST OF PUSHJ INSTRUCTION                                                          SEQ 0037

  1173					;THIS TEST VERIFIES THAT PUSHJ STORES THE FLAGS IN LEFT HALF OF C(AC-RIGHT)
  1174					;FIRST, CRY0 IS SET AND AC AND C(AC-RIGHT) ARE CLEARED; THEN, PUSHJ IS EXECUTED.
  1175					;C(C(AC-RIGHT)) IS THEN CHECKED FOR CRY0.  IF CRY0 IS SET, THIS TEST PASSES.
  1176
  1177	031074				C31100:	SFLAG	CRY0		^;SET CRY0
  1178
  1179	031074	205 01 0 00 200000 		MOVSI	1,CRY0
  1180	031075	255 17 0 00 031076 		JFCL	17,.+1		;RESET ALL FLAGS
  1181	031076	254 02 0 01 031077 		JRST	2,.+1(1)	;SET CRY0 FLAG
  1182	031077	403 00 0 00 000001 		SETZB	1		;CLEAR AC AND C(AC-RIGHT)
  1183	031100	260 00 0 00 031101 		PUSHJ	.+1		;*PUSHJ SHOULD STORE FLAGS IN LEFT HALF OF C(AC-RIGHT)
  1184	031101	607 01 0 00 200000 		TLNN	1,CRY0		;PASS IF CRY0 STORED CORRECTLY
  1185						STOP^
  1186	031102	254 04 0 00 031103 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1187	031103	324 00 0 00 031104 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1188									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1189									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1190									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1191
  1192					;**********
  1193
  1194					;THIS TEST VERIFIES THAT PUSHJ ADDS 1,,1 TO THE AC
  1195					;THE AC IS PRELOADED WITH 0,,1 AND PUSHJ IS EXECUTED
  1196					;AC IS CHECKED FOR 1,,2 IF C(AC)=1,,2, THIS TEST PASSES
  1197
  1198	031104	201 01 0 00 000001 	C31400:	MOVEI	1,1		;PRELOAD AC WITH 0,,1
  1199	031105	260 01 0 00 031107 		PUSHJ	1,.+2		;*PUSHJ SHOULD PLACE 1,,2 INTO THE AC
  1200	031106	254 04 0 00 000000 		HALT			;PUSHJ SHOULD JUMP OVER THIS INSTRUCTION
  1201	031107	312 01 0 00 032231 		CAME	1,[XWD 1,2]	;PASS IF AC WAS INCREMENTED CORRECTLY
  1202						STOP^
  1203	031110	254 04 0 00 031111 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1204	031111	324 00 0 00 031112 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1205									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1206									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1207									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1208
  1209					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 11
DAKAGM	MAC	19-JAN-77 17:37		TEST OF PUSHJ INSTRUCTION                                                          SEQ 0038

  1210					;THIS TEST VERIFIES THAT PUSHJ STORES THE PC IN RIGHT HALF OF C(AC-RIGHT)
  1211					;THIS TEST PASSES IF THE PC WAS STORED CORRECTLY.
  1212
  1213	031112	201 01 0 00 000001 	C31500:	MOVEI	1,1		;PLACE 0,,1 INTO AC
  1214	031113	260 01 0 00 031115 		PUSHJ	1,.+2		;*PUSHJ SHOULD STORE .+1 INTO RIGHT HALF OF C(AC-RIGHT)
  1215	031114	254 04 0 00 000000 		HALT			;PUSHJ SHOULD JUMP OVER THIS PC
  1216	031115	405 02 0 00 777777 		ANDI	2,-1		;SAVE RIGHT HALF OF C(AC-RIGHT)
  1217	031116	302 02 0 00 031114 		CAIE	2,.-2		;PASS IF PC STORED CORRECTLY
  1218						STOP^
  1219	031117	254 04 0 00 031120 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1220	031120	324 00 0 00 031121 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1221									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1222									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1223									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1224
  1225					;**********
  1226
  1227					;THIS TEST VERIFIES THAT PUSHJ ALWAYS RESETS BIS.
  1228					;FIRST BIS IS SET; THEN PUSHJ IS EXECUTED.  THE FLAGS ARE
  1229					;THEN SAVED AND CHECKED.  IF BIS WAS RESET VIA PUSHJ, THIS TEST PASSES.
  1230
  1231	031121				C31501:	SFLAG	BIS		^;SET BIS
  1232
  1233	031121	205 01 0 00 020000 		MOVSI	1,BIS
  1234	031122	255 17 0 00 031123 		JFCL	17,.+1		;RESET ALL FLAGS
  1235	031123	254 02 0 01 031124 		JRST	2,.+1(1)	;SET BIS FLAG
  1236	031124	400 00 0 00 000000 		SETZ			;CLEAR AC
  1237	031125	260 00 0 00 031126 		PUSHJ	.+1		;*PUSHJ SHOULD RESET BIS
  1238	031126	265 00 0 00 031127 		JSP	.+1		;SAVE FLAGS
  1239	031127	603 00 0 00 020000 		TLNE	BIS		;PASS IF BIS FLAG IS RESET
  1240						STOP^
  1241	031130	254 04 0 00 031131 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1242	031131	324 00 0 00 031132 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1243									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1244									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1245									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1246
  1247					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 12
DAKAGM	MAC	19-JAN-77 17:37		TEST OF PUSHJ INSTRUCTION                                                          SEQ 0039

  1248					;THIS TEST VERIFIES THAT THERE IS A CARRY FROM BIT18 TO BIT17 OF THE AC ON PUSHJ.
  1249					;THE AC IS PRELOADED WITH 0,,-1; THEN PUSHJ IS EXECUTED. PUSHJ SHOULD ADD ONE TO
  1250					;BOTH HALVES OF THE AC, GENERATING A CARRY FROM BIT18 TO BIT17. IF A 
  1251					;CARRY WAS GENERATED, THE TEST PASSES.
  1252
  1253	031132	201 02 0 00 777777 	C31502:	MOVEI	2,-1		;PRELOAD AC WITH 0,,-1
  1254	031133	260 02 0 00 031134 		PUSHJ	2,.+1		;*PUSHJ SHOULD GENERATE A CARRY FROM BIT18 TO BIT17
  1255	031134	312 02 0 00 032230 		CAME	2,[2,,0]	;PASS IF C(AC)=2,,0 (CARRY WAS GENERATED)
  1256						STOP^
  1257	031135	254 04 0 00 031136 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1258	031136	324 00 0 00 031137 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1259									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1260									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1261									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1262
  1263					;****************
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 13
DAKAGM	MAC	19-JAN-77 17:37		TEST OF POP INSTRUCTION                                                            SEQ 0040

  1264					SUBTTL	TEST OF POP INSTRUCTION
  1265
  1266					;**********
  1267
  1268					;THIS TEST VERIFIES THAT POP SUBTRACTS 1,,1 FROM THE AC
  1269					;THE AC IS PRELOADED WITH 1,,1; THEN, POP IS EXECUTED.
  1270					;THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES.
  1271
  1272	031137	200 00 0 00 032223 	C31600:	MOVE	[XWD 1,1]	;PRELOAD AC WITH 1,,1
  1273	031140	262 00 0 00 000001 		POP	1		;*POP SHOULD SUBTRACT 1,,1 FROM THE AC
  1274	031141	332 00 0 00 000000 		SKIPE			;PASS IF AC WAS DECREMENTED CORRECTLY
  1275						STOP^
  1276	031142	254 04 0 00 031143 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1277	031143	324 00 0 00 031144 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1278									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1279									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1280									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1281
  1282					;**********
  1283
  1284					;THIS TEST VERIFIES THAT POP SUBTRACTS 1,,1 FROM THE AC
  1285					;THE AC IS PRELOADED WITH 2,,2; THEN, POP IS EXECUTED.
  1286					;THE AC IS CHECKED FOR 1,,1.  IF C(AC)=1,,1, THIS TEST PASSES.
  1287
  1288	031144	200 00 0 00 032232 	C31700:	MOVE	[XWD 2,2]	;PRELOAD AC WITH E,,E WHERE E=2
  1289	031145	201 02 0 00 000005 		MOVEI	2,5		;PRELOAD 2 WITH 0,,5
  1290	031146	262 00 0 00 000002 		POP	2		;*POP SHOULD SUBTRACT 1,,1 FROM THE AC
  1291	031147	312 00 0 00 032223 		CAME	[1,,1]		;PASS IF AC WAS DECREMENTED CORRECTLY
  1292						STOP^
  1293	031150	254 04 0 00 031151 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1294	031151	324 00 0 00 031152 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1295									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1296									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1297									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1298
  1299					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 14
DAKAGM	MAC	19-JAN-77 17:37		TEST OF POP INSTRUCTION                                                            SEQ 0041

  1300					;THIS TEST VERIFIES THAT POP STORES C(C(AC-RIGHT)) INTO E
  1301					;IN THIS CASE, AC=0 AND AC IS PRELOADED WITH 2,,2; E=2 AND IS PRELOADED WITH 0.
  1302					;POP IS THEN EXECUTED.  POP SHOULD PLACE 0 INTO E.  IF C(E)=0, THIS TEST PASSES.
  1303
  1304	031152	200 00 0 00 032232 	C32300:	MOVE	[XWD 2,2]	;PRELOAD AC WITH 2,,2
  1305	031153	402 00 0 00 000002 		SETZM	2		;CLEAR E AND C(AC-RIGHT)
  1306	031154	262 00 0 00 000002 		POP	2		;*POP SHOULD PLACE 0 INTO E
  1307	031155	332 00 0 00 000002 		SKIPE	2		;PASS IF C(E)=0
  1308						STOP^
  1309	031156	254 04 0 00 031157 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1310	031157	324 00 0 00 031160 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1311									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1312									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1313									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1314
  1315					;**********
  1316
  1317					;THIS TEST VERIFIES THAT POP DOES NOT MODIFY C(C(AC-RIGHT)-1).
  1318					;THIS TEST FAILS IF C(C(AC-RIGHT)-1) IS MODIFIED BY POP.
  1319
  1320	031160	200 00 0 00 032232 	C32400:	MOVE	[XWD 2,2]	;PRELOAD AC WITH 2,,2
  1321	031161	201 02 0 00 000017 		MOVEI	2,17		;PRELOAD 2 WITH 0,,17
  1322	031162	402 00 0 00 000001 		SETZM	1		;CLEAR C(C(AC-RIGHT)-1)
  1323	031163	262 00 0 00 000002 		POP	2		;*POP SHOULD NOT MODIFY C(C(AC-RIGHT)-1)
  1324	031164	332 00 0 00 000001 		SKIPE	1		;PASS IF C(C(AC-RIGHT)-1) WAS UNALTERED
  1325						STOP^
  1326	031165	254 04 0 00 031166 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1327	031166	324 00 0 00 031167 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1328									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1329									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1330									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1331
  1332					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 15
DAKAGM	MAC	19-JAN-77 17:37		TEST OF POP INSTRUCTION                                                            SEQ 0042

  1333					;THIS TEST VERIFIES THAT POP STORES C(C(AC-RIGHT)) INTO E.
  1334					;IN THIS CASE, AC IS PRELOADED WITH 2,,2 AND AC2 [C(AC-RIGHT)] IS PRELOADED WITH 0,,3.
  1335					;E IS CLEARED AND POP IS EXECUTED.  E IS THEN CHECKED FOR 0,,3 [C(C(AC-RIGHT))] .
  1336					;IF C(E)=0,,3, THIS TEST PASSES.
  1337
  1338	031167	200 00 0 00 032232 	C32500:	MOVE	[XWD 2,2]	;PRELOAD AC WITH 2,,2
  1339	031170	201 02 0 00 000003 		MOVEI	2,3		;PRELOAD C(AC-RIGHT) WITH 0,,3
  1340	031171	402 00 0 00 000003 		SETZM	3		;CLEAR E
  1341	031172	262 00 0 00 000003 		POP	3		;*POP SHOULD PLACE 0,,3 INTO E
  1342	031173	302 03 0 00 000003 		CAIE	3,3		;PASS IF C(E)=0,,3
  1343						STOP^
  1344	031174	254 04 0 00 031175 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1345	031175	324 00 0 00 031176 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1346									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1347									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1348									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1349
  1350					;**********
  1351
  1352					;THIS TEST VERIFIES THAT POP STORES C(C(AC-RIGHT)) INTO E.  IN THIS CASE,
  1353					;AC IS PRELOADED WITH 2,,2 AND AC2 [C(AC-RIGHT)] IS PRELOADED WITH 0,,17.
  1354					;E IS CLEARED AND POP IS EXECUTED.  E IS THEN CHECKED FOR 0,,17 [C(C(AC-RIGHT))] .
  1355					;IF C(E)=0,,17, THIS TEST PASSES.
  1356
  1357	031176	402 00 0 00 000002 	C32600:	SETZM	2		;CLEAR E
  1358	031177	200 00 0 00 032232 		MOVE	[XWD 2,2]	;PRELOAD AC WITH 2,,2
  1359	031200	201 02 0 00 000017 		MOVEI	2,17		;PRELOAD C(AC-RIGHT) WITH 0,,17
  1360	031201	262 00 0 00 000002 		POP	2		;*POP SHOULD PLACE 0,,17 INTO E
  1361	031202	302 02 0 00 000017 		CAIE	2,17		;PASS IF C(E)=0,,17
  1362						STOP^
  1363	031203	254 04 0 00 031204 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1364	031204	324 00 0 00 031205 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1365									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1366									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1367									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1368
  1369					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 16
DAKAGM	MAC	19-JAN-77 17:37		TEST OF POP INSTRUCTION                                                            SEQ 0043

  1370					;THIS TEST VERIFIES THAT POP STORES C(C(AC-RIGHT)) INTO E.  IN THIS CASE,
  1371					;AC IS PRELOADED WITH 2,,2 AND AC2 [C(AC-RIGHT)] IS PRELOADED WITH -1,,-1.
  1372					;E IS CLEARED AND POP IS EXECUTED.  E IS THEN CHECKED FOR -1,,-1 [C(C(AC-RIGHT))] .
  1373					;IF C(E)=0,,3, THIS TEST PASSES.
  1374
  1375	031205	200 00 0 00 032232 	C33100:	MOVE	[XWD 2,2]	;PRELOAD AC WITH 2,,2
  1376	031206	476 00 0 00 000002 		SETOM	2		;PRELOAD C(AC-RIGHT) WITH -1,,-1
  1377	031207	402 00 0 00 000003 		SETZM	3		;CLEAR E
  1378	031210	262 00 0 00 000003 		POP	3		;*POP SHOULD PLACE -1,,-1 INTO E
  1379	031211	312 03 0 00 032226 		CAME	3,[-1]		;PASS IF C(E)=-1,,-1
  1380						STOP^
  1381	031212	254 04 0 00 031213 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1382	031213	324 00 0 00 031214 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1383									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1384									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1385									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1386
  1387					;**********
  1388
  1389					;THIS TEST VERIFIES THAT POP PLACES C(C(AC-RIGHT)) INTO E AND ADDS 1,,1 TO AC.
  1390					;IN THIS CASE, THE AC IS PRELOADED WITH 1,,17; E=1 AND E IS PRELOADED WITH 0;
  1391					;C(AC-RIGHT) IS PRELOADED WITH -1,,-1; AND POP IS EXECUTED.  POP SHOULD PLACE -1,,-1
  1392					;INTO E AND 0,,16 INTO AC.  IF AC AND E ARE UPDATED CORRECTLY, THIS TEST PASSES.
  1393
  1394	031214	200 00 0 00 032233 	C33300:	MOVE	[XWD 1,17]	;PRELOAD AC WITH 1,,17
  1395	031215	402 00 0 00 000001 		SETZM	1		;PRELOAD E WITH 0
  1396	031216	476 00 0 00 000017 		SETOM	17		;PRELOAD C(AC-RIGHT) WITH 1,,1
  1397	031217	262 00 0 00 000001 		POP	1		;*POP SHOULD PLACE -1,,-1 INTO E AND 0,,16 INTO AC
  1398	031220	312 01 0 00 032226 		CAME	1,[-1]		;PASS IF C(E)=-1,,-1
  1399						STOP^
  1400	031221	254 04 0 00 031222 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1401	031222	324 00 0 00 031223 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1402									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1403									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1404									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1405	031223	302 00 0 00 000016 	C33310:	CAIE	16		;PASS IF C(AC)=0,,16
  1406						STOP^
  1407	031224	254 04 0 00 031225 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1408	031225	324 00 0 00 031226 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1409									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1410									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1411									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1412
  1413					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 17
DAKAGM	MAC	19-JAN-77 17:37		TEST OF POP INSTRUCTION                                                            SEQ 0044

  1414					;THIS TEST VERIFIES THAT POP PLACES C(C(AC-RIGHT)) INTO E AND ADDS 1,,1 TO AC
  1415					;IN THIS CASE, THE AC IS PRELOADED WITH -1,,0; E=17 
  1416					;C(AC-RIGHT) IS PRELOADED WITH 0; AND POP IS EXECUTED.  POP SHOULD PLACE 0
  1417					;INTO E.  IF AC IS UPDATED CORRECTLY, THIS TEST PASSES.
  1418
  1419	031226	205 01 0 00 777777 	C33400:	MOVSI	1,-1		;PRELOAD AC WITH -1,,0
  1420	031227	400 00 0 00 000000 		SETZ			;CLEAR C(AC-RIGHT)
  1421	031230	262 01 0 00 000017 		POP	1,17		;*POP SHOULD PLACE 0 INTO E
  1422	031231	332 00 0 00 000017 		SKIPE	17		;PASS IF C(E)=0
  1423						STOP^
  1424	031232	254 04 0 00 031233 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1425	031233	324 00 0 00 031234 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1426									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1427									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1428									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1429
  1430					;**********
  1431
  1432					;THIS TEST VERIFIES THAT THERE IS A CARRY FROM BIT18 TO BIT17 OF THE AC ON POP.
  1433					;THE AC IS PRELOADED WITH 2,,0; THEN POP IS EXECUTED. POP SHOULD SUBTRACT ONE FROM
  1434					;BOTH HALVES OF THE AC, GENERATING A CARRY FROM BIT18 TO BIT17.
  1435					;IF A CARRY WAS GENERATED, THIS TEST PASSES.
  1436
  1437	031234	515 02 0 00 000002 	C33401:	HRLZI	2,2		;PRELOAD AC WITH 2,,0
  1438	031235	262 02 0 00 000000 		POP	2,0		;*POP SHOULD GENERATE A CARRY FROM BIT18 TO BIT17
  1439	031236	302 02 0 00 777777 		CAIE	2,-1		;PASS IF C(AC) = 0,,-1	(CARRY WAS GENERATED)
  1440						STOP^
  1441	031237	254 04 0 00 031240 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1442	031240	324 00 0 00 031241 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1443									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1444									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1445									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1446
  1447					;************
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 18
DAKAGM	MAC	19-JAN-77 17:37		TEST OF POPJ INSTRUCTION                                                           SEQ 0045

  1448					SUBTTL	TEST OF POPJ INSTRUCTION
  1449
  1450					;**********
  1451
  1452					;THIS TEST VERIFIES THAT POPJ JUMPS TO THE LOCATION ADDRESSED BY RIGHT HALF OF
  1453					;C(C(AC-RIGHT)) BEFORE POPJ DECREMENTED THE AC.
  1454					;THIS TEST PASSES IF POPJ JUMPS CORRECTLY.
  1455
  1456	031241	200 00 0 00 032223 	C33500:	MOVE	[XWD 1,1]	;PRELOAD AC WITH 1,,1
  1457	031242	201 01 0 00 031245 		MOVEI	1,.+3		;PRELOAD C(AC-RIGHT) WITH .+3
  1458	031243	263 00 0 00 031245 		POPJ	.+2		;*POPJ SHOULD JUMP TO LOCATION
  1459									;ADDRESSED BY C(C(AC-RIGHT))
  1460						STOP^
  1461	031244	254 04 0 00 031245 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1462	031245	324 00 0 00 031246 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1463									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1464									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1465									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1466
  1467					;**********
  1468
  1469					;THIS TEST VERIFIES THAT POPJ SUBTRACTS 1,,1 FROM THE AC
  1470					;THIS AC IS PRELOADED WITH 1,,1; THEN,POPJ IS EXECUTED.
  1471					;THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES.
  1472
  1473	031246	200 00 0 00 032223 	C33600:	MOVE	[XWD 1,1]	;PRELOAD AC WITH 1,,1
  1474	031247	201 01 0 00 031251 		MOVEI	1,.+2		;PRELOAD C(AC-NIGHT)WITH .+2
  1475	031250	263 00 0 00 031251 		POPJ	.+1		;*POPJ SHOULD SUBTRACT 1,,1 FROM AC
  1476	031251	312 00 0 00 032227 		CAME	[0]		;PASS IF C(AC)=0
  1477						STOP^
  1478	031252	254 04 0 00 031253 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1479	031253	324 00 0 00 031254 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1480									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1481									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1482									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1483
  1484					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 19
DAKAGM	MAC	19-JAN-77 17:37		TEST OF POPJ INSTRUCTION                                                           SEQ 0046

  1485					;THIS TEST VERIFIES THAT POPJ JUMPS TO THE LOCATION ADDRESSED BY RIGHT HALF OF
  1486					;C(C(AC-RIGHT)) BEFORE POPJ DECREMENTED THE AC.
  1487					;THIS TEST PASSES IF POPJ JUMPS CORRECTLY.
  1488
  1489	031254	200 00 0 00 032223 	C33700:	MOVE	[XWD 1,1]	;PRELOAD AC WITH 1,,1
  1490	031255	201 01 0 00 031257 		MOVEI	1,.+2		;PRELOAD C(AC-RIGHT) WITH C33700+3
  1491
  1492	031256	263 00 0 00 031260 		POPJ	.+2		;*POPJ SHOULD JUMP TO C33700+3
  1493	031257	334 00 0 00 000000 		SKIPA			;PASS IF POPJ JUMPED CORRECTLY
  1494						STOP^
  1495	031260	254 04 0 00 031261 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1496	031261	324 00 0 00 031262 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1497									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1498									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1499									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1500
  1501					;**********
  1502
  1503					;THIS TEST VERIFIES THAT THERE IS A CARRY FROM BIT18 TO BIT17 OF THE AC ON POPJ.
  1504					;THE AC IS PRELOADED WITH 2,,0; THEN POPJ IS EXECUTED POPJ SHOULD SUBTRACT ONE FROM
  1505					;BOTH HALVES OF THE AC, GENERATING A CARRY FROM BIT18 TO BIT17.
  1506					;IF A CARRY WAS GENERATED, THIS TEST PASSES.
  1507
  1508	031262	515 02 0 00 000002 	C33701:	HRLZI	2,2		;PRELOAD AC WITH 2,,0
  1509	031263	201 00 0 00 031265 		MOVEI	0,.+2		;PRELOAD RH(AC) WITH C33701: +3
  1510	031264	263 02 0 00 000000 		POPJ	2,0		;*POPJ SHOULD GENERATE A CARRY FROM BIT18 TO BIT17
  1511	031265	302 02 0 00 777777 		CAIE	2,-1		;PASS IF C(AC)=0,,-1 (CARRY WAS GENERATED)
  1512						STOP^
  1513	031266	254 04 0 00 031267 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1514	031267	324 00 0 00 031270 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1515									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1516									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1517									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1518
  1519					;*************
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 20
DAKAGM	MAC	19-JAN-77 17:37		XCT INSTRUCTION - ADDITIONAL TESTS                                                 SEQ 0047

  1520					SUBTTL	XCT INSTRUCTION - ADDITIONAL TESTS
  1521
  1522					;**********
  1523
  1524					;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A SKIP INSTRUCTION, THE SKIP IS RELATIVE
  1525					;TO THE LOCATION OF THE XCT.
  1526
  1527	031270	477 00 0 00 000001 	C34000:	SETOB	1
  1528	031271	256 00 0 00 032234 		XCT	[CAME 0,1]	;*CAME SHOULD SKIP TO C34000+3
  1529						STOP^
  1530	031272	254 04 0 00 031273 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1531	031273	324 00 0 00 031274 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1532									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1533									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1534									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1535
  1536					;**********
  1537
  1538					;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A SKIP INSTRUCTION, THE SKIP IS RELATIVE
  1539					;TO THE LOCATION OF THE XCT.
  1540
  1541	031274	477 00 0 00 000001 	C34100:	SETOB	1
  1542	031275	256 00 0 00 032236 		XCT	[XCT[XCT[CAME 0,1]]]	;*CAME SHOULD SKIP TO C34100+3
  1543						STOP^
  1544	031276	254 04 0 00 031277 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1545	031277	324 00 0 00 031300 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1546									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1547									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1548									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1549
  1550					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 21
DAKAGM	MAC	19-JAN-77 17:37		XCT INSTRUCTION - ADDITIONAL TESTS                                                 SEQ 0048

  1551					;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A JUMP, PROGRAM FLOW IS ALTERED AS
  1552					;SPECIFIED BY THE JUMP.
  1553
  1554	031300	256 00 0 00 032237 	C34200:	XCT	[JRST .+4]	;*JRST SHOULD JUMP TO C34200+4
  1555
  1556	031301	254 04 0 00 000000 		HALT			;JRST SHOULD JUMP OVER THIS LOCATION
  1557	031302	254 04 0 00 000000 		HALT			;JRST SHOULD JUMP OVER THIS LOCATION
  1558						STOP^
  1559	031303	254 04 0 00 031304 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1560	031304	324 00 0 00 031305 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1561									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1562									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1563									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1564
  1565					;**********
  1566
  1567					;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A JUMP, PROGRAM FLOW IS ALTERED AS
  1568					;SPECIFIED BY THE JUMP AND THAT WHEN THE PC IS SAVED IT CONTAINS AN
  1569					;ADDRESS ONE GREATER THAN THE LOCATION OF FIRST XCT OF THE CHAIN.
  1570
  1571	031305	402 00 0 00 000003 	C34300:	SETZM	3		;CLEAR AC OF JSP
  1572	031306	256 00 0 00 032242 		XCT	[XCT[XCT[JSP 3,.+3]]] ;*JSP SHOULD JUMP TO C34300+4 AND
  1573	031307	254 04 0 00 000000 		HALT			;THE SAVED PC SHOULD BE C 34300+2	
  1574	031310	254 04 0 00 000000 		HALT			;PASS IF JSP JUMPED CORRECTLY	
  1575	031311	620 03 0 00 031307 		TRZ	3,.-2		;AND SAVED PC=C34300+2
  1576	031312	602 03 0 00 777777 		TRNE	3,-1
  1577						STOP^
  1578	031313	254 04 0 00 031314 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1579	031314	324 00 0 00 031315 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1580									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1581									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1582									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1583
  1584					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 22
DAKAGM	MAC	19-JAN-77 17:37		XCT INSTRUCTION - ADDITIONAL TESTS                                                 SEQ 0049

  1585					;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A SKIP INSTRUCTION, THE SKIP IS RELATIVE
  1586					;TO THE LOCATION OF THE XCT.
  1587					;IN THIS CASE, NO SKIP SHOULD OCCUR  ;HENCE, THE INSTRUCTION
  1588					;FOLLOWING XCT SHOULD BE EXECUTED AFTER 'CAME' IS EXECUTED.
  1589
  1590	031315	403 00 0 00 000000 	C34400:	SETZB	0		;SET-UP AC,E SO THAT
  1591	031316	476 00 0 00 000001 		SETOM	1		;CAME WILL NOT SKIP
  1592	031317	256 00 0 00 032234 		XCT	[CAME 0,1]	;*CAME SHOULD CAUSE EXECUTION
  1593									;OF INSTRUCTION FOLLOWING XCT
  1594	031320	254 00 0 00 031322 		JRST	.+2		;PASS IF THIS INSTRUCTION IS EXECUTED
  1595						STOP^
  1596	031321	254 04 0 00 031322 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1597	031322	324 00 0 00 031323 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1598									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1599									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1600									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1601
  1602					;**********
  1603
  1604					;THIS TEST VERIFIES INDEXING FOR XCT OF AN ADD INSTRUCTION
  1605					;C(4)=10, AND C(6)=3, SO THE RESULT IN 6 (THE AC) SHOULD BE 16
  1606					;C(11)=13
  1607
  1608	031323	201 04 0 00 000010 	C34500:	MOVEI	4,10		;PRELOAD INDEX REG WITH 10
  1609	031324	201 11 0 00 000013 		MOVEI	11,13		;PRELOAD EFFECTIVE ADDRESS WITH 13
  1610	031325	201 06 0 00 000003 		MOVEI	6,3		;PRELOAD AC WITH 3
  1611	031326	256 00 0 00 032243 		XCT	[ADD 6,1(4)]	;*ADD SHOULD PLACE 16 IN AC
  1612	031327	302 06 0 00 000016 		CAIE	6,16		;PASS IF C(AC)=16
  1613						STOP^
  1614	031330	254 04 0 00 031331 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1615	031331	324 00 0 00 031332 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1616									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1617									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1618									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1619
  1620					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 23
DAKAGM	MAC	19-JAN-77 17:37		XCT INSTRUCTION - ADDITIONAL TESTS                                                 SEQ 0050

  1621					;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A SKIP INSTRUCTION, THE SKIP IS RELATIVE
  1622					;TO THE LOCATION OF THE XCT
  1623					;IN THIS CASE, NO SKIP SHOULD OCCUR  ;HENCE, THE INSTRUCTION
  1624					;FOLLOWING XCT SHOULD BE EXECUTED AFTER CAME IS EXECUTED.
  1625
  1626	031332	402 00 0 00 000002 	C34600:	SETZM	2		;SETUP E SO THAT SKIPL WILL NOT SKIP
  1627	031333	256 00 0 00 032244 		XCT	[SKIPL 1,2]	;*SKIPL SHOULD CAUSE INSTRUCTION
  1628									;OF FOLLOWING INSTRUCTION
  1629	031334	254 00 0 00 031336 		JRST	.+2		;PASS IF THIS INSTRUCTION IS EXECUTED.
  1630						STOP^
  1631	031335	254 04 0 00 031336 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1632	031336	324 00 0 00 031337 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1633									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1634									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1635									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1636	031337	332 00 0 00 000001 	C34610:	SKIPE	1		;*SKIPE SHOULD SKIP BECAUSE XCT OF SKIPL
  1637									;PLACED 0 INTO AC1
  1638						STOP^
  1639	031340	254 04 0 00 031341 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1640	031341	324 00 0 00 031342 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1641									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1642									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1643									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1644
  1645					;**********
  1646
  1647					;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A SKIP INSTRUCTION, THE SKIP IS RELATIVE
  1648					;TO THE LOCATION OF THE XCT.
  1649
  1650	031342	476 00 0 00 000006 	C34700:	SETOM	6		;SETUP E SO THAT SKIPL WILL SKIP
  1651	031343	256 00 0 00 032245 		XCT	[SKIPL 3,6]	;*SKIPL SHOULD SKIP TO C34700+3
  1652						STOP^
  1653	031344	254 04 0 00 031345 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1654	031345	324 00 0 00 031346 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1655									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1656									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1657									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1658	031346	331 00 0 00 000003 	C34710:	SKIPL	3		;*SKIPE SHOULD SKIP BECAUSE XCT OF SKIPL
  1659									;PLACED 0 INTO AC1
  1660						STOP^
  1661	031347	254 04 0 00 031350 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1662	031350	324 00 0 00 031351 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1663									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1664									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1665									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1666
  1667					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 24
DAKAGM	MAC	19-JAN-77 17:37		XCT INSTRUCTION - ADDITIONAL TESTS                                                 SEQ 0051

  1668					;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A JUMP, PROGRAM FLOW IS ALTERED AS
  1669					;SPECIFIED BY THE JUMP.
  1670					;THIS TEST ALSO VERIFIES CORRECT UPDATING OF THE AC FOR AOBJN
  1671
  1672	031351	200 03 0 00 032246 	C35000:	MOVE	3,[-2,,5]	;SETUP AC SO THAT AOBJN WILL JUMP
  1673	031352	256 00 0 00 032247 		XCT	[AOBJN 3,.+3]	;*JUMP SHOULD BE TO C35000+4
  1674	031353	254 04 0 00 000000 		HALT			;JUMP OVER THIS INSTRUCTION
  1675	031354	254 04 0 00 000000 		HALT			;JUMP OVER THIS INSTRUCTION
  1676	031355	312 03 0 00 032250 		CAME	3,[-1,,6]	;PASS IF C(AC)=-1,,6 AND AOBJN JUMPED
  1677						STOP^
  1678	031356	254 04 0 00 031357 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1679	031357	324 00 0 00 031360 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1680									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1681									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1682									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1683
  1684					;**********
  1685
  1686					;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A JUMP, PROGRAM FLOW IS ALTERED AS
  1687					;SPECIFIED BY THE JUMP.
  1688					;THIS TEST ALSO VERIFIES CORRECT UPDATING OF THE AC FOR AOBJN
  1689
  1690	031360	200 03 0 00 032250 	C35100:	MOVE	3,[-1,,6]	;SETUP AC SO THAT AOBJN WILL NOT JUMP
  1691	031361	256 00 0 00 032251 		XCT	[AOBJN 3,.+2]	;*AOBJN SHOULD NOT JUMP
  1692	031362	312 03 0 00 032252 		CAME	3,[0,,7]	;PASS IF AOBJN DID NOT JUMP AND C(AC)=0,,7
  1693						STOP^
  1694	031363	254 04 0 00 031364 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1695	031364	324 00 0 00 031365 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1696									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1697									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1698									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1699
  1700					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 25
DAKAGM	MAC	19-JAN-77 17:37		TEST XCT INSTRUCTION WITH INDIRECT ADDRESSING AND INDEXING                         SEQ 0052

  1701					SUBTTL	TEST XCT INSTRUCTION WITH INDIRECT ADDRESSING AND INDEXING
  1702
  1703					;**********
  1704
  1705					;THIS TEST VERIFIES THAT XCT WILL EXECUTE AN INSTRUCTION
  1706					;FROM AN INDIRECTLY ADDRESSED LOCATION
  1707
  1708	031365	403 00 0 00 000002 	C35200:	SETZB	2
  1709	031366	254 00 0 00 031371 		JRST	.+3
  1710	031367	000000	031370				.+1
  1711	031370	476 00 0 00 000002 		SETOM	2		;THIS INSTRUCTION SHOULD BE EXECUTED
  1712	031371	256 00 1 00 031367 		XCT	@.-2
  1713	031372	312 02 0 00 032226 		CAME	2,[-1,,-1]	;PASS IF 'SETOM 2' WAS EXECUTED
  1714						STOP^
  1715	031373	254 04 0 00 031374 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1716	031374	324 00 0 00 031375 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1717									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1718									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1719									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1720
  1721					;**********
  1722
  1723					;THIS TEST VERIFIES THAT XCT WILL EXECUTE AN INSTRUCTION
  1724					;FROM AN INDEXED LOCATION
  1725
  1726	031375	201 04 0 00 031376 	C35300:	MOVEI	4,.+1
  1727	031376	254 00 0 00 031400 		JRST	.+2
  1728	031377	302 04 0 00 031376 		CAIE	4,.-1		;THIS INSTRUCTION SHOULD BE EXECUTED
  1729	031400	256 00 0 04 000001 		XCT	1(4)
  1730						STOP			^;PASS IF 'CAIE 4,,-1' WAS EXECUTED
  1731
  1732	031401	254 04 0 00 031402 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1733	031402	324 00 0 00 031403 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1734									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1735									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1736									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1
  1737
  1738					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 26
DAKAGM	MAC	19-JAN-77 17:37		TEST XCT INSTRUCTION WITH INDIRECT ADDRESSING AND INDEXING                         SEQ 0053

  1739					;THIS TEST VERIFIES THAT XCT WILL EXECUTE AN INSTRUCTION
  1740					;FROM AN INDIRECTLY ADDRESSED AND INDEXED LOCATION
  1741
  1742	031403	402 00 0 00 000005 	C35400:	SETZM	5
  1743	031404	201 03 0 00 031407 		MOVEI	3,.+3
  1744	031405	254 00 0 00 031407 		JRST	.+2
  1745	031406	201 05 0 00 031411 		MOVEI	5,.+3
  1746	031407	256 00 1 03 777777 		XCT	@-1(3)
  1747	031410	254 00 0 00 031412 		JRST	.+2
  1748	031411	476 00 0 00 000005 		SETOM	5		;THIS INSTRUCTION SHOULD BE EXECUTED
  1749	031412	312 05 0 00 032226 		CAME	5,[-1,,-1]	;PASS IF 'SETOM 5' WAS EXECUTED
  1750						STOP^
  1751	031413	254 04 0 00 031414 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1752	031414	324 00 0 00 031415 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1753									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1754									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1755									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1756
  1757					;**********
  1758
  1759					;THIS TEST VERIFIES THAT XCT WILL EXECUTE AN INDIRECTLY ADDRESSED
  1760					;AND INDEXED INSTRUCTION
  1761
  1762	031415	402 00 0 00 000003 	C35500:	SETZM	3
  1763	031416	201 10 0 00 000003 		MOVEI	10,3
  1764	031417	254 00 0 00 031424 		JRST	.+5
  1765	031420	254 04 0 00 000000 		HALT
  1766	031421	254 04 0 00 000000 		HALT
  1767	031422	200 03 1 10 031420 		MOVE	3,@.-2(10)	;THIS INSTRUCTION SHOULD BE EXECUTED
  1768	031423	254 04 0 00 032253 		HALT	[0,,707070]
  1769	031424	256 00 0 00 031422 		XCT	.-2
  1770	031425	302 03 0 00 707070 		CAIE	3,707070	;PASS IF 'MOVE 3,@.-2(10)' WAS EXECUTED
  1771						STOP^
  1772	031426	254 04 0 00 031427 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1773	031427	324 00 0 00 031430 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1774									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1775									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1776									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1777
  1778					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 27
DAKAGM	MAC	19-JAN-77 17:37		TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER                        SEQ 0054

  1779					SUBTTL	TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER
  1780
  1781					;**********
  1782
  1783					;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
  1784					;IN THIS CASE, 0,,0 SHOULD BE ROTATED RIGHT 3 BIT POSITIONS
  1785					;SO THAT FINAL C(AC)=0,,0.
  1786					;C(AC+1) SHOULD NOT BE AFFECTED.
  1787
  1788	031430	200 00 0 00 032227 	C35600:	MOVE	0,[0,,0]	;PRELOAD AC WITH 0,,0
  1789	031431	200 01 0 00 032254 		MOVE	1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
  1790	031432	241 00 0 00 777775 		ROT	0,-3		;*ROT SHOULD ROTATE 0,,0 RIGHT 3 BIT POSITIONS
  1791	031433	312 00 0 00 032227 		CAME	0,[0,,0]	;PASS IF C(AC)=0,,0
  1792						STOP^
  1793	031434	254 04 0 00 031435 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1794	031435	324 00 0 00 031436 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1795									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1796									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1797									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1798	031436	312 01 0 00 032254 		CAME	1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
  1799						STOP^
  1800	031437	254 04 0 00 031440 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1801	031440	324 00 0 00 031441 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1802									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1803									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1804									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1805
  1806					;**********
  1807
  1808					;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
  1809					;IN THIS CASE, -1,,-1 SHOULD BE ROTATED RIGHT 3 BIT POSITIONS
  1810					;SO THAT FINAL C(AC)=-1,,-1.
  1811					;C(AC+1) SHOULD NOT BE AFFECTED.
  1812
  1813	031441	200 00 0 00 032226 	C35700:	MOVE	0,[-1,,-1]	;PRELOAD AC WITH 0,,0
  1814	031442	200 01 0 00 032254 		MOVE	1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
  1815	031443	241 00 0 00 777775 		ROT	0,-3		;*ROT SHOULD ROTATE -1,,-1 RIGHT 3 BIT POSITIONS
  1816	031444	312 00 0 00 032226 		CAME	0,[-1,,-1]	;PASS IF C(AC)=-1,,-1
  1817						STOP^
  1818	031445	254 04 0 00 031446 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1819	031446	324 00 0 00 031447 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1820									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1821									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1822									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1823	031447	312 01 0 00 032254 		CAME	1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
  1824						STOP^
  1825	031450	254 04 0 00 031451 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1826	031451	324 00 0 00 031452 		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
  1831					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 28
DAKAGM	MAC	19-JAN-77 17:37		TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER                        SEQ 0055

  1832					;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
  1833					;IN THIS CASE, 252525,,252525 SHOULD BE ROTATED RIGHT 3 BIT POSITIONS
  1834					;SO THAT FINAL C(AC)=525252,,525252.
  1835					;C(AC+1) SHOULD NOT BE AFFECTED.
  1836
  1837	031452	200 00 0 00 032255 	C36000:	MOVE	0,[252525,,252525] ;PRELOAD AC WITH 252525,,252525
  1838	031453	200 01 0 00 032254 		MOVE	1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
  1839	031454	241 00 0 00 777775 		ROT	0,-3		;*ROT SHOULD ROTATE 252525,,252525
  1840									;RIGHT 3 BIT POSITIONS
  1841	031455	312 00 0 00 032256 		CAME	0,[525252,,525252] ;PASS IF C(AC)=525252,,525252
  1842						STOP^
  1843	031456	254 04 0 00 031457 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1844	031457	324 00 0 00 031460 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1845									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1846									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1847									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1848	031460	312 01 0 00 032254 		CAME	1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
  1849						STOP^
  1850	031461	254 04 0 00 031462 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1851	031462	324 00 0 00 031463 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1852									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1853									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1854									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1855
  1856					;**********
  1857
  1858					;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
  1859					;IN THIS CASE, 525252,,525252 SHOULD BE ROTATED RIGHT 3 BIT POSITIONS
  1860					;SO THAT FINAL C(AC)=252525,,252525.
  1861					;C(AC+1) SHOULD NOT BE AFFECTED.
  1862
  1863	031463	200 00 0 00 032256 	C36100:	MOVE	0,[525252,,525252] ;PRELOAD AC WITH 525252,,525252
  1864	031464	200 01 0 00 032254 		MOVE	1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
  1865	031465	241 00 0 00 777775 		ROT	0,-3		;*ROT SHOULD ROTATE 525252,,525252
  1866									;RIGHT 3 BIT POSITIONS
  1867	031466	312 00 0 00 032255 		CAME	0,[252525,,252525] ;PASS IF C(AC)=252525,,252525
  1868						STOP^
  1869	031467	254 04 0 00 031470 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1870	031470	324 00 0 00 031471 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1871									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1872									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1873									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1874	031471	312 01 0 00 032254 		CAME	1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
  1875						STOP^
  1876	031472	254 04 0 00 031473 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1877	031473	324 00 0 00 031474 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1878									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1879									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1880									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1881
  1882					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 29
DAKAGM	MAC	19-JAN-77 17:37		TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER                        SEQ 0056

  1883					;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
  1884					;IN THIS CASE, 230703,,603700 SHOULD BE ROTATED RIGHT 3 BIT POSITIONS
  1885					;SO THAT FINAL C(AC)=023070,,360370.
  1886					;C(AC+1) SHOULD NOT BE AFFECTED.
  1887
  1888	031474	200 00 0 00 032257 	C36200:	MOVE	0,[230703,,603700] ;PRELOAD AC WITH 230703,,603700
  1889	031475	200 01 0 00 032254 		MOVE	1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
  1890	031476	241 00 0 00 777775 		ROT	0,-3		;*ROT SHOULD ROTATE 230703,,603700
  1891									;RIGHT 3 BIT POSITIONS
  1892	031477	312 00 0 00 032260 		CAME	0,[023070,,360370] ;PASS IF C(AC)=023070,,360370
  1893						STOP^
  1894	031500	254 04 0 00 031501 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1895	031501	324 00 0 00 031502 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1896									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1897									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1898									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1899	031502	312 01 0 00 032254 		CAME	1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
  1900						STOP^
  1901	031503	254 04 0 00 031504 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1902	031504	324 00 0 00 031505 		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					;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
  1910					;IN THIS CASE, 007603,,607062 SHOULD BE ROTATED RIGHT 3 BIT POSITIONS
  1911					;SO THAT FINAL C(AC)=200760,,360706.
  1912					;C(AC+1) SHOULD NOT BE AFFECTED.
  1913
  1914	031505	200 00 0 00 032261 	C36300:	MOVE	0,[007603,,607062] ;PRELOAD AC WITH 007603,,607062
  1915	031506	200 01 0 00 032254 		MOVE	1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
  1916	031507	241 00 0 00 777775 		ROT	0,-3		;*ROT SHOULD ROTATE 007603,,607062
  1917									;RIGHT 3 BIT POSITIONS
  1918	031510	312 00 0 00 032262 		CAME	0,[200760,,360706] ;PASS IF C(AC)=200760,,360706
  1919						STOP^
  1920	031511	254 04 0 00 031512 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1921	031512	324 00 0 00 031513 		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	031513	312 01 0 00 032254 		CAME	1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
  1926						STOP^
  1927	031514	254 04 0 00 031515 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1928	031515	324 00 0 00 031516 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1929									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1930									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1931									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1932
  1933					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 30
DAKAGM	MAC	19-JAN-77 17:37		TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER                        SEQ 0057

  1934					;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
  1935					;IN THIS CASE, 0,,0 SHOULD BE ROTATED LEFT 15 BIT POSITIONS
  1936					;SO THAT FINAL C(AC)=0,,0.
  1937					;C(AC+1) SHOULD NOT BE AFFECTED.
  1938
  1939	031516	200 02 0 00 032227 	C36400:	MOVE	2,[0,,0]	;PRELOAD AC WITH 0,,0
  1940	031517	200 03 0 00 032254 		MOVE	3,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
  1941	031520	241 02 0 00 000015 		ROT	2,15		;*ROT SHOULD ROTATE 0,,0 LEFT 15 BIT POSITIONS
  1942	031521	312 02 0 00 032227 		CAME	2,[0,,0]	;PASS IF C(AC)=0,,0
  1943						STOP^
  1944	031522	254 04 0 00 031523 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1945	031523	324 00 0 00 031524 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1946									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1947									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1948									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1949	031524	312 03 0 00 032254 		CAME	3,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
  1950						STOP^
  1951	031525	254 04 0 00 031526 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1952	031526	324 00 0 00 031527 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1953									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1954									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1955									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1956
  1957					;**********
  1958
  1959					;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
  1960					;IN THIS CASE, -1,,-1 SHOULD BE ROTATED LEFT 15 BIT POSITIONS
  1961					;SO THAT FINAL C(AC)=-1,,-1.
  1962					;C(AC+1) SHOULD NOT BE AFFECTED.
  1963
  1964	031527	200 02 0 00 032226 	C36500:	MOVE	2,[-1,,-1]	;PRELOAD AC WITH -1,,-1
  1965	031530	200 03 0 00 032254 		MOVE	3,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
  1966	031531	241 02 0 00 000015 		ROT	2,15		;*ROT SHOULD ROTATE -1,,-1 LEFT 15 BIT POSITIONS
  1967	031532	312 02 0 00 032226 		CAME	2,[-1,,-1]	;PASS IF C(AC)=-1,,-1
  1968						STOP^
  1969	031533	254 04 0 00 031534 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1970	031534	324 00 0 00 031535 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1971									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1972									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1973									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1974	031535	312 03 0 00 032254 		CAME	3,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
  1975						STOP^
  1976	031536	254 04 0 00 031537 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1977	031537	324 00 0 00 031540 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1978									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1979									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1980									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1981
  1982					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 31
DAKAGM	MAC	19-JAN-77 17:37		TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER                        SEQ 0058

  1983					;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
  1984					;IN THIS CASE, 252525,,252525 SHOULD BE ROTATED LEFT 15 BIT POSITIONS
  1985					;SO THAT FINAL C(AC)=525252,,525252.
  1986					;C(AC+1) SHOULD NOT BE AFFECTED.
  1987
  1988	031540	200 02 0 00 032255 	C36600:	MOVE	2,[252525,,252525] ;PRELOAD AC WITH 252525,,252525
  1989	031541	200 03 0 00 032254 		MOVE	3,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
  1990	031542	241 02 0 00 000015 		ROT	2,15		;*ROT SHOULD ROTATE 252525,,252525
  1991									;LEFT 15 BIT POSITIONS
  1992	031543	312 02 0 00 032256 		CAME	2,[525252,,525252] ;PASS IF C(AC)=525252,,525252
  1993						STOP^
  1994	031544	254 04 0 00 031545 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1995	031545	324 00 0 00 031546 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1996									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1997									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1998									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1999	031546	312 03 0 00 032254 		CAME	3,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
  2000						STOP^
  2001	031547	254 04 0 00 031550 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2002	031550	324 00 0 00 031551 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2003									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2004									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2005									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2006
  2007					;**********
  2008
  2009					;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
  2010					;IN THIS CASE, 525252,,525252 SHOULD BE ROTATED LEFT 15 BIT POSITIONS
  2011					;SO THAT FINAL C(AC)=252525,,252525.
  2012					;C(AC+1) SHOULD NOT BE AFFECTED.
  2013
  2014	031551	200 02 0 00 032256 	C36700:	MOVE	2,[525252,,525252] ;PRELOAD AC WITH 525252,,525252
  2015	031552	200 03 0 00 032254 		MOVE	3,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
  2016	031553	241 02 0 00 000015 		ROT	2,15		;*ROT SHOULD ROTATE 525252,,525252
  2017									;LEFT 15 BIT POSITIONS
  2018	031554	312 02 0 00 032255 		CAME	2,[252525,,252525] ;PASS IF C(AC)=252525,,252525
  2019						STOP^
  2020	031555	254 04 0 00 031556 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2021	031556	324 00 0 00 031557 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2022									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2023									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2024									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2025	031557	312 03 0 00 032254 		CAME	3,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
  2026						STOP^
  2027	031560	254 04 0 00 031561 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2028	031561	324 00 0 00 031562 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2029									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2030									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2031									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2032
  2033					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 32
DAKAGM	MAC	19-JAN-77 17:37		TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER                        SEQ 0059

  2034					;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
  2035					;IN THIS CASE, 230703,,603700 SHOULD BE ROTATED LEFT 15 BIT POSITIONS
  2036					;SO THAT FINAL C(AC)074076,,004616.
  2037					;C(AC+1) SHOULD NOT BE AFFECTED.
  2038
  2039	031562	200 02 0 00 032257 	C37000:	MOVE	2,[230703,,603700] ;PRELOAD AC WITH 230703,,603700
  2040	031563	200 03 0 00 032254 		MOVE	3,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
  2041	031564	241 02 0 00 000015 		ROT	2,15		;*ROT SHOULD ROTATE 230703,,603700
  2042									;LEFT 15 BIT POSITIONS
  2043	031565	312 02 0 00 032263 		CAME	2,[074076,,004616] ;PASS IF C(AC)074076,,004616
  2044						STOP^
  2045	031566	254 04 0 00 031567 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2046	031567	324 00 0 00 031570 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2047									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2048									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2049									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2050	031570	312 03 0 00 032254 		CAME	3,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
  2051						STOP^
  2052	031571	254 04 0 00 031572 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2053	031572	324 00 0 00 031573 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2054									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2055									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2056									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2057
  2058					;**********
  2059
  2060					;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
  2061					;IN THIS CASE, 007603,,607062 SHOULD BE ROTATED LEFT 15 BIT POSITIONS
  2062					;SO THAT FINAL C(AC)074161,,440174.
  2063					;C(AC+1) SHOULD NOT BE AFFECTED.
  2064
  2065	031573	200 02 0 00 032261 	C37100:	MOVE	2,[007603,,607062] ;PRELOAD AC WITH 007603,,607062
  2066	031574	200 03 0 00 032254 		MOVE	3,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
  2067	031575	241 02 0 00 000015 		ROT	2,15		;*ROT SHOULD ROTATE 007603,,607062
  2068									;LEFT 15 BIT POSITIONS
  2069	031576	312 02 0 00 032264 		CAME	2,[074161,,440174] ;PASS IF C(AC)074161,,440174
  2070						STOP^
  2071	031577	254 04 0 00 031600 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2072	031600	324 00 0 00 031601 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2073									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2074									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2075									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2076	031601	312 03 0 00 032254 		CAME	3,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
  2077						STOP^
  2078	031602	254 04 0 00 031603 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2079	031603	324 00 0 00 031604 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2080									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2081									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2082									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2083
  2084					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 33
DAKAGM	MAC	19-JAN-77 17:37		TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER                        SEQ 0060

  2085					;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
  2086					;IN THIS CASE, 0,,0 0,,0 SHOULD BE ROTATED LEFT 3 BIT POSITIONS
  2087					;SO THAT FINAL C(AC)=0,,0 AND FINAL C(AC+1)=0,,0
  2088
  2089	031604	200 00 0 00 032227 	C37200:	MOVE	0,[0,,0]	;PRELOAD AC WITH 0,,0
  2090	031605	200 01 0 00 032227 		MOVE	1,[0,,0]	;PRELOAD AC+1 WITH 0,,0
  2091	031606	245 00 0 00 000003 		ROTC	0,3		;*ROTC SHOULD ROTATE 0,,0 0,,0 LEFT 3 BIT POSITIONS
  2092	031607	312 00 0 00 032227 		CAME	0,[0,,0]	;PASS IF C(AC)=0,,0
  2093						STOP^
  2094	031610	254 04 0 00 031611 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2095	031611	324 00 0 00 031612 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2096									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2097									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2098									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2099	031612	312 01 0 00 032227 		CAME	1,[0,,0]	;PASS IF C(AC+1)=0,,0
  2100						STOP^
  2101	031613	254 04 0 00 031614 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2102	031614	324 00 0 00 031615 		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					;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
  2110					;IN THIS CASE, -1,,-1 -1,,-1 SHOULD BE ROTATED LEFT 3 BIT POSITIONS
  2111					;SO THAT FINAL C(AC)=-1,,-1 AND FINAL C(AC+1)=-1,,-1
  2112
  2113	031615	200 00 0 00 032226 	C37300:	MOVE	0,[-1,,-1]	;PRELOAD AC WITH -1,,-1
  2114	031616	200 01 0 00 032226 		MOVE	1,[-1,,-1]	;PRELOAD AC+1 WITH -1,,-1
  2115	031617	245 00 0 00 000003 		ROTC	0,3		;*ROTC SHOULD ROTATE -1,,-1
  2116									;-1,,-1 LEFT 3 BIT POSITIONS
  2117	031620	312 00 0 00 032226 		CAME	0,[-1,,-1]	;PASS IF C(AC)=-1,,-1
  2118						STOP^
  2119	031621	254 04 0 00 031622 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2120	031622	324 00 0 00 031623 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2121									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2122									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2123									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2124	031623	312 00 0 00 032226 		CAME	0,[-1,,-1]	;PASS IF C(AC+1)=-1,,-1
  2125						STOP^
  2126	031624	254 04 0 00 031625 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2127	031625	324 00 0 00 031626 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2128									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2129									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2130									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2131
  2132					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 34
DAKAGM	MAC	19-JAN-77 17:37		TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER                        SEQ 0061

  2133					;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
  2134					;IN THIS CASE, 252525,,252525 252525,,252525 SHOULD BE ROTATED LEFT 3 BIT POSITIONS
  2135					;SO THAT FINAL C(AC)=525252,,525252 AND FINAL C(AC+1)=525252,,525252
  2136
  2137	031626	200 00 0 00 032255 	C37400:	MOVE	0,[252525,,252525]	;PRELOAD AC WITH 252525,,252525
  2138	031627	200 01 0 00 032255 		MOVE	1,[252525,,252525]	;PRELOAD AC+1 WITH 252525,,252525
  2139	031630	245 00 0 00 000003 		ROTC	0,3			;*ROTC SHOULD ROTATE 252525,,252525
  2140										;252525,,252525 LEFT 3 BIT POSITIONS
  2141	031631	312 00 0 00 032256 		CAME	0,[525252,,525252]	;PASS IF C(AC)=525252,,525252
  2142						STOP^
  2143	031632	254 04 0 00 031633 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2144	031633	324 00 0 00 031634 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2145									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2146									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2147									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2148	031634	312 01 0 00 032256 		CAME	1,[525252,,525252]	;PASS IF C(AC+1)=525252,,525252
  2149						STOP^
  2150	031635	254 04 0 00 031636 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2151	031636	324 00 0 00 031637 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2152									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2153									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2154									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2155
  2156					;**********
  2157
  2158					;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
  2159					;IN THIS CASE, 525252,,525252 525252,,525252 SHOULD BE ROTATED LEFT 3 BIT POSITIONS
  2160					;SO THAT FINAL C(AC)=252525,,252525 AND FINAL C(AC+1)=252525,,252525
  2161
  2162	031637	200 00 0 00 032256 	C37500:	MOVE	0,[525252,,525252]	;PRELOAD AC WITH 525252,,525252
  2163	031640	200 01 0 00 032256 		MOVE	1,[525252,,525252]	;PRELOAD AC+1 WITH 525252,,525252
  2164	031641	245 00 0 00 000003 		ROTC	0,3			;*ROTC SHOULD ROTATE 525252,,525252
  2165										;525252,,525252 LEFT 3 BIT POSITIONS
  2166	031642	312 00 0 00 032255 		CAME	0,[252525,,252525]	;PASS IF C(AC)=252525,,252525
  2167						STOP^
  2168	031643	254 04 0 00 031644 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2169	031644	324 00 0 00 031645 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2170									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2171									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2172									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2173	031645	312 01 0 00 032255 		CAME	1,[252525,,252525]	;PASS IF C(AC+1)=252525,,252525
  2174						STOP^
  2175	031646	254 04 0 00 031647 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2176	031647	324 00 0 00 031650 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2177									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2178									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2179									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2180
  2181					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 35
DAKAGM	MAC	19-JAN-77 17:37		TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER                        SEQ 0062

  2182					;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
  2183					;IN THIS CASE, 230703,,603700 770037,,600377 SHOULD BE ROTATED LEFT 3 BIT POSITIONS
  2184					;SO THAT FINAL C(AC)=307036,,37007 AND FINAL C(AC+1)=700376,,003772
  2185
  2186	031650	200 00 0 00 032257 	C37600:	MOVE	0,[230703,,603700]	;PRELOAD AC WITH 230703,,603700
  2187	031651	200 01 0 00 032265 		MOVE	1,[770037,,600377]	;PRELOAD AC+1 WITH 770037,,600377
  2188	031652	245 00 0 00 000003 		ROTC	0,3			;*ROTC SHOULD ROTATE 230703,,603700
  2189										;770037,,600377 LEFT 3 BIT POSITIONS
  2190	031653	312 00 0 00 032266 		CAME	0,[307036,,037007]	;PASS IF C(AC)=307036,,37007
  2191						STOP^
  2192	031654	254 04 0 00 031655 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2193	031655	324 00 0 00 031656 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2194									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2195									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2196									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2197	031656	312 01 0 00 032267 		CAME	1,[700376,,003772]	;PASS IF C(AC+1)=700376,,003772
  2198						STOP^
  2199	031657	254 04 0 00 031660 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2200	031660	324 00 0 00 031661 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2201									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2202									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2203									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2204
  2205					;**********
  2206
  2207					;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
  2208					;IN THIS CASE, 776003,,760077 007603,,607062 SHOULD BE ROTATED LEFT 3 BIT POSITIONS
  2209					;SO THAT FINAL C(AC)=760037,,600770 AND FINAL C(AC+1)=076036,,070627
  2210
  2211	031661	200 00 0 00 032270 	C37700:	MOVE	0,[776003,,760077]	;PRELOAD AC WITH 776003,,760077
  2212	031662	200 01 0 00 032261 		MOVE	1,[007603,,607062]	;PRELOAD AC+1 WITH 007603,,607062
  2213	031663	245 00 0 00 000003 		ROTC	0,3			;*ROTC SHOULD ROTATE 776003,,760077
  2214										;007603,,607062 LEFT 3 BIT POSITIONS
  2215	031664	312 00 0 00 032271 		CAME	0,[760037,,600770]	;PASS IF C(AC)=076036,,070627
  2216						STOP^
  2217	031665	254 04 0 00 031666 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2218	031666	324 00 0 00 031667 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2219									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2220									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2221									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2222	031667	312 01 0 00 032272 		CAME	1,[076036,,070627]	;PASS IF C(AC+1)=760037,,600770
  2223						STOP^
  2224	031670	254 04 0 00 031671 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2225	031671	324 00 0 00 031672 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2226									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2227									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2228									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2229
  2230					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 36
DAKAGM	MAC	19-JAN-77 17:37		TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER                        SEQ 0063

  2231					;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
  2232					;IN THIS CASE, 0,,0 0,,0 SHOULD BE ROTATED LEFT 7 BIT POSITIONS
  2233					;SO THAT FINAL C(AC)=0,,0 AND FINAL C(AC+1)=0,,0
  2234
  2235	031672	200 00 0 00 032227 	C40000:	MOVE	0,[0,,0]	;PRELOAD AC WITH 0,,0
  2236	031673	200 01 0 00 032227 		MOVE	1,[0,,0]	;PRELOAD AC+1 WITH 0,,0
  2237	031674	245 00 0 00 000007 		ROTC	0,7		;*ROTC SHOULD ROTATE 0,,0 0,,0 LEFT 7 BIT POSITIONS
  2238	031675	312 00 0 00 032227 		CAME	0,[0,,0]	;PASS IF C(AC)=0,,0
  2239						STOP^
  2240	031676	254 04 0 00 031677 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2241	031677	324 00 0 00 031700 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2242									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2243									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2244									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2245	031700	312 01 0 00 032227 		CAME	1,[0,,0]	;PASS IF C(AC+1)=0,,0
  2246						STOP^
  2247	031701	254 04 0 00 031702 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2248	031702	324 00 0 00 031703 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2249									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2250									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2251									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2252
  2253					;**********
  2254
  2255					;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
  2256					;IN THIS CASE, -1,,-1 -1,,-1  SHOULD BE ROTATED LEFT 7 BIT POSITIONS
  2257					;SO THAT FINAL C(AC)=-1,,-1 AND FINAL C(AC+1)=-1,,-1
  2258
  2259	031703	200 00 0 00 032226 	C40100:	MOVE	0,[-1,,-1]	;PRELOAD AC WITH -1,,-1
  2260	031704	200 01 0 00 032226 		MOVE	1,[-1,,-1]	;PRELOAD AC+1 WITH -1,,-1
  2261	031705	245 00 0 00 000007 		ROTC	0,7		;*ROTC SHOULD ROTATE -1,,-1
  2262									;-1,,-1 LEFT 7 BIT POSITIONS
  2263	031706	312 00 0 00 032226 		CAME	0,[-1,,-1]	;PASS IF C(AC)=-1,,-1
  2264						STOP^
  2265	031707	254 04 0 00 031710 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2266	031710	324 00 0 00 031711 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2267									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2268									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2269									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2270	031711	312 01 0 00 032226 		CAME	1,[-1,,-1]	;PASS IF C(AC+1)=-1,,-1
  2271						STOP^
  2272	031712	254 04 0 00 031713 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2273	031713	324 00 0 00 031714 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2274									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2275									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2276									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2277
  2278					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 37
DAKAGM	MAC	19-JAN-77 17:37		TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER                        SEQ 0064

  2279					;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
  2280					;IN THIS CASE, 252525,,252525 252525,,252525 SHOULD BE ROTATED LEFT 7 BIT POSITIONS
  2281					;SO THAT FINAL C(AC)=525252,,525252 AND FINAL C(AC+1)=525252,,525252
  2282
  2283	031714	200 00 0 00 032255 	C40200:	MOVE	0,[252525,,252525]	;PRELOAD AC WITH 252525,,252525
  2284	031715	200 01 0 00 032255 		MOVE	1,[252525,,252525]	;PRELOAD AC+1 WITH 252525,,252525
  2285	031716	245 00 0 00 000007 		ROTC	0,7			;*ROTC SHOULD ROTATE 252525,,252525
  2286										;252525,,252525 LEFT 7 BIT POSITIONS
  2287	031717	312 00 0 00 032256 		CAME	0,[525252,,525252]	;PASS IF C(AC)=525252,,525252
  2288						STOP^
  2289	031720	254 04 0 00 031721 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2290	031721	324 00 0 00 031722 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2291									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2292									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2293									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2294	031722	312 01 0 00 032256 		CAME	1,[525252,,525252]	;PASS IF C(AC+1)=525252,,525252
  2295						STOP^
  2296	031723	254 04 0 00 031724 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2297	031724	324 00 0 00 031725 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2298									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2299									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2300									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2301
  2302					;**********
  2303
  2304					;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
  2305					;IN THIS CASE, 525252,,525252 525252,,525252 SHOULD BE ROTATED LEFT 7 BIT POSITIONS
  2306					;SO THAT FINAL C(AC)=252525,,252525 AND FINAL C(AC+1)=252525,,252525 
  2307
  2308	031725	200 00 0 00 032256 	C40300:	MOVE	0,[525252,,525252]	;PRELOAD AC WITH 525252,,525252
  2309	031726	200 01 0 00 032256 		MOVE	1,[525252,,525252]	;PRELOAD AC+1 WITH 525252,,525252
  2310	031727	245 00 0 00 000007 		ROTC	0,7			;*ROTC SHOULD ROTATE 525252,,525252
  2311										;525252,,525252 LEFT 7 BIT POSITIONS
  2312	031730	312 00 0 00 032255 		CAME	0,[252525,,252525]	;PASS IF C(AC)=252525,,252525
  2313						STOP^
  2314	031731	254 04 0 00 031732 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2315	031732	324 00 0 00 031733 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2316									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2317									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2318									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2319	031733	312 01 0 00 032255 		CAME	1,[252525,,252525]	;PASS IF C(AC+1)=252525,,252525
  2320						STOP^
  2321	031734	254 04 0 00 031735 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2322	031735	324 00 0 00 031736 		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					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 38
DAKAGM	MAC	19-JAN-77 17:37		TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER                        SEQ 0065

  2328					;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
  2329					;IN THIS CASE, 230703,,603700 770037,,600377 SHOULD BE ROTATED LEFT 7 BIT POSITIONS
  2330					;SO THAT FINAL C(AC)=160740,,760176 AND FINAL C(AC+1)=007740,,077646
  2331
  2332	031736	200 00 0 00 032257 	C40400:	MOVE	0,[230703,,603700]	;PRELOAD AC WITH 230703,,603700
  2333	031737	200 01 0 00 032265 		MOVE	1,[770037,,600377]	;PRELOAD AC+1 WITH 770037,,600377
  2334	031740	245 00 0 00 000007 		ROTC	0,7			;*ROTC SHOULD ROTATE 230703,,603700
  2335										;770037,,600377 LEFT 7 BIT POSITIONS
  2336	031741	312 00 0 00 032273 		CAME	0,[160740,,760176]	;PASS IF C(AC)=160740,,760176
  2337						STOP^
  2338	031742	254 04 0 00 031743 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2339	031743	324 00 0 00 031744 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2340									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2341									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2342									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2343	031744	312 01 0 00 032274 		CAME	1,[007740,,077646]	;PASS IF C(AC+1)=007740,,077646
  2344						STOP^
  2345	031745	254 04 0 00 031746 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2346	031746	324 00 0 00 031747 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2347									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2348									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2349									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2350
  2351					;**********
  2352
  2353					;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
  2354					;IN THIS CASE, 776003,,760077 007603,,607063 SHOULD BE ROTATED LEFT 7 BIT POSITIONS
  2355					;SO THAT FINAL C(AC)=400774,,017610 AND FINAL C(AC+1)=740741,,614577
  2356
  2357	031747	200 00 0 00 032270 	C40500:	MOVE	0,[776003,,760077]	;PRELOAD AC WITH 776003,,760077
  2358	031750	200 01 0 00 032261 		MOVE	1,[007603,,607062]	;PRELOAD AC+1 WITH 007603,,607062
  2359	031751	245 00 0 00 000007 		ROTC	0,7			;*ROTC SHOULD ROTATE 776003,,760077
  2360										;007603,,607062 LEFT 7 BIT POSITIONS
  2361	031752	312 00 0 00 032275 		CAME	0,[400774,,017601]	;PASS IF C(AC)=400774,,017601
  2362						STOP^
  2363	031753	254 04 0 00 031754 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2364	031754	324 00 0 00 031755 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2365									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2366									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2367									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2368	031755	312 01 0 00 032276 		CAME	1,[740741,,614577]	;PASS IF C(AC+1)=740741,,614577
  2369						STOP^
  2370	031756	254 04 0 00 031757 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2371	031757	324 00 0 00 031760 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2372									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2373									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2374									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2375
  2376					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 39
DAKAGM	MAC	19-JAN-77 17:37		TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER                        SEQ 0066

  2377					;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
  2378					;IN THIS CASE, 0,,0 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
  2379					;SO THAT FINAL C(AC)=0,,0.
  2380					;C(AC+1) SHOULD NOT BE AFFECTED
  2381
  2382	031760	200 00 0 00 032227 	C40600:	MOVE	0,[0,,0]	;PRELOAD AC WITH 0,,0
  2383	031761	200 01 0 00 032254 		MOVE	1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
  2384	031762	242 00 0 00 777745 		LSH	0,-33		;*LSH SHOULD LOGICALLY SHIFT 0,,0
  2385									;RIGHT 33 OCTAL BIT POSITIONS
  2386	031763	312 00 0 00 032227 		CAME	0,[0,,0]	;PASS IF C(AC)=0,,0
  2387						STOP^
  2388	031764	254 04 0 00 031765 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2389	031765	324 00 0 00 031766 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2390									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2391									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2392									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2393	031766	312 01 0 00 032254 		CAME	1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
  2394						STOP^
  2395	031767	254 04 0 00 031770 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2396	031770	324 00 0 00 031771 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2397									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2398									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2399									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2400
  2401					;**********
  2402
  2403					;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
  2404					;IN -1,,-1 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
  2405					;SO THAT FINAL C(AC)=0,,777.
  2406					;C(AC+1) SHOULD NOT BE AFFECTED
  2407
  2408	031771	200 00 0 00 032226 	C40700:	MOVE	0,[-1,,-1]	;PRELOAD AC WITH -1,,-1
  2409	031772	200 01 0 00 032254 		MOVE	1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
  2410	031773	242 00 0 00 777745 		LSH	0,-33		;*LSH SHOULD LOGICALLY SHIFT -1,,-1
  2411									;RIGHT 33 OCTAL BIT POSITIONS
  2412	031774	312 00 0 00 032277 		CAME	0,[0,777]	;PASS IF C(AC)=0,,777
  2413						STOP^
  2414	031775	254 04 0 00 031776 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2415	031776	324 00 0 00 031777 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2416									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2417									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2418									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2419	031777	312 01 0 00 032254 		CAME	1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
  2420						STOP^
  2421	032000	254 04 0 00 032001 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2422	032001	324 00 0 00 032002 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2423									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2424									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2425									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2426
  2427					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 40
DAKAGM	MAC	19-JAN-77 17:37		TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER                        SEQ 0067

  2428					;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
  2429					;IN 252525,,252525 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
  2430					;SO THAT FINAL C(AC)=0,,252.
  2431					;C(AC+1) SHOULD NOT BE AFFECTED
  2432
  2433	032002	200 00 0 00 032255 	C41000:	MOVE	0,[252525,,252525]	;PRELOAD AC WITH 252525,,252525
  2434	032003	200 01 0 00 032254 		MOVE	1,[172737,,405060] 	;PRELOAD AC+1 WITH 172737,,405060
  2435	032004	242 00 0 00 777745 		LSH	0,-33			;*LSH SHOULD LOGICALLY SHIFT 252525,,252525
  2436										;RIGHT 33 OCTAL BIT POSITIONS
  2437	032005	312 00 0 00 032300 		CAME	0,[0,,252]		;PASS IF C(AC)=0,,252
  2438						STOP^
  2439	032006	254 04 0 00 032007 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2440	032007	324 00 0 00 032010 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2441									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2442									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2443									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2444	032010	312 01 0 00 032254 		CAME	1,[172737,,405060]	;PASS IF C(AC+1) NOT AFFECTED
  2445						STOP^
  2446	032011	254 04 0 00 032012 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2447	032012	324 00 0 00 032013 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2448									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2449									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2450									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2451
  2452					;**********
  2453
  2454					;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
  2455					;IN THIS CASE, 525252,,525252 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
  2456					;SO THAT FINAL C(AC)=0,,525.
  2457					;C(AC+1) SHOULD NOT BE AFFECTED
  2458
  2459	032013	200 00 0 00 032256 	C41100:	MOVE	0,[525252,,525252]	;PRELOAD AC WITH 525252,,525252
  2460	032014	200 01 0 00 032254 		MOVE	1,[172737,,405060]	;PRELOAD AC+1 WITH 172737,,405060
  2461	032015	242 00 0 00 777745 		LSH	0,-33			;*LSH SHOULD LOGICALLY SHIFT 525252,,525252
  2462										;RIGHT 33 OCTAL BIT POSITIONS
  2463	032016	312 00 0 00 032301 		CAME	0,[0,,525]		;PASS IF C(AC)=0,,525
  2464						STOP^
  2465	032017	254 04 0 00 032020 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2466	032020	324 00 0 00 032021 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2467									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2468									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2469									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2470	032021	312 01 0 00 032254 		CAME	1,[172737,,405060]	;PASS IF C(AC+1) NOT AFFECTED
  2471						STOP^
  2472	032022	254 04 0 00 032023 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2473	032023	324 00 0 00 032024 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2474									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2475									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2476									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2477
  2478					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 41
DAKAGM	MAC	19-JAN-77 17:37		TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER                        SEQ 0068

  2479					;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
  2480					;IN THIS CASE, 230703,,603700 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
  2481					;SO THAT FINAL C(AC)=0,,230.
  2482					;C(AC+1) SHOULD NOT BE AFFECTED
  2483
  2484	032024	200 00 0 00 032257 	C41200:	MOVE	0,[230703,,603700]	;PRELOAD AC WITH 230703,,603700
  2485	032025	200 01 0 00 032254 		MOVE	1,[172737,,405060]	;PRELOAD AC+1 WITH 172737,,405060
  2486	032026	242 00 0 00 777745 		LSH	0,-33			;*LSH SHOULD LOGICALLY SHIFT 230703,,603700
  2487										;RIGHT 33 OCTAL BIT POSITIONS
  2488	032027	312 00 0 00 032302 		CAME	0,[0,,230]		;PASS IF C(AC)=230703,,603700
  2489						STOP^
  2490	032030	254 04 0 00 032031 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2491	032031	324 00 0 00 032032 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2492									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2493									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2494									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2495	032032	312 01 0 00 032254 		CAME	1,[172737,,405060]	;PASS IF C(AC+1) NOT AFFECTED
  2496						STOP^
  2497	032033	254 04 0 00 032034 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2498	032034	324 00 0 00 032035 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2499									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2500									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2501									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2502
  2503					;**********
  2504
  2505					;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
  2506					;IN THIS CASE, 007603,,607062 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
  2507					;SO THAT FINAL C(AC)=0,,7.
  2508					;C(AC+1) SHOULD NOT BE AFFECTED
  2509
  2510	032035	200 00 0 00 032261 	C41300:	MOVE	0,[007603,,607062]	;PRELOAD AC WITH 007603,,607062
  2511	032036	200 01 0 00 032254 		MOVE	1,[172737,,405060]	;PRELOAD AC+1 WITH 172737,,405060
  2512	032037	242 00 0 00 777745 		LSH	0,-33			;*LSH SHOULD LOGICALLY SHIFT 007603,,6070062
  2513										;RIGHT 33 OCTAL BIT POSITIONS
  2514	032040	312 00 0 00 032252 		CAME	0,[0,,7]		;PASS IF C(AC)=0,,7
  2515						STOP^
  2516	032041	254 04 0 00 032042 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2517	032042	324 00 0 00 032043 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2518									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2519									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2520									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2521	032043	312 01 0 00 032254 		CAME	1,[172737,,405060]	;PASS IF C(AC+1) NOT AFFECTED
  2522						STOP^
  2523	032044	254 04 0 00 032045 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2524	032045	324 00 0 00 032046 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2525									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2526									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2527									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2528
  2529					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 42
DAKAGM	MAC	19-JAN-77 17:37		TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER                        SEQ 0069

  2530					;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
  2531					;IN THIS CASE, 0,,0 SHOULD BE LOGICALLY SHIFTED RIGHT 27 OCTAL BIT POSITIONS
  2532					;SO THAT FINAL C(AC)=0,,0.
  2533					;C(AC+1) SHOULD NOT BE AFFECTED
  2534
  2535	032046	200 01 0 00 032227 	C41400:	MOVE	1,[0,,0]	;PRELOAD AC WITH 0,,0
  2536	032047	200 02 0 00 032254 		MOVE	2,[172737,,405060]	;PRELOAD C(AC+1) WITH 172737,,405060
  2537	032050	242 01 0 00 777751 		LSH	1,-27		;*LSH SHOULD LOGICALLY SHIFT 0,,0
  2538									;RIGHT 27 OCTAL BIT POSITIONS
  2539	032051	312 01 0 00 032227 		CAME	1,[0,,0]	;PASS IF C(AC)=0,,0
  2540						STOP^
  2541	032052	254 04 0 00 032053 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2542	032053	324 00 0 00 032054 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2543									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2544									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2545									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2546	032054	312 02 0 00 032254 		CAME	2,[172737,,405060]	;PASS IF C(AC+1) NOT AFFECTED
  2547						STOP^
  2548	032055	254 04 0 00 032056 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2549	032056	324 00 0 00 032057 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2550									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2551									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2552									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2553
  2554					;**********
  2555
  2556					;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
  2557					;IN THIS CASE, -1,,-1 SHOULD BE LOGICALLY SHIFTED RIGHT 27 OCTAL BIT POSITIONS
  2558					;SO THAT FINAL C(AC)=0,,17777.
  2559					;C(AC+1) SHOULD NOT BE AFFECTED
  2560
  2561	032057	200 01 0 00 032226 	C41500:	MOVE	1,[-1,,-1]	;PRELOAD AC WITH -1,,-1
  2562	032060	200 02 0 00 032254 		MOVE	2,[172737,,405060]	;PRELOAD C(AC+1) WITH 172737,,405060
  2563	032061	242 01 0 00 777751 		LSH	1,-27		;*LSH SHOULD LOGICALLY SHIFT -1,,-1
  2564									;RIGHT 27 OCTAL BIT POSITIONS
  2565	032062	312 01 0 00 032303 		CAME	1,[0,,17777]	;PASS IF C(AC)=0,17777
  2566						STOP^
  2567	032063	254 04 0 00 032064 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2568	032064	324 00 0 00 032065 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2569									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2570									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2571									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2572	032065	312 02 0 00 032254 		CAME	2,[172737,,405060]	;PASS IF C(AC+1) NOT AFFECTED
  2573						STOP^
  2574	032066	254 04 0 00 032067 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2575	032067	324 00 0 00 032070 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2576									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2577									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2578									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2579
  2580					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 43
DAKAGM	MAC	19-JAN-77 17:37		TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER                        SEQ 0070

  2581					;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
  2582					;IN THIS CASE, 252525,,252525 SHOULD BE LOGICALLY SHIFTED RIGHT 27 OCTAL BIT POSITIONS
  2583					;SO THAT FINAL C(AC)=0,,5252.
  2584					;C(AC+1) SHOULD NOT BE AFFECTED
  2585
  2586	032070	200 01 0 00 032255 	C41600:	MOVE	1,[252525,,252525]	;PRELOAD AC WITH 252525,,252525
  2587	032071	200 02 0 00 032254 		MOVE	2,[172737,,405060]	;PRELOAD C(AC+1) WITH 172737,,405060
  2588	032072	242 01 0 00 777751 		LSH	1,-27			;*LSH SHOULD LOGICALLY SHIFT 252525,,252525
  2589										;RIGHT 27 OCTAL BIT POSITIONS
  2590	032073	312 01 0 00 032304 		CAME	1,[0,,5252]		;PASS IF C(AC)=0,,5252
  2591						STOP^
  2592	032074	254 04 0 00 032075 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2593	032075	324 00 0 00 032076 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2594									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2595									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2596									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2597	032076	312 02 0 00 032254 		CAME	2,[172737,,405060]	;PASS IF C(AC+1) NOT AFFECTED
  2598						STOP^
  2599	032077	254 04 0 00 032100 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2600	032100	324 00 0 00 032101 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2601									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2602									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2603									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2604
  2605					;**********
  2606
  2607					;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
  2608					;IN THIS CASE, 525252,,525252 SHOULD BE LOGICALLY SHIFTED RIGHT 27 OCTAL BIT POSITIONS
  2609					;SO THAT FINAL C(AC)=0,,12525.
  2610					;C(AC+1) SHOULD NOT BE AFFECTED
  2611
  2612	032101	200 01 0 00 032256 	C41700:	MOVE	1,[525252,,525252]	;PRELOAD AC WITH 525252,,525252
  2613	032102	200 02 0 00 032254 		MOVE	2,[172737,,405060]	;PRELOAD C(AC+1) WITH 172737,,405060
  2614	032103	242 01 0 00 777751 		LSH	1,-27			;*LSH SHOULD LOGICALLY SHIFT 525252,,525252
  2615										;RIGHT 27 OCTAL BIT POSITIONS
  2616	032104	312 01 0 00 032305 		CAME	1,[0,,12525]		;PASS IF C(AC)=0,,12525
  2617						STOP^
  2618	032105	254 04 0 00 032106 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2619	032106	324 00 0 00 032107 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2620									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2621									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2622									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2623	032107	312 02 0 00 032254 		CAME	2,[172737,,405060]	;PASS IF C(AC+1) NOT AFFECTED
  2624						STOP^
  2625	032110	254 04 0 00 032111 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2626	032111	324 00 0 00 032112 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2627									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2628									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2629									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2630
  2631					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 44
DAKAGM	MAC	19-JAN-77 17:37		TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER                        SEQ 0071

  2632					;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
  2633					;IN THIS CASE, 230703,602700 SHOULD BE LOGICALLY SHIFTED RIGHT 27 OCTAL BIT POSITIONS
  2634					;SO THAT FINAL C(AC)=0,,4616.
  2635					;C(AC+1) SHOULD NOT BE AFFECTED
  2636
  2637	032112	200 01 0 00 032257 	C42000:	MOVE	1,[230703,,603700]	;PRELOAD AC WITH 230703,603700
  2638	032113	200 02 0 00 032254 		MOVE	2,[172737,,405060]	;PRELOAD C(AC+1) WITH 172737,,405060
  2639	032114	242 01 0 00 777751 		LSH	1,-27			;*LSH SHOULD LOGICALLY SHIFT 230703,,603700
  2640										;RIGHT 27 OCTAL BIT POSITIONS
  2641	032115	312 01 0 00 032306 		CAME	1,[0,,4616]		;PASS IF C(AC)=0,,4616
  2642						STOP^
  2643	032116	254 04 0 00 032117 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2644	032117	324 00 0 00 032120 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2645									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2646									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2647									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2648	032120	312 02 0 00 032254 		CAME	2,[172737,,405060]	;PASS IF C(AC+1) NOT AFFECTED
  2649						STOP^
  2650	032121	254 04 0 00 032122 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2651	032122	324 00 0 00 032123 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2652									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2653									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2654									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2655
  2656					;**********
  2657
  2658					;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
  2659					;IN THIS CASE, 007603,,607062 SHOULD BE LOGICALLY SHIFTED RIGHT 27 OCTAL BIT POSITIONS
  2660					;SO THAT FINAL C(AC)=0,,174.
  2661					;C(AC+1) SHOULD NOT BE AFFECTED
  2662
  2663	032123	200 01 0 00 032261 	C42100:	MOVE	1,[007603,,607062]	;PRELOAD AC WITH 007603,,607062
  2664	032124	200 02 0 00 032254 		MOVE	2,[172737,,405060]	;PRELOAD C(AC+1) WITH 172737,,405060
  2665	032125	242 01 0 00 777751 		LSH	1,-27			;*LSH SHOULD LOGICALLY SHIFT 007603,,607062
  2666										;RIGHT 27 OCTAL BIT POSITIONS
  2667	032126	312 01 0 00 032307 		CAME	1,[0,,174]		;PASS IF C(AC)=0,,174
  2668						STOP^
  2669	032127	254 04 0 00 032130 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2670	032130	324 00 0 00 032131 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2671									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2672									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2673									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2674	032131	312 02 0 00 032254 		CAME	2,[172737,,405060]	;PASS IF C(AC+1) NOT AFFECTED
  2675						STOP^
  2676	032132	254 04 0 00 032133 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2677	032133	324 00 0 00 032134 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2678									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2679									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2680									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2681
  2682					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 45
DAKAGM	MAC	19-JAN-77 17:37		TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER                        SEQ 0072

  2683					;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
  2684					;IN THIS CASE, 0,,0 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
  2685					;SO THAT FINAL C(AC)=0,,0.
  2686					;C(AC+1) SHOULD NOT BE AFFECTED
  2687
  2688	032134	200 01 0 00 032227 	C42200:	MOVE	1,[0,0]		;PRELOAD AC WITH 0,,0
  2689	032135	200 02 0 00 032254 		MOVE	2,[172737,,405060]	;PRELOAD C(AC+1) WITH 172737,,405060
  2690	032136	242 01 0 00 777745 		LSH	1,-33		;*LSH SHOULD LOGICALLY SHIFT 0,,0
  2691									;RIGHT 33 OCTAL BIT POSITIONS
  2692	032137	312 01 0 00 032227 		CAME	1,[0,,0]	;PASS IF C(AC)=0,,0
  2693						STOP^
  2694	032140	254 04 0 00 032141 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2695	032141	324 00 0 00 032142 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2696									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2697									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2698									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2699	032142	312 02 0 00 032254 		CAME	2,[172737,,405060]	;PASS IF C(AC+1) NOT AFFECTED
  2700						STOP^
  2701	032143	254 04 0 00 032144 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2702	032144	324 00 0 00 032145 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2703									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2704									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2705									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2706
  2707					;**********
  2708
  2709					;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
  2710					;IN THIS CASE, -1,,-1 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
  2711					;SO THAT FINAL C(AC)=0,,777.
  2712					;C(AC+1) SHOULD NOT BE AFFECTED
  2713
  2714	032145	200 01 0 00 032226 	C42300:	MOVE	1,[-1,,-1]	;PRELOAD AC WITH -1,,-1
  2715	032146	200 02 0 00 032254 		MOVE	2,[172737,,405060]	;PRELOAD C(AC+1) WITH 172737,,405060
  2716	032147	242 01 0 00 777745 		LSH	1,-33		;*LSH SHOULD LOGICALLY SHIFT -1,,-1
  2717									;RIGHT 33 OCTAL BIT POSITIONS
  2718	032150	312 01 0 00 032277 		CAME	1,[0,,777]	;PASS IF C(AC)=0,,777
  2719						STOP^
  2720	032151	254 04 0 00 032152 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2721	032152	324 00 0 00 032153 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2722									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2723									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2724									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2725	032153	312 02 0 00 032254 		CAME	2,[172737,,405060]	;PASS IF C(AC+1) NOT AFFECTED
  2726						STOP^
  2727	032154	254 04 0 00 032155 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2728	032155	324 00 0 00 032156 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2729									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2730									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2731									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2732
  2733					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 46
DAKAGM	MAC	19-JAN-77 17:37		TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER                        SEQ 0073

  2734					;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
  2735					;IN THIS CASE, 252525,,252525 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
  2736					;SO THAT FINAL C(AC)=0,,252.
  2737					;C(AC+1) SHOULD NOT BE AFFECTED
  2738
  2739	032156	200 01 0 00 032255 	C42400:	MOVE	1,[252525,,252525]	;PRELOAD AC WITH 252525,,252525
  2740	032157	200 02 0 00 032254 		MOVE	2,[172737,,405060]	;PRELOAD C(AC+1) WITH 172737,,405060
  2741	032160	242 01 0 00 777745 		LSH	1,-33			;*LSH SHOULD LOGICALLY SHIFT 252525,,252525
  2742										;RIGHT 33 OCTAL BIT POSITIONS
  2743	032161	312 01 0 00 032300 		CAME	1,[0,,252]		;PASS IF C(AC)=0,,252
  2744						STOP^
  2745	032162	254 04 0 00 032163 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2746	032163	324 00 0 00 032164 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2747									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2748									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2749									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2750	032164	312 02 0 00 032254 		CAME	2,[172737,,405060]	;PASS IF C(AC+1) NOT AFFECTED
  2751						STOP^
  2752	032165	254 04 0 00 032166 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2753	032166	324 00 0 00 032167 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2754									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2755									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2756									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2757
  2758					;**********
  2759
  2760					;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
  2761					;IN THIS CASE, 525252,,525252 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
  2762					;SO THAT FINAL C(AC)=0,,525.
  2763					;C(AC+1) SHOULD NOT BE AFFECTED
  2764
  2765	032167	200 01 0 00 032256 	C42500:	MOVE	1,[525252,,525252]	;PRELOAD AC WITH 525252,,525252
  2766	032170	200 02 0 00 032254 		MOVE	2,[172737,,405060]	;PRELOAD C(AC+1) WITH 172737,,405060
  2767	032171	242 01 0 00 777745 		LSH	1,-33			;*LSH SHOULD LOGICALLY SHIFT 525252,,525252
  2768										;RIGHT 33 OCTAL BIT POSITIONS
  2769	032172	312 01 0 00 032301 		CAME	1,[0,,525]		;PASS IF C(AC)=0,525
  2770						STOP^
  2771	032173	254 04 0 00 032174 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2772	032174	324 00 0 00 032175 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2773									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2774									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2775									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2776	032175	312 02 0 00 032254 		CAME	2,[172737,,405060]	;PASS IF C(AC+1) NOT AFFECTED
  2777						STOP^
  2778	032176	254 04 0 00 032177 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2779	032177	324 00 0 00 032200 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2780									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2781									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2782									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2783
  2784					;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 47
DAKAGM	MAC	19-JAN-77 17:37		TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER                        SEQ 0074

  2785					;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
  2786					;IN THIS CASE, 230703,,603700 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
  2787					;SO THAT FINAL C(AC)=0,,230.
  2788					;C(AC+1) SHOULD NOT BE AFFECTED
  2789
  2790	032200	200 01 0 00 032257 	C42600:	MOVE	1,[230703,,603700]	;PRELOAD AC WITH 230703,,603700
  2791	032201	200 02 0 00 032254 		MOVE	2,[172737,,405060]	;PRELOAD C(AC+1) WITH 172737,,405060
  2792	032202	242 01 0 00 777745 		LSH	1,-33			;*LSH SHOULD LOGICALLY SHIFT 230703,,603700
  2793										;RIGHT 33 OCTAL BIT POSITIONS
  2794	032203	312 01 0 00 032302 		CAME	1,[0,,230]		;PASS IF C(AC)=0,,230
  2795						STOP^
  2796	032204	254 04 0 00 032205 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2797	032205	324 00 0 00 032206 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2798									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2799									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2800									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2801	032206	312 02 0 00 032254 		CAME	2,[172737,,405060]	;PASS IF C(AC+1) NOT AFFECTED
  2802						STOP^
  2803	032207	254 04 0 00 032210 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2804	032210	324 00 0 00 032211 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2805									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2806									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2807									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2808
  2809					;**********
  2810
  2811					;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
  2812					;IN THIS CASE, 007603,,607062 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
  2813					;SO THAT FINAL C(AC)=0,,7.
  2814					;C(AC+1) SHOULD NOT BE AFFECTED
  2815
  2816	032211	200 01 0 00 032261 	C42700:	MOVE	1,[007603,,607062]	;PRELOAD AC WITH 007603,,607062
  2817	032212	200 02 0 00 032254 		MOVE	2,[172737,,405060]	;PRELOAD C(AC+1) WITH 172737,,405060
  2818	032213	242 01 0 00 777745 		LSH	1,-33			;*LSH SHOULD LOGICALLY SHIFT 007603,,607062
  2819										;RIGHT 33 OCTAL BIT POSITIONS
  2820	032214	312 01 0 00 032252 		CAME	1,[0,,7]		;PASS IF C(AC)=0,,7
  2821						STOP^
  2822	032215	254 04 0 00 032216 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2823	032216	324 00 0 00 032217 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2824									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2825									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2826									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2827	032217	312 02 0 00 032254 		CAME	2,[172737,,405060]	;PASS IF C(AC+1) NOT AFFECTED
  2828						STOP^
  2829	032220	254 04 0 00 032221 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2830	032221	324 00 0 00 032222 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2831									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2832									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2833									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2834
  2835	032222	254 00 0 00 030057 		JRST	BEGEND		;REPEAT TEST
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 1
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0075

  2836					SUBTTL	*STOR* RESERVED STORAGE, JAN 18,1977
  2837
  2838					;PROGRAM LITERALS
  2839
  2840						XLIST
  2841					IFNDEF	$LPAPER,<LIST>
  2842	032223					LIT
  2843	032223	000001	000001
  2844	032224	254 00 0 00 030741 
  2845	032225	000016	541320
  2846	032226	777777	777777
  2847	032227	000000	000000
  2848	032230	000002	000000
  2849	032231	000001	000002
  2850	032232	000002	000002
  2851	032233	000001	000017
  2852	032234	312 00 0 00 000001 
  2853	032235	256 00 0 00 032234 
  2854	032236	256 00 0 00 032235 
  2855	032237	254 00 0 00 031304 
  2856	032240	265 03 0 00 031311 
  2857	032241	256 00 0 00 032240 
  2858	032242	256 00 0 00 032241 
  2859	032243	270 06 0 04 000001 
  2860	032244	331 01 0 00 000002 
  2861	032245	331 03 0 00 000006 
  2862	032246	777776	000005
  2863	032247	253 03 0 00 031355 
  2864	032250	777777	000006
  2865	032251	253 03 0 00 031363 
  2866	032252	000000	000007
  2867	032253	000000	707070
  2868	032254	172737	405060
  2869	032255	252525	252525
  2870	032256	525252	525252
  2871	032257	230703	603700
  2872	032260	023070	360370
  2873	032261	007603	607062
  2874	032262	200760	360706
  2875	032263	074076	004616
  2876	032264	074161	440174
  2877	032265	770037	600377
  2878	032266	307036	037007
  2879	032267	700376	003772
  2880	032270	776003	760077
  2881	032271	760037	600770
  2882	032272	076036	070627
  2883	032273	160740	760176
  2884	032274	007740	077646
  2885	032275	400774	017601
  2886	032276	740741	614577
  2887	032277	000000	000777
  2888	032300	000000	000252
  2889	032301	000000	000525
  2890	032302	000000	000230
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2	MACRO %52(537) 10:20 20-JAN-77 PAGE 1-1
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0076

  2891	032303	000000	017777
  2892	032304	000000	005252
  2893	032305	000000	012525
  2894	032306	000000	004616
  2895	032307	000000	000174
  2896						LIST
  2897	032310	000000	000000		ENDSLD:	0
  2898
  2899					IFDEF	DEBUG,<
  2900	032311				PATCH:	BLOCK DEBUG		;PATCHING AREA
  2901					>
  2902
  2903					;PROGRAM VARIABLES
  2904	032411					VAR
  2905
  2906					IFDEF	PGMEND,<
  2907	032411	000000	000000		END:	0
  2908			030000			END	BEGIN	>

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
ABSLUTE BREAK IS 032412
CPU TIME USED 00:13.678

10K CORE USED

ABORT	   112#
AC0	   707#                                                                                                            SEQ 0077
ALTMGO	   466#
ANXM	   380#
APR	   804	   805	   806
AROV	    73#	   380#
AROVU	   380#
AST	   581#
ATSIN	   582#
BEGEND	   462#	  2835
BEGIN	   326	   327	   393#	   750	   872	  2908
BEGIN1	   409#	   463
BELL	   585#
BIS	    77#	   380#	  1233	  1239
C27200	   909#
C27300	   926#
C27400	   941#
C27500	   958#
C27600	   974#
C27700	   992#
C30000	  1009#
C30100	  1028#
C30101	  1045#
C30200	  1063#
C30300	  1083#
C30400	  1104#
C30500	  1126#
C30600	  1144#
C31000	  1162#
C31100	  1177#
C31400	  1198#
C31500	  1213#
C31501	  1231#
C31502	  1253#
C31600	  1272#
C31700	  1288#
C32300	  1304#
C32400	  1320#
C32500	  1338#
C32600	  1357#
C33100	  1375#
C33300	  1394#
C33310	  1405#
C33400	  1419#
C33401	  1437#
C33500	  1456#
C33600	  1473#
C33700	  1489#
C33701	  1508#
C34000	  1527#
C34100	  1541#
C34200	  1554#
C34300	  1571#
C34400	  1590#
C34500	  1608#                                                                                                            SEQ 0078
C34600	  1626#
C34610	  1636#
C34700	  1650#
C34710	  1658#
C35000	  1672#
C35100	  1690#
C35200	  1708#
C35300	  1726#
C35400	  1742#
C35500	  1762#
C35600	  1788#
C35700	  1813#
C36000	  1837#
C36100	  1863#
C36200	  1888#
C36300	  1914#
C36400	  1939#
C36500	  1964#
C36600	  1988#
C36700	  2014#
C37000	  2039#
C37100	  2065#
C37200	  2089#
C37300	  2113#
C37400	  2137#
C37500	  2162#
C37600	  2186#
C37700	  2211#
C40000	  2235#
C40100	  2259#
C40200	  2283#
C40300	  2308#
C40400	  2332#
C40500	  2357#
C40600	  2382#
C40700	  2408#
C41000	  2433#
C41100	  2459#
C41200	  2484#
C41300	  2510#
C41400	  2535#
C41500	  2561#
C41600	  2586#
C41700	  2612#
C42000	  2637#
C42100	  2663#
C42200	  2688#
C42300	  2714#
C42400	  2739#
C42500	  2765#
C42600	  2790#
C42700	  2816#
CCA	   380#                                                                                                            SEQ 0079
CHAIN	   132#
CHNOFF	   380#
CHNON	   380#
CLK	   380#
CLKCLR	   380#
CLKDIS	   380#
CLKENB	   380#
CLKU	   380#
CLOCKF	   448#
CNTLC	   465#
COMMA	   574#
CONSW	   449#
CPOPJ	   469#
CPOPJ1	   467#
CRLF	   261	   262	   569#
CRLF2	   265	   266	   571#
CRY0	    74#	   380#	  1065	  1085	  1106	  1179	  1184
CRY1	    75#	   380#
CSHFLG	   628#
CSHMEM	   629#
CYCL60	   622#
DCK	    81#	   380#
DDT	   709#
DDTLNK	   146#	   407
DDTSRT	   407#
DEBUG	    36#	  2899	  2900
DECVER	     5#	    11	    27	   428
DF22F	   533#
DIAGMN	   396#
DIAGNO	   708#
DIAMON	   710#
DING	   118#
DOLLAR	   588#
DONG11	   711#	   851	   867
DSKUPD	   433
DTE	   715#	   851	   853	   867	   869
DTE0	   716#
DTE1	   717#
DTE2	   718#
DTE3	   719#
END	  2907#
ENDFIX	   702#
ENDSLD	  2897#
ERMORE	   482#
ERRPC	   453#
ERRTLS	   454#
ERSTOP	   121#
EXCASB	    33#	   431
EXIOT	    79#	   380#
FOV	    76#	   380#
FOVU	   380#
FRDLNK	   144#
FSELNK	   143#                                                                                                            SEQ 0080
FXU	    80#	   380#
HYPEN	   579#
INHCSH	   129#
INHPAG	   126#
INXM	   380#
IOCLR	   380#
ITERAT	    65#	   426
ITRCH1	   486#
ITRCNT	   426#	   796	   825	   829	   837	   838	   842
JOB41	   380#
JOBAPR	   380#
JOBCNI	   380#
JOBDDT	   380#
JOBFF	   380#
JOBOPC	   380#
JOBREL	   380#
JOBREN	   380#
JOBSA	   380#
JOBSYM	   380#
JOBTPC	   380#
JOBUSY	   380#
JOBUUO	   380#
JOBVER	   380#
KA10	   380
KAHZ50	   134#
KAIFLG	   443#
KI10	   380
KL10	   380
KLFLG	   444#	   798	   816	   835
KLOLD	   341
KLTYP	   660#	   797	   808	   850	   852	   866	   868
LDLNK	   145#	   396	   398
LFP	   583#
LOOPER	   120#
LUUO	   380#
LUUO1	   513	   514
LUUO10	   513	   518
LUUO11	   513	   518
LUUO12	   513	   519
LUUO13	   513	   519
LUUO14	   513	   520
LUUO15	   513	   520
LUUO16	   513	   521
LUUO17	   513	   521
LUUO2	   513	   515
LUUO20	   513	   522
LUUO21	   513	   522
LUUO22	   513	   523
LUUO23	   513	   523
LUUO24	   513	   524
LUUO25	   513	   524
LUUO26	   513	   525
LUUO27	   513	   525                                                                                                     SEQ 0081
LUUO3	   513	   515
LUUO30	   513	   526
LUUO31	   513	   526
LUUO32	   513	   527
LUUO33	   513	   527
LUUO4	   513	   516
LUUO5	   513	   516
LUUO6	   513	   517
LUUO7	   513	   517
LUUOI	   380#
MAPNEW	   534#
MARGIN	   456#
MCNVER	     6#	    11	    27	   428
MEMLOW	   536#
MEMMAP	   434
MEMSIZ	   537#
MEMTOT	   535#
MINUS	   578#
MODDVC	   128#
MODDVL	   326	   326#	   429
MODDVU	   327	   327#	   430
MODLNK	   147#	   393
MONCTL	   446#	   845	   883
MONFLG	   445#	   790	   879
MONTEN	   447#	   795	   831	   860
MPVU	   380#
NOPNT	   116#
NXMU	   380#
OPRSEL	   130#
OPTIME	   548#
P	   173	   174	   175	   176	   380#	   468
PAG	   380#
PALERS	   122#
PARCLR	   380#
PARDIS	   380#
PAREA0	    58#
PAREA1	    59#	   424
PAREA2	    60#	   425
PAREA3	    61#	   422
PAREA4	    62#	   423
PAREA5	    63#	   435
PAREA6	    64#	   436
PAREA7	   435#
PAREA8	   436#
PARENB	   380#
PARU	   380#
PASCNT	   450#	   824
PATCH	  2900#
PDISF	   545#
PDLOVU	   380#
PERIOD	   575#
PFSTRT	   402#
PGMEND	    35#	    66#	  2906                                                                                             SEQ 0082
PGMNAM	   427	   884	   887#
PI	   837
PICHN1	   380#
PICHN2	   380#
PICHN3	   380#
PICHN4	   380#
PICHN5	   380#
PICHN6	   380#
PICHN7	   380#
PICHNA	   380#
PICLR	   380#
PIOFF	   380#
PION	   380#
PLIST	   614#	   614
PLISTE	   614	   616#	   700
PLISTS	   615#
PLUS	   580#
PNTENB	   544#
PNTEXT	   423#
PNTFLG	   543#
PNTINH	   546#
PNTLPT	   117#
PNTNAM	   422#
PNTSPC	   547#
PVPAGI	   641#
PWFCLR	   380#
QUEST	   586#
RADIX	   589#
RADLSC	   591#
RADLSP	   590#
RANDBS	   424#
REENTR	   404#
RELIAB	   124#
REPT	   380#
REPT1	   380#
REPTU	   502#
REQSET	   380#
RESRT1	   479#
RESRT2	   480#
RETURN	   411#	   833	   840	   861
RSTART	   113#
RTP	   584#
RUNFLG	   451#
SADR1	    46#	   400
SADR10	    55#	   416
SADR11	    56#	   417
SADR2	    47#	   402
SADR3	    48#	   404
SADR4	    49#
SADR5	    50#	   465
SADR6	    51#	   466
SADR7	    52#	   413
SADR8	    53#	   414                                                                                                     SEQ 0083
SADR9	    54#	   415
SBINIT	   186	   410#
SCOPE	   503#
SFSTRT	   400#
SLASH	   587#
SPACE	   576#
SRTDDT	   406#
START	    46	    47	    48	    49	    50	    51	    52	    53	    54	    55	    56	   394	   793	   802
	   817	   821	   875#
START1	   413#
START2	   414#
START3	   415#
START4	   416#
START5	   417#
STARTA	   409	   819	   830	   839	   846	   856	   882	   885	   901#
SUBLNK	   148#	   410
SWTEXR	   425#
SYSEXR	   398#
TAB	   577#
TESTPC	   452#
TICKS	   455#
TOTALS	   114#
TTNBRF	   635#
TTYFIL	   551#
TTYSPD	   552#
TXTINH	   125#
USER	   442#	   786	   789	   791	   792	   826	   875#	   875	   878	   880	   881
USERF	    39#	    78#	   380#	   788	   877
USRASB	    34#	   432
USRCRF	   561#
USRLFF	   560#
UUODIS	   514#
UUOEXT	   470#
UUORTN	   471#
UUOSKP	   468#
$$420	   760#
$$421	   761#
$$422	   762#
$$423	   763#
$$424	   764#
$$425	   765#
$$426	   766#
$$427	   767#
$$430	   768#
$$431	   769#
$$432	   770#
$$433	   771#
$$434	   772#
$$435	   773#
$$436	   774#
$$437	   775#
$$500	   778#
$$501	   779#                                                                                                            SEQ 0084
$$502	   780#
$$503	   781#
$$BEGI	   746#
$$DTE0	   812	   851#
$$DTE1	   813	   853#
$$DTE2	   814	   867#
$$DTE3	   815	   869#
$$LOC	   743#	   782
$$MUUO	   666#
$$OUTE	   672#
$$STAR	   746	   747	   786#
$$TAX1	   684#
$$TAX2	   685#
$$TOGG	   678#
$$UUO	   655#
$ACC0	   493#
$BEGEN	   755#
$BEND1	   463#
$BEND2	   464#
$CHRIN	   554#
$CRLF	   556#
$DDT	   724#
$DEVCH	   380#
$DSKUP	   433#
$DTCHR	   736#
$DTCI	   730#
$DTCLK	   729#	   810
$DTCMD	   733#	   848	   864
$DTF11	   732#
$DTFLG	   728#	   809	   849	   854	   865	   870
$DTMTD	   737#
$DTMTI	   738#
$DTOPR	   735#	   811
$DTSEQ	   734#
$DTSWR	   740#
$DTT11	   731#
$DVCH1	   380#
$DVOFF	   550#
$EMODE	   431#
$ENDFX	   700#	   701
$FFF	   558#
$IBUF	   606#
$INEXT	   608#
$INNM	   607#
$ITRHL	   474#
$ITRX1	   475#
$LPAPE	  2841
$MMAP	   434#
$MODVL	   429#
$MODVU	   430#
$OBUF	   597#
$ONETM	   457#
$OUTEX	   599#                                                                                                            SEQ 0085
$OUTNM	   598#
$PAPER	   380
$PARER	   481#
$PNAME	   427#
$PSHER	   485#
$PVER	   428#
$RSRTX	   477#
$RSRTY	   478#
$SPAG1	   497#
$SPB1	   820	   826#
$SPBEN	   755	   824#
$SPBEX	   827	   835#
$SPBKL	   836	   842#
$SPBUS	   829#
$SPEC	   752	   819#
$SPKLD	   843	   860#
$START	   394#
$STD	   723#	   750#
$STKIL	   795#
$STKL	   804#
$STL	   725#
$STM	   726#	   752#
$SVAPR	   495#
$SVPAG	   496#
$SVPI	   494#
$SVUPC	   500#
$SVUUO	   499#
$TABF	   557#
$TTCHR	   553#
$TWCNT	   549#
$TYPNB	   555#
$UMODE	   432#
$UORTX	   472#
$USRHL	   476#
$UUOER	   473#	   514
$VTF	   559#
%ACTFL	   506#
%ACTUL	   507#
%COREC	   505#
%CORFL	   504#
%DISCR	   508#
%ERHI1	   647#
%ERHI2	   648#
%ERHI3	   649#
.JB41	   380#
.JBAPR	   380#
.JBCNI	   380#
.JBDDT	   380#
.JBFF	   380#
.JBOPC	   380#
.JBREL	   380#
.JBREN	   380#
.JBSA	   380#                                                                                                            SEQ 0086
.JBSYM	   380#
.JBTPC	   380#
.JBUSY	   380#
.JBUUO	   380#
.JBVER	   380#
CFLUSH	   297#
CINVAL	   296#                                                                                                            SEQ 0087
CLOKOP	   291#
CWRTBI	   298#
DROPDV	   258#
ENDUUO	   304#	   462
EOPUUO	   305#	   464
ERLOOP	   349#
ERLP1	   350#
ERLP2	   351#
ERRHLT	   193#
ERROR	   358#
ERROR1	   370#
ERUUO	   348#
EXIT	   832
FATAL	   192#
FRD36	   333#
FRD8	   334#
FREAD	   332#
FSELEC	   331#
GET	   176#
GO	   173#
HALT	   178#	   483	   760	   762	   763	   767	   781	   872	   913	   930	   945	   962	   978	   996
	  1013	  1033	  1049	  1071	  1094	  1114	  1131	  1146	  1150	  1166	  1186	  1200	  1203	  1215
	  1219	  1241	  1257	  1276	  1293	  1309	  1326	  1344	  1363	  1381	  1400	  1407	  1424	  1441
	  1461	  1478	  1495	  1513	  1530	  1544	  1556	  1557	  1559	  1573	  1574	  1578	  1596	  1614
	  1631	  1639	  1653	  1661	  1674	  1675	  1678	  1694	  1715	  1732	  1751	  1765	  1766	  1768
	  1772	  1793	  1800	  1818	  1825	  1843	  1850	  1869	  1876	  1894	  1901	  1920	  1927	  1944
	  1951	  1969	  1976	  1994	  2001	  2020	  2027	  2045	  2052	  2071	  2078	  2094	  2101	  2119
	  2126	  2143	  2150	  2168	  2175	  2192	  2199	  2217	  2224	  2240	  2247	  2265	  2272	  2289
	  2296	  2314	  2321	  2338	  2345	  2363	  2370	  2388	  2395	  2414	  2421	  2439	  2446	  2465
	  2472	  2490	  2497	  2516	  2523	  2541	  2548	  2567	  2574	  2592	  2599	  2618	  2625	  2643
	  2650	  2669	  2676	  2694	  2701	  2720	  2727	  2745	  2752	  2771	  2778	  2796	  2803	  2822
	  2829
JEN	   180#
JRSTF	   179#
MAPADR	   314#
MAPCNK	   315#
MAPMEM	   311#
MAPPNT	   317#
MAPSET	   316#
MEMSEG	   313#
MEMZRO	   312#
MODPCP	   324#
MODPCU	   323#
MTROP	   292#
NAME	     9#	    11
PBELL	   267#
PCRL	   261#
PCRL2	   265#
PCRL2F	   266#
PCRLF	   262#
PFORCE	   269#
PGMINT	   186#
PJRST	   177#                                                                                                            SEQ 0088
PMSG	   271#
PMSGF	   274#
PNT1	   227#
PNT11	   241#
PNT11F	   242#
PNT1F	   228#
PNT2	   229#
PNT2F	   230#
PNT3	   231#
PNT3F	   232#
PNT4	   233#
PNT4F	   234#
PNT5	   235#
PNT5F	   236#
PNT6	   237#
PNT6F	   238#
PNT7	   239#
PNT7F	   240#
PNTA	   213#
PNTADF	   244#
PNTADR	   243#
PNTAF	   214#
PNTAL	   215#
PNTALF	   216#
PNTCHF	   226#
PNTCHR	   225#
PNTCI	   223#
PNTCIF	   224#
PNTCW	   259#
PNTCWF	   260#
PNTDCF	   252#
PNTDEC	   251#
PNTDS	   253#
PNTDSF	   254#
PNTHW	   247#
PNTHWF	   248#
PNTMGN	   338#
PNTMSF	   220#
PNTMSG	   219#
PNTNM	   255#
PNTOCF	   250#
PNTOCS	   249#
PNTOCT	   245#
PNTOTF	   246#
PNTSIX	   256#
PNTSXF	   257#
PSIXL	   217#
PSIXLF	   218#
PSIXM	   221#
PSIXMF	   222#
PSP	   263#
PSPF	   264#
PUT	   175#                                                                                                            SEQ 0089
REPTUO	   352#
RTN	   174#	   470
S	   104#	   106	   110	   139	   141	   150	   153	   168	   169	   171	   182	   184	   188	   190
	   195	   199	   344	   346	   380	   385	   391	   418	   420	   438	   440	   458	   460	   489
	   491	   509	   511	   529	   531	   539	   541	   562	   567	   593	   595	   602	   604	   610
	   612	   618	   620	   624	   626	   631	   633	   637	   639	   643	   645	   651	   653	   656
	   658	   662	   664	   668	   670	   674	   676	   680	   682	   687	   692	   696	   698
SFLAG	    98#	  1063	  1083	  1104	  1177	  1231
SIXBTZ	   280#
STOP	    89#	   912	   929	   944	   961	   977	   995	  1012	  1032	  1048	  1070	  1093	  1113	  1130
	  1149	  1165	  1185	  1202	  1218	  1240	  1256	  1275	  1292	  1308	  1325	  1343	  1362	  1380
	  1399	  1406	  1423	  1440	  1460	  1477	  1494	  1512	  1529	  1543	  1558	  1577	  1595	  1613
	  1630	  1638	  1652	  1660	  1677	  1693	  1714	  1730	  1750	  1771	  1792	  1799	  1817	  1824
	  1842	  1849	  1868	  1875	  1893	  1900	  1919	  1926	  1943	  1950	  1968	  1975	  1993	  2000
	  2019	  2026	  2044	  2051	  2070	  2077	  2093	  2100	  2118	  2125	  2142	  2149	  2167	  2174
	  2191	  2198	  2216	  2223	  2239	  2246	  2264	  2271	  2288	  2295	  2313	  2320	  2337	  2344
	  2362	  2369	  2387	  2394	  2413	  2420	  2438	  2445	  2464	  2471	  2489	  2496	  2515	  2522
	  2540	  2547	  2566	  2573	  2591	  2598	  2617	  2624	  2642	  2649	  2668	  2675	  2693	  2700
	  2719	  2726	  2744	  2751	  2770	  2777	  2795	  2802	  2821	  2828
SWITCH	   286#
TTALTM	   208#
TTICHR	   201#
TTICNV	   206#
TTIDEC	   205#
TTINO	   203#
TTIOCT	   204#
TTIYES	   202#
TTLOOK	   207#
TTSIXB	   209#
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 1
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0090


*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  20-JAN-77   PAGE 2
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0091

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  20-JAN-77   PAGE 3
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0092

*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  20-JAN-77   PAGE 4
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0093

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,032223
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   200040032223 0            000001000001 
IT1	030614 0      0   0   200040032223 0            000001000001 
AT3	030614 0      0   0   000000032223 0            200040032223 
AT6	030614 032223 0   0   000000032223 0            200040032223 
FT0	030614 032223 0   0   000001000001 0            200040032223 
FT1A	030614 032223 0   0   000001000001 0            000001000001 
FT9	030615 032223 0   0   000001000001 0            000001000001 
ET0	030615 032223 0   0   000001000001 0            000001000001 
ST1	030615 032223 0   0   000001000001 0            000001000001 
ST2	030615 032223 0   0   000001000001 0            000001000001 
ST9	030615 032223 0   0   000001000001 0            000001000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 5
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0094

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


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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 6
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0095

*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  20-JAN-77   PAGE 7
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0096

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  20-JAN-77   PAGE 8
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0097

*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,030741
INITIAL
C(AC)=000000 030714 
C(E)=254000 030742 
FINAL

C(E)=254000 030742 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030721 030721 0   0   254000030741 0            254000030741 
IT1	030721 0      0   0   254000030741 0            254000030741 
AT3	030721 0      0   0   000000030741 0            254000030741 
AT6	030721 030741 0   0   000000030741 0            254000030741 
FT1A	030721 030741 0   0   000000030741 0            254000030741 
FT9	030722 030741 0   0   000000030741 0            254000030741 
ET0	030741 030722 0   0   000000030741 0            254000030741 
ST1A	030741 030722 0   0   000000030741 0            254000030741 
ST9	030741 030722 0   0   000000030741 0            254000030741 


*030741 JRST	0,030742
INITIAL
C(AC)=000000 030714 
C(E)=400100 000000 
FINAL

C(E)=400100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030741 030741 0   0   254000030742 0            254000030742 
IT1	030741 0      0   0   254000030742 0            254000030742 
AT3	030741 0      0   0   000000030742 0            254000030742 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 9
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0098

AT6	030741 030742 0   0   000000030742 0            254000030742 
FT1A	030741 030742 0   0   000000030742 0            254000030742 
FT9	030742 030742 0   0   000000030742 0            254000030742 
ET0	030742 030742 0   0   000000030742 0            254000030742 
ST1A	030742 030742 0   0   000000030742 0            254000030742 
ST9	030742 030742 0   0   000000030742 0            254000030742 


*030742 SETZ 	2,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 030714 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030742 030742 0   0   400100000000 0            0            
IT1	030742 0      0   0   400100000000 0            0            
AT3	030742 0      0   0   0            0            400100000000 
AT6	030742 0      0   0   0            0            400100000000 
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 PUSH	2,030745
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000001 000001   C(C(ACR+1))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030743 030743 0   0   261100030745 0            254200030746 
IT1	030743 0      0   0   261100030745 0            254200030746 
AT3	030743 0      0   0   000000030745 0            261100030745 
AT6	030743 030745 0   0   000000030745 0            261100030745 
FT0	030743 030745 0   0   254200030746 0            261100030745 
FT1A	030743 030745 0   0   254200030746 0            254200030746 
FT2	030743 030745 0   0   0            0            254200030746 
FT2RQ	030743 030745 0   0   0            0            254200030746 
FT3	030743 030745 0   0   0            0            254200030746 
FT9	030744 030745 0   0   0            0            254200030746 
ET0	030744 030745 0   0   000001000001 0            254200030746 
ET1	030744 000001 0   0   000001000001 0            254200030746 
ST1	030744 000001 0   0   000001000001 0            254200030746 
ST2	030744 000001 0   0   254200030746 0            254200030746 
ST3	030744 000001 0   0   254200030746 0            254200030746 
ST6	030744 000001 0   0   254200030746 0            254200030746 
ST6A	030744 000001 0   0   254200030746 0            254200030746 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 10
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0099

ST9	030744 000001 0   0   254200030746 0            254200030746 


*030744 SKIPA	0,000000
INITIAL
C(AC)=000000 030714 
C(E)=000000 030714 
FINAL
C(AC)=000000 030714 

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


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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 11
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0100

*030747 SETZB	0,000002
INITIAL
C(AC)=000000 030714 
C(E)=000001 000001 
FINAL
C(AC)=000000 000000 
C(E)=000001 000001 

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


*030750 PUSH	2,000000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000001 000001   C(C(ACR+1))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030750 030750 0   0   261100000000 0            0            
IT1	030750 0      0   0   261100000000 0            0            
AT3	030750 0      0   0   0            0            261100000000 
AT6	030750 0      0   0   0            0            261100000000 
FT0	030750 0      0   0   0            0            261100000000 
FT1A	030750 0      0   0   0            0            0            
FT2	030750 0      0   0   0            0            0            
FT2RQ	030750 0      0   0   0            0            0            
FT3	030750 0      0   0   0            0            0            
FT9	030751 0      0   0   0            0            0            
ET0	030751 0      0   0   000001000001 0            0            
ET1	030751 000001 0   0   000001000001 0            0            
ST1	030751 000001 0   0   000001000001 0            0            
ST2	030751 000001 0   0   0            0            0            
ST3	030751 000001 0   0   0            0            0            
ST6	030751 000001 0   0   0            0            0            
ST6A	030751 000001 0   0   0            0            0            
ST9	030751 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 12
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0101

*030751 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	030751 030751 0   0   332000000000 0            0            
IT1	030751 0      0   0   332000000000 0            0            
AT3	030751 0      0   0   0            0            332000000000 
AT6	030751 0      0   0   0            0            332000000000 
FT0	030751 0      0   0   0            0            332000000000 
FT1A	030751 0      0   0   0            0            0            
FT9	030752 0      0   0   0            0            0            
ET0	030753 0      0   0   0            0            0            
ST1A	030753 0      0   0   0            0            0            
ST9	030753 0      0   0   0            0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030753 030753 0   0   324000030754 0            000000030754 
IT1	030753 0      0   0   324000030754 0            000000030754 
AT3	030753 0      0   0   000000030754 0            324000030754 
AT6	030753 030754 0   0   000000030754 0            324000030754 
FT1A	030753 030754 0   0   000000030754 0            000000030754 
FT2	030753 030754 0   0   0            0            000000030754 
FT2RQ	030753 030754 0   0   0            0            000000030754 
FT3	030753 030754 0   0   0            0            000000030754 
FT9	030754 030754 0   0   0            0            000000030754 
ET0	030754 030754 0   0   0            0            000000030754 
ST1A	030754 030754 0   0   0            0            000000030754 
ST9	030754 030754 0   0   0            0            000000030754 


*030754 SETZ 	2,000000
INITIAL
C(AC)=000001 000001 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030754 030754 0   0   400100000000 0            0            
IT1	030754 0      0   0   400100000000 0            0            
AT3	030754 0      0   0   0            0            400100000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 13
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0102

AT6	030754 0      0   0   0            0            400100000000 
FT1A	030754 0      0   0   0            0            0            
FT9	030755 0      0   0   0            0            0            
ET0	030755 0      0   0   0            0            0            
ST1	030755 0      0   0   0            0            0            
ST2	030755 0      0   0   0            0            0            
ST9	030755 0      0   0   0            0            0            


*030755 PUSH	2,030756
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000001 000001   C(C(ACR+1))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030755 030755 0   0   261100030756 0            312100032223 
IT1	030755 0      0   0   261100030756 0            312100032223 
AT3	030755 0      0   0   000000030756 0            261100030756 
AT6	030755 030756 0   0   000000030756 0            261100030756 
FT0	030755 030756 0   0   312100032223 0            261100030756 
FT1A	030755 030756 0   0   312100032223 0            312100032223 
FT2	030755 030756 0   0   0            0            312100032223 
FT2RQ	030755 030756 0   0   0            0            312100032223 
FT3	030755 030756 0   0   0            0            312100032223 
FT9	030756 030756 0   0   0            0            312100032223 
ET0	030756 030756 0   0   000001000001 0            312100032223 
ET1	030756 000001 0   0   000001000001 0            312100032223 
ST1	030756 000001 0   0   000001000001 0            312100032223 
ST2	030756 000001 0   0   312100032223 0            312100032223 
ST3	030756 000001 0   0   312100032223 0            312100032223 
ST6	030756 000001 0   0   312100032223 0            312100032223 
ST6A	030756 000001 0   0   312100032223 0            312100032223 
ST9	030756 000001 0   0   312100032223 0            312100032223 


*030756 CAME	2,032223
INITIAL
C(AC)=000001 000001 
C(E)=000001 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030756 030756 0   0   312100032223 0            000001000001 
IT1	030756 0      0   0   312100032223 0            000001000001 
AT3	030756 0      0   0   000000032223 0            312100032223 
AT6	030756 032223 0   0   000000032223 0            312100032223 
FT0	030756 032223 0   0   000001000001 0            312100032223 
FT1A	030756 032223 0   0   000001000001 0            000001000001 
FT2	030756 032223 0   0   0            0            000001000001 
FT2RQ	030756 032223 0   0   000001000001 0            000001000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 14
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0103

FT3	030756 032223 0   0   000001000001 0            000001000001 
FT9	030757 032223 0   0   000001000001 0            000001000001 
ET0	030760 032223 0   0   0            0            000001000001 
ST1A	030760 032223 0   0   0            0            000001000001 
ST9	030760 032223 0   0   0            0            000001000001 


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


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


*030761 SETZB	0,000002
INITIAL
C(AC)=000000 000000 
C(E)=000001 000001 
FINAL
C(AC)=000000 000000 
C(E)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030761 030761 0   0   403000000002 0            000000000002 
IT1	030761 0      0   0   403000000002 0            000000000002 
AT3	030761 0      0   0   000000000002 0            403000000002 
AT6	030761 000002 0   0   000000000002 0            403000000002 
FT1A	030761 000002 0   0   000000000002 0            000000000002 
FT9	030762 000002 0   0   000000000002 0            000000000002 
ET0	030762 000002 0   0   0            0            000000000002 
ST1	030762 000002 0   0   0            0            000000000002 
ST2	030762 000002 0   0   0            0            000000000002 
ST6	030762 000002 0   0   0            0            000000000002 
ST6A	030762 000002 0   0   0            0            000000000002 
ST9	030762 000002 0   0   0            0            000000000002 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 15
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0104

*030762 PUSH	2,032225
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000001 000001   C(C(ACR+1))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030762 030762 0   0   261100032225 0            000016541320 
IT1	030762 0      0   0   261100032225 0            000016541320 
AT3	030762 0      0   0   000000032225 0            261100032225 
AT6	030762 032225 0   0   000000032225 0            261100032225 
FT0	030762 032225 0   0   000016541320 0            261100032225 
FT1A	030762 032225 0   0   000016541320 0            000016541320 
FT2	030762 032225 0   0   0            0            000016541320 
FT2RQ	030762 032225 0   0   0            0            000016541320 
FT3	030762 032225 0   0   0            0            000016541320 
FT9	030763 032225 0   0   0            0            000016541320 
ET0	030763 032225 0   0   000001000001 0            000016541320 
ET1	030763 000001 0   0   000001000001 0            000016541320 
ST1	030763 000001 0   0   000001000001 0            000016541320 
ST2	030763 000001 0   0   000016541320 0            000016541320 
ST3	030763 000001 0   0   000016541320 0            000016541320 
ST6	030763 000001 0   0   000016541320 0            000016541320 
ST6A	030763 000001 0   0   000016541320 0            000016541320 
ST9	030763 000001 0   0   000016541320 0            000016541320 


*030763 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	030763 030763 0   0   332000000000 0            0            
IT1	030763 0      0   0   332000000000 0            0            
AT3	030763 0      0   0   0            0            332000000000 
AT6	030763 0      0   0   0            0            332000000000 
FT0	030763 0      0   0   0            0            332000000000 
FT1A	030763 0      0   0   0            0            0            
FT9	030764 0      0   0   0            0            0            
ET0	030765 0      0   0   0            0            0            
ST1A	030765 0      0   0   0            0            0            
ST9	030765 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 16
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0105

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


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


*030766 SETZB	1,000002
INITIAL
C(AC)=000016 541320 
C(E)=000001 000001 
FINAL
C(AC)=000000 000000 
C(E)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030766 030766 0   0   403040000002 0            000000000002 
IT1	030766 0      0   0   403040000002 0            000000000002 
AT3	030766 0      0   0   000000000002 0            403040000002 
AT6	030766 000002 0   0   000000000002 0            403040000002 
FT1A	030766 000002 0   0   000000000002 0            000000000002 
FT9	030767 000002 0   0   000000000002 0            000000000002 
ET0	030767 000002 0   0   0            0            000000000002 
ST1	030767 000002 0   0   0            0            000000000002 
ST2	030767 000002 0   0   0            0            000000000002 
ST6	030767 000002 0   0   0            0            000000000002 
ST6A	030767 000002 0   0   0            0            000000000002 
ST9	030767 000002 0   0   0            0            000000000002 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 17
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0106

*030767 PUSH	2,030770
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000001 000001   C(C(ACR+1))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030767 030767 0   0   261100030770 0            306000030770 
IT1	030767 0      0   0   261100030770 0            306000030770 
AT3	030767 0      0   0   000000030770 0            261100030770 
AT6	030767 030770 0   0   000000030770 0            261100030770 
FT0	030767 030770 0   0   306000030770 0            261100030770 
FT1A	030767 030770 0   0   306000030770 0            306000030770 
FT2	030767 030770 0   0   0            0            306000030770 
FT2RQ	030767 030770 0   0   0            0            306000030770 
FT3	030767 030770 0   0   0            0            306000030770 
FT9	030770 030770 0   0   0            0            306000030770 
ET0	030770 030770 0   0   000001000001 0            306000030770 
ET1	030770 000001 0   0   000001000001 0            306000030770 
ST1	030770 000001 0   0   000001000001 0            306000030770 
ST2	030770 000001 0   0   306000030770 0            306000030770 
ST3	030770 000001 0   0   306000030770 0            306000030770 
ST6	030770 000001 0   0   306000030770 0            306000030770 
ST6A	030770 000001 0   0   306000030770 0            306000030770 
ST9	030770 000001 0   0   306000030770 0            306000030770 


*030770 CAIN	0,030770
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030770 030770 0   0   306000030770 0            000000030770 
IT1	030770 0      0   0   306000030770 0            000000030770 
AT3	030770 0      0   0   000000030770 0            306000030770 
AT6	030770 030770 0   0   000000030770 0            306000030770 
FT1A	030770 030770 0   0   000000030770 0            000000030770 
FT2	030770 030770 0   0   0            0            000000030770 
FT2RQ	030770 030770 0   0   0            0            000000030770 
FT3	030770 030770 0   0   0            0            000000030770 
FT9	030771 030770 0   0   0            0            000000030770 
ET0	030772 030770 0   0   777777747010 0            000000030770 
ST1A	030772 030770 0   0   777777747010 0            000000030770 
ST9	030772 030770 0   0   777777747010 0            000000030770 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 18
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0107

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


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


*030773 SETZB	1,000002
INITIAL
C(AC)=306000 030770 
C(E)=000001 000001 
FINAL
C(AC)=000000 000000 
C(E)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030773 030773 0   0   403040000002 0            000000000002 
IT1	030773 0      0   0   403040000002 0            000000000002 
AT3	030773 0      0   0   000000000002 0            403040000002 
AT6	030773 000002 0   0   000000000002 0            403040000002 
FT1A	030773 000002 0   0   000000000002 0            000000000002 
FT9	030774 000002 0   0   000000000002 0            000000000002 
ET0	030774 000002 0   0   0            0            000000000002 
ST1	030774 000002 0   0   0            0            000000000002 
ST2	030774 000002 0   0   0            0            000000000002 
ST6	030774 000002 0   0   0            0            000000000002 
ST6A	030774 000002 0   0   0            0            000000000002 
ST9	030774 000002 0   0   0            0            000000000002 


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

*030774 PUSH	2,032226
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000001 000001   C(C(ACR+1))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030774 030774 0   0   261100032226 0            777777777777 
IT1	030774 0      0   0   261100032226 0            777777777777 
AT3	030774 0      0   0   000000032226 0            261100032226 
AT6	030774 032226 0   0   000000032226 0            261100032226 
FT0	030774 032226 0   0   777777777777 0            261100032226 
FT1A	030774 032226 0   0   777777777777 0            777777777777 
FT2	030774 032226 0   0   0            0            777777777777 
FT2RQ	030774 032226 0   0   0            0            777777777777 
FT3	030774 032226 0   0   0            0            777777777777 
FT9	030775 032226 0   0   0            0            777777777777 
ET0	030775 032226 0   0   000001000001 0            777777777777 
ET1	030775 000001 0   0   000001000001 0            777777777777 
ST1	030775 000001 0   0   000001000001 0            777777777777 
ST2	030775 000001 0   0   777777777777 0            777777777777 
ST3	030775 000001 0   0   777777777777 0            777777777777 
ST6	030775 000001 0   0   777777777777 0            777777777777 
ST6A	030775 000001 0   0   777777777777 0            777777777777 
ST9	030775 000001 0   0   777777777777 0            777777777777 


*030775 CAME	1,032226
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030775 030775 0   0   312040032226 0            777777777777 
IT1	030775 0      0   0   312040032226 0            777777777777 
AT3	030775 0      0   0   000000032226 0            312040032226 
AT6	030775 032226 0   0   000000032226 0            312040032226 
FT0	030775 032226 0   0   777777777777 0            312040032226 
FT1A	030775 032226 0   0   777777777777 0            777777777777 
FT2	030775 032226 0   0   0            0            777777777777 
FT2RQ	030775 032226 0   0   777777777777 0            777777777777 
FT3	030775 032226 0   0   777777777777 0            777777777777 
FT9	030776 032226 0   0   777777777777 0            777777777777 
ET0	030777 032226 0   0   0            0            777777777777 
ST1A	030777 032226 0   0   0            0            777777777777 
ST9	030777 032226 0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 20
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0109

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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030777 030777 0   0   324000031000 0            000000031000 
IT1	030777 0      0   0   324000031000 0            000000031000 
AT3	030777 0      0   0   000000031000 0            324000031000 
AT6	030777 0      0   0   000000031000 0            324000031000 
FT1A	030777 0      0   0   000000031000 0            000000031000 
FT2	030777 0      0   0   0            0            000000031000 
FT2RQ	030777 0      0   0   0            0            000000031000 
FT3	030777 0      0   0   0            0            000000031000 
FT9	0      0      0   0   0            0            000000031000 
ET0	0      0      0   0   0            0            000000031000 
ST1A	0      0      0   0   0            0            000000031000 
ST9	0      0      0   0   0            0            000000031000 


*031000 SETZM	0,000002
INITIAL
C(AC)=000000 000000 
C(E)=000001 000001 
FINAL

C(E)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   402000000002 0            000000000002 
IT1	0      0      0   0   402000000002 0            000000000002 
AT3	0      0      0   0   000000000002 0            402000000002 
AT6	0      000002 0   0   000000000002 0            402000000002 
FT1A	0      000002 0   0   000000000002 0            000000000002 
FT9	031001 000002 0   0   000000000002 0            000000000002 
ET0	031001 000002 0   0   0            0            000000000002 
ST6	031001 000002 0   0   0            0            000000000002 
ST6A	031001 000002 0   0   0            0            000000000002 
ST9	031001 000002 0   0   0            0            000000000002 


*031001 PUSH	2,032227
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000001 000001   C(C(ACR+1))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031001 031001 0   0   261100032227 0            0            
IT1	031001 0      0   0   261100032227 0            0            
AT3	031001 0      0   0   000000032227 0            261100032227 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 21
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0110

AT6	031001 032227 0   0   000000032227 0            261100032227 
FT0	031001 032227 0   0   0            0            261100032227 
FT1A	031001 032227 0   0   0            0            0            
FT2	031001 032227 0   0   0            0            0            
FT2RQ	031001 032227 0   0   0            0            0            
FT3	031001 032227 0   0   0            0            0            
FT9	031002 032227 0   0   0            0            0            
ET0	031002 032227 0   0   000001000001 0            0            
ET1	031002 000001 0   0   000001000001 0            0            
ST1	031002 000001 0   0   000001000001 0            0            
ST2	031002 000001 0   0   0            0            0            
ST3	031002 000001 0   0   0            0            0            
ST6	031002 000001 0   0   0            0            0            
ST6A	031002 000001 0   0   0            0            0            
ST9	031002 000001 0   0   0            0            0            


*031002 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	031002 031002 0   0   332000000001 0            0            
IT1	031002 0      0   0   332000000001 0            0            
AT3	031002 0      0   0   000000000001 0            332000000001 
AT6	031002 000001 0   0   000000000001 0            332000000001 
FT0	031002 000001 0   0   0            0            332000000001 
FT1A	031002 000001 0   0   0            0            0            
FT9	031003 000001 0   0   0            0            0            
ET0	031004 000001 0   0   0            0            0            
ST1A	031004 000001 0   0   0            0            0            
ST9	031004 000001 0   0   0            0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031004 031004 0   0   324000031005 0            000000031005 
IT1	031004 0      0   0   324000031005 0            000000031005 
AT3	031004 0      0   0   000000031005 0            324000031005 
AT6	031004 031005 0   0   000000031005 0            324000031005 
FT1A	031004 031005 0   0   000000031005 0            000000031005 
FT2	031004 031005 0   0   0            0            000000031005 
FT2RQ	031004 031005 0   0   0            0            000000031005 
FT3	031004 031005 0   0   0            0            000000031005 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 22
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0111

FT9	031005 031005 0   0   0            0            000000031005 
ET0	031005 031005 0   0   0            0            000000031005 
ST1A	031005 031005 0   0   0            0            000000031005 
ST9	031005 031005 0   0   0            0            000000031005 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031005 031005 0   0   201100777777 0            000000777777 
IT1	031005 0      0   0   201100777777 0            000000777777 
AT3	031005 0      0   0   000000777777 0            201100777777 
AT6	031005 777777 0   0   000000777777 0            201100777777 
FT1A	031005 777777 0   0   000000777777 0            000000777777 
FT9	031006 777777 0   0   000000777777 0            000000777777 
ET0	031006 777777 0   0   000000777777 0            000000777777 
ST1	031006 777777 0   0   000000777777 0            000000777777 
ST2	031006 777777 0   0   000000777777 0            000000777777 
ST9	031006 777777 0   0   000000777777 0            000000777777 


*031006 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	031006 031006 0   0   400000000000 0            0            
IT1	031006 0      0   0   400000000000 0            0            
AT3	031006 0      0   0   0            0            400000000000 
AT6	031006 0      0   0   0            0            400000000000 
FT1A	031006 0      0   0   0            0            0            
FT9	031007 0      0   0   0            0            0            
ET0	031007 0      0   0   0            0            0            
ST1	031007 0      0   0   0            0            0            
ST2	031007 0      0   0   0            0            0            
ST9	031007 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 23
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0112

*031007 PUSH	2,032226
INITIAL
C(AC)=000000 777777 
FINAL
C(AC)=000002 000000   C(C(ACR+1))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031007 031007 0   0   261100032226 0            777777777777 
IT1	031007 0      0   0   261100032226 0            777777777777 
AT3	031007 0      0   0   000000032226 0            261100032226 
AT6	031007 032226 0   0   000000032226 0            261100032226 
FT0	031007 032226 0   0   777777777777 0            261100032226 
FT1A	031007 032226 0   0   777777777777 0            777777777777 
FT2	031007 032226 0   0   0            0            777777777777 
FT2RQ	031007 032226 0   0   000000777777 0            777777777777 
FT3	031007 032226 0   0   000000777777 0            777777777777 
FT9	031010 032226 0   0   000000777777 0            777777777777 
ET0	031010 032226 0   0   000002000000 0            777777777777 
ET1	031010 0      0   0   000002000000 0            777777777777 
ST1	031010 0      0   0   000002000000 0            777777777777 
ST2	031010 0      0   0   777777777777 0            777777777777 
ST3	031010 0      0   0   777777777777 0            777777777777 
ST6	031010 0      0   0   777777777777 0            777777777777 
ST6A	031010 0      0   0   777777777777 0            777777777777 
ST9	031010 0      0   0   777777777777 0            777777777777 


*031010 CAME	0,032226
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031010 031010 0   0   312000032226 0            777777777777 
IT1	031010 0      0   0   312000032226 0            777777777777 
AT3	031010 0      0   0   000000032226 0            312000032226 
AT6	031010 032226 0   0   000000032226 0            312000032226 
FT0	031010 032226 0   0   777777777777 0            312000032226 
FT1A	031010 032226 0   0   777777777777 0            777777777777 
FT2	031010 032226 0   0   0            0            777777777777 
FT2RQ	031010 032226 0   0   777777777777 0            777777777777 
FT3	031010 032226 0   0   777777777777 0            777777777777 
FT9	031011 032226 0   0   777777777777 0            777777777777 
ET0	031012 032226 0   0   0            0            777777777777 
ST1A	031012 032226 0   0   0            0            777777777777 
ST9	031012 032226 0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 24
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0113

*031012 JUMPA	0,031013
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031012 031012 0   0   324000031013 0            000000031013 
IT1	031012 0      0   0   324000031013 0            000000031013 
AT3	031012 0      0   0   000000031013 0            324000031013 
AT6	031012 031013 0   0   000000031013 0            324000031013 
FT1A	031012 031013 0   0   000000031013 0            000000031013 
FT2	031012 031013 0   0   0            0            000000031013 
FT2RQ	031012 031013 0   0   777777777777 0            000000031013 
FT3	031012 031013 0   0   777777777777 0            000000031013 
FT9	031013 031013 0   0   777777777777 0            000000031013 
ET0	031013 031013 0   0   777777777777 0            000000031013 
ST1A	031013 031013 0   0   777777777777 0            000000031013 
ST9	031013 031013 0   0   777777777777 0            000000031013 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031013 031013 0   0   201100777777 0            000000777777 
IT1	031013 0      0   0   201100777777 0            000000777777 
AT3	031013 0      0   0   000000777777 0            201100777777 
AT6	031013 777777 0   0   000000777777 0            201100777777 
FT1A	031013 777777 0   0   000000777777 0            000000777777 
FT9	031014 777777 0   0   000000777777 0            000000777777 
ET0	031014 777777 0   0   000000777777 0            000000777777 
ST1	031014 777777 0   0   000000777777 0            000000777777 
ST2	031014 777777 0   0   000000777777 0            000000777777 
ST9	031014 777777 0   0   000000777777 0            000000777777 


*031014 PUSH	2,000000
INITIAL
C(AC)=000000 777777 
FINAL
C(AC)=000002 000000   C(C(ACR+1))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031014 031014 0   0   261100000000 0            777777777777 
IT1	031014 0      0   0   261100000000 0            777777777777 
AT3	031014 0      0   0   0            0            261100000000 
AT6	031014 0      0   0   0            0            261100000000 
FT0	031014 0      0   0   777777777777 0            261100000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 25
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0114

FT1A	031014 0      0   0   777777777777 0            777777777777 
FT2	031014 0      0   0   0            0            777777777777 
FT2RQ	031014 0      0   0   000000777777 0            777777777777 
FT3	031014 0      0   0   000000777777 0            777777777777 
FT9	031015 0      0   0   000000777777 0            777777777777 
ET0	031015 0      0   0   000002000000 0            777777777777 
ET1	031015 0      0   0   000002000000 0            777777777777 
ST1	031015 0      0   0   000002000000 0            777777777777 
ST2	031015 0      0   0   777777777777 0            777777777777 
ST3	031015 0      0   0   777777777777 0            777777777777 
ST6	031015 0      0   0   777777777777 0            777777777777 
ST6A	031015 0      0   0   777777777777 0            777777777777 
ST9	031015 0      0   0   777777777777 0            777777777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031015 031015 0   0   312100032230 0            000002000000 
IT1	031015 0      0   0   312100032230 0            000002000000 
AT3	031015 0      0   0   000000032230 0            312100032230 
AT6	031015 032230 0   0   000000032230 0            312100032230 
FT0	031015 032230 0   0   000002000000 0            312100032230 
FT1A	031015 032230 0   0   000002000000 0            000002000000 
FT2	031015 032230 0   0   0            0            000002000000 
FT2RQ	031015 032230 0   0   000002000000 0            000002000000 
FT3	031015 032230 0   0   000002000000 0            000002000000 
FT9	031016 032230 0   0   000002000000 0            000002000000 
ET0	031017 032230 0   0   0            0            000002000000 
ST1A	031017 032230 0   0   0            0            000002000000 
ST9	031017 032230 0   0   0            0            000002000000 


*031017 JUMPA	0,031020
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031017 031017 0   0   324000031020 0            000000031020 
IT1	031017 0      0   0   324000031020 0            000000031020 
AT3	031017 0      0   0   000000031020 0            324000031020 
AT6	031017 031020 0   0   000000031020 0            324000031020 
FT1A	031017 031020 0   0   000000031020 0            000000031020 
FT2	031017 031020 0   0   0            0            000000031020 
FT2RQ	031017 031020 0   0   777777777777 0            000000031020 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 26
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0115

FT3	031017 031020 0   0   777777777777 0            000000031020 
FT9	031020 031020 0   0   777777777777 0            000000031020 
ET0	031020 031020 0   0   777777777777 0            000000031020 
ST1A	031020 031020 0   0   777777777777 0            000000031020 
ST9	031020 031020 0   0   777777777777 0            000000031020 


*031020 MOVSI	1,200000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031020 031020 0   0   205040200000 0            000000200000 
IT1	031020 0      0   0   205040200000 0            000000200000 
AT3	031020 0      0   0   000000200000 0            205040200000 
AT6	031020 0      0   0   000000200000 0            205040200000 
FT1A	031020 0      0   0   000000200000 0            000000200000 
FT9	031021 0      0   0   000000200000 0            000000200000 
ET0	031021 0      0   0   200000000000 0            000000200000 
ST1	031021 0      0   0   200000000000 0            000000200000 
ST2	031021 0      0   0   200000000000 0            000000200000 
ST9	031021 0      0   0   200000000000 0            000000200000 


*031021 JFCL	17,031022
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031021 031021 0   0   255740031022 0            000000031022 
IT1	031021 0      0   0   255740031022 0            000000031022 
AT3	031021 0      0   0   000000031022 0            255740031022 
AT6	031021 031022 0   0   000000031022 0            255740031022 
FT1A	031021 031022 0   0   000000031022 0            000000031022 
FT9	031022 031022 0   0   000000031022 0            000000031022 
ET0	031022 031022 0   0   000000031022 0            000000031022 
ST1A	031022 031022 0   0   000000031022 0            000000031022 
ST9	031022 031022 0   0   000000031022 0            000000031022 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 27
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0116

*031022 JRST	2,031023(1)
INITIAL
C(AC)=000002 000000 
C(E)=400000 000000 
FINAL

C(E)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031022 031022 0   0   254101031023 0            200000031023 
IT1	031022 0      0   0   254101031023 0            200000031023 
AT1	031022 0      0   0   0            0            254101031023 
AT2	031022 0      0   0   200000000000 0            254101031023 
AT3	031022 0      0   0   000000031023 0            200000031023 
AT6	031022 031023 0   0   000000031023 0            200000031023 
FT1A	031022 031023 0   0   000000031023 0            200000031023 
FT9	031023 031023 0   0   000000031023 0            200000031023 
ET0	031023 031023 0   0   000000031023 0            200000031023 
ST1A	031023 031023 0   0   000000031023 0            200000031023 
ST9	031023 031023 0   0   000000031023 0            200000031023 


*031023 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	031023 031023 0   0   400000000000 0            0            
IT1	031023 0      0   0   400000000000 0            0            
AT3	031023 0      0   0   0            0            400000000000 
AT6	031023 0      0   0   0            0            400000000000 
FT1A	031023 0      0   0   0            0            0            
FT9	031024 0      0   0   0            0            0            
ET0	031024 0      0   0   0            0            0            
ST1	031024 0      0   0   0            0            0            
ST2	031024 0      0   0   0            0            0            
ST9	031024 0      0   0   0            0            0            


*031024 PUSHJ	0,031026
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000001 000001   C(C(ACR+1))=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031024 031024 0   0   260000031026 0            200000031025 
IT1	031024 0      0   0   260000031026 0            200000031025 
AT3	031024 0      0   0   000000031026 0            260000031026 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 28
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0117

AT6	031024 031026 0   0   000000031026 0            260000031026 
FT1A	031024 031026 0   0   000000031026 0            000000031026 
FT2	031024 031026 0   0   0            0            000000031026 
FT2RQ	031024 031026 0   0   0            0            000000031026 
FT3	031024 031026 0   0   0            0            000000031026 
FT9	031025 031026 0   0   0            0            000000031026 
ET0	031026 031026 0   0   200000031025 000001000001 000000031026 
ET1	031026 031026 0   0   000001000001 000001000001 200000031025 
ET2	031026 000001 0   0   000001000001 000001000001 200000031025 
ST1	031026 000001 0   0   000001000001 000001000001 200000031025 
ST2	031026 000001 0   0   200000031025 000001000001 200000031025 
ST3	031026 000001 0   0   200000031025 000001000001 200000031025 
ST6	031026 000001 0   0   200000031025 000001000001 200000031025 
ST6A	031026 000001 0   0   200000031025 000001000001 200000031025 
ST9	031026 000001 0   0   200000031025 000001000001 200000031025 


*031026 JUMPA	0,031027
INITIAL
C(AC)=000001 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031026 031026 0   0   324000031027 0            000000031027 
IT1	031026 0      0   0   324000031027 0            000000031027 
AT3	031026 0      0   0   000000031027 0            324000031027 
AT6	031026 031027 0   0   000000031027 0            324000031027 
FT1A	031026 031027 0   0   000000031027 0            000000031027 
FT2	031026 031027 0   0   0            0            000000031027 
FT2RQ	031026 031027 0   0   000001000001 0            000000031027 
FT3	031026 031027 0   0   000001000001 0            000000031027 
FT9	031027 031027 0   0   000001000001 0            000000031027 
ET0	031027 031027 0   0   000001000001 0            000000031027 
ST1A	031027 031027 0   0   000001000001 0            000000031027 
ST9	031027 031027 0   0   000001000001 0            000000031027 


*031027 MOVSI	1,200000
INITIAL
C(AC)=200000 031025 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031027 031027 0   0   205040200000 0            000000200000 
IT1	031027 0      0   0   205040200000 0            000000200000 
AT3	031027 0      0   0   000000200000 0            205040200000 
AT6	031027 0      0   0   000000200000 0            205040200000 
FT1A	031027 0      0   0   000000200000 0            000000200000 
FT9	031030 0      0   0   000000200000 0            000000200000 
ET0	031030 0      0   0   200000000000 0            000000200000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 29
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0118

ST1	031030 0      0   0   200000000000 0            000000200000 
ST2	031030 0      0   0   200000000000 0            000000200000 
ST9	031030 0      0   0   200000000000 0            000000200000 


*031030 JFCL	17,031031
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031030 031030 0   0   255740031031 0            000000031031 
IT1	031030 0      0   0   255740031031 0            000000031031 
AT3	031030 0      0   0   000000031031 0            255740031031 
AT6	031030 031031 0   0   000000031031 0            255740031031 
FT1A	031030 031031 0   0   000000031031 0            000000031031 
FT9	031031 031031 0   0   000000031031 0            000000031031 
ET0	031031 031031 0   0   000000031031 0            000000031031 
ST1A	031031 031031 0   0   000000031031 0            000000031031 
ST9	031031 031031 0   0   000000031031 0            000000031031 


*031031 JRST	2,031032(1)
INITIAL
C(AC)=000002 000000 
C(E)=403040 031034 
FINAL

C(E)=403040 031034 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031031 031031 0   0   254101031032 0            200000031032 
IT1	031031 0      0   0   254101031032 0            200000031032 
AT1	031031 0      0   0   0            0            254101031032 
AT2	031031 0      0   0   200000000000 0            254101031032 
AT3	031031 0      0   0   000000031032 0            200000031032 
AT6	031031 031032 0   0   000000031032 0            200000031032 
FT1A	031031 031032 0   0   000000031032 0            200000031032 
FT9	031032 031032 0   0   000000031032 0            200000031032 
ET0	031032 031032 0   0   000000031032 0            200000031032 
ST1A	031032 031032 0   0   000000031032 0            200000031032 
ST9	031032 031032 0   0   000000031032 0            200000031032 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 30
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0119

*031032 SETZB	1,031034
INITIAL
C(AC)=200000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031032 031032 0   0   403040031034 0            000000031034 
IT1	031032 0      0   0   403040031034 0            000000031034 
AT3	031032 0      0   0   000000031034 0            403040031034 
AT6	031032 031034 0   0   000000031034 0            403040031034 
FT1A	031032 031034 0   0   000000031034 0            000000031034 
FT9	031033 031034 0   0   000000031034 0            000000031034 
ET0	031033 031034 0   0   0            0            000000031034 
ST1	031033 031034 0   0   0            0            000000031034 
ST2	031033 031034 0   0   0            0            000000031034 
ST6	031033 031034 0   0   0            0            000000031034 
ST6A	031033 031034 0   0   0            0            000000031034 
ST9	031033 031034 0   0   0            0            000000031034 


*031033 PUSHJ	0,031036
INITIAL
C(AC)=000001 000001 
FINAL
C(AC)=000002 000002   C(C(ACR+1))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031033 031033 0   0   260000031036 0            200000031034 
IT1	031033 0      0   0   260000031036 0            200000031034 
AT3	031033 0      0   0   000000031036 0            260000031036 
AT6	031033 031036 0   0   000000031036 0            260000031036 
FT1A	031033 031036 0   0   000000031036 0            000000031036 
FT2	031033 031036 0   0   0            0            000000031036 
FT2RQ	031033 031036 0   0   000001000001 0            000000031036 
FT3	031033 031036 0   0   000001000001 0            000000031036 
FT9	031034 031036 0   0   000001000001 0            000000031036 
ET0	031036 031036 0   0   200000031034 000002000002 000000031036 
ET1	031036 031036 0   0   000002000002 000002000002 200000031034 
ET2	031036 000002 0   0   000002000002 000002000002 200000031034 
ST1	031036 000002 0   0   000002000002 000002000002 200000031034 
ST2	031036 000002 0   0   200000031034 000002000002 200000031034 
ST3	031036 000002 0   0   200000031034 000002000002 200000031034 
ST6	031036 000002 0   0   200000031034 000002000002 200000031034 
ST6A	031036 000002 0   0   200000031034 000002000002 200000031034 
ST9	031036 000002 0   0   200000031034 000002000002 200000031034 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 31
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0120

*031036 SKIPE	0,031034
INITIAL
C(AC)=000002 000002 
C(E)=000000 000000 
FINAL
C(AC)=000002 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031036 031036 0   0   332000031034 0            0            
IT1	031036 0      0   0   332000031034 0            0            
AT3	031036 0      0   0   000000031034 0            332000031034 
AT6	031036 031034 0   0   000000031034 0            332000031034 
FT0	031036 031034 0   0   0            0            332000031034 
FT1A	031036 031034 0   0   0            0            0            
FT9	031037 031034 0   0   0            0            0            
ET0	031040 031034 0   0   0            0            0            
ST1A	031040 031034 0   0   0            0            0            
ST9	031040 031034 0   0   0            0            0            


*031040 JUMPA	0,031041
INITIAL
C(AC)=000002 000002 
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 
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   000002000002 0            000000031041 
FT3	031040 031041 0   0   000002000002 0            000000031041 
FT9	031041 031041 0   0   000002000002 0            000000031041 
ET0	031041 031041 0   0   000002000002 0            000000031041 
ST1A	031041 031041 0   0   000002000002 0            000000031041 
ST9	031041 031041 0   0   000002000002 0            000000031041 


*031041 MOVSI	1,200000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031041 031041 0   0   205040200000 0            000000200000 
IT1	031041 0      0   0   205040200000 0            000000200000 
AT3	031041 0      0   0   000000200000 0            205040200000 
AT6	031041 0      0   0   000000200000 0            205040200000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 32
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0121

FT1A	031041 0      0   0   000000200000 0            000000200000 
FT9	031042 0      0   0   000000200000 0            000000200000 
ET0	031042 0      0   0   200000000000 0            000000200000 
ST1	031042 0      0   0   200000000000 0            000000200000 
ST2	031042 0      0   0   200000000000 0            000000200000 
ST9	031042 0      0   0   200000000000 0            000000200000 


*031042 JFCL	17,031043
INITIAL
C(AC)=000000 000000 
FINAL


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


*031043 JRST	2,031044(1)
INITIAL
C(AC)=200000 031034 
C(E)=403000 000001 
FINAL

C(E)=403000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031043 031043 0   0   254101031044 0            200000031044 
IT1	031043 0      0   0   254101031044 0            200000031044 
AT1	031043 0      0   0   0            0            254101031044 
AT2	031043 0      0   0   200000000000 0            254101031044 
AT3	031043 0      0   0   000000031044 0            200000031044 
AT6	031043 031044 0   0   000000031044 0            200000031044 
FT1A	031043 031044 0   0   000000031044 0            200000031044 
FT9	031044 031044 0   0   000000031044 0            200000031044 
ET0	031044 031044 0   0   000000031044 0            200000031044 
ST1A	031044 031044 0   0   000000031044 0            200000031044 
ST9	031044 031044 0   0   000000031044 0            200000031044 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 33
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0122

*031044 SETZB	0,000001
INITIAL
C(AC)=000002 000002 
C(E)=200000 000000 
FINAL
C(AC)=000000 000000 
C(E)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031044 031044 0   0   403000000001 0            000000000001 
IT1	031044 0      0   0   403000000001 0            000000000001 
AT3	031044 0      0   0   000000000001 0            403000000001 
AT6	031044 000001 0   0   000000000001 0            403000000001 
FT1A	031044 000001 0   0   000000000001 0            000000000001 
FT9	031045 000001 0   0   000000000001 0            000000000001 
ET0	031045 000001 0   0   0            0            000000000001 
ST1	031045 000001 0   0   0            0            000000000001 
ST2	031045 000001 0   0   0            0            000000000001 
ST6	031045 000001 0   0   0            0            000000000001 
ST6A	031045 000001 0   0   0            0            000000000001 
ST9	031045 000001 0   0   0            0            000000000001 


*031045 PUSHJ	0,031046
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000001 000001   C(C(ACR+1))=200000 031034 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031045 031045 0   0   260000031046 0            200000031046 
IT1	031045 0      0   0   260000031046 0            200000031046 
AT3	031045 0      0   0   000000031046 0            260000031046 
AT6	031045 031046 0   0   000000031046 0            260000031046 
FT1A	031045 031046 0   0   000000031046 0            000000031046 
FT2	031045 031046 0   0   0            0            000000031046 
FT2RQ	031045 031046 0   0   0            0            000000031046 
FT3	031045 031046 0   0   0            0            000000031046 
FT9	031046 031046 0   0   0            0            000000031046 
ET0	031046 031046 0   0   200000031046 000001000001 000000031046 
ET1	031046 031046 0   0   000001000001 000001000001 200000031046 
ET2	031046 000001 0   0   000001000001 000001000001 200000031046 
ST1	031046 000001 0   0   000001000001 000001000001 200000031046 
ST2	031046 000001 0   0   200000031046 000001000001 200000031046 
ST3	031046 000001 0   0   200000031046 000001000001 200000031046 
ST6	031046 000001 0   0   200000031046 000001000001 200000031046 
ST6A	031046 000001 0   0   200000031046 000001000001 200000031046 
ST9	031046 000001 0   0   200000031046 000001000001 200000031046 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 34
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0123

*031046 MOVE 	2,031046
INITIAL
C(AC)=200000 031034 
C(E)=200100 031046 
FINAL
C(AC)=200100 031046 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031046 031046 0   0   200100031046 0            200100031046 
IT1	031046 0      0   0   200100031046 0            200100031046 
AT3	031046 0      0   0   000000031046 0            200100031046 
AT6	031046 031046 0   0   000000031046 0            200100031046 
FT0	031046 031046 0   0   200100031046 0            200100031046 
FT1A	031046 031046 0   0   200100031046 0            200100031046 
FT9	031047 031046 0   0   200100031046 0            200100031046 
ET0	031047 031046 0   0   200100031046 0            200100031046 
ST1	031047 031046 0   0   200100031046 0            200100031046 
ST2	031047 031046 0   0   200100031046 0            200100031046 
ST9	031047 031046 0   0   200100031046 0            200100031046 


*031047 CAME	2,031046
INITIAL
C(AC)=200100 031046 
C(E)=200100 031046 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031047 031047 0   0   312100031046 0            200100031046 
IT1	031047 0      0   0   312100031046 0            200100031046 
AT3	031047 0      0   0   000000031046 0            312100031046 
AT6	031047 031046 0   0   000000031046 0            312100031046 
FT0	031047 031046 0   0   200100031046 0            312100031046 
FT1A	031047 031046 0   0   200100031046 0            200100031046 
FT2	031047 031046 0   0   0            0            200100031046 
FT2RQ	031047 031046 0   0   200100031046 0            200100031046 
FT3	031047 031046 0   0   200100031046 0            200100031046 
FT9	031050 031046 0   0   200100031046 0            200100031046 
ET0	031051 031046 0   0   0            0            200100031046 
ST1A	031051 031046 0   0   0            0            200100031046 
ST9	031051 031046 0   0   0            0            200100031046 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 35
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0124

*031051 JUMPA	0,031052
INITIAL
C(AC)=000001 000001 
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   000001000001 0            000000031052 
FT3	031051 031052 0   0   000001000001 0            000000031052 
FT9	031052 031052 0   0   000001000001 0            000000031052 
ET0	031052 031052 0   0   000001000001 0            000000031052 
ST1A	031052 031052 0   0   000001000001 0            000000031052 
ST9	031052 031052 0   0   000001000001 0            000000031052 


*031052 MOVEI	2,000001
INITIAL
C(AC)=200100 031046 
FINAL
C(AC)=000000 000001 

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


*031053 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	031053 031053 0   0   400000000000 0            0            
IT1	031053 0      0   0   400000000000 0            0            
AT3	031053 0      0   0   0            0            400000000000 
AT6	031053 0      0   0   0            0            400000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 36
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0125

FT1A	031053 0      0   0   0            0            0            
FT9	031054 0      0   0   0            0            0            
ET0	031054 0      0   0   0            0            0            
ST1	031054 0      0   0   0            0            0            
ST2	031054 0      0   0   0            0            0            
ST9	031054 0      0   0   0            0            0            


*031054 PUSHJ	2,031055
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000001 000002   C(C(ACR+1))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031054 031054 0   0   260100031055 0            200000031055 
IT1	031054 0      0   0   260100031055 0            200000031055 
AT3	031054 0      0   0   000000031055 0            260100031055 
AT6	031054 031055 0   0   000000031055 0            260100031055 
FT1A	031054 031055 0   0   000000031055 0            000000031055 
FT2	031054 031055 0   0   0            0            000000031055 
FT2RQ	031054 031055 0   0   000000000001 0            000000031055 
FT3	031054 031055 0   0   000000000001 0            000000031055 
FT9	031055 031055 0   0   000000000001 0            000000031055 
ET0	031055 031055 0   0   200000031055 000001000002 000000031055 
ET1	031055 031055 0   0   000001000002 000001000002 200000031055 
ET2	031055 000002 0   0   000001000002 000001000002 200000031055 
ST1	031055 000002 0   0   000001000002 000001000002 200000031055 
ST2	031055 000002 0   0   200000031055 000001000002 200000031055 
ST3	031055 000002 0   0   200000031055 000001000002 200000031055 
ST6	031055 000002 0   0   200000031055 000001000002 200000031055 
ST6A	031055 000002 0   0   200000031055 000001000002 200000031055 
ST9	031055 000002 0   0   200000031055 000001000002 200000031055 


*031055 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	031055 031055 0   0   332000000000 0            0            
IT1	031055 0      0   0   332000000000 0            0            
AT3	031055 0      0   0   0            0            332000000000 
AT6	031055 0      0   0   0            0            332000000000 
FT0	031055 0      0   0   0            0            332000000000 
FT1A	031055 0      0   0   0            0            0            
FT9	031056 0      0   0   0            0            0            
ET0	031057 0      0   0   0            0            0            
ST1A	031057 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 37
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0126

ST9	031057 0      0   0   0            0            0            


*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 SETZB	0,000001
INITIAL
C(AC)=000000 000000 
C(E)=200000 031046 
FINAL
C(AC)=000000 000000 
C(E)=200000 031046 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031060 031060 0   0   403000000001 0            000000000001 
IT1	031060 0      0   0   403000000001 0            000000000001 
AT3	031060 0      0   0   000000000001 0            403000000001 
AT6	031060 000001 0   0   000000000001 0            403000000001 
FT1A	031060 000001 0   0   000000000001 0            000000000001 
FT9	031061 000001 0   0   000000000001 0            000000000001 
ET0	031061 000001 0   0   0            0            000000000001 
ST1	031061 000001 0   0   0            0            000000000001 
ST2	031061 000001 0   0   0            0            000000000001 
ST6	031061 000001 0   0   0            0            000000000001 
ST6A	031061 000001 0   0   0            0            000000000001 
ST9	031061 000001 0   0   0            0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 38
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0127

*031061 PUSHJ	0,031063
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000001 000001   C(C(ACR+1))=200000 031055 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031061 031061 0   0   260000031063 0            200000031062 
IT1	031061 0      0   0   260000031063 0            200000031062 
AT3	031061 0      0   0   000000031063 0            260000031063 
AT6	031061 031063 0   0   000000031063 0            260000031063 
FT1A	031061 031063 0   0   000000031063 0            000000031063 
FT2	031061 031063 0   0   0            0            000000031063 
FT2RQ	031061 031063 0   0   0            0            000000031063 
FT3	031061 031063 0   0   0            0            000000031063 
FT9	031062 031063 0   0   0            0            000000031063 
ET0	031063 031063 0   0   200000031062 000001000001 000000031063 
ET1	031063 031063 0   0   000001000001 000001000001 200000031062 
ET2	031063 000001 0   0   000001000001 000001000001 200000031062 
ST1	031063 000001 0   0   000001000001 000001000001 200000031062 
ST2	031063 000001 0   0   200000031062 000001000001 200000031062 
ST3	031063 000001 0   0   200000031062 000001000001 200000031062 
ST6	031063 000001 0   0   200000031062 000001000001 200000031062 
ST6A	031063 000001 0   0   200000031062 000001000001 200000031062 
ST9	031063 000001 0   0   200000031062 000001000001 200000031062 


*031063 ANDI	1,777777
INITIAL
C(AC)=200000 031062 
FINAL
C(AC)=000000 031062 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031063 031063 0   0   405040777777 0            000000777777 
IT1	031063 0      0   0   405040777777 0            000000777777 
AT3	031063 0      0   0   000000777777 0            405040777777 
AT6	031063 777777 0   0   000000777777 0            405040777777 
FT1A	031063 777777 0   0   000000777777 0            000000777777 
FT2	031063 777777 0   0   0            0            000000777777 
FT2RQ	031063 777777 0   0   200000031062 0            000000777777 
FT3	031063 777777 0   0   200000031062 0            000000777777 
FT9	031064 777777 0   0   200000031062 0            000000777777 
ET0	031064 777777 0   0   000000031062 0            000000777777 
ST1	031064 777777 0   0   000000031062 0            000000777777 
ST2	031064 777777 0   0   000000031062 0            000000777777 
ST9	031064 777777 0   0   000000031062 0            000000777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 39
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0128

*031064 CAIN	1,031063
INITIAL
C(AC)=000000 031062 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031064 031064 0   0   306040031063 0            000000031063 
IT1	031064 0      0   0   306040031063 0            000000031063 
AT3	031064 0      0   0   000000031063 0            306040031063 
AT6	031064 031063 0   0   000000031063 0            306040031063 
FT1A	031064 031063 0   0   000000031063 0            000000031063 
FT2	031064 031063 0   0   0            0            000000031063 
FT2RQ	031064 031063 0   0   000000031062 0            000000031063 
FT3	031064 031063 0   0   000000031062 0            000000031063 
FT9	031065 031063 0   0   000000031062 0            000000031063 
ET0	031066 031063 0   0   777777777777 0            000000031063 
ST1A	031066 031063 0   0   777777777777 0            000000031063 
ST9	031066 031063 0   0   777777777777 0            000000031063 


*031066 JUMPA	0,031067
INITIAL
C(AC)=000001 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031066 031066 0   0   324000031067 0            000000031067 
IT1	031066 0      0   0   324000031067 0            000000031067 
AT3	031066 0      0   0   000000031067 0            324000031067 
AT6	031066 031067 0   0   000000031067 0            324000031067 
FT1A	031066 031067 0   0   000000031067 0            000000031067 
FT2	031066 031067 0   0   0            0            000000031067 
FT2RQ	031066 031067 0   0   000001000001 0            000000031067 
FT3	031066 031067 0   0   000001000001 0            000000031067 
FT9	031067 031067 0   0   000001000001 0            000000031067 
ET0	031067 031067 0   0   000001000001 0            000000031067 
ST1A	031067 031067 0   0   000001000001 0            000000031067 
ST9	031067 031067 0   0   000001000001 0            000000031067 


*031067 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	031067 031067 0   0   400000000000 0            0            
IT1	031067 0      0   0   400000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 40
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0129

AT3	031067 0      0   0   0            0            400000000000 
AT6	031067 0      0   0   0            0            400000000000 
FT1A	031067 0      0   0   0            0            0            
FT9	031070 0      0   0   0            0            0            
ET0	031070 0      0   0   0            0            0            
ST1	031070 0      0   0   0            0            0            
ST2	031070 0      0   0   0            0            0            
ST9	031070 0      0   0   0            0            0            


*031070 PUSHJ	0,031071
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000001 000001   C(C(ACR+1))=200000 031055 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031070 031070 0   0   260000031071 0            200000031071 
IT1	031070 0      0   0   260000031071 0            200000031071 
AT3	031070 0      0   0   000000031071 0            260000031071 
AT6	031070 031071 0   0   000000031071 0            260000031071 
FT1A	031070 031071 0   0   000000031071 0            000000031071 
FT2	031070 031071 0   0   0            0            000000031071 
FT2RQ	031070 031071 0   0   0            0            000000031071 
FT3	031070 031071 0   0   0            0            000000031071 
FT9	031071 031071 0   0   0            0            000000031071 
ET0	031071 031071 0   0   200000031071 000001000001 000000031071 
ET1	031071 031071 0   0   000001000001 000001000001 200000031071 
ET2	031071 000001 0   0   000001000001 000001000001 200000031071 
ST1	031071 000001 0   0   000001000001 000001000001 200000031071 
ST2	031071 000001 0   0   200000031071 000001000001 200000031071 
ST3	031071 000001 0   0   200000031071 000001000001 200000031071 
ST6	031071 000001 0   0   200000031071 000001000001 200000031071 
ST6A	031071 000001 0   0   200000031071 000001000001 200000031071 
ST9	031071 000001 0   0   200000031071 000001000001 200000031071 


*031071 CAME	0,032223
INITIAL
C(AC)=000001 000001 
C(E)=000001 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031071 031071 0   0   312000032223 0            000001000001 
IT1	031071 0      0   0   312000032223 0            000001000001 
AT3	031071 0      0   0   000000032223 0            312000032223 
AT6	031071 032223 0   0   000000032223 0            312000032223 
FT0	031071 032223 0   0   000001000001 0            312000032223 
FT1A	031071 032223 0   0   000001000001 0            000001000001 
FT2	031071 032223 0   0   0            0            000001000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 41
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0130

FT2RQ	031071 032223 0   0   000001000001 0            000001000001 
FT3	031071 032223 0   0   000001000001 0            000001000001 
FT9	031072 032223 0   0   000001000001 0            000001000001 
ET0	031073 032223 0   0   0            0            000001000001 
ST1A	031073 032223 0   0   0            0            000001000001 
ST9	031073 032223 0   0   0            0            000001000001 


*031073 JUMPA	0,031074
INITIAL
C(AC)=000001 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031073 031073 0   0   324000031074 0            000000031074 
IT1	031073 0      0   0   324000031074 0            000000031074 
AT3	031073 0      0   0   000000031074 0            324000031074 
AT6	031073 031074 0   0   000000031074 0            324000031074 
FT1A	031073 031074 0   0   000000031074 0            000000031074 
FT2	031073 031074 0   0   0            0            000000031074 
FT2RQ	031073 031074 0   0   000001000001 0            000000031074 
FT3	031073 031074 0   0   000001000001 0            000000031074 
FT9	031074 031074 0   0   000001000001 0            000000031074 
ET0	031074 031074 0   0   000001000001 0            000000031074 
ST1A	031074 031074 0   0   000001000001 0            000000031074 
ST9	031074 031074 0   0   000001000001 0            000000031074 


*031074 MOVSI	1,200000
INITIAL
C(AC)=200000 031071 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031074 031074 0   0   205040200000 0            000000200000 
IT1	031074 0      0   0   205040200000 0            000000200000 
AT3	031074 0      0   0   000000200000 0            205040200000 
AT6	031074 0      0   0   000000200000 0            205040200000 
FT1A	031074 0      0   0   000000200000 0            000000200000 
FT9	031075 0      0   0   000000200000 0            000000200000 
ET0	031075 0      0   0   200000000000 0            000000200000 
ST1	031075 0      0   0   200000000000 0            000000200000 
ST2	031075 0      0   0   200000000000 0            000000200000 
ST9	031075 0      0   0   200000000000 0            000000200000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 42
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0131

*031075 JFCL	17,031076
INITIAL
C(AC)=000000 000000 
FINAL


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


*031076 JRST	2,031077(1)
INITIAL
C(AC)=200000 031055 
C(E)=403000 000001 
FINAL

C(E)=403000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031076 031076 0   0   254101031077 0            200000031077 
IT1	031076 0      0   0   254101031077 0            200000031077 
AT1	031076 0      0   0   0            0            254101031077 
AT2	031076 0      0   0   200000000000 0            254101031077 
AT3	031076 0      0   0   000000031077 0            200000031077 
AT6	031076 031077 0   0   000000031077 0            200000031077 
FT1A	031076 031077 0   0   000000031077 0            200000031077 
FT9	031077 031077 0   0   000000031077 0            200000031077 
ET0	031077 031077 0   0   000000031077 0            200000031077 
ST1A	031077 031077 0   0   000000031077 0            200000031077 
ST9	031077 031077 0   0   000000031077 0            200000031077 


*031077 SETZB	0,000001
INITIAL
C(AC)=000001 000001 
C(E)=200000 000000 
FINAL
C(AC)=000000 000000 
C(E)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031077 031077 0   0   403000000001 0            000000000001 
IT1	031077 0      0   0   403000000001 0            000000000001 
AT3	031077 0      0   0   000000000001 0            403000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 43
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0132

AT6	031077 000001 0   0   000000000001 0            403000000001 
FT1A	031077 000001 0   0   000000000001 0            000000000001 
FT9	0      000001 0   0   000000000001 0            000000000001 
ET0	0      000001 0   0   0            0            000000000001 
ST1	0      000001 0   0   0            0            000000000001 
ST2	0      000001 0   0   0            0            000000000001 
ST6	0      000001 0   0   0            0            000000000001 
ST6A	0      000001 0   0   0            0            000000000001 
ST9	0      000001 0   0   0            0            000000000001 


*031100 PUSHJ	0,031101
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000001 000001   C(C(ACR+1))=200000 031055 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   260000031101 0            200000031101 
IT1	0      0      0   0   260000031101 0            200000031101 
AT3	0      0      0   0   000000031101 0            260000031101 
AT6	0      031101 0   0   000000031101 0            260000031101 
FT1A	0      031101 0   0   000000031101 0            000000031101 
FT2	0      031101 0   0   0            0            000000031101 
FT2RQ	0      031101 0   0   0            0            000000031101 
FT3	0      031101 0   0   0            0            000000031101 
FT9	031101 031101 0   0   0            0            000000031101 
ET0	031101 031101 0   0   200000031101 000001000001 000000031101 
ET1	031101 031101 0   0   000001000001 000001000001 200000031101 
ET2	031101 000001 0   0   000001000001 000001000001 200000031101 
ST1	031101 000001 0   0   000001000001 000001000001 200000031101 
ST2	031101 000001 0   0   200000031101 000001000001 200000031101 
ST3	031101 000001 0   0   200000031101 000001000001 200000031101 
ST6	031101 000001 0   0   200000031101 000001000001 200000031101 
ST6A	031101 000001 0   0   200000031101 000001000001 200000031101 
ST9	031101 000001 0   0   200000031101 000001000001 200000031101 


*031101 TLNN	1,200000
INITIAL
C(AC)=200000 031101 
FINAL
C(AC)=200000 031101 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031101 031101 0   0   607040200000 0            000000200000 
IT1	031101 0      0   0   607040200000 0            000000200000 
AT3	031101 0      0   0   000000200000 0            607040200000 
AT6	031101 0      0   0   000000200000 0            607040200000 
FT1A	031101 0      0   0   000000200000 0            000000200000 
FT2	031101 0      0   0   0            0            000000200000 
FT2RQ	031101 0      0   0   200000031101 0            000000200000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 44
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0133

FT3	031101 0      0   0   200000031101 0            000000200000 
FT9	031102 0      0   0   200000031101 0            000000200000 
ET0	031102 0      0   0   031101200000 0            000000200000 
ET1	031102 0      0   0   031101200000 0            000000200000 
ET2	031103 0      0   0   200000031101 0            000000200000 
ST1A	031103 0      0   0   200000031101 0            000000200000 
ST9	031103 0      0   0   200000031101 0            000000200000 


*031103 JUMPA	0,031104
INITIAL
C(AC)=000001 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031103 031103 0   0   324000031104 0            000000031104 
IT1	031103 0      0   0   324000031104 0            000000031104 
AT3	031103 0      0   0   000000031104 0            324000031104 
AT6	031103 031104 0   0   000000031104 0            324000031104 
FT1A	031103 031104 0   0   000000031104 0            000000031104 
FT2	031103 031104 0   0   0            0            000000031104 
FT2RQ	031103 031104 0   0   000001000001 0            000000031104 
FT3	031103 031104 0   0   000001000001 0            000000031104 
FT9	031104 031104 0   0   000001000001 0            000000031104 
ET0	031104 031104 0   0   000001000001 0            000000031104 
ST1A	031104 031104 0   0   000001000001 0            000000031104 
ST9	031104 031104 0   0   000001000001 0            000000031104 


*031104 MOVEI	1,000001
INITIAL
C(AC)=200000 031101 
FINAL
C(AC)=000000 000001 

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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 45
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0134

*031105 PUSHJ	1,031107
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000001 000002   C(C(ACR+1))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031105 031105 0   0   260040031107 0            200000031106 
IT1	031105 0      0   0   260040031107 0            200000031106 
AT3	031105 0      0   0   000000031107 0            260040031107 
AT6	031105 031107 0   0   000000031107 0            260040031107 
FT1A	031105 031107 0   0   000000031107 0            000000031107 
FT2	031105 031107 0   0   0            0            000000031107 
FT2RQ	031105 031107 0   0   000000000001 0            000000031107 
FT3	031105 031107 0   0   000000000001 0            000000031107 
FT9	031106 031107 0   0   000000000001 0            000000031107 
ET0	031107 031107 0   0   200000031106 000001000002 000000031107 
ET1	031107 031107 0   0   000001000002 000001000002 200000031106 
ET2	031107 000002 0   0   000001000002 000001000002 200000031106 
ST1	031107 000002 0   0   000001000002 000001000002 200000031106 
ST2	031107 000002 0   0   200000031106 000001000002 200000031106 
ST3	031107 000002 0   0   200000031106 000001000002 200000031106 
ST6	031107 000002 0   0   200000031106 000001000002 200000031106 
ST6A	031107 000002 0   0   200000031106 000001000002 200000031106 
ST9	031107 000002 0   0   200000031106 000001000002 200000031106 


*031107 CAME	1,032231
INITIAL
C(AC)=000001 000002 
C(E)=000001 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031107 031107 0   0   312040032231 0            000001000002 
IT1	031107 0      0   0   312040032231 0            000001000002 
AT3	031107 0      0   0   000000032231 0            312040032231 
AT6	031107 032231 0   0   000000032231 0            312040032231 
FT0	031107 032231 0   0   000001000002 0            312040032231 
FT1A	031107 032231 0   0   000001000002 0            000001000002 
FT2	031107 032231 0   0   0            0            000001000002 
FT2RQ	031107 032231 0   0   000001000002 0            000001000002 
FT3	031107 032231 0   0   000001000002 0            000001000002 
FT9	031110 032231 0   0   000001000002 0            000001000002 
ET0	031111 032231 0   0   0            0            000001000002 
ST1A	031111 032231 0   0   0            0            000001000002 
ST9	031111 032231 0   0   0            0            000001000002 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 46
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0135

*031111 JUMPA	0,031112
INITIAL
C(AC)=000001 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031111 031111 0   0   324000031112 0            000000031112 
IT1	031111 0      0   0   324000031112 0            000000031112 
AT3	031111 0      0   0   000000031112 0            324000031112 
AT6	031111 031112 0   0   000000031112 0            324000031112 
FT1A	031111 031112 0   0   000000031112 0            000000031112 
FT2	031111 031112 0   0   0            0            000000031112 
FT2RQ	031111 031112 0   0   000001000001 0            000000031112 
FT3	031111 031112 0   0   000001000001 0            000000031112 
FT9	031112 031112 0   0   000001000001 0            000000031112 
ET0	031112 031112 0   0   000001000001 0            000000031112 
ST1A	031112 031112 0   0   000001000001 0            000000031112 
ST9	031112 031112 0   0   000001000001 0            000000031112 


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

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


*031113 PUSHJ	1,031115
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000001 000002   C(C(ACR+1))=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031113 031113 0   0   260040031115 0            200000031114 
IT1	031113 0      0   0   260040031115 0            200000031114 
AT3	031113 0      0   0   000000031115 0            260040031115 
AT6	031113 031115 0   0   000000031115 0            260040031115 
FT1A	031113 031115 0   0   000000031115 0            000000031115 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 47
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0136

FT2	031113 031115 0   0   0            0            000000031115 
FT2RQ	031113 031115 0   0   000000000001 0            000000031115 
FT3	031113 031115 0   0   000000000001 0            000000031115 
FT9	031114 031115 0   0   000000000001 0            000000031115 
ET0	031115 031115 0   0   200000031114 000001000002 000000031115 
ET1	031115 031115 0   0   000001000002 000001000002 200000031114 
ET2	031115 000002 0   0   000001000002 000001000002 200000031114 
ST1	031115 000002 0   0   000001000002 000001000002 200000031114 
ST2	031115 000002 0   0   200000031114 000001000002 200000031114 
ST3	031115 000002 0   0   200000031114 000001000002 200000031114 
ST6	031115 000002 0   0   200000031114 000001000002 200000031114 
ST6A	031115 000002 0   0   200000031114 000001000002 200000031114 
ST9	031115 000002 0   0   200000031114 000001000002 200000031114 


*031115 ANDI	2,777777
INITIAL
C(AC)=200000 031114 
FINAL
C(AC)=000000 031114 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031115 031115 0   0   405100777777 0            000000777777 
IT1	031115 0      0   0   405100777777 0            000000777777 
AT3	031115 0      0   0   000000777777 0            405100777777 
AT6	031115 777777 0   0   000000777777 0            405100777777 
FT1A	031115 777777 0   0   000000777777 0            000000777777 
FT2	031115 777777 0   0   0            0            000000777777 
FT2RQ	031115 777777 0   0   200000031114 0            000000777777 
FT3	031115 777777 0   0   200000031114 0            000000777777 
FT9	031116 777777 0   0   200000031114 0            000000777777 
ET0	031116 777777 0   0   000000031114 0            000000777777 
ST1	031116 777777 0   0   000000031114 0            000000777777 
ST2	031116 777777 0   0   000000031114 0            000000777777 
ST9	031116 777777 0   0   000000031114 0            000000777777 


*031116 CAIE	2,031114
INITIAL
C(AC)=000000 031114 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031116 031116 0   0   302100031114 0            000000031114 
IT1	031116 0      0   0   302100031114 0            000000031114 
AT3	031116 0      0   0   000000031114 0            302100031114 
AT6	031116 031114 0   0   000000031114 0            302100031114 
FT1A	031116 031114 0   0   000000031114 0            000000031114 
FT2	031116 031114 0   0   0            0            000000031114 
FT2RQ	031116 031114 0   0   000000031114 0            000000031114 
FT3	031116 031114 0   0   000000031114 0            000000031114 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 48
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0137

FT9	031117 031114 0   0   000000031114 0            000000031114 
ET0	031120 031114 0   0   0            0            000000031114 
ST1A	031120 031114 0   0   0            0            000000031114 
ST9	031120 031114 0   0   0            0            000000031114 


*031120 JUMPA	0,031121
INITIAL
C(AC)=000001 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031120 031120 0   0   324000031121 0            000000031121 
IT1	031120 0      0   0   324000031121 0            000000031121 
AT3	031120 0      0   0   000000031121 0            324000031121 
AT6	031120 031121 0   0   000000031121 0            324000031121 
FT1A	031120 031121 0   0   000000031121 0            000000031121 
FT2	031120 031121 0   0   0            0            000000031121 
FT2RQ	031120 031121 0   0   000001000001 0            000000031121 
FT3	031120 031121 0   0   000001000001 0            000000031121 
FT9	031121 031121 0   0   000001000001 0            000000031121 
ET0	031121 031121 0   0   000001000001 0            000000031121 
ST1A	031121 031121 0   0   000001000001 0            000000031121 
ST9	031121 031121 0   0   000001000001 0            000000031121 


*031121 MOVSI	1,020000
INITIAL
C(AC)=000001 000002 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031121 031121 0   0   205040020000 0            000000020000 
IT1	031121 0      0   0   205040020000 0            000000020000 
AT3	031121 0      0   0   000000020000 0            205040020000 
AT6	031121 0      0   0   000000020000 0            205040020000 
FT1A	031121 0      0   0   000000020000 0            000000020000 
FT9	031122 0      0   0   000000020000 0            000000020000 
ET0	031122 0      0   0   020000000000 0            000000020000 
ST1	031122 0      0   0   020000000000 0            000000020000 
ST2	031122 0      0   0   020000000000 0            000000020000 
ST9	031122 0      0   0   020000000000 0            000000020000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 49
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0138

*031122 JFCL	17,031123
INITIAL
C(AC)=000000 000000 
FINAL


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


*031123 JRST	2,031124(1)
INITIAL
C(AC)=000000 031114 
C(E)=400000 000000 
FINAL

C(E)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031123 031123 0   0   254101031124 0            020000031124 
IT1	031123 0      0   0   254101031124 0            020000031124 
AT1	031123 0      0   0   0            0            254101031124 
AT2	031123 0      0   0   020000000000 0            254101031124 
AT3	031123 0      0   0   000000031124 0            020000031124 
AT6	031123 031124 0   0   000000031124 0            020000031124 
FT1A	031123 031124 0   0   000000031124 0            020000031124 
FT9	031124 031124 0   0   000000031124 0            020000031124 
ET0	031124 031124 0   0   000000031124 0            020000031124 
ST1A	031124 031124 0   0   000000031124 0            020000031124 
ST9	031124 031124 0   0   000000031124 0            020000031124 


*031124 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	031124 031124 0   0   400000000000 0            0            
IT1	031124 0      0   0   400000000000 0            0            
AT3	031124 0      0   0   0            0            400000000000 
AT6	031124 0      0   0   0            0            400000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 50
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0139

FT1A	031124 0      0   0   0            0            0            
FT9	031125 0      0   0   0            0            0            
ET0	031125 0      0   0   0            0            0            
ST1	031125 0      0   0   0            0            0            
ST2	031125 0      0   0   0            0            0            
ST9	031125 0      0   0   0            0            0            


*031125 PUSHJ	0,031126
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000001 000001   C(C(ACR+1))=000000 031114 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031125 031125 0   0   260000031126 0            020000031126 
IT1	031125 0      0   0   260000031126 0            020000031126 
AT3	031125 0      0   0   000000031126 0            260000031126 
AT6	031125 031126 0   0   000000031126 0            260000031126 
FT1A	031125 031126 0   0   000000031126 0            000000031126 
FT2	031125 031126 0   0   0            0            000000031126 
FT2RQ	031125 031126 0   0   0            0            000000031126 
FT3	031125 031126 0   0   0            0            000000031126 
FT9	031126 031126 0   0   0            0            000000031126 
ET0	031126 031126 0   0   020000031126 000001000001 000000031126 
ET1	031126 031126 0   0   000001000001 000001000001 020000031126 
ET2	031126 000001 0   0   000001000001 000001000001 020000031126 
ST1	031126 000001 0   0   000001000001 000001000001 020000031126 
ST2	031126 000001 0   0   020000031126 000001000001 020000031126 
ST3	031126 000001 0   0   020000031126 000001000001 020000031126 
ST6	031126 000001 0   0   020000031126 000001000001 020000031126 
ST6A	031126 000001 0   0   020000031126 000001000001 020000031126 
ST9	031126 000001 0   0   020000031126 000001000001 020000031126 


*031126 JSP	0,031127
INITIAL
C(AC)=000001 000001 
FINAL
C(AC)=000000 031127 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031126 031126 0   0   265000031127 0            000000031127 
IT1	031126 0      0   0   265000031127 0            000000031127 
AT3	031126 0      0   0   000000031127 0            265000031127 
AT6	031126 031127 0   0   000000031127 0            265000031127 
FT1A	031126 031127 0   0   000000031127 0            000000031127 
FT9	031127 031127 0   0   000000031127 0            000000031127 
ET0	031127 031127 0   0   000000031127 0            000000031127 
ST1	031127 031127 0   0   000000031127 0            000000031127 
ST2	031127 031127 0   0   000000031127 0            000000031127 
ST9	031127 031127 0   0   000000031127 0            000000031127 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 51
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0140



*031127 TLNE	0,020000
INITIAL
C(AC)=000000 031127 
FINAL
C(AC)=000000 031127 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031127 031127 0   0   603000020000 0            0            
IT1	031127 0      0   0   603000020000 0            0            
AT3	031127 0      0   0   000000020000 0            603000020000 
AT6	031127 0      0   0   000000020000 0            603000020000 
FT1A	031127 0      0   0   000000020000 0            000000020000 
FT2	031127 0      0   0   0            0            000000020000 
FT2RQ	031127 0      0   0   000000031127 0            000000020000 
FT3	031127 0      0   0   000000031127 0            000000020000 
FT9	031130 0      0   0   000000031127 0            000000020000 
ET0	031130 0      0   0   031127000000 0            000000020000 
ET1	031130 0      0   0   031127000000 0            0            
ET2	031131 0      0   0   000000031127 0            0            
ST1A	031131 0      0   0   000000031127 0            0            
ST9	031131 0      0   0   000000031127 0            0            


*031131 JUMPA	0,031132
INITIAL
C(AC)=000000 031127 
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   000000031127 0            000000031132 
FT3	031131 031132 0   0   000000031127 0            000000031132 
FT9	031132 031132 0   0   000000031127 0            000000031132 
ET0	031132 031132 0   0   000000031127 0            000000031132 
ST1A	031132 031132 0   0   000000031127 0            000000031132 
ST9	031132 031132 0   0   000000031127 0            000000031132 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 52
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0141

*031132 MOVEI	2,777777
INITIAL
C(AC)=000000 031114 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031132 031132 0   0   201100777777 0            000000777777 
IT1	031132 0      0   0   201100777777 0            000000777777 
AT3	031132 0      0   0   000000777777 0            201100777777 
AT6	031132 777777 0   0   000000777777 0            201100777777 
FT1A	031132 777777 0   0   000000777777 0            000000777777 
FT9	031133 777777 0   0   000000777777 0            000000777777 
ET0	031133 777777 0   0   000000777777 0            000000777777 
ST1	031133 777777 0   0   000000777777 0            000000777777 
ST2	031133 777777 0   0   000000777777 0            000000777777 
ST9	031133 777777 0   0   000000777777 0            000000777777 


*031133 PUSHJ	2,031134
INITIAL
C(AC)=000000 777777 
FINAL
C(AC)=000002 000000   C(C(ACR+1))=020000 031126 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031133 031133 0   0   260100031134 0            000000031134 
IT1	031133 0      0   0   260100031134 0            000000031134 
AT3	031133 0      0   0   000000031134 0            260100031134 
AT6	031133 031134 0   0   000000031134 0            260100031134 
FT1A	031133 031134 0   0   000000031134 0            000000031134 
FT2	031133 031134 0   0   0            0            000000031134 
FT2RQ	031133 031134 0   0   000000777777 0            000000031134 
FT3	031133 031134 0   0   000000777777 0            000000031134 
FT9	031134 031134 0   0   000000777777 0            000000031134 
ET0	031134 031134 0   0   000000031134 000002000000 000000031134 
ET1	031134 031134 0   0   000002000000 000002000000 000000031134 
ET2	031134 0      0   0   000002000000 000002000000 000000031134 
ST1	031134 0      0   0   000002000000 000002000000 000000031134 
ST2	031134 0      0   0   000000031134 000002000000 000000031134 
ST3	031134 0      0   0   000000031134 000002000000 000000031134 
ST6	031134 0      0   0   000000031134 000002000000 000000031134 
ST6A	031134 0      0   0   000000031134 000002000000 000000031134 
ST9	031134 0      0   0   000000031134 000002000000 000000031134 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 53
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0142

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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031134 031134 0   0   312100032230 0            000002000000 
IT1	031134 0      0   0   312100032230 0            000002000000 
AT3	031134 0      0   0   000000032230 0            312100032230 
AT6	031134 032230 0   0   000000032230 0            312100032230 
FT0	031134 032230 0   0   000002000000 0            312100032230 
FT1A	031134 032230 0   0   000002000000 0            000002000000 
FT2	031134 032230 0   0   0            0            000002000000 
FT2RQ	031134 032230 0   0   000002000000 0            000002000000 
FT3	031134 032230 0   0   000002000000 0            000002000000 
FT9	031135 032230 0   0   000002000000 0            000002000000 
ET0	031136 032230 0   0   0            0            000002000000 
ST1A	031136 032230 0   0   0            0            000002000000 
ST9	031136 032230 0   0   0            0            000002000000 


*031136 JUMPA	0,031137
INITIAL
C(AC)=000000 031134 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031136 031136 0   0   324000031137 0            000000031137 
IT1	031136 0      0   0   324000031137 0            000000031137 
AT3	031136 0      0   0   000000031137 0            324000031137 
AT6	031136 031137 0   0   000000031137 0            324000031137 
FT1A	031136 031137 0   0   000000031137 0            000000031137 
FT2	031136 031137 0   0   0            0            000000031137 
FT2RQ	031136 031137 0   0   000000031134 0            000000031137 
FT3	031136 031137 0   0   000000031134 0            000000031137 
FT9	031137 031137 0   0   000000031134 0            000000031137 
ET0	031137 031137 0   0   000000031134 0            000000031137 
ST1A	031137 031137 0   0   000000031134 0            000000031137 
ST9	031137 031137 0   0   000000031134 0            000000031137 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 54
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0143

*031137 MOVE 	0,032223
INITIAL
C(AC)=000000 031134 
C(E)=000001 000001 
FINAL
C(AC)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031137 031137 0   0   200000032223 0            000001000001 
IT1	031137 0      0   0   200000032223 0            000001000001 
AT3	031137 0      0   0   000000032223 0            200000032223 
AT6	031137 032223 0   0   000000032223 0            200000032223 
FT0	031137 032223 0   0   000001000001 0            200000032223 
FT1A	031137 032223 0   0   000001000001 0            000001000001 
FT9	031140 032223 0   0   000001000001 0            000001000001 
ET0	031140 032223 0   0   000001000001 0            000001000001 
ST1	031140 032223 0   0   000001000001 0            000001000001 
ST2	031140 032223 0   0   000001000001 0            000001000001 
ST9	031140 032223 0   0   000001000001 0            000001000001 


*031140 POP	0,000001
INITIAL
C(AC)=000001 000001 
FINAL
C(AC)=000000 000000   C(C(ACR)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031140 031140 0   0   262000000001 0            020000031126 
IT1	031140 0      0   0   262000000001 0            020000031126 
AT3	031140 0      0   0   000000000001 0            262000000001 
AT6	031140 000001 0   0   000000000001 0            262000000001 
FT1A	031140 000001 0   0   000000000001 0            000000000001 
FT2	031140 000001 0   0   0            0            000000000001 
FT2RQ	031140 000001 0   0   000001000001 0            000000000001 
FT3	031140 000001 0   0   000001000001 0            000000000001 
FT7	031140 000001 0   0   020000031126 000001000001 000000000001 
FT4RQ	031140 000001 0   0   020000031126 000001000001 000000000001 
FT4A	031140 000001 0   0   000001000001 020000031126 000000000001 
FT9	031141 000001 0   0   000001000001 020000031126 000000000001 
ET0	031141 000001 0   0   020000031126 0            000000000001 
ET1	031141 000001 0   0   000000000001 0            020000031126 
ET2	031141 000001 0   0   0            0            020000031126 
ST1	031141 000001 0   0   0            0            020000031126 
ST2	031141 000001 0   0   020000031126 0            020000031126 
ST3	031141 000001 0   0   020000031126 0            020000031126 
ST6	031141 000001 0   0   020000031126 0            020000031126 
ST6A	031141 000001 0   0   020000031126 0            020000031126 
ST9	031141 000001 0   0   020000031126 0            020000031126 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 55
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0144

*031141 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	031141 031141 0   0   332000000000 0            0            
IT1	031141 0      0   0   332000000000 0            0            
AT3	031141 0      0   0   0            0            332000000000 
AT6	031141 0      0   0   0            0            332000000000 
FT0	031141 0      0   0   0            0            332000000000 
FT1A	031141 0      0   0   0            0            0            
FT9	031142 0      0   0   0            0            0            
ET0	031143 0      0   0   0            0            0            
ST1A	031143 0      0   0   0            0            0            
ST9	031143 0      0   0   0            0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031143 031143 0   0   324000031144 0            000000031144 
IT1	031143 0      0   0   324000031144 0            000000031144 
AT3	031143 0      0   0   000000031144 0            324000031144 
AT6	031143 031144 0   0   000000031144 0            324000031144 
FT1A	031143 031144 0   0   000000031144 0            000000031144 
FT2	031143 031144 0   0   0            0            000000031144 
FT2RQ	031143 031144 0   0   0            0            000000031144 
FT3	031143 031144 0   0   0            0            000000031144 
FT9	031144 031144 0   0   0            0            000000031144 
ET0	031144 031144 0   0   0            0            000000031144 
ST1A	031144 031144 0   0   0            0            000000031144 
ST9	031144 031144 0   0   0            0            000000031144 


*031144 MOVE 	0,032232
INITIAL
C(AC)=000000 000000 
C(E)=000002 000002 
FINAL
C(AC)=000002 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031144 031144 0   0   200000032232 0            000002000002 
IT1	031144 0      0   0   200000032232 0            000002000002 
AT3	031144 0      0   0   000000032232 0            200000032232 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 56
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0145

AT6	031144 032232 0   0   000000032232 0            200000032232 
FT0	031144 032232 0   0   000002000002 0            200000032232 
FT1A	031144 032232 0   0   000002000002 0            000002000002 
FT9	031145 032232 0   0   000002000002 0            000002000002 
ET0	031145 032232 0   0   000002000002 0            000002000002 
ST1	031145 032232 0   0   000002000002 0            000002000002 
ST2	031145 032232 0   0   000002000002 0            000002000002 
ST9	031145 032232 0   0   000002000002 0            000002000002 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031145 031145 0   0   201100000005 0            000000000005 
IT1	031145 0      0   0   201100000005 0            000000000005 
AT3	031145 0      0   0   000000000005 0            201100000005 
AT6	031145 000005 0   0   000000000005 0            201100000005 
FT1A	031145 000005 0   0   000000000005 0            000000000005 
FT9	031146 000005 0   0   000000000005 0            000000000005 
ET0	031146 000005 0   0   000000000005 0            000000000005 
ST1	031146 000005 0   0   000000000005 0            000000000005 
ST2	031146 000005 0   0   000000000005 0            000000000005 
ST9	031146 000005 0   0   000000000005 0            000000000005 


*031146 POP	0,000002
INITIAL
C(AC)=000002 000002 
FINAL
C(AC)=000001 000001   C(C(ACR)=020000 031126 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031146 031146 0   0   262000000002 0            000000000005 
IT1	031146 0      0   0   262000000002 0            000000000005 
AT3	031146 0      0   0   000000000002 0            262000000002 
AT6	031146 000002 0   0   000000000002 0            262000000002 
FT1A	031146 000002 0   0   000000000002 0            000000000002 
FT2	031146 000002 0   0   0            0            000000000002 
FT2RQ	031146 000002 0   0   000002000002 0            000000000002 
FT3	031146 000002 0   0   000002000002 0            000000000002 
FT7	031146 000002 0   0   000000000005 000002000002 000000000002 
FT4RQ	031146 000002 0   0   000000000005 000002000002 000000000002 
FT4A	031146 000002 0   0   000002000002 000000000005 000000000002 
FT9	031147 000002 0   0   000002000002 000000000005 000000000002 
ET0	031147 000002 0   0   000000000005 000001000001 000000000002 
ET1	031147 000002 0   0   000000000002 000001000001 000000000005 
ET2	031147 000002 0   0   000001000001 000001000001 000000000005 
ST1	031147 000002 0   0   000001000001 000001000001 000000000005 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 57
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0146

ST2	031147 000002 0   0   000000000005 000001000001 000000000005 
ST3	031147 000002 0   0   000000000005 000001000001 000000000005 
ST6	031147 000002 0   0   000000000005 000001000001 000000000005 
ST6A	031147 000002 0   0   000000000005 000001000001 000000000005 
ST9	031147 000002 0   0   000000000005 000001000001 000000000005 


*031147 CAME	0,032223
INITIAL
C(AC)=000001 000001 
C(E)=000001 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031147 031147 0   0   312000032223 0            000001000001 
IT1	031147 0      0   0   312000032223 0            000001000001 
AT3	031147 0      0   0   000000032223 0            312000032223 
AT6	031147 032223 0   0   000000032223 0            312000032223 
FT0	031147 032223 0   0   000001000001 0            312000032223 
FT1A	031147 032223 0   0   000001000001 0            000001000001 
FT2	031147 032223 0   0   0            0            000001000001 
FT2RQ	031147 032223 0   0   000001000001 0            000001000001 
FT3	031147 032223 0   0   000001000001 0            000001000001 
FT9	031150 032223 0   0   000001000001 0            000001000001 
ET0	031151 032223 0   0   0            0            000001000001 
ST1A	031151 032223 0   0   0            0            000001000001 
ST9	031151 032223 0   0   0            0            000001000001 


*031151 JUMPA	0,031152
INITIAL
C(AC)=000001 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031151 031151 0   0   324000031152 0            000000031152 
IT1	031151 0      0   0   324000031152 0            000000031152 
AT3	031151 0      0   0   000000031152 0            324000031152 
AT6	031151 031152 0   0   000000031152 0            324000031152 
FT1A	031151 031152 0   0   000000031152 0            000000031152 
FT2	031151 031152 0   0   0            0            000000031152 
FT2RQ	031151 031152 0   0   000001000001 0            000000031152 
FT3	031151 031152 0   0   000001000001 0            000000031152 
FT9	031152 031152 0   0   000001000001 0            000000031152 
ET0	031152 031152 0   0   000001000001 0            000000031152 
ST1A	031152 031152 0   0   000001000001 0            000000031152 
ST9	031152 031152 0   0   000001000001 0            000000031152 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 58
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0147

*031152 MOVE 	0,032232
INITIAL
C(AC)=000001 000001 
C(E)=000002 000002 
FINAL
C(AC)=000002 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031152 031152 0   0   200000032232 0            000002000002 
IT1	031152 0      0   0   200000032232 0            000002000002 
AT3	031152 0      0   0   000000032232 0            200000032232 
AT6	031152 032232 0   0   000000032232 0            200000032232 
FT0	031152 032232 0   0   000002000002 0            200000032232 
FT1A	031152 032232 0   0   000002000002 0            000002000002 
FT9	031153 032232 0   0   000002000002 0            000002000002 
ET0	031153 032232 0   0   000002000002 0            000002000002 
ST1	031153 032232 0   0   000002000002 0            000002000002 
ST2	031153 032232 0   0   000002000002 0            000002000002 
ST9	031153 032232 0   0   000002000002 0            000002000002 


*031153 SETZM	0,000002
INITIAL
C(AC)=000002 000002 
C(E)=000000 000005 
FINAL

C(E)=000000 000005 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031153 031153 0   0   402000000002 0            000000000002 
IT1	031153 0      0   0   402000000002 0            000000000002 
AT3	031153 0      0   0   000000000002 0            402000000002 
AT6	031153 000002 0   0   000000000002 0            402000000002 
FT1A	031153 000002 0   0   000000000002 0            000000000002 
FT9	031154 000002 0   0   000000000002 0            000000000002 
ET0	031154 000002 0   0   0            0            000000000002 
ST6	031154 000002 0   0   0            0            000000000002 
ST6A	031154 000002 0   0   0            0            000000000002 
ST9	031154 000002 0   0   0            0            000000000002 


*031154 POP	0,000002
INITIAL
C(AC)=000002 000002 
FINAL
C(AC)=000001 000001   C(C(ACR)=020000 031126 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031154 031154 0   0   262000000002 0            0            
IT1	031154 0      0   0   262000000002 0            0            
AT3	031154 0      0   0   000000000002 0            262000000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 59
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0148

AT6	031154 000002 0   0   000000000002 0            262000000002 
FT1A	031154 000002 0   0   000000000002 0            000000000002 
FT2	031154 000002 0   0   0            0            000000000002 
FT2RQ	031154 000002 0   0   000002000002 0            000000000002 
FT3	031154 000002 0   0   000002000002 0            000000000002 
FT7	031154 000002 0   0   0            000002000002 000000000002 
FT4RQ	031154 000002 0   0   0            000002000002 000000000002 
FT4A	031154 000002 0   0   000002000002 0            000000000002 
FT9	031155 000002 0   0   000002000002 0            000000000002 
ET0	031155 000002 0   0   0            000001000001 000000000002 
ET1	031155 000002 0   0   000000000002 000001000001 0            
ET2	031155 000002 0   0   000001000001 000001000001 0            
ST1	031155 000002 0   0   000001000001 000001000001 0            
ST2	031155 000002 0   0   0            000001000001 0            
ST3	031155 000002 0   0   0            000001000001 0            
ST6	031155 000002 0   0   0            000001000001 0            
ST6A	031155 000002 0   0   0            000001000001 0            
ST9	031155 000002 0   0   0            000001000001 0            


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

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


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031157 031157 0   0   324000031160 0            000000031160 
IT1	031157 0      0   0   324000031160 0            000000031160 
AT3	031157 0      0   0   000000031160 0            324000031160 
AT6	031157 031160 0   0   000000031160 0            324000031160 
FT1A	031157 031160 0   0   000000031160 0            000000031160 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 60
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0149

FT2	031157 031160 0   0   0            0            000000031160 
FT2RQ	031157 031160 0   0   000001000001 0            000000031160 
FT3	031157 031160 0   0   000001000001 0            000000031160 
FT9	031160 031160 0   0   000001000001 0            000000031160 
ET0	031160 031160 0   0   000001000001 0            000000031160 
ST1A	031160 031160 0   0   000001000001 0            000000031160 
ST9	031160 031160 0   0   000001000001 0            000000031160 


*031160 MOVE 	0,032232
INITIAL
C(AC)=000001 000001 
C(E)=000002 000002 
FINAL
C(AC)=000002 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031160 031160 0   0   200000032232 0            000002000002 
IT1	031160 0      0   0   200000032232 0            000002000002 
AT3	031160 0      0   0   000000032232 0            200000032232 
AT6	031160 032232 0   0   000000032232 0            200000032232 
FT0	031160 032232 0   0   000002000002 0            200000032232 
FT1A	031160 032232 0   0   000002000002 0            000002000002 
FT9	031161 032232 0   0   000002000002 0            000002000002 
ET0	031161 032232 0   0   000002000002 0            000002000002 
ST1	031161 032232 0   0   000002000002 0            000002000002 
ST2	031161 032232 0   0   000002000002 0            000002000002 
ST9	031161 032232 0   0   000002000002 0            000002000002 


*031161 MOVEI	2,000017
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000017 

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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 61
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0150

*031162 SETZM	0,000001
INITIAL
C(AC)=000002 000002 
C(E)=020000 031126 
FINAL

C(E)=020000 031126 

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


*031163 POP	0,000002
INITIAL
C(AC)=000002 000002 
FINAL
C(AC)=000001 000001   C(C(ACR)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031163 031163 0   0   262000000002 0            000000000017 
IT1	031163 0      0   0   262000000002 0            000000000017 
AT3	031163 0      0   0   000000000002 0            262000000002 
AT6	031163 000002 0   0   000000000002 0            262000000002 
FT1A	031163 000002 0   0   000000000002 0            000000000002 
FT2	031163 000002 0   0   0            0            000000000002 
FT2RQ	031163 000002 0   0   000002000002 0            000000000002 
FT3	031163 000002 0   0   000002000002 0            000000000002 
FT7	031163 000002 0   0   000000000017 000002000002 000000000002 
FT4RQ	031163 000002 0   0   000000000017 000002000002 000000000002 
FT4A	031163 000002 0   0   000002000002 000000000017 000000000002 
FT9	031164 000002 0   0   000002000002 000000000017 000000000002 
ET0	031164 000002 0   0   000000000017 000001000001 000000000002 
ET1	031164 000002 0   0   000000000002 000001000001 000000000017 
ET2	031164 000002 0   0   000001000001 000001000001 000000000017 
ST1	031164 000002 0   0   000001000001 000001000001 000000000017 
ST2	031164 000002 0   0   000000000017 000001000001 000000000017 
ST3	031164 000002 0   0   000000000017 000001000001 000000000017 
ST6	031164 000002 0   0   000000000017 000001000001 000000000017 
ST6A	031164 000002 0   0   000000000017 000001000001 000000000017 
ST9	031164 000002 0   0   000000000017 000001000001 000000000017 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 62
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0151

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

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


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


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


*031167 MOVE 	0,032232
INITIAL
C(AC)=000001 000001 
C(E)=000002 000002 
FINAL
C(AC)=000002 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031167 031167 0   0   200000032232 0            000002000002 
IT1	031167 0      0   0   200000032232 0            000002000002 
AT3	031167 0      0   0   000000032232 0            200000032232 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 63
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0152

AT6	031167 032232 0   0   000000032232 0            200000032232 
FT0	031167 032232 0   0   000002000002 0            200000032232 
FT1A	031167 032232 0   0   000002000002 0            000002000002 
FT9	031170 032232 0   0   000002000002 0            000002000002 
ET0	031170 032232 0   0   000002000002 0            000002000002 
ST1	031170 032232 0   0   000002000002 0            000002000002 
ST2	031170 032232 0   0   000002000002 0            000002000002 
ST9	031170 032232 0   0   000002000002 0            000002000002 


*031170 MOVEI	2,000003
INITIAL
C(AC)=000000 000017 
FINAL
C(AC)=000000 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031170 031170 0   0   201100000003 0            000000000003 
IT1	031170 0      0   0   201100000003 0            000000000003 
AT3	031170 0      0   0   000000000003 0            201100000003 
AT6	031170 000003 0   0   000000000003 0            201100000003 
FT1A	031170 000003 0   0   000000000003 0            000000000003 
FT9	031171 000003 0   0   000000000003 0            000000000003 
ET0	031171 000003 0   0   000000000003 0            000000000003 
ST1	031171 000003 0   0   000000000003 0            000000000003 
ST2	031171 000003 0   0   000000000003 0            000000000003 
ST9	031171 000003 0   0   000000000003 0            000000000003 


*031171 SETZM	0,000003
INITIAL
C(AC)=000002 000002 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031171 031171 0   0   402000000003 0            000000000003 
IT1	031171 0      0   0   402000000003 0            000000000003 
AT3	031171 0      0   0   000000000003 0            402000000003 
AT6	031171 000003 0   0   000000000003 0            402000000003 
FT1A	031171 000003 0   0   000000000003 0            000000000003 
FT9	031172 000003 0   0   000000000003 0            000000000003 
ET0	031172 000003 0   0   0            0            000000000003 
ST6	031172 000003 0   0   0            0            000000000003 
ST6A	031172 000003 0   0   0            0            000000000003 
ST9	031172 000003 0   0   0            0            000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 64
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0153

*031172 POP	0,000003
INITIAL
C(AC)=000002 000002 
FINAL
C(AC)=000001 000001   C(C(ACR)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031172 031172 0   0   262000000003 0            000000000003 
IT1	031172 0      0   0   262000000003 0            000000000003 
AT3	031172 0      0   0   000000000003 0            262000000003 
AT6	031172 000003 0   0   000000000003 0            262000000003 
FT1A	031172 000003 0   0   000000000003 0            000000000003 
FT2	031172 000003 0   0   0            0            000000000003 
FT2RQ	031172 000003 0   0   000002000002 0            000000000003 
FT3	031172 000003 0   0   000002000002 0            000000000003 
FT7	031172 000002 0   0   000000000003 000002000002 000000000003 
FT4RQ	031172 000002 0   0   000000000003 000002000002 000000000003 
FT4A	031172 000002 0   0   000002000002 000000000003 000000000003 
FT9	031173 000002 0   0   000002000002 000000000003 000000000003 
ET0	031173 000002 0   0   000000000003 000001000001 000000000003 
ET1	031173 000002 0   0   000000000003 000001000001 000000000003 
ET2	031173 000003 0   0   000001000001 000001000001 000000000003 
ST1	031173 000003 0   0   000001000001 000001000001 000000000003 
ST2	031173 000003 0   0   000000000003 000001000001 000000000003 
ST3	031173 000003 0   0   000000000003 000001000001 000000000003 
ST6	031173 000003 0   0   000000000003 000001000001 000000000003 
ST6A	031173 000003 0   0   000000000003 000001000001 000000000003 
ST9	031173 000003 0   0   000000000003 000001000001 000000000003 


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


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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 65
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0154

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


*031176 SETZM	0,000002
INITIAL
C(AC)=000001 000001 
C(E)=000000 000003 
FINAL

C(E)=000000 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031176 031176 0   0   402000000002 0            000000000002 
IT1	031176 0      0   0   402000000002 0            000000000002 
AT3	031176 0      0   0   000000000002 0            402000000002 
AT6	031176 000002 0   0   000000000002 0            402000000002 
FT1A	031176 000002 0   0   000000000002 0            000000000002 
FT9	031177 000002 0   0   000000000002 0            000000000002 
ET0	031177 000002 0   0   0            0            000000000002 
ST6	031177 000002 0   0   0            0            000000000002 
ST6A	031177 000002 0   0   0            0            000000000002 
ST9	031177 000002 0   0   0            0            000000000002 


*031177 MOVE 	0,032232
INITIAL
C(AC)=000001 000001 
C(E)=000002 000002 
FINAL
C(AC)=000002 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031177 031177 0   0   200000032232 0            000002000002 
IT1	031177 0      0   0   200000032232 0            000002000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 66
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0155

AT3	031177 0      0   0   000000032232 0            200000032232 
AT6	031177 032232 0   0   000000032232 0            200000032232 
FT0	031177 032232 0   0   000002000002 0            200000032232 
FT1A	031177 032232 0   0   000002000002 0            000002000002 
FT9	0      032232 0   0   000002000002 0            000002000002 
ET0	0      032232 0   0   000002000002 0            000002000002 
ST1	0      032232 0   0   000002000002 0            000002000002 
ST2	0      032232 0   0   000002000002 0            000002000002 
ST9	0      032232 0   0   000002000002 0            000002000002 


*031200 MOVEI	2,000017
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000017 

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


*031201 POP	0,000002
INITIAL
C(AC)=000002 000002 
FINAL
C(AC)=000001 000001   C(C(ACR)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031201 031201 0   0   262000000002 0            000000000017 
IT1	031201 0      0   0   262000000002 0            000000000017 
AT3	031201 0      0   0   000000000002 0            262000000002 
AT6	031201 000002 0   0   000000000002 0            262000000002 
FT1A	031201 000002 0   0   000000000002 0            000000000002 
FT2	031201 000002 0   0   0            0            000000000002 
FT2RQ	031201 000002 0   0   000002000002 0            000000000002 
FT3	031201 000002 0   0   000002000002 0            000000000002 
FT7	031201 000002 0   0   000000000017 000002000002 000000000002 
FT4RQ	031201 000002 0   0   000000000017 000002000002 000000000002 
FT4A	031201 000002 0   0   000002000002 000000000017 000000000002 
FT9	031202 000002 0   0   000002000002 000000000017 000000000002 
ET0	031202 000002 0   0   000000000017 000001000001 000000000002 
ET1	031202 000002 0   0   000000000002 000001000001 000000000017 
ET2	031202 000002 0   0   000001000001 000001000001 000000000017 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 67
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0156

ST1	031202 000002 0   0   000001000001 000001000001 000000000017 
ST2	031202 000002 0   0   000000000017 000001000001 000000000017 
ST3	031202 000002 0   0   000000000017 000001000001 000000000017 
ST6	031202 000002 0   0   000000000017 000001000001 000000000017 
ST6A	031202 000002 0   0   000000000017 000001000001 000000000017 
ST9	031202 000002 0   0   000000000017 000001000001 000000000017 


*031202 CAIE	2,000017
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031202 031202 0   0   302100000017 0            000000000017 
IT1	031202 0      0   0   302100000017 0            000000000017 
AT3	031202 0      0   0   000000000017 0            302100000017 
AT6	031202 000017 0   0   000000000017 0            302100000017 
FT1A	031202 000017 0   0   000000000017 0            000000000017 
FT2	031202 000017 0   0   0            0            000000000017 
FT2RQ	031202 000017 0   0   000000000017 0            000000000017 
FT3	031202 000017 0   0   000000000017 0            000000000017 
FT9	031203 000017 0   0   000000000017 0            000000000017 
ET0	031204 000017 0   0   0            0            000000000017 
ST1A	031204 000017 0   0   0            0            000000000017 
ST9	031204 000017 0   0   0            0            000000000017 


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


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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 68
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0157

*031205 MOVE 	0,032232
INITIAL
C(AC)=000001 000001 
C(E)=000002 000002 
FINAL
C(AC)=000002 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031205 031205 0   0   200000032232 0            000002000002 
IT1	031205 0      0   0   200000032232 0            000002000002 
AT3	031205 0      0   0   000000032232 0            200000032232 
AT6	031205 032232 0   0   000000032232 0            200000032232 
FT0	031205 032232 0   0   000002000002 0            200000032232 
FT1A	031205 032232 0   0   000002000002 0            000002000002 
FT9	031206 032232 0   0   000002000002 0            000002000002 
ET0	031206 032232 0   0   000002000002 0            000002000002 
ST1	031206 032232 0   0   000002000002 0            000002000002 
ST2	031206 032232 0   0   000002000002 0            000002000002 
ST9	031206 032232 0   0   000002000002 0            000002000002 


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

C(E)=000000 000017 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031206 031206 0   0   476000000002 0            000000000002 
IT1	031206 0      0   0   476000000002 0            000000000002 
AT3	031206 0      0   0   000000000002 0            476000000002 
AT6	031206 000002 0   0   000000000002 0            476000000002 
FT1A	031206 000002 0   0   000000000002 0            000000000002 
FT9	031207 000002 0   0   000000000002 0            000000000002 
ET0	031207 000002 0   0   777777777777 0            000000000002 
ST6	031207 000002 0   0   777777777777 0            000000000002 
ST6A	031207 000002 0   0   777777777777 0            000000000002 
ST9	031207 000002 0   0   777777777777 0            000000000002 


*031207 SETZM	0,000003
INITIAL
C(AC)=000002 000002 
C(E)=000000 000003 
FINAL

C(E)=000000 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031207 031207 0   0   402000000003 0            000000000003 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 69
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0158

IT1	031207 0      0   0   402000000003 0            000000000003 
AT3	031207 0      0   0   000000000003 0            402000000003 
AT6	031207 000003 0   0   000000000003 0            402000000003 
FT1A	031207 000003 0   0   000000000003 0            000000000003 
FT9	031210 000003 0   0   000000000003 0            000000000003 
ET0	031210 000003 0   0   0            0            000000000003 
ST6	031210 000003 0   0   0            0            000000000003 
ST6A	031210 000003 0   0   0            0            000000000003 
ST9	031210 000003 0   0   0            0            000000000003 


*031210 POP	0,000003
INITIAL
C(AC)=000002 000002 
FINAL
C(AC)=000001 000001   C(C(ACR)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031210 031210 0   0   262000000003 0            777777777777 
IT1	031210 0      0   0   262000000003 0            777777777777 
AT3	031210 0      0   0   000000000003 0            262000000003 
AT6	031210 000003 0   0   000000000003 0            262000000003 
FT1A	031210 000003 0   0   000000000003 0            000000000003 
FT2	031210 000003 0   0   0            0            000000000003 
FT2RQ	031210 000003 0   0   000002000002 0            000000000003 
FT3	031210 000003 0   0   000002000002 0            000000000003 
FT7	031210 000002 0   0   777777777777 000002000002 000000000003 
FT4RQ	031210 000002 0   0   777777777777 000002000002 000000000003 
FT4A	031210 000002 0   0   000002000002 777777777777 000000000003 
FT9	031211 000002 0   0   000002000002 777777777777 000000000003 
ET0	031211 000002 0   0   777777777777 000001000001 000000000003 
ET1	031211 000002 0   0   000000000003 000001000001 777777777777 
ET2	031211 000003 0   0   000001000001 000001000001 777777777777 
ST1	031211 000003 0   0   000001000001 000001000001 777777777777 
ST2	031211 000003 0   0   777777777777 000001000001 777777777777 
ST3	031211 000003 0   0   777777777777 000001000001 777777777777 
ST6	031211 000003 0   0   777777777777 000001000001 777777777777 
ST6A	031211 000003 0   0   777777777777 000001000001 777777777777 
ST9	031211 000003 0   0   777777777777 000001000001 777777777777 


*031211 CAME	3,032226
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031211 031211 0   0   312140032226 0            777777777777 
IT1	031211 0      0   0   312140032226 0            777777777777 
AT3	031211 0      0   0   000000032226 0            312140032226 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 70
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0159

AT6	031211 032226 0   0   000000032226 0            312140032226 
FT0	031211 032226 0   0   777777777777 0            312140032226 
FT1A	031211 032226 0   0   777777777777 0            777777777777 
FT2	031211 032226 0   0   0            0            777777777777 
FT2RQ	031211 032226 0   0   777777777777 0            777777777777 
FT3	031211 032226 0   0   777777777777 0            777777777777 
FT9	031212 032226 0   0   777777777777 0            777777777777 
ET0	031213 032226 0   0   0            0            777777777777 
ST1A	031213 032226 0   0   0            0            777777777777 
ST9	031213 032226 0   0   0            0            777777777777 


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


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


*031214 MOVE 	0,032233
INITIAL
C(AC)=000001 000001 
C(E)=000001 000017 
FINAL
C(AC)=000001 000017 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031214 031214 0   0   200000032233 0            000001000017 
IT1	031214 0      0   0   200000032233 0            000001000017 
AT3	031214 0      0   0   000000032233 0            200000032233 
AT6	031214 032233 0   0   000000032233 0            200000032233 
FT0	031214 032233 0   0   000001000017 0            200000032233 
FT1A	031214 032233 0   0   000001000017 0            000001000017 
FT9	031215 032233 0   0   000001000017 0            000001000017 
ET0	031215 032233 0   0   000001000017 0            000001000017 
ST1	031215 032233 0   0   000001000017 0            000001000017 
ST2	031215 032233 0   0   000001000017 0            000001000017 
ST9	031215 032233 0   0   000001000017 0            000001000017 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 71
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0160



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

C(E)=000000 000000 

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


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

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031216 031216 0   0   476000000017 0            000000000017 
IT1	031216 0      0   0   476000000017 0            000000000017 
AT3	031216 0      0   0   000000000017 0            476000000017 
AT6	031216 000017 0   0   000000000017 0            476000000017 
FT1A	031216 000017 0   0   000000000017 0            000000000017 
FT9	031217 000017 0   0   000000000017 0            000000000017 
ET0	031217 000017 0   0   777777777777 0            000000000017 
ST6	031217 000017 0   0   777777777777 0            000000000017 
ST6A	031217 000017 0   0   777777777777 0            000000000017 
ST9	031217 000017 0   0   777777777777 0            000000000017 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 72
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0161

*031217 POP	0,000001
INITIAL
C(AC)=000001 000017 
FINAL
C(AC)=000000 000016   C(C(ACR)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031217 031217 0   0   262000000001 0            777777777777 
IT1	031217 0      0   0   262000000001 0            777777777777 
AT3	031217 0      0   0   000000000001 0            262000000001 
AT6	031217 000001 0   0   000000000001 0            262000000001 
FT1A	031217 000001 0   0   000000000001 0            000000000001 
FT2	031217 000001 0   0   0            0            000000000001 
FT2RQ	031217 000001 0   0   000001000017 0            000000000001 
FT3	031217 000001 0   0   000001000017 0            000000000001 
FT7	031217 000017 0   0   777777777777 000001000017 000000000001 
FT4RQ	031217 000017 0   0   777777777777 000001000017 000000000001 
FT4A	031217 000017 0   0   000001000017 777777777777 000000000001 
FT9	031220 000017 0   0   000001000017 777777777777 000000000001 
ET0	031220 000017 0   0   777777777777 000000000016 000000000001 
ET1	031220 000017 0   0   000000000001 000000000016 777777777777 
ET2	031220 000001 0   0   000000000016 000000000016 777777777777 
ST1	031220 000001 0   0   000000000016 000000000016 777777777777 
ST2	031220 000001 0   0   777777777777 000000000016 777777777777 
ST3	031220 000001 0   0   777777777777 000000000016 777777777777 
ST6	031220 000001 0   0   777777777777 000000000016 777777777777 
ST6A	031220 000001 0   0   777777777777 000000000016 777777777777 
ST9	031220 000001 0   0   777777777777 000000000016 777777777777 


*031220 CAME	1,032226
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031220 031220 0   0   312040032226 0            777777777777 
IT1	031220 0      0   0   312040032226 0            777777777777 
AT3	031220 0      0   0   000000032226 0            312040032226 
AT6	031220 032226 0   0   000000032226 0            312040032226 
FT0	031220 032226 0   0   777777777777 0            312040032226 
FT1A	031220 032226 0   0   777777777777 0            777777777777 
FT2	031220 032226 0   0   0            0            777777777777 
FT2RQ	031220 032226 0   0   777777777777 0            777777777777 
FT3	031220 032226 0   0   777777777777 0            777777777777 
FT9	031221 032226 0   0   777777777777 0            777777777777 
ET0	031222 032226 0   0   0            0            777777777777 
ST1A	031222 032226 0   0   0            0            777777777777 
ST9	031222 032226 0   0   0            0            777777777777 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 73
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0162


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


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


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031223 031223 0   0   302000000016 0            000000000016 
IT1	031223 0      0   0   302000000016 0            000000000016 
AT3	031223 0      0   0   000000000016 0            302000000016 
AT6	031223 000016 0   0   000000000016 0            302000000016 
FT1A	031223 000016 0   0   000000000016 0            000000000016 
FT2	031223 000016 0   0   0            0            000000000016 
FT2RQ	031223 000016 0   0   000000000016 0            000000000016 
FT3	031223 000016 0   0   000000000016 0            000000000016 
FT9	031224 000016 0   0   000000000016 0            000000000016 
ET0	031225 000016 0   0   0            0            000000000016 
ST1A	031225 000016 0   0   0            0            000000000016 
ST9	031225 000016 0   0   0            0            000000000016 


*031225 JUMPA	0,031226
INITIAL
C(AC)=000000 000016 
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 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 74
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0163

AT3	031225 0      0   0   000000031226 0            324000031226 
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   000000000016 0            000000031226 
FT3	031225 031226 0   0   000000000016 0            000000031226 
FT9	031226 031226 0   0   000000000016 0            000000031226 
ET0	031226 031226 0   0   000000000016 0            000000031226 
ST1A	031226 031226 0   0   000000000016 0            000000031226 
ST9	031226 031226 0   0   000000000016 0            000000031226 


*031226 MOVSI	1,777777
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031226 031226 0   0   205040777777 0            000000777777 
IT1	031226 0      0   0   205040777777 0            000000777777 
AT3	031226 0      0   0   000000777777 0            205040777777 
AT6	031226 777777 0   0   000000777777 0            205040777777 
FT1A	031226 777777 0   0   000000777777 0            000000777777 
FT9	031227 777777 0   0   000000777777 0            000000777777 
ET0	031227 777777 0   0   777777000000 0            000000777777 
ST1	031227 777777 0   0   777777000000 0            000000777777 
ST2	031227 777777 0   0   777777000000 0            000000777777 
ST9	031227 777777 0   0   777777000000 0            000000777777 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031227 031227 0   0   400000000000 0            0            
IT1	031227 0      0   0   400000000000 0            0            
AT3	031227 0      0   0   0            0            400000000000 
AT6	031227 0      0   0   0            0            400000000000 
FT1A	031227 0      0   0   0            0            0            
FT9	031230 0      0   0   0            0            0            
ET0	031230 0      0   0   0            0            0            
ST1	031230 0      0   0   0            0            0            
ST2	031230 0      0   0   0            0            0            
ST9	031230 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 75
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0164

*031230 POP	1,000017
INITIAL
C(AC)=777777 000000 
FINAL
C(AC)=777775 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031230 031230 0   0   262040000017 0            0            
IT1	031230 0      0   0   262040000017 0            0            
AT3	031230 0      0   0   000000000017 0            262040000017 
AT6	031230 000017 0   0   000000000017 0            262040000017 
FT1A	031230 000017 0   0   000000000017 0            000000000017 
FT2	031230 000017 0   0   0            0            000000000017 
FT2RQ	031230 000017 0   0   777777000000 0            000000000017 
FT3	031230 000017 0   0   777777000000 0            000000000017 
FT7	031230 0      0   0   0            777777000000 000000000017 
FT4RQ	031230 0      0   0   0            777777000000 000000000017 
FT4A	031230 0      0   0   777777000000 0            000000000017 
FT9	031231 0      0   0   777777000000 0            000000000017 
ET0	031231 0      0   0   0            777775777777 000000000017 
ET1	031231 0      0   0   000000000017 777775777777 0            
ET2	031231 000017 0   0   777775777777 777775777777 0            
ST1	031231 000017 0   0   777775777777 777775777777 0            
ST2	031231 000017 0   0   0            777775777777 0            
ST3	031231 000017 0   0   0            777775777777 0            
ST6	031231 000017 0   0   0            777775777777 0            
ST6A	031231 000017 0   0   0            777775777777 0            
ST9	031231 000017 0   0   0            777775777777 0            


*031231 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	031231 031231 0   0   332000000017 0            0            
IT1	031231 0      0   0   332000000017 0            0            
AT3	031231 0      0   0   000000000017 0            332000000017 
AT6	031231 000017 0   0   000000000017 0            332000000017 
FT0	031231 000017 0   0   0            0            332000000017 
FT1A	031231 000017 0   0   0            0            0            
FT9	031232 000017 0   0   0            0            0            
ET0	031233 000017 0   0   0            0            0            
ST1A	031233 000017 0   0   0            0            0            
ST9	031233 000017 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 76
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0165

*031233 JUMPA	0,031234
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031233 031233 0   0   324000031234 0            000000031234 
IT1	031233 0      0   0   324000031234 0            000000031234 
AT3	031233 0      0   0   000000031234 0            324000031234 
AT6	031233 031234 0   0   000000031234 0            324000031234 
FT1A	031233 031234 0   0   000000031234 0            000000031234 
FT2	031233 031234 0   0   0            0            000000031234 
FT2RQ	031233 031234 0   0   0            0            000000031234 
FT3	031233 031234 0   0   0            0            000000031234 
FT9	031234 031234 0   0   0            0            000000031234 
ET0	031234 031234 0   0   0            0            000000031234 
ST1A	031234 031234 0   0   0            0            000000031234 
ST9	031234 031234 0   0   0            0            000000031234 


*031234 HRLZI	2,000002
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031234 031234 0   0   515100000002 0            000000000002 
IT1	031234 0      0   0   515100000002 0            000000000002 
AT3	031234 0      0   0   000000000002 0            515100000002 
AT6	031234 000002 0   0   000000000002 0            515100000002 
FT1A	031234 000002 0   0   000000000002 0            000000000002 
FT9	031235 000002 0   0   000000000002 0            000000000002 
ET0	031235 000002 0   0   000002000000 0            000000000002 
ST1	031235 000002 0   0   000002000000 0            000000000002 
ST2	031235 000002 0   0   000002000000 0            000000000002 
ST9	031235 000002 0   0   000002000000 0            000000000002 


*031235 POP	2,000000
INITIAL
C(AC)=000002 000000 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031235 031235 0   0   262100000000 0            0            
IT1	031235 0      0   0   262100000000 0            0            
AT3	031235 0      0   0   0            0            262100000000 
AT6	031235 0      0   0   0            0            262100000000 
FT1A	031235 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 77
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0166

FT2	031235 0      0   0   0            0            0            
FT2RQ	031235 0      0   0   000002000000 0            0            
FT3	031235 0      0   0   000002000000 0            0            
FT7	031235 0      0   0   0            000002000000 0            
FT4RQ	031235 0      0   0   0            000002000000 0            
FT4A	031235 0      0   0   000002000000 0            0            
FT9	031236 0      0   0   000002000000 0            0            
ET0	031236 0      0   0   0            000000777777 0            
ET1	031236 0      0   0   0            000000777777 0            
ET2	031236 0      0   0   000000777777 000000777777 0            
ST1	031236 0      0   0   000000777777 000000777777 0            
ST2	031236 0      0   0   0            000000777777 0            
ST3	031236 0      0   0   0            000000777777 0            
ST6	031236 0      0   0   0            000000777777 0            
ST6A	031236 0      0   0   0            000000777777 0            
ST9	031236 0      0   0   0            000000777777 0            


*031236 CAIE	2,777777
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031236 031236 0   0   302100777777 0            000000777777 
IT1	031236 0      0   0   302100777777 0            000000777777 
AT3	031236 0      0   0   000000777777 0            302100777777 
AT6	031236 777777 0   0   000000777777 0            302100777777 
FT1A	031236 777777 0   0   000000777777 0            000000777777 
FT2	031236 777777 0   0   0            0            000000777777 
FT2RQ	031236 777777 0   0   000000777777 0            000000777777 
FT3	031236 777777 0   0   000000777777 0            000000777777 
FT9	031237 777777 0   0   000000777777 0            000000777777 
ET0	031240 777777 0   0   0            0            000000777777 
ST1A	031240 777777 0   0   0            0            000000777777 
ST9	031240 777777 0   0   0            0            000000777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031240 031240 0   0   324000031241 0            000000031241 
IT1	031240 0      0   0   324000031241 0            000000031241 
AT3	031240 0      0   0   000000031241 0            324000031241 
AT6	031240 031241 0   0   000000031241 0            324000031241 
FT1A	031240 031241 0   0   000000031241 0            000000031241 
FT2	031240 031241 0   0   0            0            000000031241 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 78
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0167

FT2RQ	031240 031241 0   0   0            0            000000031241 
FT3	031240 031241 0   0   0            0            000000031241 
FT9	031241 031241 0   0   0            0            000000031241 
ET0	031241 031241 0   0   0            0            000000031241 
ST1A	031241 031241 0   0   0            0            000000031241 
ST9	031241 031241 0   0   0            0            000000031241 


*031241 MOVE 	0,032223
INITIAL
C(AC)=000000 000000 
C(E)=000001 000001 
FINAL
C(AC)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031241 031241 0   0   200000032223 0            000001000001 
IT1	031241 0      0   0   200000032223 0            000001000001 
AT3	031241 0      0   0   000000032223 0            200000032223 
AT6	031241 032223 0   0   000000032223 0            200000032223 
FT0	031241 032223 0   0   000001000001 0            200000032223 
FT1A	031241 032223 0   0   000001000001 0            000001000001 
FT9	031242 032223 0   0   000001000001 0            000001000001 
ET0	031242 032223 0   0   000001000001 0            000001000001 
ST1	031242 032223 0   0   000001000001 0            000001000001 
ST2	031242 032223 0   0   000001000001 0            000001000001 
ST9	031242 032223 0   0   000001000001 0            000001000001 


*031242 MOVEI	1,031245
INITIAL
C(AC)=777775 777777 
FINAL
C(AC)=000000 031245 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031242 031242 0   0   201040031245 0            000000031245 
IT1	031242 0      0   0   201040031245 0            000000031245 
AT3	031242 0      0   0   000000031245 0            201040031245 
AT6	031242 031245 0   0   000000031245 0            201040031245 
FT1A	031242 031245 0   0   000000031245 0            000000031245 
FT9	031243 031245 0   0   000000031245 0            000000031245 
ET0	031243 031245 0   0   000000031245 0            000000031245 
ST1	031243 031245 0   0   000000031245 0            000000031245 
ST2	031243 031245 0   0   000000031245 0            000000031245 
ST9	031243 031245 0   0   000000031245 0            000000031245 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 79
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0168

*031243 POPJ	0,031245
INITIAL
C(AC)=000001 000001 
FINAL
C(AC)=000000 000000   C(C(ACR)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031243 031243 0   0   263000031245 0            000000031245 
IT1	031243 0      0   0   263000031245 0            000000031245 
AT3	031243 0      0   0   000000031245 0            263000031245 
AT6	031243 031245 0   0   000000031245 0            263000031245 
FT1A	031243 031245 0   0   000000031245 0            000000031245 
FT2	031243 031245 0   0   0            0            000000031245 
FT2RQ	031243 031245 0   0   000001000001 0            000000031245 
FT3	031243 031245 0   0   000001000001 0            000000031245 
FT7	031243 000001 0   0   000000031245 000001000001 000000031245 
FT4RQ	031243 000001 0   0   000000031245 000001000001 000000031245 
FT4A	031243 000001 0   0   000001000001 000000031245 000000031245 
FT9	031244 000001 0   0   000001000001 000000031245 000000031245 
ET0	031244 000001 0   0   000000031245 0            000000031245 
ET1	031244 031245 0   0   0            0            000000031245 
ET2	031245 031245 0   0   0            0            000000031245 
ST1	031245 031245 0   0   0            0            000000031245 
ST2	031245 031245 0   0   0            0            000000031245 
ST9	031245 031245 0   0   0            0            000000031245 


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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 80
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0169

*031246 MOVE 	0,032223
INITIAL
C(AC)=000000 000000 
C(E)=000001 000001 
FINAL
C(AC)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031246 031246 0   0   200000032223 0            000001000001 
IT1	031246 0      0   0   200000032223 0            000001000001 
AT3	031246 0      0   0   000000032223 0            200000032223 
AT6	031246 032223 0   0   000000032223 0            200000032223 
FT0	031246 032223 0   0   000001000001 0            200000032223 
FT1A	031246 032223 0   0   000001000001 0            000001000001 
FT9	031247 032223 0   0   000001000001 0            000001000001 
ET0	031247 032223 0   0   000001000001 0            000001000001 
ST1	031247 032223 0   0   000001000001 0            000001000001 
ST2	031247 032223 0   0   000001000001 0            000001000001 
ST9	031247 032223 0   0   000001000001 0            000001000001 


*031247 MOVEI	1,031251
INITIAL
C(AC)=000000 031245 
FINAL
C(AC)=000000 031251 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031247 031247 0   0   201040031251 0            000000031251 
IT1	031247 0      0   0   201040031251 0            000000031251 
AT3	031247 0      0   0   000000031251 0            201040031251 
AT6	031247 031251 0   0   000000031251 0            201040031251 
FT1A	031247 031251 0   0   000000031251 0            000000031251 
FT9	031250 031251 0   0   000000031251 0            000000031251 
ET0	031250 031251 0   0   000000031251 0            000000031251 
ST1	031250 031251 0   0   000000031251 0            000000031251 
ST2	031250 031251 0   0   000000031251 0            000000031251 
ST9	031250 031251 0   0   000000031251 0            000000031251 


*031250 POPJ	0,031251
INITIAL
C(AC)=000001 000001 
FINAL
C(AC)=000000 000000   C(C(ACR)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031250 031250 0   0   263000031251 0            000000031251 
IT1	031250 0      0   0   263000031251 0            000000031251 
AT3	031250 0      0   0   000000031251 0            263000031251 
AT6	031250 031251 0   0   000000031251 0            263000031251 
FT1A	031250 031251 0   0   000000031251 0            000000031251 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 81
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0170

FT2	031250 031251 0   0   0            0            000000031251 
FT2RQ	031250 031251 0   0   000001000001 0            000000031251 
FT3	031250 031251 0   0   000001000001 0            000000031251 
FT7	031250 000001 0   0   000000031251 000001000001 000000031251 
FT4RQ	031250 000001 0   0   000000031251 000001000001 000000031251 
FT4A	031250 000001 0   0   000001000001 000000031251 000000031251 
FT9	031251 000001 0   0   000001000001 000000031251 000000031251 
ET0	031251 000001 0   0   000000031251 0            000000031251 
ET1	031251 031251 0   0   0            0            000000031251 
ET2	031251 031251 0   0   0            0            000000031251 
ST1	031251 031251 0   0   0            0            000000031251 
ST2	031251 031251 0   0   0            0            000000031251 
ST9	031251 031251 0   0   0            0            000000031251 


*031251 CAME	0,032227
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031251 031251 0   0   312000032227 0            0            
IT1	031251 0      0   0   312000032227 0            0            
AT3	031251 0      0   0   000000032227 0            312000032227 
AT6	031251 032227 0   0   000000032227 0            312000032227 
FT0	031251 032227 0   0   0            0            312000032227 
FT1A	031251 032227 0   0   0            0            0            
FT2	031251 032227 0   0   0            0            0            
FT2RQ	031251 032227 0   0   0            0            0            
FT3	031251 032227 0   0   0            0            0            
FT9	031252 032227 0   0   0            0            0            
ET0	031253 032227 0   0   0            0            0            
ST1A	031253 032227 0   0   0            0            0            
ST9	031253 032227 0   0   0            0            0            


*031253 JUMPA	0,031254
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031253 031253 0   0   324000031254 0            000000031254 
IT1	031253 0      0   0   324000031254 0            000000031254 
AT3	031253 0      0   0   000000031254 0            324000031254 
AT6	031253 031254 0   0   000000031254 0            324000031254 
FT1A	031253 031254 0   0   000000031254 0            000000031254 
FT2	031253 031254 0   0   0            0            000000031254 
FT2RQ	031253 031254 0   0   0            0            000000031254 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 82
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0171

FT3	031253 031254 0   0   0            0            000000031254 
FT9	031254 031254 0   0   0            0            000000031254 
ET0	031254 031254 0   0   0            0            000000031254 
ST1A	031254 031254 0   0   0            0            000000031254 
ST9	031254 031254 0   0   0            0            000000031254 


*031254 MOVE 	0,032223
INITIAL
C(AC)=000000 000000 
C(E)=000001 000001 
FINAL
C(AC)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031254 031254 0   0   200000032223 0            000001000001 
IT1	031254 0      0   0   200000032223 0            000001000001 
AT3	031254 0      0   0   000000032223 0            200000032223 
AT6	031254 032223 0   0   000000032223 0            200000032223 
FT0	031254 032223 0   0   000001000001 0            200000032223 
FT1A	031254 032223 0   0   000001000001 0            000001000001 
FT9	031255 032223 0   0   000001000001 0            000001000001 
ET0	031255 032223 0   0   000001000001 0            000001000001 
ST1	031255 032223 0   0   000001000001 0            000001000001 
ST2	031255 032223 0   0   000001000001 0            000001000001 
ST9	031255 032223 0   0   000001000001 0            000001000001 


*031255 MOVEI	1,031257
INITIAL
C(AC)=000000 031251 
FINAL
C(AC)=000000 031257 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031255 031255 0   0   201040031257 0            000000031257 
IT1	031255 0      0   0   201040031257 0            000000031257 
AT3	031255 0      0   0   000000031257 0            201040031257 
AT6	031255 031257 0   0   000000031257 0            201040031257 
FT1A	031255 031257 0   0   000000031257 0            000000031257 
FT9	031256 031257 0   0   000000031257 0            000000031257 
ET0	031256 031257 0   0   000000031257 0            000000031257 
ST1	031256 031257 0   0   000000031257 0            000000031257 
ST2	031256 031257 0   0   000000031257 0            000000031257 
ST9	031256 031257 0   0   000000031257 0            000000031257 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 83
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0172

*031256 POPJ	0,031260
INITIAL
C(AC)=000001 000001 
FINAL
C(AC)=000000 000000   C(C(ACR)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031256 031256 0   0   263000031260 0            000000031260 
IT1	031256 0      0   0   263000031260 0            000000031260 
AT3	031256 0      0   0   000000031260 0            263000031260 
AT6	031256 031260 0   0   000000031260 0            263000031260 
FT1A	031256 031260 0   0   000000031260 0            000000031260 
FT2	031256 031260 0   0   0            0            000000031260 
FT2RQ	031256 031260 0   0   000001000001 0            000000031260 
FT3	031256 031260 0   0   000001000001 0            000000031260 
FT7	031256 000001 0   0   000000031257 000001000001 000000031260 
FT4RQ	031256 000001 0   0   000000031257 000001000001 000000031260 
FT4A	031256 000001 0   0   000001000001 000000031257 000000031260 
FT9	031257 000001 0   0   000001000001 000000031257 000000031260 
ET0	031257 000001 0   0   000000031257 0            000000031260 
ET1	031257 031257 0   0   0            0            000000031260 
ET2	031257 031257 0   0   0            0            000000031260 
ST1	031257 031257 0   0   0            0            000000031260 
ST2	031257 031257 0   0   0            0            000000031260 
ST9	031257 031257 0   0   0            0            000000031260 


*031257 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	031257 031257 0   0   334000000000 0            0            
IT1	031257 0      0   0   334000000000 0            0            
AT3	031257 0      0   0   0            0            334000000000 
AT6	031257 0      0   0   0            0            334000000000 
FT0	031257 0      0   0   0            0            334000000000 
FT1A	031257 0      0   0   0            0            0            
FT9	031260 0      0   0   0            0            0            
ET0	031261 0      0   0   0            0            0            
ST1A	031261 0      0   0   0            0            0            
ST9	031261 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 84
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0173

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


*031262 HRLZI	2,000002
INITIAL
C(AC)=000000 777777 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031262 031262 0   0   515100000002 0            000000000002 
IT1	031262 0      0   0   515100000002 0            000000000002 
AT3	031262 0      0   0   000000000002 0            515100000002 
AT6	031262 000002 0   0   000000000002 0            515100000002 
FT1A	031262 000002 0   0   000000000002 0            000000000002 
FT9	031263 000002 0   0   000000000002 0            000000000002 
ET0	031263 000002 0   0   000002000000 0            000000000002 
ST1	031263 000002 0   0   000002000000 0            000000000002 
ST2	031263 000002 0   0   000002000000 0            000000000002 
ST9	031263 000002 0   0   000002000000 0            000000000002 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031263 031263 0   0   201000031265 0            000000031265 
IT1	031263 0      0   0   201000031265 0            000000031265 
AT3	031263 0      0   0   000000031265 0            201000031265 
AT6	031263 031265 0   0   000000031265 0            201000031265 
FT1A	031263 031265 0   0   000000031265 0            000000031265 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 85
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0174

FT9	031264 031265 0   0   000000031265 0            000000031265 
ET0	031264 031265 0   0   000000031265 0            000000031265 
ST1	031264 031265 0   0   000000031265 0            000000031265 
ST2	031264 031265 0   0   000000031265 0            000000031265 
ST9	031264 031265 0   0   000000031265 0            000000031265 


*031264 POPJ	2,000000
INITIAL
C(AC)=000002 000000 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031264 031264 0   0   263100000000 0            0            
IT1	031264 0      0   0   263100000000 0            0            
AT3	031264 0      0   0   0            0            263100000000 
AT6	031264 0      0   0   0            0            263100000000 
FT1A	031264 0      0   0   0            0            0            
FT2	031264 0      0   0   0            0            0            
FT2RQ	031264 0      0   0   000002000000 0            0            
FT3	031264 0      0   0   000002000000 0            0            
FT7	031264 0      0   0   000000031265 000002000000 0            
FT4RQ	031264 0      0   0   000000031265 000002000000 0            
FT4A	031264 0      0   0   000002000000 000000031265 0            
FT9	031265 0      0   0   000002000000 000000031265 0            
ET0	031265 0      0   0   000000031265 000000777777 0            
ET1	031265 031265 0   0   000000777777 000000777777 0            
ET2	031265 031265 0   0   000000777777 000000777777 0            
ST1	031265 031265 0   0   000000777777 000000777777 0            
ST2	031265 031265 0   0   000000777777 000000777777 0            
ST9	031265 031265 0   0   000000777777 000000777777 0            


*031265 CAIE	2,777777
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031265 031265 0   0   302100777777 0            000000777777 
IT1	031265 0      0   0   302100777777 0            000000777777 
AT3	031265 0      0   0   000000777777 0            302100777777 
AT6	031265 777777 0   0   000000777777 0            302100777777 
FT1A	031265 777777 0   0   000000777777 0            000000777777 
FT2	031265 777777 0   0   0            0            000000777777 
FT2RQ	031265 777777 0   0   000000777777 0            000000777777 
FT3	031265 777777 0   0   000000777777 0            000000777777 
FT9	031266 777777 0   0   000000777777 0            000000777777 
ET0	031267 777777 0   0   0            0            000000777777 
ST1A	031267 777777 0   0   0            0            000000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 86
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0175

ST9	031267 777777 0   0   0            0            000000777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031267 031267 0   0   324000031270 0            000000031270 
IT1	031267 0      0   0   324000031270 0            000000031270 
AT3	031267 0      0   0   000000031270 0            324000031270 
AT6	031267 031270 0   0   000000031270 0            324000031270 
FT1A	031267 031270 0   0   000000031270 0            000000031270 
FT2	031267 031270 0   0   0            0            000000031270 
FT2RQ	031267 031270 0   0   000000031265 0            000000031270 
FT3	031267 031270 0   0   000000031265 0            000000031270 
FT9	031270 031270 0   0   000000031265 0            000000031270 
ET0	031270 031270 0   0   000000031265 0            000000031270 
ST1A	031270 031270 0   0   000000031265 0            000000031270 
ST9	031270 031270 0   0   000000031265 0            000000031270 


*031270 SETOB	0,000001
INITIAL
C(AC)=000000 031265 
C(E)=000000 031257 
FINAL
C(AC)=777777 777777 
C(E)=000000 031257 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031270 031270 0   0   477000000001 0            000000000001 
IT1	031270 0      0   0   477000000001 0            000000000001 
AT3	031270 0      0   0   000000000001 0            477000000001 
AT6	031270 000001 0   0   000000000001 0            477000000001 
FT1A	031270 000001 0   0   000000000001 0            000000000001 
FT9	031271 000001 0   0   000000000001 0            000000000001 
ET0	031271 000001 0   0   777777777777 0            000000000001 
ST1	031271 000001 0   0   777777777777 0            000000000001 
ST2	031271 000001 0   0   777777777777 0            000000000001 
ST6	031271 000001 0   0   777777777777 0            000000000001 
ST6A	031271 000001 0   0   777777777777 0            000000000001 
ST9	031271 000001 0   0   777777777777 0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 87
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0176

*031271 XCT	0,032234

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031271 032234 0   0   312000000001 0            000000032234 
IT1	031271 0      0   0   312000000001 0            000000032234 
AT3	031271 0      0   0   000000000001 0            312000000001 
AT6	031271 000001 0   0   000000000001 0            312000000001 
FT0	031271 000001 0   0   777777777777 0            312000000001 
FT1A	031271 000001 0   0   777777777777 0            777777777777 
FT2	031271 000001 0   0   0            0            777777777777 
FT2RQ	031271 000001 0   0   777777777777 0            777777777777 
FT3	031271 000001 0   0   777777777777 0            777777777777 
FT9	031272 000001 0   0   777777777777 0            777777777777 
ET0	031273 000001 0   0   0            0            777777777777 
ST1A	031273 000001 0   0   0            0            777777777777 
ST9	031273 000001 0   0   0            0            777777777777 


*031273 JUMPA	0,031274
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031273 031273 0   0   324000031274 0            000000031274 
IT1	031273 0      0   0   324000031274 0            000000031274 
AT3	031273 0      0   0   000000031274 0            324000031274 
AT6	031273 031274 0   0   000000031274 0            324000031274 
FT1A	031273 031274 0   0   000000031274 0            000000031274 
FT2	031273 031274 0   0   0            0            000000031274 
FT2RQ	031273 031274 0   0   777777777777 0            000000031274 
FT3	031273 031274 0   0   777777777777 0            000000031274 
FT9	031274 031274 0   0   777777777777 0            000000031274 
ET0	031274 031274 0   0   777777777777 0            000000031274 
ST1A	031274 031274 0   0   777777777777 0            000000031274 
ST9	031274 031274 0   0   777777777777 0            000000031274 


*031274 SETOB	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	031274 031274 0   0   477000000001 0            000000000001 
IT1	031274 0      0   0   477000000001 0            000000000001 
AT3	031274 0      0   0   000000000001 0            477000000001 
AT6	031274 000001 0   0   000000000001 0            477000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 88
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0177

FT1A	031274 000001 0   0   000000000001 0            000000000001 
FT9	031275 000001 0   0   000000000001 0            000000000001 
ET0	031275 000001 0   0   777777777777 0            000000000001 
ST1	031275 000001 0   0   777777777777 0            000000000001 
ST2	031275 000001 0   0   777777777777 0            000000000001 
ST6	031275 000001 0   0   777777777777 0            000000000001 
ST6A	031275 000001 0   0   777777777777 0            000000000001 
ST9	031275 000001 0   0   777777777777 0            000000000001 


*031275 XCT	0,032236

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031275 032236 0   0   256000032235 0            000000032236 
IT1	031275 0      0   0   256000032235 0            000000032236 
AT3	031275 0      0   0   000000032235 0            256000032235 
AT6	031275 032235 0   0   000000032235 0            256000032235 
FT1A	031275 032235 0   0   000000032235 0            000000032235 
FT9	031275 032235 0   0   000000032235 0            000000032235 
ET0	031275 032235 0   0   000000032235 0            000000032235 
ST1A	031275 032235 0   0   000000032235 0            000000032235 
ST9	031275 032235 0   0   000000032235 0            000000032235 


*031275 XCT	0,032236

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031275 032234 0   0   312000000001 0            000000032234 
IT1	031275 0      0   0   312000000001 0            000000032234 
AT3	031275 0      0   0   000000000001 0            312000000001 
AT6	031275 000001 0   0   000000000001 0            312000000001 
FT0	031275 000001 0   0   777777777777 0            312000000001 
FT1A	031275 000001 0   0   777777777777 0            777777777777 
FT2	031275 000001 0   0   0            0            777777777777 
FT2RQ	031275 000001 0   0   777777777777 0            777777777777 
FT3	031275 000001 0   0   777777777777 0            777777777777 
FT9	031276 000001 0   0   777777777777 0            777777777777 
ET0	031277 000001 0   0   0            0            777777777777 
ST1A	031277 000001 0   0   0            0            777777777777 
ST9	031277 000001 0   0   0            0            777777777777 


*031277 JUMPA	0,031300
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031277 031277 0   0   324000031300 0            000000031300 
IT1	031277 0      0   0   324000031300 0            000000031300 
AT3	031277 0      0   0   000000031300 0            324000031300 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 89
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0178

AT6	031277 0      0   0   000000031300 0            324000031300 
FT1A	031277 0      0   0   000000031300 0            000000031300 
FT2	031277 0      0   0   0            0            000000031300 
FT2RQ	031277 0      0   0   777777777777 0            000000031300 
FT3	031277 0      0   0   777777777777 0            000000031300 
FT9	0      0      0   0   777777777777 0            000000031300 
ET0	0      0      0   0   777777777777 0            000000031300 
ST1A	0      0      0   0   777777777777 0            000000031300 
ST9	0      0      0   0   777777777777 0            000000031300 


*031300 XCT	0,032237

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      032237 0   0   254000031304 0            000000032237 
IT1	0      0      0   0   254000031304 0            000000032237 
AT3	0      0      0   0   000000031304 0            254000031304 
AT6	0      031304 0   0   000000031304 0            254000031304 
FT1A	0      031304 0   0   000000031304 0            254000031304 
FT9	031301 031304 0   0   000000031304 0            254000031304 
ET0	031304 031301 0   0   000000031304 0            254000031304 
ST1A	031304 031301 0   0   000000031304 0            254000031304 
ST9	031304 031301 0   0   000000031304 0            254000031304 


*031304 JUMPA	0,031305
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031304 031304 0   0   324000031305 0            000000031305 
IT1	031304 0      0   0   324000031305 0            000000031305 
AT3	031304 0      0   0   000000031305 0            324000031305 
AT6	031304 031305 0   0   000000031305 0            324000031305 
FT1A	031304 031305 0   0   000000031305 0            000000031305 
FT2	031304 031305 0   0   0            0            000000031305 
FT2RQ	031304 031305 0   0   777777777777 0            000000031305 
FT3	031304 031305 0   0   777777777777 0            000000031305 
FT9	031305 031305 0   0   777777777777 0            000000031305 
ET0	031305 031305 0   0   777777777777 0            000000031305 
ST1A	031305 031305 0   0   777777777777 0            000000031305 
ST9	031305 031305 0   0   777777777777 0            000000031305 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 90
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0179

*031305 SETZM	0,000003
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL

C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031305 031305 0   0   402000000003 0            000000000003 
IT1	031305 0      0   0   402000000003 0            000000000003 
AT3	031305 0      0   0   000000000003 0            402000000003 
AT6	031305 000003 0   0   000000000003 0            402000000003 
FT1A	031305 000003 0   0   000000000003 0            000000000003 
FT9	031306 000003 0   0   000000000003 0            000000000003 
ET0	031306 000003 0   0   0            0            000000000003 
ST6	031306 000003 0   0   0            0            000000000003 
ST6A	031306 000003 0   0   0            0            000000000003 
ST9	031306 000003 0   0   0            0            000000000003 


*031306 XCT	0,032242

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031306 032242 0   0   256000032241 0            000000032242 
IT1	031306 0      0   0   256000032241 0            000000032242 
AT3	031306 0      0   0   000000032241 0            256000032241 
AT6	031306 032241 0   0   000000032241 0            256000032241 
FT1A	031306 032241 0   0   000000032241 0            000000032241 
FT9	031306 032241 0   0   000000032241 0            000000032241 
ET0	031306 032241 0   0   000000032241 0            000000032241 
ST1A	031306 032241 0   0   000000032241 0            000000032241 
ST9	031306 032241 0   0   000000032241 0            000000032241 


*031306 XCT	0,032242

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031306 032240 0   0   265140031311 0            000000032240 
IT1	031306 0      0   0   265140031311 0            000000032240 
AT3	031306 0      0   0   000000031311 0            265140031311 
AT6	031306 031311 0   0   000000031311 0            265140031311 
FT1A	031306 031311 0   0   000000031311 0            000000031311 
FT9	031307 031311 0   0   000000031311 0            000000031311 
ET0	031311 031311 0   0   000000031307 0            000000031311 
ST1	031311 031311 0   0   000000031307 0            000000031311 
ST2	031311 031311 0   0   000000031307 0            000000031311 
ST9	031311 031311 0   0   000000031307 0            000000031311 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 91
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0180

*031311 TRZ 	3,031307
INITIAL
C(AC)=000000 031307 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031311 031311 0   0   620140031307 0            000000031307 
IT1	031311 0      0   0   620140031307 0            000000031307 
AT3	031311 0      0   0   000000031307 0            620140031307 
AT6	031311 031307 0   0   000000031307 0            620140031307 
FT1A	031311 031307 0   0   000000031307 0            000000031307 
FT2	031311 031307 0   0   0            0            000000031307 
FT2RQ	031311 031307 0   0   000000031307 0            000000031307 
FT3	031311 031307 0   0   000000031307 0            000000031307 
FT9	031312 031307 0   0   000000031307 0            000000031307 
ET0	031312 031307 0   0   000000031307 0            000000031307 
ET1	031312 031307 0   0   0            0            000000031307 
ET2	031312 031307 0   0   0            0            000000031307 
ST1	031312 031307 0   0   0            0            000000031307 
ST2	031312 031307 0   0   0            0            000000031307 
ST9	031312 031307 0   0   0            0            000000031307 


*031312 TRNE	3,777777
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031312 031312 0   0   602140777777 0            0            
IT1	031312 0      0   0   602140777777 0            0            
AT3	031312 0      0   0   000000777777 0            602140777777 
AT6	031312 777777 0   0   000000777777 0            602140777777 
FT1A	031312 777777 0   0   000000777777 0            000000777777 
FT2	031312 777777 0   0   0            0            000000777777 
FT2RQ	031312 777777 0   0   0            0            000000777777 
FT3	031312 777777 0   0   0            0            000000777777 
FT9	031313 777777 0   0   0            0            000000777777 
ET0	031313 777777 0   0   0            0            000000777777 
ET1	031313 777777 0   0   0            0            0            
ET2	031314 777777 0   0   0            0            0            
ST1A	031314 777777 0   0   0            0            0            
ST9	031314 777777 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 92
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0181

*031314 JUMPA	0,031315
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031314 031314 0   0   324000031315 0            000000031315 
IT1	031314 0      0   0   324000031315 0            000000031315 
AT3	031314 0      0   0   000000031315 0            324000031315 
AT6	031314 031315 0   0   000000031315 0            324000031315 
FT1A	031314 031315 0   0   000000031315 0            000000031315 
FT2	031314 031315 0   0   0            0            000000031315 
FT2RQ	031314 031315 0   0   777777777777 0            000000031315 
FT3	031314 031315 0   0   777777777777 0            000000031315 
FT9	031315 031315 0   0   777777777777 0            000000031315 
ET0	031315 031315 0   0   777777777777 0            000000031315 
ST1A	031315 031315 0   0   777777777777 0            000000031315 
ST9	031315 031315 0   0   777777777777 0            000000031315 


*031315 SETZB	0,000000
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	031315 031315 0   0   403000000000 0            0            
IT1	031315 0      0   0   403000000000 0            0            
AT3	031315 0      0   0   0            0            403000000000 
AT6	031315 0      0   0   0            0            403000000000 
FT1A	031315 0      0   0   0            0            0            
FT9	031316 0      0   0   0            0            0            
ET0	031316 0      0   0   0            0            0            
ST1	031316 0      0   0   0            0            0            
ST2	031316 0      0   0   0            0            0            
ST6	031316 0      0   0   0            0            0            
ST6A	031316 0      0   0   0            0            0            
ST9	031316 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 93
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0182

*031316 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	031316 031316 0   0   476000000001 0            000000000001 
IT1	031316 0      0   0   476000000001 0            000000000001 
AT3	031316 0      0   0   000000000001 0            476000000001 
AT6	031316 000001 0   0   000000000001 0            476000000001 
FT1A	031316 000001 0   0   000000000001 0            000000000001 
FT9	031317 000001 0   0   000000000001 0            000000000001 
ET0	031317 000001 0   0   777777777777 0            000000000001 
ST6	031317 000001 0   0   777777777777 0            000000000001 
ST6A	031317 000001 0   0   777777777777 0            000000000001 
ST9	031317 000001 0   0   777777777777 0            000000000001 


*031317 XCT	0,032234

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031317 032234 0   0   312000000001 0            000000032234 
IT1	031317 0      0   0   312000000001 0            000000032234 
AT3	031317 0      0   0   000000000001 0            312000000001 
AT6	031317 000001 0   0   000000000001 0            312000000001 
FT0	031317 000001 0   0   777777777777 0            312000000001 
FT1A	031317 000001 0   0   777777777777 0            777777777777 
FT2	031317 000001 0   0   0            0            777777777777 
FT2RQ	031317 000001 0   0   0            0            777777777777 
FT3	031317 000001 0   0   0            0            777777777777 
FT9	031320 000001 0   0   0            0            777777777777 
ET0	031320 000001 0   0   000000000001 0            777777777777 
ST1A	031320 000001 0   0   000000000001 0            777777777777 
ST9	031320 000001 0   0   000000000001 0            777777777777 


*031320 JRST	0,031322
INITIAL
C(AC)=000000 000000 
C(E)=324000 031323 
FINAL

C(E)=324000 031323 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031320 031320 0   0   254000031322 0            254000031322 
IT1	031320 0      0   0   254000031322 0            254000031322 
AT3	031320 0      0   0   000000031322 0            254000031322 
AT6	031320 031322 0   0   000000031322 0            254000031322 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 94
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0183

FT1A	031320 031322 0   0   000000031322 0            254000031322 
FT9	031321 031322 0   0   000000031322 0            254000031322 
ET0	031322 031321 0   0   000000031322 0            254000031322 
ST1A	031322 031321 0   0   000000031322 0            254000031322 
ST9	031322 031321 0   0   000000031322 0            254000031322 


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


*031323 MOVEI	4,000010
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031323 031323 0   0   201200000010 0            000000000010 
IT1	031323 0      0   0   201200000010 0            000000000010 
AT3	031323 0      0   0   000000000010 0            201200000010 
AT6	031323 000010 0   0   000000000010 0            201200000010 
FT1A	031323 000010 0   0   000000000010 0            000000000010 
FT9	031324 000010 0   0   000000000010 0            000000000010 
ET0	031324 000010 0   0   000000000010 0            000000000010 
ST1	031324 000010 0   0   000000000010 0            000000000010 
ST2	031324 000010 0   0   000000000010 0            000000000010 
ST9	031324 000010 0   0   000000000010 0            000000000010 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 95
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0184

*031324 MOVEI	11,000013
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000013 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031324 031324 0   0   201440000013 0            000000000013 
IT1	031324 0      0   0   201440000013 0            000000000013 
AT3	031324 0      0   0   000000000013 0            201440000013 
AT6	031324 000013 0   0   000000000013 0            201440000013 
FT1A	031324 000013 0   0   000000000013 0            000000000013 
FT9	031325 000013 0   0   000000000013 0            000000000013 
ET0	031325 000013 0   0   000000000013 0            000000000013 
ST1	031325 000013 0   0   000000000013 0            000000000013 
ST2	031325 000013 0   0   000000000013 0            000000000013 
ST9	031325 000013 0   0   000000000013 0            000000000013 


*031325 MOVEI	6,000003
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031325 031325 0   0   201300000003 0            000000000003 
IT1	031325 0      0   0   201300000003 0            000000000003 
AT3	031325 0      0   0   000000000003 0            201300000003 
AT6	031325 000003 0   0   000000000003 0            201300000003 
FT1A	031325 000003 0   0   000000000003 0            000000000003 
FT9	031326 000003 0   0   000000000003 0            000000000003 
ET0	031326 000003 0   0   000000000003 0            000000000003 
ST1	031326 000003 0   0   000000000003 0            000000000003 
ST2	031326 000003 0   0   000000000003 0            000000000003 
ST9	031326 000003 0   0   000000000003 0            000000000003 


*031326 XCT	0,032243

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031326 032243 0   0   270304000001 0            000000032243 
IT1	031326 0      0   0   270304000001 0            000000032243 
AT1	031326 0      0   0   0            0            270304000001 
AT2	031326 0      0   0   000000000010 0            270304000001 
AT3	031326 0      0   0   000000000011 0            000000000011 
AT6	031326 000011 0   0   000000000011 0            000000000011 
FT0	031326 000011 0   0   000000000013 0            000000000011 
FT1A	031326 000011 0   0   000000000013 0            000000000013 
FT2	031326 000011 0   0   0            0            000000000013 
FT2RQ	031326 000011 0   0   000000000003 0            000000000013 
FT3	031326 000011 0   0   000000000003 0            000000000013 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 96
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0185

FT9	031327 000011 0   0   000000000003 0            000000000013 
ET0	031327 000011 0   0   000000000016 0            000000000013 
ST1	031327 000011 0   0   000000000016 0            000000000013 
ST2	031327 000011 0   0   000000000016 0            000000000013 
ST9	031327 000011 0   0   000000000016 0            000000000013 


*031327 CAIE	6,000016
INITIAL
C(AC)=000000 000016 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031327 031327 0   0   302300000016 0            000000000016 
IT1	031327 0      0   0   302300000016 0            000000000016 
AT3	031327 0      0   0   000000000016 0            302300000016 
AT6	031327 000016 0   0   000000000016 0            302300000016 
FT1A	031327 000016 0   0   000000000016 0            000000000016 
FT2	031327 000016 0   0   0            0            000000000016 
FT2RQ	031327 000016 0   0   000000000016 0            000000000016 
FT3	031327 000016 0   0   000000000016 0            000000000016 
FT9	031330 000016 0   0   000000000016 0            000000000016 
ET0	031331 000016 0   0   0            0            000000000016 
ST1A	031331 000016 0   0   0            0            000000000016 
ST9	031331 000016 0   0   0            0            000000000016 


*031331 JUMPA	0,031332
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031331 031331 0   0   324000031332 0            000000031332 
IT1	031331 0      0   0   324000031332 0            000000031332 
AT3	031331 0      0   0   000000031332 0            324000031332 
AT6	031331 031332 0   0   000000031332 0            324000031332 
FT1A	031331 031332 0   0   000000031332 0            000000031332 
FT2	031331 031332 0   0   0            0            000000031332 
FT2RQ	031331 031332 0   0   0            0            000000031332 
FT3	031331 031332 0   0   0            0            000000031332 
FT9	031332 031332 0   0   0            0            000000031332 
ET0	031332 031332 0   0   0            0            000000031332 
ST1A	031332 031332 0   0   0            0            000000031332 
ST9	031332 031332 0   0   0            0            000000031332 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 97
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0186

*031332 SETZM	0,000002
INITIAL
C(AC)=000000 000000 
C(E)=000000 777777 
FINAL

C(E)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031332 031332 0   0   402000000002 0            000000000002 
IT1	031332 0      0   0   402000000002 0            000000000002 
AT3	031332 0      0   0   000000000002 0            402000000002 
AT6	031332 000002 0   0   000000000002 0            402000000002 
FT1A	031332 000002 0   0   000000000002 0            000000000002 
FT9	031333 000002 0   0   000000000002 0            000000000002 
ET0	031333 000002 0   0   0            0            000000000002 
ST6	031333 000002 0   0   0            0            000000000002 
ST6A	031333 000002 0   0   0            0            000000000002 
ST9	031333 000002 0   0   0            0            000000000002 


*031333 XCT	0,032244

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031333 032244 0   0   331040000002 0            000000032244 
IT1	031333 0      0   0   331040000002 0            000000032244 
AT3	031333 0      0   0   000000000002 0            331040000002 
AT6	031333 000002 0   0   000000000002 0            331040000002 
FT0	031333 000002 0   0   0            0            331040000002 
FT1A	031333 000002 0   0   0            0            0            
FT9	031334 000002 0   0   0            0            0            
ET0	031334 000002 0   0   0            0            0            
ST1	031334 000002 0   0   0            0            0            
ST2	031334 000002 0   0   0            0            0            
ST9	031334 000002 0   0   0            0            0            


*031334 JRST	0,031336
INITIAL
C(AC)=000000 000000 
C(E)=324000 031337 
FINAL

C(E)=324000 031337 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031334 031334 0   0   254000031336 0            254000031336 
IT1	031334 0      0   0   254000031336 0            254000031336 
AT3	031334 0      0   0   000000031336 0            254000031336 
AT6	031334 031336 0   0   000000031336 0            254000031336 
FT1A	031334 031336 0   0   000000031336 0            254000031336 
FT9	031335 031336 0   0   000000031336 0            254000031336 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 98
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0187

ET0	031336 031335 0   0   000000031336 0            254000031336 
ST1A	031336 031335 0   0   000000031336 0            254000031336 
ST9	031336 031335 0   0   000000031336 0            254000031336 


*031336 JUMPA	0,031337
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031336 031336 0   0   324000031337 0            000000031337 
IT1	031336 0      0   0   324000031337 0            000000031337 
AT3	031336 0      0   0   000000031337 0            324000031337 
AT6	031336 031337 0   0   000000031337 0            324000031337 
FT1A	031336 031337 0   0   000000031337 0            000000031337 
FT2	031336 031337 0   0   0            0            000000031337 
FT2RQ	031336 031337 0   0   0            0            000000031337 
FT3	031336 031337 0   0   0            0            000000031337 
FT9	031337 031337 0   0   0            0            000000031337 
ET0	031337 031337 0   0   0            0            000000031337 
ST1A	031337 031337 0   0   0            0            000000031337 
ST9	031337 031337 0   0   0            0            000000031337 


*031337 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	031337 031337 0   0   332000000001 0            0            
IT1	031337 0      0   0   332000000001 0            0            
AT3	031337 0      0   0   000000000001 0            332000000001 
AT6	031337 000001 0   0   000000000001 0            332000000001 
FT0	031337 000001 0   0   0            0            332000000001 
FT1A	031337 000001 0   0   0            0            0            
FT9	031340 000001 0   0   0            0            0            
ET0	031341 000001 0   0   0            0            0            
ST1A	031341 000001 0   0   0            0            0            
ST9	031341 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 99
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0188

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


*031342 SETOM	0,000006
INITIAL
C(AC)=000000 000000 
C(E)=000000 000016 
FINAL

C(E)=000000 000016 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031342 031342 0   0   476000000006 0            000000000006 
IT1	031342 0      0   0   476000000006 0            000000000006 
AT3	031342 0      0   0   000000000006 0            476000000006 
AT6	031342 000006 0   0   000000000006 0            476000000006 
FT1A	031342 000006 0   0   000000000006 0            000000000006 
FT9	031343 000006 0   0   000000000006 0            000000000006 
ET0	031343 000006 0   0   777777777777 0            000000000006 
ST6	031343 000006 0   0   777777777777 0            000000000006 
ST6A	031343 000006 0   0   777777777777 0            000000000006 
ST9	031343 000006 0   0   777777777777 0            000000000006 


*031343 XCT	0,032245

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031343 032245 0   0   331140000006 0            000000032245 
IT1	031343 0      0   0   331140000006 0            000000032245 
AT3	031343 0      0   0   000000000006 0            331140000006 
AT6	031343 000006 0   0   000000000006 0            331140000006 
FT0	031343 000006 0   0   777777777777 0            331140000006 
FT1A	031343 000006 0   0   777777777777 0            777777777777 
FT9	031344 000006 0   0   777777777777 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 100
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0189

ET0	031345 000006 0   0   777777777777 0            777777777777 
ST1	031345 000006 0   0   777777777777 0            777777777777 
ST2	031345 000006 0   0   777777777777 0            777777777777 
ST9	031345 000006 0   0   777777777777 0            777777777777 


*031345 JUMPA	0,031346
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031345 031345 0   0   324000031346 0            000000031346 
IT1	031345 0      0   0   324000031346 0            000000031346 
AT3	031345 0      0   0   000000031346 0            324000031346 
AT6	031345 031346 0   0   000000031346 0            324000031346 
FT1A	031345 031346 0   0   000000031346 0            000000031346 
FT2	031345 031346 0   0   0            0            000000031346 
FT2RQ	031345 031346 0   0   0            0            000000031346 
FT3	031345 031346 0   0   0            0            000000031346 
FT9	031346 031346 0   0   0            0            000000031346 
ET0	031346 031346 0   0   0            0            000000031346 
ST1A	031346 031346 0   0   0            0            000000031346 
ST9	031346 031346 0   0   0            0            000000031346 


*031346 SKIPL	0,000003
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031346 031346 0   0   331000000003 0            777777777777 
IT1	031346 0      0   0   331000000003 0            777777777777 
AT3	031346 0      0   0   000000000003 0            331000000003 
AT6	031346 000003 0   0   000000000003 0            331000000003 
FT0	031346 000003 0   0   777777777777 0            331000000003 
FT1A	031346 000003 0   0   777777777777 0            777777777777 
FT9	031347 000003 0   0   777777777777 0            777777777777 
ET0	031350 000003 0   0   777777777777 0            777777777777 
ST1A	031350 000003 0   0   777777777777 0            777777777777 
ST9	031350 000003 0   0   777777777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 101
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0190

*031350 JUMPA	0,031351
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031350 031350 0   0   324000031351 0            000000031351 
IT1	031350 0      0   0   324000031351 0            000000031351 
AT3	031350 0      0   0   000000031351 0            324000031351 
AT6	031350 031351 0   0   000000031351 0            324000031351 
FT1A	031350 031351 0   0   000000031351 0            000000031351 
FT2	031350 031351 0   0   0            0            000000031351 
FT2RQ	031350 031351 0   0   0            0            000000031351 
FT3	031350 031351 0   0   0            0            000000031351 
FT9	031351 031351 0   0   0            0            000000031351 
ET0	031351 031351 0   0   0            0            000000031351 
ST1A	031351 031351 0   0   0            0            000000031351 
ST9	031351 031351 0   0   0            0            000000031351 


*031351 MOVE 	3,032246
INITIAL
C(AC)=777777 777777 
C(E)=777776 000005 
FINAL
C(AC)=777776 000005 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031351 031351 0   0   200140032246 0            777776000005 
IT1	031351 0      0   0   200140032246 0            777776000005 
AT3	031351 0      0   0   000000032246 0            200140032246 
AT6	031351 032246 0   0   000000032246 0            200140032246 
FT0	031351 032246 0   0   777776000005 0            200140032246 
FT1A	031351 032246 0   0   777776000005 0            777776000005 
FT9	031352 032246 0   0   777776000005 0            777776000005 
ET0	031352 032246 0   0   777776000005 0            777776000005 
ST1	031352 032246 0   0   777776000005 0            777776000005 
ST2	031352 032246 0   0   777776000005 0            777776000005 
ST9	031352 032246 0   0   777776000005 0            777776000005 


*031352 XCT	0,032247

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031352 032247 0   0   253140031355 0            000000032247 
IT1	031352 0      0   0   253140031355 0            000000032247 
AT3	031352 0      0   0   000000031355 0            253140031355 
AT6	031352 031355 0   0   000000031355 0            253140031355 
FT1A	031352 031355 0   0   000000031355 0            000000031355 
FT2	031352 031355 0   0   0            0            000000031355 
FT2RQ	031352 031355 0   0   777776000005 0            000000031355 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 102
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0191

FT3	031352 031355 0   0   777776000005 0            000000031355 
FT9	031353 031355 0   0   777776000005 0            000000031355 
ET0	031355 031355 0   0   777777000006 0            000000031355 
ST1	031355 031355 0   0   777777000006 0            000000031355 
ST2	031355 031355 0   0   777777000006 0            000000031355 
ST9	031355 031355 0   0   777777000006 0            000000031355 


*031355 CAME	3,032250
INITIAL
C(AC)=777777 000006 
C(E)=777777 000006 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031355 031355 0   0   312140032250 0            777777000006 
IT1	031355 0      0   0   312140032250 0            777777000006 
AT3	031355 0      0   0   000000032250 0            312140032250 
AT6	031355 032250 0   0   000000032250 0            312140032250 
FT0	031355 032250 0   0   777777000006 0            312140032250 
FT1A	031355 032250 0   0   777777000006 0            777777000006 
FT2	031355 032250 0   0   0            0            777777000006 
FT2RQ	031355 032250 0   0   777777000006 0            777777000006 
FT3	031355 032250 0   0   777777000006 0            777777000006 
FT9	031356 032250 0   0   777777000006 0            777777000006 
ET0	031357 032250 0   0   0            0            777777000006 
ST1A	031357 032250 0   0   0            0            777777000006 
ST9	031357 032250 0   0   0            0            777777000006 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031357 031357 0   0   324000031360 0            000000031360 
IT1	031357 0      0   0   324000031360 0            000000031360 
AT3	031357 0      0   0   000000031360 0            324000031360 
AT6	031357 031360 0   0   000000031360 0            324000031360 
FT1A	031357 031360 0   0   000000031360 0            000000031360 
FT2	031357 031360 0   0   0            0            000000031360 
FT2RQ	031357 031360 0   0   0            0            000000031360 
FT3	031357 031360 0   0   0            0            000000031360 
FT9	031360 031360 0   0   0            0            000000031360 
ET0	031360 031360 0   0   0            0            000000031360 
ST1A	031360 031360 0   0   0            0            000000031360 
ST9	031360 031360 0   0   0            0            000000031360 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 103
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0192

*031360 MOVE 	3,032250
INITIAL
C(AC)=777777 000006 
C(E)=777777 000006 
FINAL
C(AC)=777777 000006 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031360 031360 0   0   200140032250 0            777777000006 
IT1	031360 0      0   0   200140032250 0            777777000006 
AT3	031360 0      0   0   000000032250 0            200140032250 
AT6	031360 032250 0   0   000000032250 0            200140032250 
FT0	031360 032250 0   0   777777000006 0            200140032250 
FT1A	031360 032250 0   0   777777000006 0            777777000006 
FT9	031361 032250 0   0   777777000006 0            777777000006 
ET0	031361 032250 0   0   777777000006 0            777777000006 
ST1	031361 032250 0   0   777777000006 0            777777000006 
ST2	031361 032250 0   0   777777000006 0            777777000006 
ST9	031361 032250 0   0   777777000006 0            777777000006 


*031361 XCT	0,032251

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031361 032251 0   0   253140031363 0            000000032251 
IT1	031361 0      0   0   253140031363 0            000000032251 
AT3	031361 0      0   0   000000031363 0            253140031363 
AT6	031361 031363 0   0   000000031363 0            253140031363 
FT1A	031361 031363 0   0   000000031363 0            000000031363 
FT2	031361 031363 0   0   0            0            000000031363 
FT2RQ	031361 031363 0   0   777777000006 0            000000031363 
FT3	031361 031363 0   0   777777000006 0            000000031363 
FT9	031362 031363 0   0   777777000006 0            000000031363 
ET0	031362 031363 0   0   000000000007 0            000000031363 
ST1	031362 031363 0   0   000000000007 0            000000031363 
ST2	031362 031363 0   0   000000000007 0            000000031363 
ST9	031362 031363 0   0   000000000007 0            000000031363 


*031362 CAME	3,032252
INITIAL
C(AC)=000000 000007 
C(E)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031362 031362 0   0   312140032252 0            000000000007 
IT1	031362 0      0   0   312140032252 0            000000000007 
AT3	031362 0      0   0   000000032252 0            312140032252 
AT6	031362 032252 0   0   000000032252 0            312140032252 
FT0	031362 032252 0   0   000000000007 0            312140032252 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 104
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0193

FT1A	031362 032252 0   0   000000000007 0            000000000007 
FT2	031362 032252 0   0   0            0            000000000007 
FT2RQ	031362 032252 0   0   000000000007 0            000000000007 
FT3	031362 032252 0   0   000000000007 0            000000000007 
FT9	031363 032252 0   0   000000000007 0            000000000007 
ET0	031364 032252 0   0   0            0            000000000007 
ST1A	031364 032252 0   0   0            0            000000000007 
ST9	031364 032252 0   0   0            0            000000000007 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031364 031364 0   0   324000031365 0            000000031365 
IT1	031364 0      0   0   324000031365 0            000000031365 
AT3	031364 0      0   0   000000031365 0            324000031365 
AT6	031364 031365 0   0   000000031365 0            324000031365 
FT1A	031364 031365 0   0   000000031365 0            000000031365 
FT2	031364 031365 0   0   0            0            000000031365 
FT2RQ	031364 031365 0   0   0            0            000000031365 
FT3	031364 031365 0   0   0            0            000000031365 
FT9	031365 031365 0   0   0            0            000000031365 
ET0	031365 031365 0   0   0            0            000000031365 
ST1A	031365 031365 0   0   0            0            000000031365 
ST9	031365 031365 0   0   0            0            000000031365 


*031365 SETZB	0,000002
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	031365 031365 0   0   403000000002 0            000000000002 
IT1	031365 0      0   0   403000000002 0            000000000002 
AT3	031365 0      0   0   000000000002 0            403000000002 
AT6	031365 000002 0   0   000000000002 0            403000000002 
FT1A	031365 000002 0   0   000000000002 0            000000000002 
FT9	031366 000002 0   0   000000000002 0            000000000002 
ET0	031366 000002 0   0   0            0            000000000002 
ST1	031366 000002 0   0   0            0            000000000002 
ST2	031366 000002 0   0   0            0            000000000002 
ST6	031366 000002 0   0   0            0            000000000002 
ST6A	031366 000002 0   0   0            0            000000000002 
ST9	031366 000002 0   0   0            0            000000000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 105
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0194



*031366 JRST	0,031371
INITIAL
C(AC)=000000 000000 
C(E)=256020 031367 
FINAL

C(E)=256020 031367 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031366 031366 0   0   254000031371 0            254000031371 
IT1	031366 0      0   0   254000031371 0            254000031371 
AT3	031366 0      0   0   000000031371 0            254000031371 
AT6	031366 031371 0   0   000000031371 0            254000031371 
FT1A	031366 031371 0   0   000000031371 0            254000031371 
FT9	031367 031371 0   0   000000031371 0            254000031371 
ET0	031371 031367 0   0   000000031371 0            254000031371 
ST1A	031371 031367 0   0   000000031371 0            254000031371 
ST9	031371 031367 0   0   000000031371 0            254000031371 


*031371 XCT	0,@031367

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031371 031370 0   0   476000000002 0            000000031370 
IT1	031371 0      0   0   476000000002 0            000000031370 
AT3	031371 0      0   0   000000000002 0            476000000002 
AT6	031371 000002 0   0   000000000002 0            476000000002 
FT1A	031371 000002 0   0   000000000002 0            000000000002 
FT9	031372 000002 0   0   000000000002 0            000000000002 
ET0	031372 000002 0   0   777777777777 0            000000000002 
ST6	031372 000002 0   0   777777777777 0            000000000002 
ST6A	031372 000002 0   0   777777777777 0            000000000002 
ST9	031372 000002 0   0   777777777777 0            000000000002 


*031372 CAME	2,032226
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031372 031372 0   0   312100032226 0            777777777777 
IT1	031372 0      0   0   312100032226 0            777777777777 
AT3	031372 0      0   0   000000032226 0            312100032226 
AT6	031372 032226 0   0   000000032226 0            312100032226 
FT0	031372 032226 0   0   777777777777 0            312100032226 
FT1A	031372 032226 0   0   777777777777 0            777777777777 
FT2	031372 032226 0   0   0            0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 106
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0195

FT2RQ	031372 032226 0   0   777777777777 0            777777777777 
FT3	031372 032226 0   0   777777777777 0            777777777777 
FT9	031373 032226 0   0   777777777777 0            777777777777 
ET0	031374 032226 0   0   0            0            777777777777 
ST1A	031374 032226 0   0   0            0            777777777777 
ST9	031374 032226 0   0   0            0            777777777777 


*031374 JUMPA	0,031375
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031374 031374 0   0   324000031375 0            000000031375 
IT1	031374 0      0   0   324000031375 0            000000031375 
AT3	031374 0      0   0   000000031375 0            324000031375 
AT6	031374 031375 0   0   000000031375 0            324000031375 
FT1A	031374 031375 0   0   000000031375 0            000000031375 
FT2	031374 031375 0   0   0            0            000000031375 
FT2RQ	031374 031375 0   0   0            0            000000031375 
FT3	031374 031375 0   0   0            0            000000031375 
FT9	031375 031375 0   0   0            0            000000031375 
ET0	031375 031375 0   0   0            0            000000031375 
ST1A	031375 031375 0   0   0            0            000000031375 
ST9	031375 031375 0   0   0            0            000000031375 


*031375 MOVEI	4,031376
INITIAL
C(AC)=000000 000010 
FINAL
C(AC)=000000 031376 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031375 031375 0   0   201200031376 0            000000031376 
IT1	031375 0      0   0   201200031376 0            000000031376 
AT3	031375 0      0   0   000000031376 0            201200031376 
AT6	031375 031376 0   0   000000031376 0            201200031376 
FT1A	031375 031376 0   0   000000031376 0            000000031376 
FT9	031376 031376 0   0   000000031376 0            000000031376 
ET0	031376 031376 0   0   000000031376 0            000000031376 
ST1	031376 031376 0   0   000000031376 0            000000031376 
ST2	031376 031376 0   0   000000031376 0            000000031376 
ST9	031376 031376 0   0   000000031376 0            000000031376 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 107
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0196

*031376 JRST	0,031400
INITIAL
C(AC)=000000 000000 
C(E)=256004 000001 
FINAL

C(E)=256004 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031376 031376 0   0   254000031400 0            254000031400 
IT1	031376 0      0   0   254000031400 0            254000031400 
AT3	031376 0      0   0   000000031400 0            254000031400 
AT6	031376 0      0   0   000000031400 0            254000031400 
FT1A	031376 0      0   0   000000031400 0            254000031400 
FT9	031377 0      0   0   000000031400 0            254000031400 
ET0	0      031377 0   0   000000031400 0            254000031400 
ST1A	0      031377 0   0   000000031400 0            254000031400 
ST9	0      031377 0   0   000000031400 0            254000031400 


*031400 XCT	0,000001(4)

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      031377 0   0   302200031376 0            000000031377 
IT1	0      0      0   0   302200031376 0            000000031377 
AT3	0      0      0   0   000000031376 0            302200031376 
AT6	0      031376 0   0   000000031376 0            302200031376 
FT1A	0      031376 0   0   000000031376 0            000000031376 
FT2	0      031376 0   0   0            0            000000031376 
FT2RQ	0      031376 0   0   000000031376 0            000000031376 
FT3	0      031376 0   0   000000031376 0            000000031376 
FT9	031401 031376 0   0   000000031376 0            000000031376 
ET0	031402 031376 0   0   0            0            000000031376 
ST1A	031402 031376 0   0   0            0            000000031376 
ST9	031402 031376 0   0   0            0            000000031376 


*031402 JUMPA	0,031403
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031402 031402 0   0   324000031403 0            000000031403 
IT1	031402 0      0   0   324000031403 0            000000031403 
AT3	031402 0      0   0   000000031403 0            324000031403 
AT6	031402 031403 0   0   000000031403 0            324000031403 
FT1A	031402 031403 0   0   000000031403 0            000000031403 
FT2	031402 031403 0   0   0            0            000000031403 
FT2RQ	031402 031403 0   0   0            0            000000031403 
FT3	031402 031403 0   0   0            0            000000031403 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 108
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0197

FT9	031403 031403 0   0   0            0            000000031403 
ET0	031403 031403 0   0   0            0            000000031403 
ST1A	031403 031403 0   0   0            0            000000031403 
ST9	031403 031403 0   0   0            0            000000031403 


*031403 SETZM	0,000005
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031403 031403 0   0   402000000005 0            000000000005 
IT1	031403 0      0   0   402000000005 0            000000000005 
AT3	031403 0      0   0   000000000005 0            402000000005 
AT6	031403 000005 0   0   000000000005 0            402000000005 
FT1A	031403 000005 0   0   000000000005 0            000000000005 
FT9	031404 000005 0   0   000000000005 0            000000000005 
ET0	031404 000005 0   0   0            0            000000000005 
ST6	031404 000005 0   0   0            0            000000000005 
ST6A	031404 000005 0   0   0            0            000000000005 
ST9	031404 000005 0   0   0            0            000000000005 


*031404 MOVEI	3,031407
INITIAL
C(AC)=000000 000007 
FINAL
C(AC)=000000 031407 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031404 031404 0   0   201140031407 0            000000031407 
IT1	031404 0      0   0   201140031407 0            000000031407 
AT3	031404 0      0   0   000000031407 0            201140031407 
AT6	031404 031407 0   0   000000031407 0            201140031407 
FT1A	031404 031407 0   0   000000031407 0            000000031407 
FT9	031405 031407 0   0   000000031407 0            000000031407 
ET0	031405 031407 0   0   000000031407 0            000000031407 
ST1	031405 031407 0   0   000000031407 0            000000031407 
ST2	031405 031407 0   0   000000031407 0            000000031407 
ST9	031405 031407 0   0   000000031407 0            000000031407 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 109
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0198

*031405 JRST	0,031407
INITIAL
C(AC)=000000 000000 
C(E)=256023 777777 
FINAL

C(E)=256023 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031405 031405 0   0   254000031407 0            254000031407 
IT1	031405 0      0   0   254000031407 0            254000031407 
AT3	031405 0      0   0   000000031407 0            254000031407 
AT6	031405 031407 0   0   000000031407 0            254000031407 
FT1A	031405 031407 0   0   000000031407 0            254000031407 
FT9	031406 031407 0   0   000000031407 0            254000031407 
ET0	031407 031406 0   0   000000031407 0            254000031407 
ST1A	031407 031406 0   0   000000031407 0            254000031407 
ST9	031407 031406 0   0   000000031407 0            254000031407 


*031407 XCT	0,@777777(3)

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031407 031411 0   0   476000000005 0            000000031411 
IT1	031407 0      0   0   476000000005 0            000000031411 
AT3	031407 0      0   0   000000000005 0            476000000005 
AT6	031407 000005 0   0   000000000005 0            476000000005 
FT1A	031407 000005 0   0   000000000005 0            000000000005 
FT9	031410 000005 0   0   000000000005 0            000000000005 
ET0	031410 000005 0   0   777777777777 0            000000000005 
ST6	031410 000005 0   0   777777777777 0            000000000005 
ST6A	031410 000005 0   0   777777777777 0            000000000005 
ST9	031410 000005 0   0   777777777777 0            000000000005 


*031410 JRST	0,031412
INITIAL
C(AC)=000000 000000 
C(E)=312240 032226 
FINAL

C(E)=312240 032226 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031410 031410 0   0   254000031412 0            254000031412 
IT1	031410 0      0   0   254000031412 0            254000031412 
AT3	031410 0      0   0   000000031412 0            254000031412 
AT6	031410 031412 0   0   000000031412 0            254000031412 
FT1A	031410 031412 0   0   000000031412 0            254000031412 
FT9	031411 031412 0   0   000000031412 0            254000031412 
ET0	031412 031411 0   0   000000031412 0            254000031412 
ST1A	031412 031411 0   0   000000031412 0            254000031412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 110
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0199

ST9	031412 031411 0   0   000000031412 0            254000031412 


*031412 CAME	5,032226
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031412 031412 0   0   312240032226 0            777777777777 
IT1	031412 0      0   0   312240032226 0            777777777777 
AT3	031412 0      0   0   000000032226 0            312240032226 
AT6	031412 032226 0   0   000000032226 0            312240032226 
FT0	031412 032226 0   0   777777777777 0            312240032226 
FT1A	031412 032226 0   0   777777777777 0            777777777777 
FT2	031412 032226 0   0   0            0            777777777777 
FT2RQ	031412 032226 0   0   777777777777 0            777777777777 
FT3	031412 032226 0   0   777777777777 0            777777777777 
FT9	031413 032226 0   0   777777777777 0            777777777777 
ET0	031414 032226 0   0   0            0            777777777777 
ST1A	031414 032226 0   0   0            0            777777777777 
ST9	031414 032226 0   0   0            0            777777777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031414 031414 0   0   324000031415 0            000000031415 
IT1	031414 0      0   0   324000031415 0            000000031415 
AT3	031414 0      0   0   000000031415 0            324000031415 
AT6	031414 031415 0   0   000000031415 0            324000031415 
FT1A	031414 031415 0   0   000000031415 0            000000031415 
FT2	031414 031415 0   0   0            0            000000031415 
FT2RQ	031414 031415 0   0   0            0            000000031415 
FT3	031414 031415 0   0   0            0            000000031415 
FT9	031415 031415 0   0   0            0            000000031415 
ET0	031415 031415 0   0   0            0            000000031415 
ST1A	031415 031415 0   0   0            0            000000031415 
ST9	031415 031415 0   0   0            0            000000031415 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 111
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0200

*031415 SETZM	0,000003
INITIAL
C(AC)=000000 000000 
C(E)=000000 031407 
FINAL

C(E)=000000 031407 

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


*031416 MOVEI	10,000003
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031416 031416 0   0   201400000003 0            000000000003 
IT1	031416 0      0   0   201400000003 0            000000000003 
AT3	031416 0      0   0   000000000003 0            201400000003 
AT6	031416 000003 0   0   000000000003 0            201400000003 
FT1A	031416 000003 0   0   000000000003 0            000000000003 
FT9	031417 000003 0   0   000000000003 0            000000000003 
ET0	031417 000003 0   0   000000000003 0            000000000003 
ST1	031417 000003 0   0   000000000003 0            000000000003 
ST2	031417 000003 0   0   000000000003 0            000000000003 
ST9	031417 000003 0   0   000000000003 0            000000000003 


*031417 JRST	0,031424
INITIAL
C(AC)=000000 000000 
C(E)=256000 031422 
FINAL

C(E)=256000 031422 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031417 031417 0   0   254000031424 0            254000031424 
IT1	031417 0      0   0   254000031424 0            254000031424 
AT3	031417 0      0   0   000000031424 0            254000031424 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 112
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0201

AT6	031417 031424 0   0   000000031424 0            254000031424 
FT1A	031417 031424 0   0   000000031424 0            254000031424 
FT9	031420 031424 0   0   000000031424 0            254000031424 
ET0	031424 031420 0   0   000000031424 0            254000031424 
ST1A	031424 031420 0   0   000000031424 0            254000031424 
ST9	031424 031420 0   0   000000031424 0            254000031424 


*031424 XCT	0,031422

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031424 031422 0   0   200170031420 0            000000031422 
IT1	031424 0      0   0   200170031420 0            000000031422 
AT1	031424 0      0   0   0            0            200170031420 
AT2	031424 0      0   0   000000000003 0            200170031420 
AT3	031424 0      0   0   000000031423 0            000000031423 
AT4	031424 031423 0   0   254200032253 0            000000031423 
IT1	031424 0      0   0   254200032253 0            000000031423 
AT3	031424 0      0   0   000000032253 0            254200032253 
AT6	031424 032253 0   0   000000032253 0            254200032253 
FT0	031424 032253 0   0   000000707070 0            254200032253 
FT1A	031424 032253 0   0   000000707070 0            000000707070 
FT9	031425 032253 0   0   000000707070 0            000000707070 
ET0	031425 032253 0   0   000000707070 0            000000707070 
ST1	031425 032253 0   0   000000707070 0            000000707070 
ST2	031425 032253 0   0   000000707070 0            000000707070 
ST9	031425 032253 0   0   000000707070 0            000000707070 


*031425 CAIE	3,707070
INITIAL
C(AC)=000000 707070 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031425 031425 0   0   302140707070 0            000000707070 
IT1	031425 0      0   0   302140707070 0            000000707070 
AT3	031425 0      0   0   000000707070 0            302140707070 
AT6	031425 707070 0   0   000000707070 0            302140707070 
FT1A	031425 707070 0   0   000000707070 0            000000707070 
FT2	031425 707070 0   0   0            0            000000707070 
FT2RQ	031425 707070 0   0   000000707070 0            000000707070 
FT3	031425 707070 0   0   000000707070 0            000000707070 
FT9	031426 707070 0   0   000000707070 0            000000707070 
ET0	031427 707070 0   0   0            0            000000707070 
ST1A	031427 707070 0   0   0            0            000000707070 
ST9	031427 707070 0   0   0            0            000000707070 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 113
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0202

*031427 JUMPA	0,031430
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031427 031427 0   0   324000031430 0            000000031430 
IT1	031427 0      0   0   324000031430 0            000000031430 
AT3	031427 0      0   0   000000031430 0            324000031430 
AT6	031427 031430 0   0   000000031430 0            324000031430 
FT1A	031427 031430 0   0   000000031430 0            000000031430 
FT2	031427 031430 0   0   0            0            000000031430 
FT2RQ	031427 031430 0   0   0            0            000000031430 
FT3	031427 031430 0   0   0            0            000000031430 
FT9	031430 031430 0   0   0            0            000000031430 
ET0	031430 031430 0   0   0            0            000000031430 
ST1A	031430 031430 0   0   0            0            000000031430 
ST9	031430 031430 0   0   0            0            000000031430 


*031430 MOVE 	0,032227
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031430 031430 0   0   200000032227 0            0            
IT1	031430 0      0   0   200000032227 0            0            
AT3	031430 0      0   0   000000032227 0            200000032227 
AT6	031430 032227 0   0   000000032227 0            200000032227 
FT0	031430 032227 0   0   0            0            200000032227 
FT1A	031430 032227 0   0   0            0            0            
FT9	031431 032227 0   0   0            0            0            
ET0	031431 032227 0   0   0            0            0            
ST1	031431 032227 0   0   0            0            0            
ST2	031431 032227 0   0   0            0            0            
ST9	031431 032227 0   0   0            0            0            


*031431 MOVE 	1,032254
INITIAL
C(AC)=000000 000000 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031431 031431 0   0   200040032254 0            172737405060 
IT1	031431 0      0   0   200040032254 0            172737405060 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 114
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0203

AT3	031431 0      0   0   000000032254 0            200040032254 
AT6	031431 032254 0   0   000000032254 0            200040032254 
FT0	031431 032254 0   0   172737405060 0            200040032254 
FT1A	031431 032254 0   0   172737405060 0            172737405060 
FT9	031432 032254 0   0   172737405060 0            172737405060 
ET0	031432 032254 0   0   172737405060 0            172737405060 
ST1	031432 032254 0   0   172737405060 0            172737405060 
ST2	031432 032254 0   0   172737405060 0            172737405060 
ST9	031432 032254 0   0   172737405060 0            172737405060 


*031432 ROT	0,777775
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031432 031432 0   0   241000777775 0            000000777775 
IT1	031432 0      0   0   241000777775 0            000000777775 
AT3	031432 0      0   0   000000777775 0            241000777775 
AT6	031432 777775 0   0   000000777775 0            241000777775 
FT1A	031432 777775 0   0   000000777775 0            000000777775 
FT2	031432 777775 0   0   0            0            000000777775 
FT2RQ	031432 777775 0   0   0            0            000000777775 
FT3	031432 777775 0   0   0            0            000000777775 
FT9	031433 777775 0   0   0            0            000000777775 
ET0	031433 777775 775 0   0            0            000000777775 
SCT0	031433 777775 775 0   0            0            000000777775 
SCT3	031433 777775 776 0   0            0            000000777775 
SCT3	031433 777775 777 0   0            0            000000777775 
SCT3	031433 777775 0   0   0            0            000000777775 
SCT4	031433 777775 0   0   0            0            000000777775 
ST0	031433 777775 0   0   0            0            000000777775 
ST1	031433 777775 0   0   0            0            000000777775 
ST2	031433 777775 0   0   0            0            000000777775 
ST9	031433 777775 0   0   0            0            000000777775 


*031433 CAME	0,032227
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031433 031433 0   0   312000032227 0            0            
IT1	031433 0      0   0   312000032227 0            0            
AT3	031433 0      0   0   000000032227 0            312000032227 
AT6	031433 032227 0   0   000000032227 0            312000032227 
FT0	031433 032227 0   0   0            0            312000032227 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 115
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0204

FT1A	031433 032227 0   0   0            0            0            
FT2	031433 032227 0   0   0            0            0            
FT2RQ	031433 032227 0   0   0            0            0            
FT3	031433 032227 0   0   0            0            0            
FT9	031434 032227 0   0   0            0            0            
ET0	031435 032227 0   0   0            0            0            
ST1A	031435 032227 0   0   0            0            0            
ST9	031435 032227 0   0   0            0            0            


*031435 JUMPA	0,031436
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031435 031435 0   0   324000031436 0            000000031436 
IT1	031435 0      0   0   324000031436 0            000000031436 
AT3	031435 0      0   0   000000031436 0            324000031436 
AT6	031435 031436 0   0   000000031436 0            324000031436 
FT1A	031435 031436 0   0   000000031436 0            000000031436 
FT2	031435 031436 0   0   0            0            000000031436 
FT2RQ	031435 031436 0   0   0            0            000000031436 
FT3	031435 031436 0   0   0            0            000000031436 
FT9	031436 031436 0   0   0            0            000000031436 
ET0	031436 031436 0   0   0            0            000000031436 
ST1A	031436 031436 0   0   0            0            000000031436 
ST9	031436 031436 0   0   0            0            000000031436 


*031436 CAME	1,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031436 031436 0   0   312040032254 0            172737405060 
IT1	031436 0      0   0   312040032254 0            172737405060 
AT3	031436 0      0   0   000000032254 0            312040032254 
AT6	031436 032254 0   0   000000032254 0            312040032254 
FT0	031436 032254 0   0   172737405060 0            312040032254 
FT1A	031436 032254 0   0   172737405060 0            172737405060 
FT2	031436 032254 0   0   0            0            172737405060 
FT2RQ	031436 032254 0   0   172737405060 0            172737405060 
FT3	031436 032254 0   0   172737405060 0            172737405060 
FT9	031437 032254 0   0   172737405060 0            172737405060 
ET0	031440 032254 0   0   0            0            172737405060 
ST1A	031440 032254 0   0   0            0            172737405060 
ST9	031440 032254 0   0   0            0            172737405060 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 116
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0205



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


*031441 MOVE 	0,032226
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031441 031441 0   0   200000032226 0            777777777777 
IT1	031441 0      0   0   200000032226 0            777777777777 
AT3	031441 0      0   0   000000032226 0            200000032226 
AT6	031441 032226 0   0   000000032226 0            200000032226 
FT0	031441 032226 0   0   777777777777 0            200000032226 
FT1A	031441 032226 0   0   777777777777 0            777777777777 
FT9	031442 032226 0   0   777777777777 0            777777777777 
ET0	031442 032226 0   0   777777777777 0            777777777777 
ST1	031442 032226 0   0   777777777777 0            777777777777 
ST2	031442 032226 0   0   777777777777 0            777777777777 
ST9	031442 032226 0   0   777777777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 117
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0206

*031442 MOVE 	1,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031442 031442 0   0   200040032254 0            172737405060 
IT1	031442 0      0   0   200040032254 0            172737405060 
AT3	031442 0      0   0   000000032254 0            200040032254 
AT6	031442 032254 0   0   000000032254 0            200040032254 
FT0	031442 032254 0   0   172737405060 0            200040032254 
FT1A	031442 032254 0   0   172737405060 0            172737405060 
FT9	031443 032254 0   0   172737405060 0            172737405060 
ET0	031443 032254 0   0   172737405060 0            172737405060 
ST1	031443 032254 0   0   172737405060 0            172737405060 
ST2	031443 032254 0   0   172737405060 0            172737405060 
ST9	031443 032254 0   0   172737405060 0            172737405060 


*031443 ROT	0,777775
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031443 031443 0   0   241000777775 0            000000777775 
IT1	031443 0      0   0   241000777775 0            000000777775 
AT3	031443 0      0   0   000000777775 0            241000777775 
AT6	031443 777775 0   0   000000777775 0            241000777775 
FT1A	031443 777775 0   0   000000777775 0            000000777775 
FT2	031443 777775 0   0   0            0            000000777775 
FT2RQ	031443 777775 0   0   777777777777 0            000000777775 
FT3	031443 777775 0   0   777777777777 0            000000777775 
FT9	031444 777775 0   0   777777777777 0            000000777775 
ET0	031444 777775 775 0   777777777777 0            000000777775 
SCT0	031444 777775 775 0   777777777777 0            000000777775 
SCT3	031444 777775 776 0   777777777777 0            000000777775 
SCT3	031444 777775 777 0   777777777777 0            000000777775 
SCT3	031444 777775 0   0   777777777777 0            000000777775 
SCT4	031444 777775 0   0   777777777777 0            000000777775 
ST0	031444 777775 0   0   777777777777 0            000000777775 
ST1	031444 777775 0   0   777777777777 0            000000777775 
ST2	031444 777775 0   0   777777777777 0            000000777775 
ST9	031444 777775 0   0   777777777777 0            000000777775 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 118
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0207

*031444 CAME	0,032226
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031444 031444 0   0   312000032226 0            777777777777 
IT1	031444 0      0   0   312000032226 0            777777777777 
AT3	031444 0      0   0   000000032226 0            312000032226 
AT6	031444 032226 0   0   000000032226 0            312000032226 
FT0	031444 032226 0   0   777777777777 0            312000032226 
FT1A	031444 032226 0   0   777777777777 0            777777777777 
FT2	031444 032226 0   0   0            0            777777777777 
FT2RQ	031444 032226 0   0   777777777777 0            777777777777 
FT3	031444 032226 0   0   777777777777 0            777777777777 
FT9	031445 032226 0   0   777777777777 0            777777777777 
ET0	031446 032226 0   0   0            0            777777777777 
ST1A	031446 032226 0   0   0            0            777777777777 
ST9	031446 032226 0   0   0            0            777777777777 


*031446 JUMPA	0,031447
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031446 031446 0   0   324000031447 0            000000031447 
IT1	031446 0      0   0   324000031447 0            000000031447 
AT3	031446 0      0   0   000000031447 0            324000031447 
AT6	031446 031447 0   0   000000031447 0            324000031447 
FT1A	031446 031447 0   0   000000031447 0            000000031447 
FT2	031446 031447 0   0   0            0            000000031447 
FT2RQ	031446 031447 0   0   777777777777 0            000000031447 
FT3	031446 031447 0   0   777777777777 0            000000031447 
FT9	031447 031447 0   0   777777777777 0            000000031447 
ET0	031447 031447 0   0   777777777777 0            000000031447 
ST1A	031447 031447 0   0   777777777777 0            000000031447 
ST9	031447 031447 0   0   777777777777 0            000000031447 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 119
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0208

*031447 CAME	1,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031447 031447 0   0   312040032254 0            172737405060 
IT1	031447 0      0   0   312040032254 0            172737405060 
AT3	031447 0      0   0   000000032254 0            312040032254 
AT6	031447 032254 0   0   000000032254 0            312040032254 
FT0	031447 032254 0   0   172737405060 0            312040032254 
FT1A	031447 032254 0   0   172737405060 0            172737405060 
FT2	031447 032254 0   0   0            0            172737405060 
FT2RQ	031447 032254 0   0   172737405060 0            172737405060 
FT3	031447 032254 0   0   172737405060 0            172737405060 
FT9	031450 032254 0   0   172737405060 0            172737405060 
ET0	031451 032254 0   0   0            0            172737405060 
ST1A	031451 032254 0   0   0            0            172737405060 
ST9	031451 032254 0   0   0            0            172737405060 


*031451 JUMPA	0,031452
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031451 031451 0   0   324000031452 0            000000031452 
IT1	031451 0      0   0   324000031452 0            000000031452 
AT3	031451 0      0   0   000000031452 0            324000031452 
AT6	031451 031452 0   0   000000031452 0            324000031452 
FT1A	031451 031452 0   0   000000031452 0            000000031452 
FT2	031451 031452 0   0   0            0            000000031452 
FT2RQ	031451 031452 0   0   777777777777 0            000000031452 
FT3	031451 031452 0   0   777777777777 0            000000031452 
FT9	031452 031452 0   0   777777777777 0            000000031452 
ET0	031452 031452 0   0   777777777777 0            000000031452 
ST1A	031452 031452 0   0   777777777777 0            000000031452 
ST9	031452 031452 0   0   777777777777 0            000000031452 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 120
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0209

*031452 MOVE 	0,032255
INITIAL
C(AC)=777777 777777 
C(E)=252525 252525 
FINAL
C(AC)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031452 031452 0   0   200000032255 0            252525252525 
IT1	031452 0      0   0   200000032255 0            252525252525 
AT3	031452 0      0   0   000000032255 0            200000032255 
AT6	031452 032255 0   0   000000032255 0            200000032255 
FT0	031452 032255 0   0   252525252525 0            200000032255 
FT1A	031452 032255 0   0   252525252525 0            252525252525 
FT9	031453 032255 0   0   252525252525 0            252525252525 
ET0	031453 032255 0   0   252525252525 0            252525252525 
ST1	031453 032255 0   0   252525252525 0            252525252525 
ST2	031453 032255 0   0   252525252525 0            252525252525 
ST9	031453 032255 0   0   252525252525 0            252525252525 


*031453 MOVE 	1,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031453 031453 0   0   200040032254 0            172737405060 
IT1	031453 0      0   0   200040032254 0            172737405060 
AT3	031453 0      0   0   000000032254 0            200040032254 
AT6	031453 032254 0   0   000000032254 0            200040032254 
FT0	031453 032254 0   0   172737405060 0            200040032254 
FT1A	031453 032254 0   0   172737405060 0            172737405060 
FT9	031454 032254 0   0   172737405060 0            172737405060 
ET0	031454 032254 0   0   172737405060 0            172737405060 
ST1	031454 032254 0   0   172737405060 0            172737405060 
ST2	031454 032254 0   0   172737405060 0            172737405060 
ST9	031454 032254 0   0   172737405060 0            172737405060 


*031454 ROT	0,777775
INITIAL
C(AC)=252525 252525 
FINAL
C(AC)=525252 525252 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031454 031454 0   0   241000777775 0            000000777775 
IT1	031454 0      0   0   241000777775 0            000000777775 
AT3	031454 0      0   0   000000777775 0            241000777775 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 121
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0210

AT6	031454 777775 0   0   000000777775 0            241000777775 
FT1A	031454 777775 0   0   000000777775 0            000000777775 
FT2	031454 777775 0   0   0            0            000000777775 
FT2RQ	031454 777775 0   0   252525252525 0            000000777775 
FT3	031454 777775 0   0   252525252525 0            000000777775 
FT9	031455 777775 0   0   252525252525 0            000000777775 
ET0	031455 777775 775 0   252525252525 0            000000777775 
SCT0	031455 777775 775 0   252525252525 0            000000777775 
SCT3	031455 777775 776 0   525252525252 0            000000777775 
SCT3	031455 777775 777 0   252525252525 0            000000777775 
SCT3	031455 777775 0   0   525252525252 0            000000777775 
SCT4	031455 777775 0   0   525252525252 0            000000777775 
ST0	031455 777775 0   0   525252525252 0            000000777775 
ST1	031455 777775 0   0   525252525252 0            000000777775 
ST2	031455 777775 0   0   525252525252 0            000000777775 
ST9	031455 777775 0   0   525252525252 0            000000777775 


*031455 CAME	0,032256
INITIAL
C(AC)=525252 525252 
C(E)=525252 525252 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031455 031455 0   0   312000032256 0            525252525252 
IT1	031455 0      0   0   312000032256 0            525252525252 
AT3	031455 0      0   0   000000032256 0            312000032256 
AT6	031455 032256 0   0   000000032256 0            312000032256 
FT0	031455 032256 0   0   525252525252 0            312000032256 
FT1A	031455 032256 0   0   525252525252 0            525252525252 
FT2	031455 032256 0   0   0            0            525252525252 
FT2RQ	031455 032256 0   0   525252525252 0            525252525252 
FT3	031455 032256 0   0   525252525252 0            525252525252 
FT9	031456 032256 0   0   525252525252 0            525252525252 
ET0	031457 032256 0   0   0            0            525252525252 
ST1A	031457 032256 0   0   0            0            525252525252 
ST9	031457 032256 0   0   0            0            525252525252 


*031457 JUMPA	0,031460
INITIAL
C(AC)=525252 525252 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031457 031457 0   0   324000031460 0            000000031460 
IT1	031457 0      0   0   324000031460 0            000000031460 
AT3	031457 0      0   0   000000031460 0            324000031460 
AT6	031457 031460 0   0   000000031460 0            324000031460 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 122
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0211

FT1A	031457 031460 0   0   000000031460 0            000000031460 
FT2	031457 031460 0   0   0            0            000000031460 
FT2RQ	031457 031460 0   0   525252525252 0            000000031460 
FT3	031457 031460 0   0   525252525252 0            000000031460 
FT9	031460 031460 0   0   525252525252 0            000000031460 
ET0	031460 031460 0   0   525252525252 0            000000031460 
ST1A	031460 031460 0   0   525252525252 0            000000031460 
ST9	031460 031460 0   0   525252525252 0            000000031460 


*031460 CAME	1,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031460 031460 0   0   312040032254 0            172737405060 
IT1	031460 0      0   0   312040032254 0            172737405060 
AT3	031460 0      0   0   000000032254 0            312040032254 
AT6	031460 032254 0   0   000000032254 0            312040032254 
FT0	031460 032254 0   0   172737405060 0            312040032254 
FT1A	031460 032254 0   0   172737405060 0            172737405060 
FT2	031460 032254 0   0   0            0            172737405060 
FT2RQ	031460 032254 0   0   172737405060 0            172737405060 
FT3	031460 032254 0   0   172737405060 0            172737405060 
FT9	031461 032254 0   0   172737405060 0            172737405060 
ET0	031462 032254 0   0   0            0            172737405060 
ST1A	031462 032254 0   0   0            0            172737405060 
ST9	031462 032254 0   0   0            0            172737405060 


*031462 JUMPA	0,031463
INITIAL
C(AC)=525252 525252 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031462 031462 0   0   324000031463 0            000000031463 
IT1	031462 0      0   0   324000031463 0            000000031463 
AT3	031462 0      0   0   000000031463 0            324000031463 
AT6	031462 031463 0   0   000000031463 0            324000031463 
FT1A	031462 031463 0   0   000000031463 0            000000031463 
FT2	031462 031463 0   0   0            0            000000031463 
FT2RQ	031462 031463 0   0   525252525252 0            000000031463 
FT3	031462 031463 0   0   525252525252 0            000000031463 
FT9	031463 031463 0   0   525252525252 0            000000031463 
ET0	031463 031463 0   0   525252525252 0            000000031463 
ST1A	031463 031463 0   0   525252525252 0            000000031463 
ST9	031463 031463 0   0   525252525252 0            000000031463 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 123
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0212



*031463 MOVE 	0,032256
INITIAL
C(AC)=525252 525252 
C(E)=525252 525252 
FINAL
C(AC)=525252 525252 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031463 031463 0   0   200000032256 0            525252525252 
IT1	031463 0      0   0   200000032256 0            525252525252 
AT3	031463 0      0   0   000000032256 0            200000032256 
AT6	031463 032256 0   0   000000032256 0            200000032256 
FT0	031463 032256 0   0   525252525252 0            200000032256 
FT1A	031463 032256 0   0   525252525252 0            525252525252 
FT9	031464 032256 0   0   525252525252 0            525252525252 
ET0	031464 032256 0   0   525252525252 0            525252525252 
ST1	031464 032256 0   0   525252525252 0            525252525252 
ST2	031464 032256 0   0   525252525252 0            525252525252 
ST9	031464 032256 0   0   525252525252 0            525252525252 


*031464 MOVE 	1,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031464 031464 0   0   200040032254 0            172737405060 
IT1	031464 0      0   0   200040032254 0            172737405060 
AT3	031464 0      0   0   000000032254 0            200040032254 
AT6	031464 032254 0   0   000000032254 0            200040032254 
FT0	031464 032254 0   0   172737405060 0            200040032254 
FT1A	031464 032254 0   0   172737405060 0            172737405060 
FT9	031465 032254 0   0   172737405060 0            172737405060 
ET0	031465 032254 0   0   172737405060 0            172737405060 
ST1	031465 032254 0   0   172737405060 0            172737405060 
ST2	031465 032254 0   0   172737405060 0            172737405060 
ST9	031465 032254 0   0   172737405060 0            172737405060 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 124
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0213

*031465 ROT	0,777775
INITIAL
C(AC)=525252 525252 
FINAL
C(AC)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031465 031465 0   0   241000777775 0            000000777775 
IT1	031465 0      0   0   241000777775 0            000000777775 
AT3	031465 0      0   0   000000777775 0            241000777775 
AT6	031465 777775 0   0   000000777775 0            241000777775 
FT1A	031465 777775 0   0   000000777775 0            000000777775 
FT2	031465 777775 0   0   0            0            000000777775 
FT2RQ	031465 777775 0   0   525252525252 0            000000777775 
FT3	031465 777775 0   0   525252525252 0            000000777775 
FT9	031466 777775 0   0   525252525252 0            000000777775 
ET0	031466 777775 775 0   525252525252 0            000000777775 
SCT0	031466 777775 775 0   525252525252 0            000000777775 
SCT3	031466 777775 776 0   252525252525 0            000000777775 
SCT3	031466 777775 777 0   525252525252 0            000000777775 
SCT3	031466 777775 0   0   252525252525 0            000000777775 
SCT4	031466 777775 0   0   252525252525 0            000000777775 
ST0	031466 777775 0   0   252525252525 0            000000777775 
ST1	031466 777775 0   0   252525252525 0            000000777775 
ST2	031466 777775 0   0   252525252525 0            000000777775 
ST9	031466 777775 0   0   252525252525 0            000000777775 


*031466 CAME	0,032255
INITIAL
C(AC)=252525 252525 
C(E)=252525 252525 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031466 031466 0   0   312000032255 0            252525252525 
IT1	031466 0      0   0   312000032255 0            252525252525 
AT3	031466 0      0   0   000000032255 0            312000032255 
AT6	031466 032255 0   0   000000032255 0            312000032255 
FT0	031466 032255 0   0   252525252525 0            312000032255 
FT1A	031466 032255 0   0   252525252525 0            252525252525 
FT2	031466 032255 0   0   0            0            252525252525 
FT2RQ	031466 032255 0   0   252525252525 0            252525252525 
FT3	031466 032255 0   0   252525252525 0            252525252525 
FT9	031467 032255 0   0   252525252525 0            252525252525 
ET0	031470 032255 0   0   0            0            252525252525 
ST1A	031470 032255 0   0   0            0            252525252525 
ST9	031470 032255 0   0   0            0            252525252525 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 125
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0214

*031470 JUMPA	0,031471
INITIAL
C(AC)=252525 252525 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031470 031470 0   0   324000031471 0            000000031471 
IT1	031470 0      0   0   324000031471 0            000000031471 
AT3	031470 0      0   0   000000031471 0            324000031471 
AT6	031470 031471 0   0   000000031471 0            324000031471 
FT1A	031470 031471 0   0   000000031471 0            000000031471 
FT2	031470 031471 0   0   0            0            000000031471 
FT2RQ	031470 031471 0   0   252525252525 0            000000031471 
FT3	031470 031471 0   0   252525252525 0            000000031471 
FT9	031471 031471 0   0   252525252525 0            000000031471 
ET0	031471 031471 0   0   252525252525 0            000000031471 
ST1A	031471 031471 0   0   252525252525 0            000000031471 
ST9	031471 031471 0   0   252525252525 0            000000031471 


*031471 CAME	1,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031471 031471 0   0   312040032254 0            172737405060 
IT1	031471 0      0   0   312040032254 0            172737405060 
AT3	031471 0      0   0   000000032254 0            312040032254 
AT6	031471 032254 0   0   000000032254 0            312040032254 
FT0	031471 032254 0   0   172737405060 0            312040032254 
FT1A	031471 032254 0   0   172737405060 0            172737405060 
FT2	031471 032254 0   0   0            0            172737405060 
FT2RQ	031471 032254 0   0   172737405060 0            172737405060 
FT3	031471 032254 0   0   172737405060 0            172737405060 
FT9	031472 032254 0   0   172737405060 0            172737405060 
ET0	031473 032254 0   0   0            0            172737405060 
ST1A	031473 032254 0   0   0            0            172737405060 
ST9	031473 032254 0   0   0            0            172737405060 


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

*031473 JUMPA	0,031474
INITIAL
C(AC)=252525 252525 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031473 031473 0   0   324000031474 0            000000031474 
IT1	031473 0      0   0   324000031474 0            000000031474 
AT3	031473 0      0   0   000000031474 0            324000031474 
AT6	031473 031474 0   0   000000031474 0            324000031474 
FT1A	031473 031474 0   0   000000031474 0            000000031474 
FT2	031473 031474 0   0   0            0            000000031474 
FT2RQ	031473 031474 0   0   252525252525 0            000000031474 
FT3	031473 031474 0   0   252525252525 0            000000031474 
FT9	031474 031474 0   0   252525252525 0            000000031474 
ET0	031474 031474 0   0   252525252525 0            000000031474 
ST1A	031474 031474 0   0   252525252525 0            000000031474 
ST9	031474 031474 0   0   252525252525 0            000000031474 


*031474 MOVE 	0,032257
INITIAL
C(AC)=252525 252525 
C(E)=230703 603700 
FINAL
C(AC)=230703 603700 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031474 031474 0   0   200000032257 0            230703603700 
IT1	031474 0      0   0   200000032257 0            230703603700 
AT3	031474 0      0   0   000000032257 0            200000032257 
AT6	031474 032257 0   0   000000032257 0            200000032257 
FT0	031474 032257 0   0   230703603700 0            200000032257 
FT1A	031474 032257 0   0   230703603700 0            230703603700 
FT9	031475 032257 0   0   230703603700 0            230703603700 
ET0	031475 032257 0   0   230703603700 0            230703603700 
ST1	031475 032257 0   0   230703603700 0            230703603700 
ST2	031475 032257 0   0   230703603700 0            230703603700 
ST9	031475 032257 0   0   230703603700 0            230703603700 


*031475 MOVE 	1,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031475 031475 0   0   200040032254 0            172737405060 
IT1	031475 0      0   0   200040032254 0            172737405060 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 127
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0216

AT3	031475 0      0   0   000000032254 0            200040032254 
AT6	031475 032254 0   0   000000032254 0            200040032254 
FT0	031475 032254 0   0   172737405060 0            200040032254 
FT1A	031475 032254 0   0   172737405060 0            172737405060 
FT9	031476 032254 0   0   172737405060 0            172737405060 
ET0	031476 032254 0   0   172737405060 0            172737405060 
ST1	031476 032254 0   0   172737405060 0            172737405060 
ST2	031476 032254 0   0   172737405060 0            172737405060 
ST9	031476 032254 0   0   172737405060 0            172737405060 


*031476 ROT	0,777775
INITIAL
C(AC)=230703 603700 
FINAL
C(AC)=023070 360370 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031476 031476 0   0   241000777775 0            000000777775 
IT1	031476 0      0   0   241000777775 0            000000777775 
AT3	031476 0      0   0   000000777775 0            241000777775 
AT6	031476 777775 0   0   000000777775 0            241000777775 
FT1A	031476 777775 0   0   000000777775 0            000000777775 
FT2	031476 777775 0   0   0            0            000000777775 
FT2RQ	031476 777775 0   0   230703603700 0            000000777775 
FT3	031476 777775 0   0   230703603700 0            000000777775 
FT9	031477 777775 0   0   230703603700 0            000000777775 
ET0	031477 777775 775 0   230703603700 0            000000777775 
SCT0	031477 777775 775 0   230703603700 0            000000777775 
SCT3	031477 777775 776 0   114341701740 0            000000777775 
SCT3	031477 777775 777 0   046160740760 0            000000777775 
SCT3	031477 777775 0   0   023070360370 0            000000777775 
SCT4	031477 777775 0   0   023070360370 0            000000777775 
ST0	031477 777775 0   0   023070360370 0            000000777775 
ST1	031477 777775 0   0   023070360370 0            000000777775 
ST2	031477 777775 0   0   023070360370 0            000000777775 
ST9	031477 777775 0   0   023070360370 0            000000777775 


*031477 CAME	0,032260
INITIAL
C(AC)=023070 360370 
C(E)=023070 360370 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031477 031477 0   0   312000032260 0            023070360370 
IT1	031477 0      0   0   312000032260 0            023070360370 
AT3	031477 0      0   0   000000032260 0            312000032260 
AT6	031477 032260 0   0   000000032260 0            312000032260 
FT0	031477 032260 0   0   023070360370 0            312000032260 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 128
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0217

FT1A	031477 032260 0   0   023070360370 0            023070360370 
FT2	031477 032260 0   0   0            0            023070360370 
FT2RQ	031477 032260 0   0   023070360370 0            023070360370 
FT3	031477 032260 0   0   023070360370 0            023070360370 
FT9	0      032260 0   0   023070360370 0            023070360370 
ET0	031501 032260 0   0   0            0            023070360370 
ST1A	031501 032260 0   0   0            0            023070360370 
ST9	031501 032260 0   0   0            0            023070360370 


*031501 JUMPA	0,031502
INITIAL
C(AC)=023070 360370 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031501 031501 0   0   324000031502 0            000000031502 
IT1	031501 0      0   0   324000031502 0            000000031502 
AT3	031501 0      0   0   000000031502 0            324000031502 
AT6	031501 031502 0   0   000000031502 0            324000031502 
FT1A	031501 031502 0   0   000000031502 0            000000031502 
FT2	031501 031502 0   0   0            0            000000031502 
FT2RQ	031501 031502 0   0   023070360370 0            000000031502 
FT3	031501 031502 0   0   023070360370 0            000000031502 
FT9	031502 031502 0   0   023070360370 0            000000031502 
ET0	031502 031502 0   0   023070360370 0            000000031502 
ST1A	031502 031502 0   0   023070360370 0            000000031502 
ST9	031502 031502 0   0   023070360370 0            000000031502 


*031502 CAME	1,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031502 031502 0   0   312040032254 0            172737405060 
IT1	031502 0      0   0   312040032254 0            172737405060 
AT3	031502 0      0   0   000000032254 0            312040032254 
AT6	031502 032254 0   0   000000032254 0            312040032254 
FT0	031502 032254 0   0   172737405060 0            312040032254 
FT1A	031502 032254 0   0   172737405060 0            172737405060 
FT2	031502 032254 0   0   0            0            172737405060 
FT2RQ	031502 032254 0   0   172737405060 0            172737405060 
FT3	031502 032254 0   0   172737405060 0            172737405060 
FT9	031503 032254 0   0   172737405060 0            172737405060 
ET0	031504 032254 0   0   0            0            172737405060 
ST1A	031504 032254 0   0   0            0            172737405060 
ST9	031504 032254 0   0   0            0            172737405060 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 129
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0218



*031504 JUMPA	0,031505
INITIAL
C(AC)=023070 360370 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031504 031504 0   0   324000031505 0            000000031505 
IT1	031504 0      0   0   324000031505 0            000000031505 
AT3	031504 0      0   0   000000031505 0            324000031505 
AT6	031504 031505 0   0   000000031505 0            324000031505 
FT1A	031504 031505 0   0   000000031505 0            000000031505 
FT2	031504 031505 0   0   0            0            000000031505 
FT2RQ	031504 031505 0   0   023070360370 0            000000031505 
FT3	031504 031505 0   0   023070360370 0            000000031505 
FT9	031505 031505 0   0   023070360370 0            000000031505 
ET0	031505 031505 0   0   023070360370 0            000000031505 
ST1A	031505 031505 0   0   023070360370 0            000000031505 
ST9	031505 031505 0   0   023070360370 0            000000031505 


*031505 MOVE 	0,032261
INITIAL
C(AC)=023070 360370 
C(E)=007603 607062 
FINAL
C(AC)=007603 607062 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031505 031505 0   0   200000032261 0            007603607062 
IT1	031505 0      0   0   200000032261 0            007603607062 
AT3	031505 0      0   0   000000032261 0            200000032261 
AT6	031505 032261 0   0   000000032261 0            200000032261 
FT0	031505 032261 0   0   007603607062 0            200000032261 
FT1A	031505 032261 0   0   007603607062 0            007603607062 
FT9	031506 032261 0   0   007603607062 0            007603607062 
ET0	031506 032261 0   0   007603607062 0            007603607062 
ST1	031506 032261 0   0   007603607062 0            007603607062 
ST2	031506 032261 0   0   007603607062 0            007603607062 
ST9	031506 032261 0   0   007603607062 0            007603607062 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 130
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0219

*031506 MOVE 	1,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031506 031506 0   0   200040032254 0            172737405060 
IT1	031506 0      0   0   200040032254 0            172737405060 
AT3	031506 0      0   0   000000032254 0            200040032254 
AT6	031506 032254 0   0   000000032254 0            200040032254 
FT0	031506 032254 0   0   172737405060 0            200040032254 
FT1A	031506 032254 0   0   172737405060 0            172737405060 
FT9	031507 032254 0   0   172737405060 0            172737405060 
ET0	031507 032254 0   0   172737405060 0            172737405060 
ST1	031507 032254 0   0   172737405060 0            172737405060 
ST2	031507 032254 0   0   172737405060 0            172737405060 
ST9	031507 032254 0   0   172737405060 0            172737405060 


*031507 ROT	0,777775
INITIAL
C(AC)=007603 607062 
FINAL
C(AC)=200760 360706 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031507 031507 0   0   241000777775 0            000000777775 
IT1	031507 0      0   0   241000777775 0            000000777775 
AT3	031507 0      0   0   000000777775 0            241000777775 
AT6	031507 777775 0   0   000000777775 0            241000777775 
FT1A	031507 777775 0   0   000000777775 0            000000777775 
FT2	031507 777775 0   0   0            0            000000777775 
FT2RQ	031507 777775 0   0   007603607062 0            000000777775 
FT3	031507 777775 0   0   007603607062 0            000000777775 
FT9	031510 777775 0   0   007603607062 0            000000777775 
ET0	031510 777775 775 0   007603607062 0            000000777775 
SCT0	031510 777775 775 0   007603607062 0            000000777775 
SCT3	031510 777775 776 0   003701703431 0            000000777775 
SCT3	031510 777775 777 0   401740741614 0            000000777775 
SCT3	031510 777775 0   0   200760360706 0            000000777775 
SCT4	031510 777775 0   0   200760360706 0            000000777775 
ST0	031510 777775 0   0   200760360706 0            000000777775 
ST1	031510 777775 0   0   200760360706 0            000000777775 
ST2	031510 777775 0   0   200760360706 0            000000777775 
ST9	031510 777775 0   0   200760360706 0            000000777775 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 131
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0220

*031510 CAME	0,032262
INITIAL
C(AC)=200760 360706 
C(E)=200760 360706 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031510 031510 0   0   312000032262 0            200760360706 
IT1	031510 0      0   0   312000032262 0            200760360706 
AT3	031510 0      0   0   000000032262 0            312000032262 
AT6	031510 032262 0   0   000000032262 0            312000032262 
FT0	031510 032262 0   0   200760360706 0            312000032262 
FT1A	031510 032262 0   0   200760360706 0            200760360706 
FT2	031510 032262 0   0   0            0            200760360706 
FT2RQ	031510 032262 0   0   200760360706 0            200760360706 
FT3	031510 032262 0   0   200760360706 0            200760360706 
FT9	031511 032262 0   0   200760360706 0            200760360706 
ET0	031512 032262 0   0   0            0            200760360706 
ST1A	031512 032262 0   0   0            0            200760360706 
ST9	031512 032262 0   0   0            0            200760360706 


*031512 JUMPA	0,031513
INITIAL
C(AC)=200760 360706 
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   200760360706 0            000000031513 
FT3	031512 031513 0   0   200760360706 0            000000031513 
FT9	031513 031513 0   0   200760360706 0            000000031513 
ET0	031513 031513 0   0   200760360706 0            000000031513 
ST1A	031513 031513 0   0   200760360706 0            000000031513 
ST9	031513 031513 0   0   200760360706 0            000000031513 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 132
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0221

*031513 CAME	1,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031513 031513 0   0   312040032254 0            172737405060 
IT1	031513 0      0   0   312040032254 0            172737405060 
AT3	031513 0      0   0   000000032254 0            312040032254 
AT6	031513 032254 0   0   000000032254 0            312040032254 
FT0	031513 032254 0   0   172737405060 0            312040032254 
FT1A	031513 032254 0   0   172737405060 0            172737405060 
FT2	031513 032254 0   0   0            0            172737405060 
FT2RQ	031513 032254 0   0   172737405060 0            172737405060 
FT3	031513 032254 0   0   172737405060 0            172737405060 
FT9	031514 032254 0   0   172737405060 0            172737405060 
ET0	031515 032254 0   0   0            0            172737405060 
ST1A	031515 032254 0   0   0            0            172737405060 
ST9	031515 032254 0   0   0            0            172737405060 


*031515 JUMPA	0,031516
INITIAL
C(AC)=200760 360706 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031515 031515 0   0   324000031516 0            000000031516 
IT1	031515 0      0   0   324000031516 0            000000031516 
AT3	031515 0      0   0   000000031516 0            324000031516 
AT6	031515 031516 0   0   000000031516 0            324000031516 
FT1A	031515 031516 0   0   000000031516 0            000000031516 
FT2	031515 031516 0   0   0            0            000000031516 
FT2RQ	031515 031516 0   0   200760360706 0            000000031516 
FT3	031515 031516 0   0   200760360706 0            000000031516 
FT9	031516 031516 0   0   200760360706 0            000000031516 
ET0	031516 031516 0   0   200760360706 0            000000031516 
ST1A	031516 031516 0   0   200760360706 0            000000031516 
ST9	031516 031516 0   0   200760360706 0            000000031516 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 133
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0222

*031516 MOVE 	2,032227
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031516 031516 0   0   200100032227 0            0            
IT1	031516 0      0   0   200100032227 0            0            
AT3	031516 0      0   0   000000032227 0            200100032227 
AT6	031516 032227 0   0   000000032227 0            200100032227 
FT0	031516 032227 0   0   0            0            200100032227 
FT1A	031516 032227 0   0   0            0            0            
FT9	031517 032227 0   0   0            0            0            
ET0	031517 032227 0   0   0            0            0            
ST1	031517 032227 0   0   0            0            0            
ST2	031517 032227 0   0   0            0            0            
ST9	031517 032227 0   0   0            0            0            


*031517 MOVE 	3,032254
INITIAL
C(AC)=000000 707070 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031517 031517 0   0   200140032254 0            172737405060 
IT1	031517 0      0   0   200140032254 0            172737405060 
AT3	031517 0      0   0   000000032254 0            200140032254 
AT6	031517 032254 0   0   000000032254 0            200140032254 
FT0	031517 032254 0   0   172737405060 0            200140032254 
FT1A	031517 032254 0   0   172737405060 0            172737405060 
FT9	031520 032254 0   0   172737405060 0            172737405060 
ET0	031520 032254 0   0   172737405060 0            172737405060 
ST1	031520 032254 0   0   172737405060 0            172737405060 
ST2	031520 032254 0   0   172737405060 0            172737405060 
ST9	031520 032254 0   0   172737405060 0            172737405060 


*031520 ROT	2,000015
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031520 031520 0   0   241100000015 0            000000000015 
IT1	031520 0      0   0   241100000015 0            000000000015 
AT3	031520 0      0   0   000000000015 0            241100000015 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 134
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0223

AT6	031520 000015 0   0   000000000015 0            241100000015 
FT1A	031520 000015 0   0   000000000015 0            000000000015 
FT2	031520 000015 0   0   0            0            000000000015 
FT2RQ	031520 000015 0   0   0            0            000000000015 
FT3	031520 000015 0   0   0            0            000000000015 
FT9	031521 000015 0   0   0            0            000000000015 
ET0	031521 000015 015 0   0            0            000000000015 
SRT1	031521 000015 763 0   0            0            000000000015 
SCT0	031521 000015 763 0   0            0            000000000015 
SCT3	031521 000015 764 0   0            0            000000000015 
SCT3	031521 000015 765 0   0            0            000000000015 
SCT3	031521 000015 766 0   0            0            000000000015 
SCT3	031521 000015 767 0   0            0            000000000015 
SCT3	031521 000015 0   0   0            0            000000000015 
SCT3	031521 000015 771 0   0            0            000000000015 
SCT3	031521 000015 772 0   0            0            000000000015 
SCT3	031521 000015 773 0   0            0            000000000015 
SCT3	031521 000015 774 0   0            0            000000000015 
SCT3	031521 000015 775 0   0            0            000000000015 
SCT3	031521 000015 776 0   0            0            000000000015 
SCT3	031521 000015 777 0   0            0            000000000015 
SCT3	031521 000015 0   0   0            0            000000000015 
SCT4	031521 000015 0   0   0            0            000000000015 
ST0	031521 000015 0   0   0            0            000000000015 
ST1	031521 000015 0   0   0            0            000000000015 
ST2	031521 000015 0   0   0            0            000000000015 
ST9	031521 000015 0   0   0            0            000000000015 


*031521 CAME	2,032227
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031521 031521 0   0   312100032227 0            0            
IT1	031521 0      0   0   312100032227 0            0            
AT3	031521 0      0   0   000000032227 0            312100032227 
AT6	031521 032227 0   0   000000032227 0            312100032227 
FT0	031521 032227 0   0   0            0            312100032227 
FT1A	031521 032227 0   0   0            0            0            
FT2	031521 032227 0   0   0            0            0            
FT2RQ	031521 032227 0   0   0            0            0            
FT3	031521 032227 0   0   0            0            0            
FT9	031522 032227 0   0   0            0            0            
ET0	031523 032227 0   0   0            0            0            
ST1A	031523 032227 0   0   0            0            0            
ST9	031523 032227 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 135
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0224

*031523 JUMPA	0,031524
INITIAL
C(AC)=200760 360706 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031523 031523 0   0   324000031524 0            000000031524 
IT1	031523 0      0   0   324000031524 0            000000031524 
AT3	031523 0      0   0   000000031524 0            324000031524 
AT6	031523 031524 0   0   000000031524 0            324000031524 
FT1A	031523 031524 0   0   000000031524 0            000000031524 
FT2	031523 031524 0   0   0            0            000000031524 
FT2RQ	031523 031524 0   0   200760360706 0            000000031524 
FT3	031523 031524 0   0   200760360706 0            000000031524 
FT9	031524 031524 0   0   200760360706 0            000000031524 
ET0	031524 031524 0   0   200760360706 0            000000031524 
ST1A	031524 031524 0   0   200760360706 0            000000031524 
ST9	031524 031524 0   0   200760360706 0            000000031524 


*031524 CAME	3,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031524 031524 0   0   312140032254 0            172737405060 
IT1	031524 0      0   0   312140032254 0            172737405060 
AT3	031524 0      0   0   000000032254 0            312140032254 
AT6	031524 032254 0   0   000000032254 0            312140032254 
FT0	031524 032254 0   0   172737405060 0            312140032254 
FT1A	031524 032254 0   0   172737405060 0            172737405060 
FT2	031524 032254 0   0   0            0            172737405060 
FT2RQ	031524 032254 0   0   172737405060 0            172737405060 
FT3	031524 032254 0   0   172737405060 0            172737405060 
FT9	031525 032254 0   0   172737405060 0            172737405060 
ET0	031526 032254 0   0   0            0            172737405060 
ST1A	031526 032254 0   0   0            0            172737405060 
ST9	031526 032254 0   0   0            0            172737405060 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 136
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0225

*031526 JUMPA	0,031527
INITIAL
C(AC)=200760 360706 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031526 031526 0   0   324000031527 0            000000031527 
IT1	031526 0      0   0   324000031527 0            000000031527 
AT3	031526 0      0   0   000000031527 0            324000031527 
AT6	031526 031527 0   0   000000031527 0            324000031527 
FT1A	031526 031527 0   0   000000031527 0            000000031527 
FT2	031526 031527 0   0   0            0            000000031527 
FT2RQ	031526 031527 0   0   200760360706 0            000000031527 
FT3	031526 031527 0   0   200760360706 0            000000031527 
FT9	031527 031527 0   0   200760360706 0            000000031527 
ET0	031527 031527 0   0   200760360706 0            000000031527 
ST1A	031527 031527 0   0   200760360706 0            000000031527 
ST9	031527 031527 0   0   200760360706 0            000000031527 


*031527 MOVE 	2,032226
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031527 031527 0   0   200100032226 0            777777777777 
IT1	031527 0      0   0   200100032226 0            777777777777 
AT3	031527 0      0   0   000000032226 0            200100032226 
AT6	031527 032226 0   0   000000032226 0            200100032226 
FT0	031527 032226 0   0   777777777777 0            200100032226 
FT1A	031527 032226 0   0   777777777777 0            777777777777 
FT9	031530 032226 0   0   777777777777 0            777777777777 
ET0	031530 032226 0   0   777777777777 0            777777777777 
ST1	031530 032226 0   0   777777777777 0            777777777777 
ST2	031530 032226 0   0   777777777777 0            777777777777 
ST9	031530 032226 0   0   777777777777 0            777777777777 


*031530 MOVE 	3,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031530 031530 0   0   200140032254 0            172737405060 
IT1	031530 0      0   0   200140032254 0            172737405060 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 137
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0226

AT3	031530 0      0   0   000000032254 0            200140032254 
AT6	031530 032254 0   0   000000032254 0            200140032254 
FT0	031530 032254 0   0   172737405060 0            200140032254 
FT1A	031530 032254 0   0   172737405060 0            172737405060 
FT9	031531 032254 0   0   172737405060 0            172737405060 
ET0	031531 032254 0   0   172737405060 0            172737405060 
ST1	031531 032254 0   0   172737405060 0            172737405060 
ST2	031531 032254 0   0   172737405060 0            172737405060 
ST9	031531 032254 0   0   172737405060 0            172737405060 


*031531 ROT	2,000015
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031531 031531 0   0   241100000015 0            000000000015 
IT1	031531 0      0   0   241100000015 0            000000000015 
AT3	031531 0      0   0   000000000015 0            241100000015 
AT6	031531 000015 0   0   000000000015 0            241100000015 
FT1A	031531 000015 0   0   000000000015 0            000000000015 
FT2	031531 000015 0   0   0            0            000000000015 
FT2RQ	031531 000015 0   0   777777777777 0            000000000015 
FT3	031531 000015 0   0   777777777777 0            000000000015 
FT9	031532 000015 0   0   777777777777 0            000000000015 
ET0	031532 000015 015 0   777777777777 0            000000000015 
SRT1	031532 000015 763 0   777777777777 0            000000000015 
SCT0	031532 000015 763 0   777777777777 0            000000000015 
SCT3	031532 000015 764 0   777777777777 0            000000000015 
SCT3	031532 000015 765 0   777777777777 0            000000000015 
SCT3	031532 000015 766 0   777777777777 0            000000000015 
SCT3	031532 000015 767 0   777777777777 0            000000000015 
SCT3	031532 000015 0   0   777777777777 0            000000000015 
SCT3	031532 000015 771 0   777777777777 0            000000000015 
SCT3	031532 000015 772 0   777777777777 0            000000000015 
SCT3	031532 000015 773 0   777777777777 0            000000000015 
SCT3	031532 000015 774 0   777777777777 0            000000000015 
SCT3	031532 000015 775 0   777777777777 0            000000000015 
SCT3	031532 000015 776 0   777777777777 0            000000000015 
SCT3	031532 000015 777 0   777777777777 0            000000000015 
SCT3	031532 000015 0   0   777777777777 0            000000000015 
SCT4	031532 000015 0   0   777777777777 0            000000000015 
ST0	031532 000015 0   0   777777777777 0            000000000015 
ST1	031532 000015 0   0   777777777777 0            000000000015 
ST2	031532 000015 0   0   777777777777 0            000000000015 
ST9	031532 000015 0   0   777777777777 0            000000000015 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 138
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0227

*031532 CAME	2,032226
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031532 031532 0   0   312100032226 0            777777777777 
IT1	031532 0      0   0   312100032226 0            777777777777 
AT3	031532 0      0   0   000000032226 0            312100032226 
AT6	031532 032226 0   0   000000032226 0            312100032226 
FT0	031532 032226 0   0   777777777777 0            312100032226 
FT1A	031532 032226 0   0   777777777777 0            777777777777 
FT2	031532 032226 0   0   0            0            777777777777 
FT2RQ	031532 032226 0   0   777777777777 0            777777777777 
FT3	031532 032226 0   0   777777777777 0            777777777777 
FT9	031533 032226 0   0   777777777777 0            777777777777 
ET0	031534 032226 0   0   0            0            777777777777 
ST1A	031534 032226 0   0   0            0            777777777777 
ST9	031534 032226 0   0   0            0            777777777777 


*031534 JUMPA	0,031535
INITIAL
C(AC)=200760 360706 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031534 031534 0   0   324000031535 0            000000031535 
IT1	031534 0      0   0   324000031535 0            000000031535 
AT3	031534 0      0   0   000000031535 0            324000031535 
AT6	031534 031535 0   0   000000031535 0            324000031535 
FT1A	031534 031535 0   0   000000031535 0            000000031535 
FT2	031534 031535 0   0   0            0            000000031535 
FT2RQ	031534 031535 0   0   200760360706 0            000000031535 
FT3	031534 031535 0   0   200760360706 0            000000031535 
FT9	031535 031535 0   0   200760360706 0            000000031535 
ET0	031535 031535 0   0   200760360706 0            000000031535 
ST1A	031535 031535 0   0   200760360706 0            000000031535 
ST9	031535 031535 0   0   200760360706 0            000000031535 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 139
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0228

*031535 CAME	3,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031535 031535 0   0   312140032254 0            172737405060 
IT1	031535 0      0   0   312140032254 0            172737405060 
AT3	031535 0      0   0   000000032254 0            312140032254 
AT6	031535 032254 0   0   000000032254 0            312140032254 
FT0	031535 032254 0   0   172737405060 0            312140032254 
FT1A	031535 032254 0   0   172737405060 0            172737405060 
FT2	031535 032254 0   0   0            0            172737405060 
FT2RQ	031535 032254 0   0   172737405060 0            172737405060 
FT3	031535 032254 0   0   172737405060 0            172737405060 
FT9	031536 032254 0   0   172737405060 0            172737405060 
ET0	031537 032254 0   0   0            0            172737405060 
ST1A	031537 032254 0   0   0            0            172737405060 
ST9	031537 032254 0   0   0            0            172737405060 


*031537 JUMPA	0,031540
INITIAL
C(AC)=200760 360706 
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   200760360706 0            000000031540 
FT3	031537 031540 0   0   200760360706 0            000000031540 
FT9	031540 031540 0   0   200760360706 0            000000031540 
ET0	031540 031540 0   0   200760360706 0            000000031540 
ST1A	031540 031540 0   0   200760360706 0            000000031540 
ST9	031540 031540 0   0   200760360706 0            000000031540 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 140
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0229

*031540 MOVE 	2,032255
INITIAL
C(AC)=777777 777777 
C(E)=252525 252525 
FINAL
C(AC)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031540 031540 0   0   200100032255 0            252525252525 
IT1	031540 0      0   0   200100032255 0            252525252525 
AT3	031540 0      0   0   000000032255 0            200100032255 
AT6	031540 032255 0   0   000000032255 0            200100032255 
FT0	031540 032255 0   0   252525252525 0            200100032255 
FT1A	031540 032255 0   0   252525252525 0            252525252525 
FT9	031541 032255 0   0   252525252525 0            252525252525 
ET0	031541 032255 0   0   252525252525 0            252525252525 
ST1	031541 032255 0   0   252525252525 0            252525252525 
ST2	031541 032255 0   0   252525252525 0            252525252525 
ST9	031541 032255 0   0   252525252525 0            252525252525 


*031541 MOVE 	3,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031541 031541 0   0   200140032254 0            172737405060 
IT1	031541 0      0   0   200140032254 0            172737405060 
AT3	031541 0      0   0   000000032254 0            200140032254 
AT6	031541 032254 0   0   000000032254 0            200140032254 
FT0	031541 032254 0   0   172737405060 0            200140032254 
FT1A	031541 032254 0   0   172737405060 0            172737405060 
FT9	031542 032254 0   0   172737405060 0            172737405060 
ET0	031542 032254 0   0   172737405060 0            172737405060 
ST1	031542 032254 0   0   172737405060 0            172737405060 
ST2	031542 032254 0   0   172737405060 0            172737405060 
ST9	031542 032254 0   0   172737405060 0            172737405060 


*031542 ROT	2,000015
INITIAL
C(AC)=252525 252525 
FINAL
C(AC)=525252 525252 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031542 031542 0   0   241100000015 0            000000000015 
IT1	031542 0      0   0   241100000015 0            000000000015 
AT3	031542 0      0   0   000000000015 0            241100000015 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 141
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0230

AT6	031542 000015 0   0   000000000015 0            241100000015 
FT1A	031542 000015 0   0   000000000015 0            000000000015 
FT2	031542 000015 0   0   0            0            000000000015 
FT2RQ	031542 000015 0   0   252525252525 0            000000000015 
FT3	031542 000015 0   0   252525252525 0            000000000015 
FT9	031543 000015 0   0   252525252525 0            000000000015 
ET0	031543 000015 015 0   252525252525 0            000000000015 
SRT1	031543 000015 763 0   252525252525 0            000000000015 
SCT0	031543 000015 763 0   252525252525 0            000000000015 
SCT3	031543 000015 764 0   525252525252 0            000000000015 
SCT3	031543 000015 765 0   252525252525 0            000000000015 
SCT3	031543 000015 766 0   525252525252 0            000000000015 
SCT3	031543 000015 767 0   252525252525 0            000000000015 
SCT3	031543 000015 0   0   525252525252 0            000000000015 
SCT3	031543 000015 771 0   252525252525 0            000000000015 
SCT3	031543 000015 772 0   525252525252 0            000000000015 
SCT3	031543 000015 773 0   252525252525 0            000000000015 
SCT3	031543 000015 774 0   525252525252 0            000000000015 
SCT3	031543 000015 775 0   252525252525 0            000000000015 
SCT3	031543 000015 776 0   525252525252 0            000000000015 
SCT3	031543 000015 777 0   252525252525 0            000000000015 
SCT3	031543 000015 0   0   525252525252 0            000000000015 
SCT4	031543 000015 0   0   525252525252 0            000000000015 
ST0	031543 000015 0   0   525252525252 0            000000000015 
ST1	031543 000015 0   0   525252525252 0            000000000015 
ST2	031543 000015 0   0   525252525252 0            000000000015 
ST9	031543 000015 0   0   525252525252 0            000000000015 


*031543 CAME	2,032256
INITIAL
C(AC)=525252 525252 
C(E)=525252 525252 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031543 031543 0   0   312100032256 0            525252525252 
IT1	031543 0      0   0   312100032256 0            525252525252 
AT3	031543 0      0   0   000000032256 0            312100032256 
AT6	031543 032256 0   0   000000032256 0            312100032256 
FT0	031543 032256 0   0   525252525252 0            312100032256 
FT1A	031543 032256 0   0   525252525252 0            525252525252 
FT2	031543 032256 0   0   0            0            525252525252 
FT2RQ	031543 032256 0   0   525252525252 0            525252525252 
FT3	031543 032256 0   0   525252525252 0            525252525252 
FT9	031544 032256 0   0   525252525252 0            525252525252 
ET0	031545 032256 0   0   0            0            525252525252 
ST1A	031545 032256 0   0   0            0            525252525252 
ST9	031545 032256 0   0   0            0            525252525252 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 142
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0231

*031545 JUMPA	0,031546
INITIAL
C(AC)=200760 360706 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031545 031545 0   0   324000031546 0            000000031546 
IT1	031545 0      0   0   324000031546 0            000000031546 
AT3	031545 0      0   0   000000031546 0            324000031546 
AT6	031545 031546 0   0   000000031546 0            324000031546 
FT1A	031545 031546 0   0   000000031546 0            000000031546 
FT2	031545 031546 0   0   0            0            000000031546 
FT2RQ	031545 031546 0   0   200760360706 0            000000031546 
FT3	031545 031546 0   0   200760360706 0            000000031546 
FT9	031546 031546 0   0   200760360706 0            000000031546 
ET0	031546 031546 0   0   200760360706 0            000000031546 
ST1A	031546 031546 0   0   200760360706 0            000000031546 
ST9	031546 031546 0   0   200760360706 0            000000031546 


*031546 CAME	3,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031546 031546 0   0   312140032254 0            172737405060 
IT1	031546 0      0   0   312140032254 0            172737405060 
AT3	031546 0      0   0   000000032254 0            312140032254 
AT6	031546 032254 0   0   000000032254 0            312140032254 
FT0	031546 032254 0   0   172737405060 0            312140032254 
FT1A	031546 032254 0   0   172737405060 0            172737405060 
FT2	031546 032254 0   0   0            0            172737405060 
FT2RQ	031546 032254 0   0   172737405060 0            172737405060 
FT3	031546 032254 0   0   172737405060 0            172737405060 
FT9	031547 032254 0   0   172737405060 0            172737405060 
ET0	031550 032254 0   0   0            0            172737405060 
ST1A	031550 032254 0   0   0            0            172737405060 
ST9	031550 032254 0   0   0            0            172737405060 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 143
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0232

*031550 JUMPA	0,031551
INITIAL
C(AC)=200760 360706 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031550 031550 0   0   324000031551 0            000000031551 
IT1	031550 0      0   0   324000031551 0            000000031551 
AT3	031550 0      0   0   000000031551 0            324000031551 
AT6	031550 031551 0   0   000000031551 0            324000031551 
FT1A	031550 031551 0   0   000000031551 0            000000031551 
FT2	031550 031551 0   0   0            0            000000031551 
FT2RQ	031550 031551 0   0   200760360706 0            000000031551 
FT3	031550 031551 0   0   200760360706 0            000000031551 
FT9	031551 031551 0   0   200760360706 0            000000031551 
ET0	031551 031551 0   0   200760360706 0            000000031551 
ST1A	031551 031551 0   0   200760360706 0            000000031551 
ST9	031551 031551 0   0   200760360706 0            000000031551 


*031551 MOVE 	2,032256
INITIAL
C(AC)=525252 525252 
C(E)=525252 525252 
FINAL
C(AC)=525252 525252 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031551 031551 0   0   200100032256 0            525252525252 
IT1	031551 0      0   0   200100032256 0            525252525252 
AT3	031551 0      0   0   000000032256 0            200100032256 
AT6	031551 032256 0   0   000000032256 0            200100032256 
FT0	031551 032256 0   0   525252525252 0            200100032256 
FT1A	031551 032256 0   0   525252525252 0            525252525252 
FT9	031552 032256 0   0   525252525252 0            525252525252 
ET0	031552 032256 0   0   525252525252 0            525252525252 
ST1	031552 032256 0   0   525252525252 0            525252525252 
ST2	031552 032256 0   0   525252525252 0            525252525252 
ST9	031552 032256 0   0   525252525252 0            525252525252 


*031552 MOVE 	3,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031552 031552 0   0   200140032254 0            172737405060 
IT1	031552 0      0   0   200140032254 0            172737405060 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 144
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0233

AT3	031552 0      0   0   000000032254 0            200140032254 
AT6	031552 032254 0   0   000000032254 0            200140032254 
FT0	031552 032254 0   0   172737405060 0            200140032254 
FT1A	031552 032254 0   0   172737405060 0            172737405060 
FT9	031553 032254 0   0   172737405060 0            172737405060 
ET0	031553 032254 0   0   172737405060 0            172737405060 
ST1	031553 032254 0   0   172737405060 0            172737405060 
ST2	031553 032254 0   0   172737405060 0            172737405060 
ST9	031553 032254 0   0   172737405060 0            172737405060 


*031553 ROT	2,000015
INITIAL
C(AC)=525252 525252 
FINAL
C(AC)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031553 031553 0   0   241100000015 0            000000000015 
IT1	031553 0      0   0   241100000015 0            000000000015 
AT3	031553 0      0   0   000000000015 0            241100000015 
AT6	031553 000015 0   0   000000000015 0            241100000015 
FT1A	031553 000015 0   0   000000000015 0            000000000015 
FT2	031553 000015 0   0   0            0            000000000015 
FT2RQ	031553 000015 0   0   525252525252 0            000000000015 
FT3	031553 000015 0   0   525252525252 0            000000000015 
FT9	031554 000015 0   0   525252525252 0            000000000015 
ET0	031554 000015 015 0   525252525252 0            000000000015 
SRT1	031554 000015 763 0   525252525252 0            000000000015 
SCT0	031554 000015 763 0   525252525252 0            000000000015 
SCT3	031554 000015 764 0   252525252525 0            000000000015 
SCT3	031554 000015 765 0   525252525252 0            000000000015 
SCT3	031554 000015 766 0   252525252525 0            000000000015 
SCT3	031554 000015 767 0   525252525252 0            000000000015 
SCT3	031554 000015 0   0   252525252525 0            000000000015 
SCT3	031554 000015 771 0   525252525252 0            000000000015 
SCT3	031554 000015 772 0   252525252525 0            000000000015 
SCT3	031554 000015 773 0   525252525252 0            000000000015 
SCT3	031554 000015 774 0   252525252525 0            000000000015 
SCT3	031554 000015 775 0   525252525252 0            000000000015 
SCT3	031554 000015 776 0   252525252525 0            000000000015 
SCT3	031554 000015 777 0   525252525252 0            000000000015 
SCT3	031554 000015 0   0   252525252525 0            000000000015 
SCT4	031554 000015 0   0   252525252525 0            000000000015 
ST0	031554 000015 0   0   252525252525 0            000000000015 
ST1	031554 000015 0   0   252525252525 0            000000000015 
ST2	031554 000015 0   0   252525252525 0            000000000015 
ST9	031554 000015 0   0   252525252525 0            000000000015 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 145
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0234

*031554 CAME	2,032255
INITIAL
C(AC)=252525 252525 
C(E)=252525 252525 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031554 031554 0   0   312100032255 0            252525252525 
IT1	031554 0      0   0   312100032255 0            252525252525 
AT3	031554 0      0   0   000000032255 0            312100032255 
AT6	031554 032255 0   0   000000032255 0            312100032255 
FT0	031554 032255 0   0   252525252525 0            312100032255 
FT1A	031554 032255 0   0   252525252525 0            252525252525 
FT2	031554 032255 0   0   0            0            252525252525 
FT2RQ	031554 032255 0   0   252525252525 0            252525252525 
FT3	031554 032255 0   0   252525252525 0            252525252525 
FT9	031555 032255 0   0   252525252525 0            252525252525 
ET0	031556 032255 0   0   0            0            252525252525 
ST1A	031556 032255 0   0   0            0            252525252525 
ST9	031556 032255 0   0   0            0            252525252525 


*031556 JUMPA	0,031557
INITIAL
C(AC)=200760 360706 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031556 031556 0   0   324000031557 0            000000031557 
IT1	031556 0      0   0   324000031557 0            000000031557 
AT3	031556 0      0   0   000000031557 0            324000031557 
AT6	031556 031557 0   0   000000031557 0            324000031557 
FT1A	031556 031557 0   0   000000031557 0            000000031557 
FT2	031556 031557 0   0   0            0            000000031557 
FT2RQ	031556 031557 0   0   200760360706 0            000000031557 
FT3	031556 031557 0   0   200760360706 0            000000031557 
FT9	031557 031557 0   0   200760360706 0            000000031557 
ET0	031557 031557 0   0   200760360706 0            000000031557 
ST1A	031557 031557 0   0   200760360706 0            000000031557 
ST9	031557 031557 0   0   200760360706 0            000000031557 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 146
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0235

*031557 CAME	3,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031557 031557 0   0   312140032254 0            172737405060 
IT1	031557 0      0   0   312140032254 0            172737405060 
AT3	031557 0      0   0   000000032254 0            312140032254 
AT6	031557 032254 0   0   000000032254 0            312140032254 
FT0	031557 032254 0   0   172737405060 0            312140032254 
FT1A	031557 032254 0   0   172737405060 0            172737405060 
FT2	031557 032254 0   0   0            0            172737405060 
FT2RQ	031557 032254 0   0   172737405060 0            172737405060 
FT3	031557 032254 0   0   172737405060 0            172737405060 
FT9	031560 032254 0   0   172737405060 0            172737405060 
ET0	031561 032254 0   0   0            0            172737405060 
ST1A	031561 032254 0   0   0            0            172737405060 
ST9	031561 032254 0   0   0            0            172737405060 


*031561 JUMPA	0,031562
INITIAL
C(AC)=200760 360706 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031561 031561 0   0   324000031562 0            000000031562 
IT1	031561 0      0   0   324000031562 0            000000031562 
AT3	031561 0      0   0   000000031562 0            324000031562 
AT6	031561 031562 0   0   000000031562 0            324000031562 
FT1A	031561 031562 0   0   000000031562 0            000000031562 
FT2	031561 031562 0   0   0            0            000000031562 
FT2RQ	031561 031562 0   0   200760360706 0            000000031562 
FT3	031561 031562 0   0   200760360706 0            000000031562 
FT9	031562 031562 0   0   200760360706 0            000000031562 
ET0	031562 031562 0   0   200760360706 0            000000031562 
ST1A	031562 031562 0   0   200760360706 0            000000031562 
ST9	031562 031562 0   0   200760360706 0            000000031562 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 147
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0236

*031562 MOVE 	2,032257
INITIAL
C(AC)=252525 252525 
C(E)=230703 603700 
FINAL
C(AC)=230703 603700 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031562 031562 0   0   200100032257 0            230703603700 
IT1	031562 0      0   0   200100032257 0            230703603700 
AT3	031562 0      0   0   000000032257 0            200100032257 
AT6	031562 032257 0   0   000000032257 0            200100032257 
FT0	031562 032257 0   0   230703603700 0            200100032257 
FT1A	031562 032257 0   0   230703603700 0            230703603700 
FT9	031563 032257 0   0   230703603700 0            230703603700 
ET0	031563 032257 0   0   230703603700 0            230703603700 
ST1	031563 032257 0   0   230703603700 0            230703603700 
ST2	031563 032257 0   0   230703603700 0            230703603700 
ST9	031563 032257 0   0   230703603700 0            230703603700 


*031563 MOVE 	3,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031563 031563 0   0   200140032254 0            172737405060 
IT1	031563 0      0   0   200140032254 0            172737405060 
AT3	031563 0      0   0   000000032254 0            200140032254 
AT6	031563 032254 0   0   000000032254 0            200140032254 
FT0	031563 032254 0   0   172737405060 0            200140032254 
FT1A	031563 032254 0   0   172737405060 0            172737405060 
FT9	031564 032254 0   0   172737405060 0            172737405060 
ET0	031564 032254 0   0   172737405060 0            172737405060 
ST1	031564 032254 0   0   172737405060 0            172737405060 
ST2	031564 032254 0   0   172737405060 0            172737405060 
ST9	031564 032254 0   0   172737405060 0            172737405060 


*031564 ROT	2,000015
INITIAL
C(AC)=230703 603700 
FINAL
C(AC)=074076 004616 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031564 031564 0   0   241100000015 0            000000000015 
IT1	031564 0      0   0   241100000015 0            000000000015 
AT3	031564 0      0   0   000000000015 0            241100000015 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 148
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0237

AT6	031564 000015 0   0   000000000015 0            241100000015 
FT1A	031564 000015 0   0   000000000015 0            000000000015 
FT2	031564 000015 0   0   0            0            000000000015 
FT2RQ	031564 000015 0   0   230703603700 0            000000000015 
FT3	031564 000015 0   0   230703603700 0            000000000015 
FT9	031565 000015 0   0   230703603700 0            000000000015 
ET0	031565 000015 015 0   230703603700 0            000000000015 
SRT1	031565 000015 763 0   230703603700 0            000000000015 
SCT0	031565 000015 763 0   230703603700 0            000000000015 
SCT3	031565 000015 764 0   461607407600 0            000000000015 
SCT3	031565 000015 765 0   143417017401 0            000000000015 
SCT3	031565 000015 766 0   307036037002 0            000000000015 
SCT3	031565 000015 767 0   616074076004 0            000000000015 
SCT3	031565 000015 0   0   434170174011 0            000000000015 
SCT3	031565 000015 771 0   070360370023 0            000000000015 
SCT3	031565 000015 772 0   160740760046 0            000000000015 
SCT3	031565 000015 773 0   341701740114 0            000000000015 
SCT3	031565 000015 774 0   703603700230 0            000000000015 
SCT3	031565 000015 775 0   607407600461 0            000000000015 
SCT3	031565 000015 776 0   417017401143 0            000000000015 
SCT3	031565 000015 777 0   036037002307 0            000000000015 
SCT3	031565 000015 0   0   074076004616 0            000000000015 
SCT4	031565 000015 0   0   074076004616 0            000000000015 
ST0	031565 000015 0   0   074076004616 0            000000000015 
ST1	031565 000015 0   0   074076004616 0            000000000015 
ST2	031565 000015 0   0   074076004616 0            000000000015 
ST9	031565 000015 0   0   074076004616 0            000000000015 


*031565 CAME	2,032263
INITIAL
C(AC)=074076 004616 
C(E)=074076 004616 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031565 031565 0   0   312100032263 0            074076004616 
IT1	031565 0      0   0   312100032263 0            074076004616 
AT3	031565 0      0   0   000000032263 0            312100032263 
AT6	031565 032263 0   0   000000032263 0            312100032263 
FT0	031565 032263 0   0   074076004616 0            312100032263 
FT1A	031565 032263 0   0   074076004616 0            074076004616 
FT2	031565 032263 0   0   0            0            074076004616 
FT2RQ	031565 032263 0   0   074076004616 0            074076004616 
FT3	031565 032263 0   0   074076004616 0            074076004616 
FT9	031566 032263 0   0   074076004616 0            074076004616 
ET0	031567 032263 0   0   0            0            074076004616 
ST1A	031567 032263 0   0   0            0            074076004616 
ST9	031567 032263 0   0   0            0            074076004616 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 149
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0238

*031567 JUMPA	0,031570
INITIAL
C(AC)=200760 360706 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031567 031567 0   0   324000031570 0            000000031570 
IT1	031567 0      0   0   324000031570 0            000000031570 
AT3	031567 0      0   0   000000031570 0            324000031570 
AT6	031567 031570 0   0   000000031570 0            324000031570 
FT1A	031567 031570 0   0   000000031570 0            000000031570 
FT2	031567 031570 0   0   0            0            000000031570 
FT2RQ	031567 031570 0   0   200760360706 0            000000031570 
FT3	031567 031570 0   0   200760360706 0            000000031570 
FT9	031570 031570 0   0   200760360706 0            000000031570 
ET0	031570 031570 0   0   200760360706 0            000000031570 
ST1A	031570 031570 0   0   200760360706 0            000000031570 
ST9	031570 031570 0   0   200760360706 0            000000031570 


*031570 CAME	3,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031570 031570 0   0   312140032254 0            172737405060 
IT1	031570 0      0   0   312140032254 0            172737405060 
AT3	031570 0      0   0   000000032254 0            312140032254 
AT6	031570 032254 0   0   000000032254 0            312140032254 
FT0	031570 032254 0   0   172737405060 0            312140032254 
FT1A	031570 032254 0   0   172737405060 0            172737405060 
FT2	031570 032254 0   0   0            0            172737405060 
FT2RQ	031570 032254 0   0   172737405060 0            172737405060 
FT3	031570 032254 0   0   172737405060 0            172737405060 
FT9	031571 032254 0   0   172737405060 0            172737405060 
ET0	031572 032254 0   0   0            0            172737405060 
ST1A	031572 032254 0   0   0            0            172737405060 
ST9	031572 032254 0   0   0            0            172737405060 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 150
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0239

*031572 JUMPA	0,031573
INITIAL
C(AC)=200760 360706 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031572 031572 0   0   324000031573 0            000000031573 
IT1	031572 0      0   0   324000031573 0            000000031573 
AT3	031572 0      0   0   000000031573 0            324000031573 
AT6	031572 031573 0   0   000000031573 0            324000031573 
FT1A	031572 031573 0   0   000000031573 0            000000031573 
FT2	031572 031573 0   0   0            0            000000031573 
FT2RQ	031572 031573 0   0   200760360706 0            000000031573 
FT3	031572 031573 0   0   200760360706 0            000000031573 
FT9	031573 031573 0   0   200760360706 0            000000031573 
ET0	031573 031573 0   0   200760360706 0            000000031573 
ST1A	031573 031573 0   0   200760360706 0            000000031573 
ST9	031573 031573 0   0   200760360706 0            000000031573 


*031573 MOVE 	2,032261
INITIAL
C(AC)=074076 004616 
C(E)=007603 607062 
FINAL
C(AC)=007603 607062 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031573 031573 0   0   200100032261 0            007603607062 
IT1	031573 0      0   0   200100032261 0            007603607062 
AT3	031573 0      0   0   000000032261 0            200100032261 
AT6	031573 032261 0   0   000000032261 0            200100032261 
FT0	031573 032261 0   0   007603607062 0            200100032261 
FT1A	031573 032261 0   0   007603607062 0            007603607062 
FT9	031574 032261 0   0   007603607062 0            007603607062 
ET0	031574 032261 0   0   007603607062 0            007603607062 
ST1	031574 032261 0   0   007603607062 0            007603607062 
ST2	031574 032261 0   0   007603607062 0            007603607062 
ST9	031574 032261 0   0   007603607062 0            007603607062 


*031574 MOVE 	3,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031574 031574 0   0   200140032254 0            172737405060 
IT1	031574 0      0   0   200140032254 0            172737405060 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 151
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0240

AT3	031574 0      0   0   000000032254 0            200140032254 
AT6	031574 032254 0   0   000000032254 0            200140032254 
FT0	031574 032254 0   0   172737405060 0            200140032254 
FT1A	031574 032254 0   0   172737405060 0            172737405060 
FT9	031575 032254 0   0   172737405060 0            172737405060 
ET0	031575 032254 0   0   172737405060 0            172737405060 
ST1	031575 032254 0   0   172737405060 0            172737405060 
ST2	031575 032254 0   0   172737405060 0            172737405060 
ST9	031575 032254 0   0   172737405060 0            172737405060 


*031575 ROT	2,000015
INITIAL
C(AC)=007603 607062 
FINAL
C(AC)=074161 440174 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031575 031575 0   0   241100000015 0            000000000015 
IT1	031575 0      0   0   241100000015 0            000000000015 
AT3	031575 0      0   0   000000000015 0            241100000015 
AT6	031575 000015 0   0   000000000015 0            241100000015 
FT1A	031575 000015 0   0   000000000015 0            000000000015 
FT2	031575 000015 0   0   0            0            000000000015 
FT2RQ	031575 000015 0   0   007603607062 0            000000000015 
FT3	031575 000015 0   0   007603607062 0            000000000015 
FT9	031576 000015 0   0   007603607062 0            000000000015 
ET0	031576 000015 015 0   007603607062 0            000000000015 
SRT1	031576 000015 763 0   007603607062 0            000000000015 
SCT0	031576 000015 763 0   007603607062 0            000000000015 
SCT3	031576 000015 764 0   017407416144 0            000000000015 
SCT3	031576 000015 765 0   037017034310 0            000000000015 
SCT3	031576 000015 766 0   076036070620 0            000000000015 
SCT3	031576 000015 767 0   174074161440 0            000000000015 
SCT3	031576 000015 0   0   370170343100 0            000000000015 
SCT3	031576 000015 771 0   760360706200 0            000000000015 
SCT3	031576 000015 772 0   740741614401 0            000000000015 
SCT3	031576 000015 773 0   701703431003 0            000000000015 
SCT3	031576 000015 774 0   603607062007 0            000000000015 
SCT3	031576 000015 775 0   407416144017 0            000000000015 
SCT3	031576 000015 776 0   017034310037 0            000000000015 
SCT3	031576 000015 777 0   036070620076 0            000000000015 
SCT3	031576 000015 0   0   074161440174 0            000000000015 
SCT4	031576 000015 0   0   074161440174 0            000000000015 
ST0	031576 000015 0   0   074161440174 0            000000000015 
ST1	031576 000015 0   0   074161440174 0            000000000015 
ST2	031576 000015 0   0   074161440174 0            000000000015 
ST9	031576 000015 0   0   074161440174 0            000000000015 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 152
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0241

*031576 CAME	2,032264
INITIAL
C(AC)=074161 440174 
C(E)=074161 440174 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031576 031576 0   0   312100032264 0            074161440174 
IT1	031576 0      0   0   312100032264 0            074161440174 
AT3	031576 0      0   0   000000032264 0            312100032264 
AT6	031576 032264 0   0   000000032264 0            312100032264 
FT0	031576 032264 0   0   074161440174 0            312100032264 
FT1A	031576 032264 0   0   074161440174 0            074161440174 
FT2	031576 032264 0   0   0            0            074161440174 
FT2RQ	031576 032264 0   0   074161440174 0            074161440174 
FT3	031576 032264 0   0   074161440174 0            074161440174 
FT9	031577 032264 0   0   074161440174 0            074161440174 
ET0	0      032264 0   0   0            0            074161440174 
ST1A	0      032264 0   0   0            0            074161440174 
ST9	0      032264 0   0   0            0            074161440174 


*031600 JUMPA	0,031601
INITIAL
C(AC)=200760 360706 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000031601 0            000000031601 
IT1	0      0      0   0   324000031601 0            000000031601 
AT3	0      0      0   0   000000031601 0            324000031601 
AT6	0      031601 0   0   000000031601 0            324000031601 
FT1A	0      031601 0   0   000000031601 0            000000031601 
FT2	0      031601 0   0   0            0            000000031601 
FT2RQ	0      031601 0   0   200760360706 0            000000031601 
FT3	0      031601 0   0   200760360706 0            000000031601 
FT9	031601 031601 0   0   200760360706 0            000000031601 
ET0	031601 031601 0   0   200760360706 0            000000031601 
ST1A	031601 031601 0   0   200760360706 0            000000031601 
ST9	031601 031601 0   0   200760360706 0            000000031601 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 153
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0242

*031601 CAME	3,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031601 031601 0   0   312140032254 0            172737405060 
IT1	031601 0      0   0   312140032254 0            172737405060 
AT3	031601 0      0   0   000000032254 0            312140032254 
AT6	031601 032254 0   0   000000032254 0            312140032254 
FT0	031601 032254 0   0   172737405060 0            312140032254 
FT1A	031601 032254 0   0   172737405060 0            172737405060 
FT2	031601 032254 0   0   0            0            172737405060 
FT2RQ	031601 032254 0   0   172737405060 0            172737405060 
FT3	031601 032254 0   0   172737405060 0            172737405060 
FT9	031602 032254 0   0   172737405060 0            172737405060 
ET0	031603 032254 0   0   0            0            172737405060 
ST1A	031603 032254 0   0   0            0            172737405060 
ST9	031603 032254 0   0   0            0            172737405060 


*031603 JUMPA	0,031604
INITIAL
C(AC)=200760 360706 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031603 031603 0   0   324000031604 0            000000031604 
IT1	031603 0      0   0   324000031604 0            000000031604 
AT3	031603 0      0   0   000000031604 0            324000031604 
AT6	031603 031604 0   0   000000031604 0            324000031604 
FT1A	031603 031604 0   0   000000031604 0            000000031604 
FT2	031603 031604 0   0   0            0            000000031604 
FT2RQ	031603 031604 0   0   200760360706 0            000000031604 
FT3	031603 031604 0   0   200760360706 0            000000031604 
FT9	031604 031604 0   0   200760360706 0            000000031604 
ET0	031604 031604 0   0   200760360706 0            000000031604 
ST1A	031604 031604 0   0   200760360706 0            000000031604 
ST9	031604 031604 0   0   200760360706 0            000000031604 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 154
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0243

*031604 MOVE 	0,032227
INITIAL
C(AC)=200760 360706 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031604 031604 0   0   200000032227 0            0            
IT1	031604 0      0   0   200000032227 0            0            
AT3	031604 0      0   0   000000032227 0            200000032227 
AT6	031604 032227 0   0   000000032227 0            200000032227 
FT0	031604 032227 0   0   0            0            200000032227 
FT1A	031604 032227 0   0   0            0            0            
FT9	031605 032227 0   0   0            0            0            
ET0	031605 032227 0   0   0            0            0            
ST1	031605 032227 0   0   0            0            0            
ST2	031605 032227 0   0   0            0            0            
ST9	031605 032227 0   0   0            0            0            


*031605 MOVE 	1,032227
INITIAL
C(AC)=172737 405060 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031605 031605 0   0   200040032227 0            0            
IT1	031605 0      0   0   200040032227 0            0            
AT3	031605 0      0   0   000000032227 0            200040032227 
AT6	031605 032227 0   0   000000032227 0            200040032227 
FT0	031605 032227 0   0   0            0            200040032227 
FT1A	031605 032227 0   0   0            0            0            
FT9	031606 032227 0   0   0            0            0            
ET0	031606 032227 0   0   0            0            0            
ST1	031606 032227 0   0   0            0            0            
ST2	031606 032227 0   0   0            0            0            
ST9	031606 032227 0   0   0            0            0            


*031606 ROTC	0,000003
INITIAL
C(AC)=000000 000000   C(AC+1)=000000 000000 
FINAL
C(AC)=000000 000000   C(AC+1)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031606 031606 0   0   245000000003 0            000000000003 
IT1	031606 0      0   0   245000000003 0            000000000003 
AT3	031606 0      0   0   000000000003 0            245000000003 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 155
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0244

AT6	031606 000003 0   0   000000000003 0            245000000003 
FT1A	031606 000003 0   0   000000000003 0            000000000003 
FT2	031606 000003 0   0   0            0            000000000003 
FT2RQ	031606 000003 0   0   0            0            000000000003 
FT3	031606 000003 0   0   0            0            000000000003 
FT4	031606 000003 0   0   0            0            000000000003 
FT4RQ	031606 000003 0   0   0            0            000000000003 
FT4A	031606 000003 0   0   0            0            000000000003 
FT9	031607 000003 0   0   0            0            000000000003 
ET0	031607 000003 003 0   0            0            000000000003 
SRT1	031607 000003 775 0   0            0            000000000003 
SCT0	031607 000003 775 0   0            0            000000000003 
SCT3	031607 000003 776 0   0            0            000000000003 
SCT3	031607 000003 777 0   0            0            000000000003 
SCT3	031607 000003 0   0   0            0            000000000003 
SCT4	031607 000003 0   0   0            0            000000000003 
ST0	031607 000003 0   0   0            0            000000000003 
ST1	031607 000003 0   0   0            0            000000000003 
ST2	031607 000003 0   0   0            0            000000000003 
ST7	031607 000003 0   0   0            0            000000000003 
ST8	031607 000003 0   0   0            0            000000000003 
ST9	031607 000003 0   0   0            0            000000000003 


*031607 CAME	0,032227
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031607 031607 0   0   312000032227 0            0            
IT1	031607 0      0   0   312000032227 0            0            
AT3	031607 0      0   0   000000032227 0            312000032227 
AT6	031607 032227 0   0   000000032227 0            312000032227 
FT0	031607 032227 0   0   0            0            312000032227 
FT1A	031607 032227 0   0   0            0            0            
FT2	031607 032227 0   0   0            0            0            
FT2RQ	031607 032227 0   0   0            0            0            
FT3	031607 032227 0   0   0            0            0            
FT9	031610 032227 0   0   0            0            0            
ET0	031611 032227 0   0   0            0            0            
ST1A	031611 032227 0   0   0            0            0            
ST9	031611 032227 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 156
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0245

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


*031612 CAME	1,032227
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031612 031612 0   0   312040032227 0            0            
IT1	031612 0      0   0   312040032227 0            0            
AT3	031612 0      0   0   000000032227 0            312040032227 
AT6	031612 032227 0   0   000000032227 0            312040032227 
FT0	031612 032227 0   0   0            0            312040032227 
FT1A	031612 032227 0   0   0            0            0            
FT2	031612 032227 0   0   0            0            0            
FT2RQ	031612 032227 0   0   0            0            0            
FT3	031612 032227 0   0   0            0            0            
FT9	031613 032227 0   0   0            0            0            
ET0	031614 032227 0   0   0            0            0            
ST1A	031614 032227 0   0   0            0            0            
ST9	031614 032227 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 157
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0246

*031614 JUMPA	0,031615
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031614 031614 0   0   324000031615 0            000000031615 
IT1	031614 0      0   0   324000031615 0            000000031615 
AT3	031614 0      0   0   000000031615 0            324000031615 
AT6	031614 031615 0   0   000000031615 0            324000031615 
FT1A	031614 031615 0   0   000000031615 0            000000031615 
FT2	031614 031615 0   0   0            0            000000031615 
FT2RQ	031614 031615 0   0   0            0            000000031615 
FT3	031614 031615 0   0   0            0            000000031615 
FT9	031615 031615 0   0   0            0            000000031615 
ET0	031615 031615 0   0   0            0            000000031615 
ST1A	031615 031615 0   0   0            0            000000031615 
ST9	031615 031615 0   0   0            0            000000031615 


*031615 MOVE 	0,032226
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031615 031615 0   0   200000032226 0            777777777777 
IT1	031615 0      0   0   200000032226 0            777777777777 
AT3	031615 0      0   0   000000032226 0            200000032226 
AT6	031615 032226 0   0   000000032226 0            200000032226 
FT0	031615 032226 0   0   777777777777 0            200000032226 
FT1A	031615 032226 0   0   777777777777 0            777777777777 
FT9	031616 032226 0   0   777777777777 0            777777777777 
ET0	031616 032226 0   0   777777777777 0            777777777777 
ST1	031616 032226 0   0   777777777777 0            777777777777 
ST2	031616 032226 0   0   777777777777 0            777777777777 
ST9	031616 032226 0   0   777777777777 0            777777777777 


*031616 MOVE 	1,032226
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031616 031616 0   0   200040032226 0            777777777777 
IT1	031616 0      0   0   200040032226 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 158
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0247

AT3	031616 0      0   0   000000032226 0            200040032226 
AT6	031616 032226 0   0   000000032226 0            200040032226 
FT0	031616 032226 0   0   777777777777 0            200040032226 
FT1A	031616 032226 0   0   777777777777 0            777777777777 
FT9	031617 032226 0   0   777777777777 0            777777777777 
ET0	031617 032226 0   0   777777777777 0            777777777777 
ST1	031617 032226 0   0   777777777777 0            777777777777 
ST2	031617 032226 0   0   777777777777 0            777777777777 
ST9	031617 032226 0   0   777777777777 0            777777777777 


*031617 ROTC	0,000003
INITIAL
C(AC)=777777 777777   C(AC+1)=777777 777777 
FINAL
C(AC)=777777 777777   C(AC+1)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031617 031617 0   0   245000000003 0            000000000003 
IT1	031617 0      0   0   245000000003 0            000000000003 
AT3	031617 0      0   0   000000000003 0            245000000003 
AT6	031617 000003 0   0   000000000003 0            245000000003 
FT1A	031617 000003 0   0   000000000003 0            000000000003 
FT2	031617 000003 0   0   0            0            000000000003 
FT2RQ	031617 000003 0   0   777777777777 0            000000000003 
FT3	031617 000003 0   0   777777777777 0            000000000003 
FT4	031617 000003 0   0   0            777777777777 000000000003 
FT4RQ	031617 000003 0   0   777777777777 777777777777 000000000003 
FT4A	031617 000003 0   0   777777777777 777777777777 000000000003 
FT9	031620 000003 0   0   777777777777 777777777777 000000000003 
ET0	031620 000003 003 0   777777777777 777777777777 000000000003 
SRT1	031620 000003 775 0   777777777777 777777777777 000000000003 
SCT0	031620 000003 775 0   777777777777 777777777777 000000000003 
SCT3	031620 000003 776 0   777777777777 777777777777 000000000003 
SCT3	031620 000003 777 0   777777777777 777777777777 000000000003 
SCT3	031620 000003 0   0   777777777777 777777777777 000000000003 
SCT4	031620 000003 0   0   777777777777 777777777777 000000000003 
ST0	031620 000003 0   0   777777777777 777777777777 000000000003 
ST1	031620 000003 0   0   777777777777 777777777777 000000000003 
ST2	031620 000003 0   0   777777777777 777777777777 000000000003 
ST7	031620 000003 0   0   777777777777 777777777777 000000000003 
ST8	031620 000003 0   0   777777777777 777777777777 000000000003 
ST9	031620 000003 0   0   777777777777 777777777777 000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 159
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0248

*031620 CAME	0,032226
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031620 031620 0   0   312000032226 0            777777777777 
IT1	031620 0      0   0   312000032226 0            777777777777 
AT3	031620 0      0   0   000000032226 0            312000032226 
AT6	031620 032226 0   0   000000032226 0            312000032226 
FT0	031620 032226 0   0   777777777777 0            312000032226 
FT1A	031620 032226 0   0   777777777777 0            777777777777 
FT2	031620 032226 0   0   0            0            777777777777 
FT2RQ	031620 032226 0   0   777777777777 0            777777777777 
FT3	031620 032226 0   0   777777777777 0            777777777777 
FT9	031621 032226 0   0   777777777777 0            777777777777 
ET0	031622 032226 0   0   0            0            777777777777 
ST1A	031622 032226 0   0   0            0            777777777777 
ST9	031622 032226 0   0   0            0            777777777777 


*031622 JUMPA	0,031623
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031622 031622 0   0   324000031623 0            000000031623 
IT1	031622 0      0   0   324000031623 0            000000031623 
AT3	031622 0      0   0   000000031623 0            324000031623 
AT6	031622 031623 0   0   000000031623 0            324000031623 
FT1A	031622 031623 0   0   000000031623 0            000000031623 
FT2	031622 031623 0   0   0            0            000000031623 
FT2RQ	031622 031623 0   0   777777777777 0            000000031623 
FT3	031622 031623 0   0   777777777777 0            000000031623 
FT9	031623 031623 0   0   777777777777 0            000000031623 
ET0	031623 031623 0   0   777777777777 0            000000031623 
ST1A	031623 031623 0   0   777777777777 0            000000031623 
ST9	031623 031623 0   0   777777777777 0            000000031623 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 160
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0249

*031623 CAME	0,032226
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031623 031623 0   0   312000032226 0            777777777777 
IT1	031623 0      0   0   312000032226 0            777777777777 
AT3	031623 0      0   0   000000032226 0            312000032226 
AT6	031623 032226 0   0   000000032226 0            312000032226 
FT0	031623 032226 0   0   777777777777 0            312000032226 
FT1A	031623 032226 0   0   777777777777 0            777777777777 
FT2	031623 032226 0   0   0            0            777777777777 
FT2RQ	031623 032226 0   0   777777777777 0            777777777777 
FT3	031623 032226 0   0   777777777777 0            777777777777 
FT9	031624 032226 0   0   777777777777 0            777777777777 
ET0	031625 032226 0   0   0            0            777777777777 
ST1A	031625 032226 0   0   0            0            777777777777 
ST9	031625 032226 0   0   0            0            777777777777 


*031625 JUMPA	0,031626
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031625 031625 0   0   324000031626 0            000000031626 
IT1	031625 0      0   0   324000031626 0            000000031626 
AT3	031625 0      0   0   000000031626 0            324000031626 
AT6	031625 031626 0   0   000000031626 0            324000031626 
FT1A	031625 031626 0   0   000000031626 0            000000031626 
FT2	031625 031626 0   0   0            0            000000031626 
FT2RQ	031625 031626 0   0   777777777777 0            000000031626 
FT3	031625 031626 0   0   777777777777 0            000000031626 
FT9	031626 031626 0   0   777777777777 0            000000031626 
ET0	031626 031626 0   0   777777777777 0            000000031626 
ST1A	031626 031626 0   0   777777777777 0            000000031626 
ST9	031626 031626 0   0   777777777777 0            000000031626 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 161
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0250

*031626 MOVE 	0,032255
INITIAL
C(AC)=777777 777777 
C(E)=252525 252525 
FINAL
C(AC)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031626 031626 0   0   200000032255 0            252525252525 
IT1	031626 0      0   0   200000032255 0            252525252525 
AT3	031626 0      0   0   000000032255 0            200000032255 
AT6	031626 032255 0   0   000000032255 0            200000032255 
FT0	031626 032255 0   0   252525252525 0            200000032255 
FT1A	031626 032255 0   0   252525252525 0            252525252525 
FT9	031627 032255 0   0   252525252525 0            252525252525 
ET0	031627 032255 0   0   252525252525 0            252525252525 
ST1	031627 032255 0   0   252525252525 0            252525252525 
ST2	031627 032255 0   0   252525252525 0            252525252525 
ST9	031627 032255 0   0   252525252525 0            252525252525 


*031627 MOVE 	1,032255
INITIAL
C(AC)=777777 777777 
C(E)=252525 252525 
FINAL
C(AC)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031627 031627 0   0   200040032255 0            252525252525 
IT1	031627 0      0   0   200040032255 0            252525252525 
AT3	031627 0      0   0   000000032255 0            200040032255 
AT6	031627 032255 0   0   000000032255 0            200040032255 
FT0	031627 032255 0   0   252525252525 0            200040032255 
FT1A	031627 032255 0   0   252525252525 0            252525252525 
FT9	031630 032255 0   0   252525252525 0            252525252525 
ET0	031630 032255 0   0   252525252525 0            252525252525 
ST1	031630 032255 0   0   252525252525 0            252525252525 
ST2	031630 032255 0   0   252525252525 0            252525252525 
ST9	031630 032255 0   0   252525252525 0            252525252525 


*031630 ROTC	0,000003
INITIAL
C(AC)=252525 252525   C(AC+1)=252525 252525 
FINAL
C(AC)=525252 525252   C(AC+1)=525252 525252 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031630 031630 0   0   245000000003 0            000000000003 
IT1	031630 0      0   0   245000000003 0            000000000003 
AT3	031630 0      0   0   000000000003 0            245000000003 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 162
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0251

AT6	031630 000003 0   0   000000000003 0            245000000003 
FT1A	031630 000003 0   0   000000000003 0            000000000003 
FT2	031630 000003 0   0   0            0            000000000003 
FT2RQ	031630 000003 0   0   252525252525 0            000000000003 
FT3	031630 000003 0   0   252525252525 0            000000000003 
FT4	031630 000003 0   0   0            252525252525 000000000003 
FT4RQ	031630 000003 0   0   252525252525 252525252525 000000000003 
FT4A	031630 000003 0   0   252525252525 252525252525 000000000003 
FT9	031631 000003 0   0   252525252525 252525252525 000000000003 
ET0	031631 000003 003 0   252525252525 252525252525 000000000003 
SRT1	031631 000003 775 0   252525252525 252525252525 000000000003 
SCT0	031631 000003 775 0   252525252525 252525252525 000000000003 
SCT3	031631 000003 776 0   525252525252 525252525252 000000000003 
SCT3	031631 000003 777 0   252525252525 252525252525 000000000003 
SCT3	031631 000003 0   0   525252525252 525252525252 000000000003 
SCT4	031631 000003 0   0   525252525252 525252525252 000000000003 
ST0	031631 000003 0   0   525252525252 525252525252 000000000003 
ST1	031631 000003 0   0   525252525252 525252525252 000000000003 
ST2	031631 000003 0   0   525252525252 525252525252 000000000003 
ST7	031631 000003 0   0   525252525252 525252525252 000000000003 
ST8	031631 000003 0   0   525252525252 525252525252 000000000003 
ST9	031631 000003 0   0   525252525252 525252525252 000000000003 


*031631 CAME	0,032256
INITIAL
C(AC)=525252 525252 
C(E)=525252 525252 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031631 031631 0   0   312000032256 0            525252525252 
IT1	031631 0      0   0   312000032256 0            525252525252 
AT3	031631 0      0   0   000000032256 0            312000032256 
AT6	031631 032256 0   0   000000032256 0            312000032256 
FT0	031631 032256 0   0   525252525252 0            312000032256 
FT1A	031631 032256 0   0   525252525252 0            525252525252 
FT2	031631 032256 0   0   0            0            525252525252 
FT2RQ	031631 032256 0   0   525252525252 0            525252525252 
FT3	031631 032256 0   0   525252525252 0            525252525252 
FT9	031632 032256 0   0   525252525252 0            525252525252 
ET0	031633 032256 0   0   0            0            525252525252 
ST1A	031633 032256 0   0   0            0            525252525252 
ST9	031633 032256 0   0   0            0            525252525252 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 163
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0252

*031633 JUMPA	0,031634
INITIAL
C(AC)=525252 525252 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031633 031633 0   0   324000031634 0            000000031634 
IT1	031633 0      0   0   324000031634 0            000000031634 
AT3	031633 0      0   0   000000031634 0            324000031634 
AT6	031633 031634 0   0   000000031634 0            324000031634 
FT1A	031633 031634 0   0   000000031634 0            000000031634 
FT2	031633 031634 0   0   0            0            000000031634 
FT2RQ	031633 031634 0   0   525252525252 0            000000031634 
FT3	031633 031634 0   0   525252525252 0            000000031634 
FT9	031634 031634 0   0   525252525252 0            000000031634 
ET0	031634 031634 0   0   525252525252 0            000000031634 
ST1A	031634 031634 0   0   525252525252 0            000000031634 
ST9	031634 031634 0   0   525252525252 0            000000031634 


*031634 CAME	1,032256
INITIAL
C(AC)=525252 525252 
C(E)=525252 525252 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031634 031634 0   0   312040032256 0            525252525252 
IT1	031634 0      0   0   312040032256 0            525252525252 
AT3	031634 0      0   0   000000032256 0            312040032256 
AT6	031634 032256 0   0   000000032256 0            312040032256 
FT0	031634 032256 0   0   525252525252 0            312040032256 
FT1A	031634 032256 0   0   525252525252 0            525252525252 
FT2	031634 032256 0   0   0            0            525252525252 
FT2RQ	031634 032256 0   0   525252525252 0            525252525252 
FT3	031634 032256 0   0   525252525252 0            525252525252 
FT9	031635 032256 0   0   525252525252 0            525252525252 
ET0	031636 032256 0   0   0            0            525252525252 
ST1A	031636 032256 0   0   0            0            525252525252 
ST9	031636 032256 0   0   0            0            525252525252 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 164
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0253

*031636 JUMPA	0,031637
INITIAL
C(AC)=525252 525252 
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   525252525252 0            000000031637 
FT3	031636 031637 0   0   525252525252 0            000000031637 
FT9	031637 031637 0   0   525252525252 0            000000031637 
ET0	031637 031637 0   0   525252525252 0            000000031637 
ST1A	031637 031637 0   0   525252525252 0            000000031637 
ST9	031637 031637 0   0   525252525252 0            000000031637 


*031637 MOVE 	0,032256
INITIAL
C(AC)=525252 525252 
C(E)=525252 525252 
FINAL
C(AC)=525252 525252 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031637 031637 0   0   200000032256 0            525252525252 
IT1	031637 0      0   0   200000032256 0            525252525252 
AT3	031637 0      0   0   000000032256 0            200000032256 
AT6	031637 032256 0   0   000000032256 0            200000032256 
FT0	031637 032256 0   0   525252525252 0            200000032256 
FT1A	031637 032256 0   0   525252525252 0            525252525252 
FT9	031640 032256 0   0   525252525252 0            525252525252 
ET0	031640 032256 0   0   525252525252 0            525252525252 
ST1	031640 032256 0   0   525252525252 0            525252525252 
ST2	031640 032256 0   0   525252525252 0            525252525252 
ST9	031640 032256 0   0   525252525252 0            525252525252 


*031640 MOVE 	1,032256
INITIAL
C(AC)=525252 525252 
C(E)=525252 525252 
FINAL
C(AC)=525252 525252 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031640 031640 0   0   200040032256 0            525252525252 
IT1	031640 0      0   0   200040032256 0            525252525252 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 165
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0254

AT3	031640 0      0   0   000000032256 0            200040032256 
AT6	031640 032256 0   0   000000032256 0            200040032256 
FT0	031640 032256 0   0   525252525252 0            200040032256 
FT1A	031640 032256 0   0   525252525252 0            525252525252 
FT9	031641 032256 0   0   525252525252 0            525252525252 
ET0	031641 032256 0   0   525252525252 0            525252525252 
ST1	031641 032256 0   0   525252525252 0            525252525252 
ST2	031641 032256 0   0   525252525252 0            525252525252 
ST9	031641 032256 0   0   525252525252 0            525252525252 


*031641 ROTC	0,000003
INITIAL
C(AC)=525252 525252   C(AC+1)=525252 525252 
FINAL
C(AC)=252525 252525   C(AC+1)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031641 031641 0   0   245000000003 0            000000000003 
IT1	031641 0      0   0   245000000003 0            000000000003 
AT3	031641 0      0   0   000000000003 0            245000000003 
AT6	031641 000003 0   0   000000000003 0            245000000003 
FT1A	031641 000003 0   0   000000000003 0            000000000003 
FT2	031641 000003 0   0   0            0            000000000003 
FT2RQ	031641 000003 0   0   525252525252 0            000000000003 
FT3	031641 000003 0   0   525252525252 0            000000000003 
FT4	031641 000003 0   0   0            525252525252 000000000003 
FT4RQ	031641 000003 0   0   525252525252 525252525252 000000000003 
FT4A	031641 000003 0   0   525252525252 525252525252 000000000003 
FT9	031642 000003 0   0   525252525252 525252525252 000000000003 
ET0	031642 000003 003 0   525252525252 525252525252 000000000003 
SRT1	031642 000003 775 0   525252525252 525252525252 000000000003 
SCT0	031642 000003 775 0   525252525252 525252525252 000000000003 
SCT3	031642 000003 776 0   252525252525 252525252525 000000000003 
SCT3	031642 000003 777 0   525252525252 525252525252 000000000003 
SCT3	031642 000003 0   0   252525252525 252525252525 000000000003 
SCT4	031642 000003 0   0   252525252525 252525252525 000000000003 
ST0	031642 000003 0   0   252525252525 252525252525 000000000003 
ST1	031642 000003 0   0   252525252525 252525252525 000000000003 
ST2	031642 000003 0   0   252525252525 252525252525 000000000003 
ST7	031642 000003 0   0   252525252525 252525252525 000000000003 
ST8	031642 000003 0   0   252525252525 252525252525 000000000003 
ST9	031642 000003 0   0   252525252525 252525252525 000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 166
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0255

*031642 CAME	0,032255
INITIAL
C(AC)=252525 252525 
C(E)=252525 252525 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031642 031642 0   0   312000032255 0            252525252525 
IT1	031642 0      0   0   312000032255 0            252525252525 
AT3	031642 0      0   0   000000032255 0            312000032255 
AT6	031642 032255 0   0   000000032255 0            312000032255 
FT0	031642 032255 0   0   252525252525 0            312000032255 
FT1A	031642 032255 0   0   252525252525 0            252525252525 
FT2	031642 032255 0   0   0            0            252525252525 
FT2RQ	031642 032255 0   0   252525252525 0            252525252525 
FT3	031642 032255 0   0   252525252525 0            252525252525 
FT9	031643 032255 0   0   252525252525 0            252525252525 
ET0	031644 032255 0   0   0            0            252525252525 
ST1A	031644 032255 0   0   0            0            252525252525 
ST9	031644 032255 0   0   0            0            252525252525 


*031644 JUMPA	0,031645
INITIAL
C(AC)=252525 252525 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031644 031644 0   0   324000031645 0            000000031645 
IT1	031644 0      0   0   324000031645 0            000000031645 
AT3	031644 0      0   0   000000031645 0            324000031645 
AT6	031644 031645 0   0   000000031645 0            324000031645 
FT1A	031644 031645 0   0   000000031645 0            000000031645 
FT2	031644 031645 0   0   0            0            000000031645 
FT2RQ	031644 031645 0   0   252525252525 0            000000031645 
FT3	031644 031645 0   0   252525252525 0            000000031645 
FT9	031645 031645 0   0   252525252525 0            000000031645 
ET0	031645 031645 0   0   252525252525 0            000000031645 
ST1A	031645 031645 0   0   252525252525 0            000000031645 
ST9	031645 031645 0   0   252525252525 0            000000031645 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 167
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0256

*031645 CAME	1,032255
INITIAL
C(AC)=252525 252525 
C(E)=252525 252525 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031645 031645 0   0   312040032255 0            252525252525 
IT1	031645 0      0   0   312040032255 0            252525252525 
AT3	031645 0      0   0   000000032255 0            312040032255 
AT6	031645 032255 0   0   000000032255 0            312040032255 
FT0	031645 032255 0   0   252525252525 0            312040032255 
FT1A	031645 032255 0   0   252525252525 0            252525252525 
FT2	031645 032255 0   0   0            0            252525252525 
FT2RQ	031645 032255 0   0   252525252525 0            252525252525 
FT3	031645 032255 0   0   252525252525 0            252525252525 
FT9	031646 032255 0   0   252525252525 0            252525252525 
ET0	031647 032255 0   0   0            0            252525252525 
ST1A	031647 032255 0   0   0            0            252525252525 
ST9	031647 032255 0   0   0            0            252525252525 


*031647 JUMPA	0,031650
INITIAL
C(AC)=252525 252525 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031647 031647 0   0   324000031650 0            000000031650 
IT1	031647 0      0   0   324000031650 0            000000031650 
AT3	031647 0      0   0   000000031650 0            324000031650 
AT6	031647 031650 0   0   000000031650 0            324000031650 
FT1A	031647 031650 0   0   000000031650 0            000000031650 
FT2	031647 031650 0   0   0            0            000000031650 
FT2RQ	031647 031650 0   0   252525252525 0            000000031650 
FT3	031647 031650 0   0   252525252525 0            000000031650 
FT9	031650 031650 0   0   252525252525 0            000000031650 
ET0	031650 031650 0   0   252525252525 0            000000031650 
ST1A	031650 031650 0   0   252525252525 0            000000031650 
ST9	031650 031650 0   0   252525252525 0            000000031650 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 168
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0257

*031650 MOVE 	0,032257
INITIAL
C(AC)=252525 252525 
C(E)=230703 603700 
FINAL
C(AC)=230703 603700 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031650 031650 0   0   200000032257 0            230703603700 
IT1	031650 0      0   0   200000032257 0            230703603700 
AT3	031650 0      0   0   000000032257 0            200000032257 
AT6	031650 032257 0   0   000000032257 0            200000032257 
FT0	031650 032257 0   0   230703603700 0            200000032257 
FT1A	031650 032257 0   0   230703603700 0            230703603700 
FT9	031651 032257 0   0   230703603700 0            230703603700 
ET0	031651 032257 0   0   230703603700 0            230703603700 
ST1	031651 032257 0   0   230703603700 0            230703603700 
ST2	031651 032257 0   0   230703603700 0            230703603700 
ST9	031651 032257 0   0   230703603700 0            230703603700 


*031651 MOVE 	1,032265
INITIAL
C(AC)=252525 252525 
C(E)=770037 600377 
FINAL
C(AC)=770037 600377 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031651 031651 0   0   200040032265 0            770037600377 
IT1	031651 0      0   0   200040032265 0            770037600377 
AT3	031651 0      0   0   000000032265 0            200040032265 
AT6	031651 032265 0   0   000000032265 0            200040032265 
FT0	031651 032265 0   0   770037600377 0            200040032265 
FT1A	031651 032265 0   0   770037600377 0            770037600377 
FT9	031652 032265 0   0   770037600377 0            770037600377 
ET0	031652 032265 0   0   770037600377 0            770037600377 
ST1	031652 032265 0   0   770037600377 0            770037600377 
ST2	031652 032265 0   0   770037600377 0            770037600377 
ST9	031652 032265 0   0   770037600377 0            770037600377 


*031652 ROTC	0,000003
INITIAL
C(AC)=230703 603700   C(AC+1)=770037 600377 
FINAL
C(AC)=307036 037007   C(AC+1)=700376 003772 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031652 031652 0   0   245000000003 0            000000000003 
IT1	031652 0      0   0   245000000003 0            000000000003 
AT3	031652 0      0   0   000000000003 0            245000000003 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 169
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0258

AT6	031652 000003 0   0   000000000003 0            245000000003 
FT1A	031652 000003 0   0   000000000003 0            000000000003 
FT2	031652 000003 0   0   0            0            000000000003 
FT2RQ	031652 000003 0   0   230703603700 0            000000000003 
FT3	031652 000003 0   0   230703603700 0            000000000003 
FT4	031652 000003 0   0   0            230703603700 000000000003 
FT4RQ	031652 000003 0   0   770037600377 230703603700 000000000003 
FT4A	031652 000003 0   0   230703603700 770037600377 000000000003 
FT9	031653 000003 0   0   230703603700 770037600377 000000000003 
ET0	031653 000003 003 0   230703603700 770037600377 000000000003 
SRT1	031653 000003 775 0   230703603700 770037600377 000000000003 
SCT0	031653 000003 775 0   230703603700 770037600377 000000000003 
SCT3	031653 000003 776 0   461607407601 760077400776 000000000003 
SCT3	031653 000003 777 0   143417017403 740177001775 000000000003 
SCT3	031653 000003 0   0   307036037007 700376003772 000000000003 
SCT4	031653 000003 0   0   307036037007 700376003772 000000000003 
ST0	031653 000003 0   0   307036037007 700376003772 000000000003 
ST1	031653 000003 0   0   307036037007 700376003772 000000000003 
ST2	031653 000003 0   0   307036037007 700376003772 000000000003 
ST7	031653 000003 0   0   700376003772 700376003772 000000000003 
ST8	031653 000003 0   0   700376003772 700376003772 000000000003 
ST9	031653 000003 0   0   700376003772 700376003772 000000000003 


*031653 CAME	0,032266
INITIAL
C(AC)=307036 037007 
C(E)=307036 037007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031653 031653 0   0   312000032266 0            307036037007 
IT1	031653 0      0   0   312000032266 0            307036037007 
AT3	031653 0      0   0   000000032266 0            312000032266 
AT6	031653 032266 0   0   000000032266 0            312000032266 
FT0	031653 032266 0   0   307036037007 0            312000032266 
FT1A	031653 032266 0   0   307036037007 0            307036037007 
FT2	031653 032266 0   0   0            0            307036037007 
FT2RQ	031653 032266 0   0   307036037007 0            307036037007 
FT3	031653 032266 0   0   307036037007 0            307036037007 
FT9	031654 032266 0   0   307036037007 0            307036037007 
ET0	031655 032266 0   0   0            0            307036037007 
ST1A	031655 032266 0   0   0            0            307036037007 
ST9	031655 032266 0   0   0            0            307036037007 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 170
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0259

*031655 JUMPA	0,031656
INITIAL
C(AC)=307036 037007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031655 031655 0   0   324000031656 0            000000031656 
IT1	031655 0      0   0   324000031656 0            000000031656 
AT3	031655 0      0   0   000000031656 0            324000031656 
AT6	031655 031656 0   0   000000031656 0            324000031656 
FT1A	031655 031656 0   0   000000031656 0            000000031656 
FT2	031655 031656 0   0   0            0            000000031656 
FT2RQ	031655 031656 0   0   307036037007 0            000000031656 
FT3	031655 031656 0   0   307036037007 0            000000031656 
FT9	031656 031656 0   0   307036037007 0            000000031656 
ET0	031656 031656 0   0   307036037007 0            000000031656 
ST1A	031656 031656 0   0   307036037007 0            000000031656 
ST9	031656 031656 0   0   307036037007 0            000000031656 


*031656 CAME	1,032267
INITIAL
C(AC)=700376 003772 
C(E)=700376 003772 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031656 031656 0   0   312040032267 0            700376003772 
IT1	031656 0      0   0   312040032267 0            700376003772 
AT3	031656 0      0   0   000000032267 0            312040032267 
AT6	031656 032267 0   0   000000032267 0            312040032267 
FT0	031656 032267 0   0   700376003772 0            312040032267 
FT1A	031656 032267 0   0   700376003772 0            700376003772 
FT2	031656 032267 0   0   0            0            700376003772 
FT2RQ	031656 032267 0   0   700376003772 0            700376003772 
FT3	031656 032267 0   0   700376003772 0            700376003772 
FT9	031657 032267 0   0   700376003772 0            700376003772 
ET0	031660 032267 0   0   0            0            700376003772 
ST1A	031660 032267 0   0   0            0            700376003772 
ST9	031660 032267 0   0   0            0            700376003772 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 171
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0260

*031660 JUMPA	0,031661
INITIAL
C(AC)=307036 037007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031660 031660 0   0   324000031661 0            000000031661 
IT1	031660 0      0   0   324000031661 0            000000031661 
AT3	031660 0      0   0   000000031661 0            324000031661 
AT6	031660 031661 0   0   000000031661 0            324000031661 
FT1A	031660 031661 0   0   000000031661 0            000000031661 
FT2	031660 031661 0   0   0            0            000000031661 
FT2RQ	031660 031661 0   0   307036037007 0            000000031661 
FT3	031660 031661 0   0   307036037007 0            000000031661 
FT9	031661 031661 0   0   307036037007 0            000000031661 
ET0	031661 031661 0   0   307036037007 0            000000031661 
ST1A	031661 031661 0   0   307036037007 0            000000031661 
ST9	031661 031661 0   0   307036037007 0            000000031661 


*031661 MOVE 	0,032270
INITIAL
C(AC)=307036 037007 
C(E)=776003 760077 
FINAL
C(AC)=776003 760077 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031661 031661 0   0   200000032270 0            776003760077 
IT1	031661 0      0   0   200000032270 0            776003760077 
AT3	031661 0      0   0   000000032270 0            200000032270 
AT6	031661 032270 0   0   000000032270 0            200000032270 
FT0	031661 032270 0   0   776003760077 0            200000032270 
FT1A	031661 032270 0   0   776003760077 0            776003760077 
FT9	031662 032270 0   0   776003760077 0            776003760077 
ET0	031662 032270 0   0   776003760077 0            776003760077 
ST1	031662 032270 0   0   776003760077 0            776003760077 
ST2	031662 032270 0   0   776003760077 0            776003760077 
ST9	031662 032270 0   0   776003760077 0            776003760077 


*031662 MOVE 	1,032261
INITIAL
C(AC)=700376 003772 
C(E)=007603 607062 
FINAL
C(AC)=007603 607062 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031662 031662 0   0   200040032261 0            007603607062 
IT1	031662 0      0   0   200040032261 0            007603607062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 172
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0261

AT3	031662 0      0   0   000000032261 0            200040032261 
AT6	031662 032261 0   0   000000032261 0            200040032261 
FT0	031662 032261 0   0   007603607062 0            200040032261 
FT1A	031662 032261 0   0   007603607062 0            007603607062 
FT9	031663 032261 0   0   007603607062 0            007603607062 
ET0	031663 032261 0   0   007603607062 0            007603607062 
ST1	031663 032261 0   0   007603607062 0            007603607062 
ST2	031663 032261 0   0   007603607062 0            007603607062 
ST9	031663 032261 0   0   007603607062 0            007603607062 


*031663 ROTC	0,000003
INITIAL
C(AC)=776003 760077   C(AC+1)=007603 607062 
FINAL
C(AC)=760037 600770   C(AC+1)=076036 070627 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031663 031663 0   0   245000000003 0            000000000003 
IT1	031663 0      0   0   245000000003 0            000000000003 
AT3	031663 0      0   0   000000000003 0            245000000003 
AT6	031663 000003 0   0   000000000003 0            245000000003 
FT1A	031663 000003 0   0   000000000003 0            000000000003 
FT2	031663 000003 0   0   0            0            000000000003 
FT2RQ	031663 000003 0   0   776003760077 0            000000000003 
FT3	031663 000003 0   0   776003760077 0            000000000003 
FT4	031663 000003 0   0   0            776003760077 000000000003 
FT4RQ	031663 000003 0   0   007603607062 776003760077 000000000003 
FT4A	031663 000003 0   0   776003760077 007603607062 000000000003 
FT9	031664 000003 0   0   776003760077 007603607062 000000000003 
ET0	031664 000003 003 0   776003760077 007603607062 000000000003 
SRT1	031664 000003 775 0   776003760077 007603607062 000000000003 
SCT0	031664 000003 775 0   776003760077 007603607062 000000000003 
SCT3	031664 000003 776 0   774007740176 017407416145 000000000003 
SCT3	031664 000003 777 0   770017700374 037017034313 000000000003 
SCT3	031664 000003 0   0   760037600770 076036070627 000000000003 
SCT4	031664 000003 0   0   760037600770 076036070627 000000000003 
ST0	031664 000003 0   0   760037600770 076036070627 000000000003 
ST1	031664 000003 0   0   760037600770 076036070627 000000000003 
ST2	031664 000003 0   0   760037600770 076036070627 000000000003 
ST7	031664 000003 0   0   076036070627 076036070627 000000000003 
ST8	031664 000003 0   0   076036070627 076036070627 000000000003 
ST9	031664 000003 0   0   076036070627 076036070627 000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 173
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0262

*031664 CAME	0,032271
INITIAL
C(AC)=760037 600770 
C(E)=760037 600770 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031664 031664 0   0   312000032271 0            760037600770 
IT1	031664 0      0   0   312000032271 0            760037600770 
AT3	031664 0      0   0   000000032271 0            312000032271 
AT6	031664 032271 0   0   000000032271 0            312000032271 
FT0	031664 032271 0   0   760037600770 0            312000032271 
FT1A	031664 032271 0   0   760037600770 0            760037600770 
FT2	031664 032271 0   0   0            0            760037600770 
FT2RQ	031664 032271 0   0   760037600770 0            760037600770 
FT3	031664 032271 0   0   760037600770 0            760037600770 
FT9	031665 032271 0   0   760037600770 0            760037600770 
ET0	031666 032271 0   0   0            0            760037600770 
ST1A	031666 032271 0   0   0            0            760037600770 
ST9	031666 032271 0   0   0            0            760037600770 


*031666 JUMPA	0,031667
INITIAL
C(AC)=760037 600770 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031666 031666 0   0   324000031667 0            000000031667 
IT1	031666 0      0   0   324000031667 0            000000031667 
AT3	031666 0      0   0   000000031667 0            324000031667 
AT6	031666 031667 0   0   000000031667 0            324000031667 
FT1A	031666 031667 0   0   000000031667 0            000000031667 
FT2	031666 031667 0   0   0            0            000000031667 
FT2RQ	031666 031667 0   0   760037600770 0            000000031667 
FT3	031666 031667 0   0   760037600770 0            000000031667 
FT9	031667 031667 0   0   760037600770 0            000000031667 
ET0	031667 031667 0   0   760037600770 0            000000031667 
ST1A	031667 031667 0   0   760037600770 0            000000031667 
ST9	031667 031667 0   0   760037600770 0            000000031667 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 174
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0263

*031667 CAME	1,032272
INITIAL
C(AC)=076036 070627 
C(E)=076036 070627 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031667 031667 0   0   312040032272 0            076036070627 
IT1	031667 0      0   0   312040032272 0            076036070627 
AT3	031667 0      0   0   000000032272 0            312040032272 
AT6	031667 032272 0   0   000000032272 0            312040032272 
FT0	031667 032272 0   0   076036070627 0            312040032272 
FT1A	031667 032272 0   0   076036070627 0            076036070627 
FT2	031667 032272 0   0   0            0            076036070627 
FT2RQ	031667 032272 0   0   076036070627 0            076036070627 
FT3	031667 032272 0   0   076036070627 0            076036070627 
FT9	031670 032272 0   0   076036070627 0            076036070627 
ET0	031671 032272 0   0   0            0            076036070627 
ST1A	031671 032272 0   0   0            0            076036070627 
ST9	031671 032272 0   0   0            0            076036070627 


*031671 JUMPA	0,031672
INITIAL
C(AC)=760037 600770 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031671 031671 0   0   324000031672 0            000000031672 
IT1	031671 0      0   0   324000031672 0            000000031672 
AT3	031671 0      0   0   000000031672 0            324000031672 
AT6	031671 031672 0   0   000000031672 0            324000031672 
FT1A	031671 031672 0   0   000000031672 0            000000031672 
FT2	031671 031672 0   0   0            0            000000031672 
FT2RQ	031671 031672 0   0   760037600770 0            000000031672 
FT3	031671 031672 0   0   760037600770 0            000000031672 
FT9	031672 031672 0   0   760037600770 0            000000031672 
ET0	031672 031672 0   0   760037600770 0            000000031672 
ST1A	031672 031672 0   0   760037600770 0            000000031672 
ST9	031672 031672 0   0   760037600770 0            000000031672 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 175
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0264

*031672 MOVE 	0,032227
INITIAL
C(AC)=760037 600770 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031672 031672 0   0   200000032227 0            0            
IT1	031672 0      0   0   200000032227 0            0            
AT3	031672 0      0   0   000000032227 0            200000032227 
AT6	031672 032227 0   0   000000032227 0            200000032227 
FT0	031672 032227 0   0   0            0            200000032227 
FT1A	031672 032227 0   0   0            0            0            
FT9	031673 032227 0   0   0            0            0            
ET0	031673 032227 0   0   0            0            0            
ST1	031673 032227 0   0   0            0            0            
ST2	031673 032227 0   0   0            0            0            
ST9	031673 032227 0   0   0            0            0            


*031673 MOVE 	1,032227
INITIAL
C(AC)=076036 070627 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031673 031673 0   0   200040032227 0            0            
IT1	031673 0      0   0   200040032227 0            0            
AT3	031673 0      0   0   000000032227 0            200040032227 
AT6	031673 032227 0   0   000000032227 0            200040032227 
FT0	031673 032227 0   0   0            0            200040032227 
FT1A	031673 032227 0   0   0            0            0            
FT9	031674 032227 0   0   0            0            0            
ET0	031674 032227 0   0   0            0            0            
ST1	031674 032227 0   0   0            0            0            
ST2	031674 032227 0   0   0            0            0            
ST9	031674 032227 0   0   0            0            0            


*031674 ROTC	0,000007
INITIAL
C(AC)=000000 000000   C(AC+1)=000000 000000 
FINAL
C(AC)=000000 000000   C(AC+1)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031674 031674 0   0   245000000007 0            000000000007 
IT1	031674 0      0   0   245000000007 0            000000000007 
AT3	031674 0      0   0   000000000007 0            245000000007 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 176
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0265

AT6	031674 000007 0   0   000000000007 0            245000000007 
FT1A	031674 000007 0   0   000000000007 0            000000000007 
FT2	031674 000007 0   0   0            0            000000000007 
FT2RQ	031674 000007 0   0   0            0            000000000007 
FT3	031674 000007 0   0   0            0            000000000007 
FT4	031674 000007 0   0   0            0            000000000007 
FT4RQ	031674 000007 0   0   0            0            000000000007 
FT4A	031674 000007 0   0   0            0            000000000007 
FT9	031675 000007 0   0   0            0            000000000007 
ET0	031675 000007 007 0   0            0            000000000007 
SRT1	031675 000007 771 0   0            0            000000000007 
SCT0	031675 000007 771 0   0            0            000000000007 
SCT3	031675 000007 772 0   0            0            000000000007 
SCT3	031675 000007 773 0   0            0            000000000007 
SCT3	031675 000007 774 0   0            0            000000000007 
SCT3	031675 000007 775 0   0            0            000000000007 
SCT3	031675 000007 776 0   0            0            000000000007 
SCT3	031675 000007 777 0   0            0            000000000007 
SCT3	031675 000007 0   0   0            0            000000000007 
SCT4	031675 000007 0   0   0            0            000000000007 
ST0	031675 000007 0   0   0            0            000000000007 
ST1	031675 000007 0   0   0            0            000000000007 
ST2	031675 000007 0   0   0            0            000000000007 
ST7	031675 000007 0   0   0            0            000000000007 
ST8	031675 000007 0   0   0            0            000000000007 
ST9	031675 000007 0   0   0            0            000000000007 


*031675 CAME	0,032227
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031675 031675 0   0   312000032227 0            0            
IT1	031675 0      0   0   312000032227 0            0            
AT3	031675 0      0   0   000000032227 0            312000032227 
AT6	031675 032227 0   0   000000032227 0            312000032227 
FT0	031675 032227 0   0   0            0            312000032227 
FT1A	031675 032227 0   0   0            0            0            
FT2	031675 032227 0   0   0            0            0            
FT2RQ	031675 032227 0   0   0            0            0            
FT3	031675 032227 0   0   0            0            0            
FT9	031676 032227 0   0   0            0            0            
ET0	031677 032227 0   0   0            0            0            
ST1A	031677 032227 0   0   0            0            0            
ST9	031677 032227 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 177
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0266

*031677 JUMPA	0,031700
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031677 031677 0   0   324000031700 0            000000031700 
IT1	031677 0      0   0   324000031700 0            000000031700 
AT3	031677 0      0   0   000000031700 0            324000031700 
AT6	031677 0      0   0   000000031700 0            324000031700 
FT1A	031677 0      0   0   000000031700 0            000000031700 
FT2	031677 0      0   0   0            0            000000031700 
FT2RQ	031677 0      0   0   0            0            000000031700 
FT3	031677 0      0   0   0            0            000000031700 
FT9	0      0      0   0   0            0            000000031700 
ET0	0      0      0   0   0            0            000000031700 
ST1A	0      0      0   0   0            0            000000031700 
ST9	0      0      0   0   0            0            000000031700 


*031700 CAME	1,032227
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   312040032227 0            0            
IT1	0      0      0   0   312040032227 0            0            
AT3	0      0      0   0   000000032227 0            312040032227 
AT6	0      032227 0   0   000000032227 0            312040032227 
FT0	0      032227 0   0   0            0            312040032227 
FT1A	0      032227 0   0   0            0            0            
FT2	0      032227 0   0   0            0            0            
FT2RQ	0      032227 0   0   0            0            0            
FT3	0      032227 0   0   0            0            0            
FT9	031701 032227 0   0   0            0            0            
ET0	031702 032227 0   0   0            0            0            
ST1A	031702 032227 0   0   0            0            0            
ST9	031702 032227 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 178
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0267

*031702 JUMPA	0,031703
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031702 031702 0   0   324000031703 0            000000031703 
IT1	031702 0      0   0   324000031703 0            000000031703 
AT3	031702 0      0   0   000000031703 0            324000031703 
AT6	031702 031703 0   0   000000031703 0            324000031703 
FT1A	031702 031703 0   0   000000031703 0            000000031703 
FT2	031702 031703 0   0   0            0            000000031703 
FT2RQ	031702 031703 0   0   0            0            000000031703 
FT3	031702 031703 0   0   0            0            000000031703 
FT9	031703 031703 0   0   0            0            000000031703 
ET0	031703 031703 0   0   0            0            000000031703 
ST1A	031703 031703 0   0   0            0            000000031703 
ST9	031703 031703 0   0   0            0            000000031703 


*031703 MOVE 	0,032226
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031703 031703 0   0   200000032226 0            777777777777 
IT1	031703 0      0   0   200000032226 0            777777777777 
AT3	031703 0      0   0   000000032226 0            200000032226 
AT6	031703 032226 0   0   000000032226 0            200000032226 
FT0	031703 032226 0   0   777777777777 0            200000032226 
FT1A	031703 032226 0   0   777777777777 0            777777777777 
FT9	031704 032226 0   0   777777777777 0            777777777777 
ET0	031704 032226 0   0   777777777777 0            777777777777 
ST1	031704 032226 0   0   777777777777 0            777777777777 
ST2	031704 032226 0   0   777777777777 0            777777777777 
ST9	031704 032226 0   0   777777777777 0            777777777777 


*031704 MOVE 	1,032226
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031704 031704 0   0   200040032226 0            777777777777 
IT1	031704 0      0   0   200040032226 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 179
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0268

AT3	031704 0      0   0   000000032226 0            200040032226 
AT6	031704 032226 0   0   000000032226 0            200040032226 
FT0	031704 032226 0   0   777777777777 0            200040032226 
FT1A	031704 032226 0   0   777777777777 0            777777777777 
FT9	031705 032226 0   0   777777777777 0            777777777777 
ET0	031705 032226 0   0   777777777777 0            777777777777 
ST1	031705 032226 0   0   777777777777 0            777777777777 
ST2	031705 032226 0   0   777777777777 0            777777777777 
ST9	031705 032226 0   0   777777777777 0            777777777777 


*031705 ROTC	0,000007
INITIAL
C(AC)=777777 777777   C(AC+1)=777777 777777 
FINAL
C(AC)=777777 777777   C(AC+1)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031705 031705 0   0   245000000007 0            000000000007 
IT1	031705 0      0   0   245000000007 0            000000000007 
AT3	031705 0      0   0   000000000007 0            245000000007 
AT6	031705 000007 0   0   000000000007 0            245000000007 
FT1A	031705 000007 0   0   000000000007 0            000000000007 
FT2	031705 000007 0   0   0            0            000000000007 
FT2RQ	031705 000007 0   0   777777777777 0            000000000007 
FT3	031705 000007 0   0   777777777777 0            000000000007 
FT4	031705 000007 0   0   0            777777777777 000000000007 
FT4RQ	031705 000007 0   0   777777777777 777777777777 000000000007 
FT4A	031705 000007 0   0   777777777777 777777777777 000000000007 
FT9	031706 000007 0   0   777777777777 777777777777 000000000007 
ET0	031706 000007 007 0   777777777777 777777777777 000000000007 
SRT1	031706 000007 771 0   777777777777 777777777777 000000000007 
SCT0	031706 000007 771 0   777777777777 777777777777 000000000007 
SCT3	031706 000007 772 0   777777777777 777777777777 000000000007 
SCT3	031706 000007 773 0   777777777777 777777777777 000000000007 
SCT3	031706 000007 774 0   777777777777 777777777777 000000000007 
SCT3	031706 000007 775 0   777777777777 777777777777 000000000007 
SCT3	031706 000007 776 0   777777777777 777777777777 000000000007 
SCT3	031706 000007 777 0   777777777777 777777777777 000000000007 
SCT3	031706 000007 0   0   777777777777 777777777777 000000000007 
SCT4	031706 000007 0   0   777777777777 777777777777 000000000007 
ST0	031706 000007 0   0   777777777777 777777777777 000000000007 
ST1	031706 000007 0   0   777777777777 777777777777 000000000007 
ST2	031706 000007 0   0   777777777777 777777777777 000000000007 
ST7	031706 000007 0   0   777777777777 777777777777 000000000007 
ST8	031706 000007 0   0   777777777777 777777777777 000000000007 
ST9	031706 000007 0   0   777777777777 777777777777 000000000007 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 180
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0269

*031706 CAME	0,032226
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031706 031706 0   0   312000032226 0            777777777777 
IT1	031706 0      0   0   312000032226 0            777777777777 
AT3	031706 0      0   0   000000032226 0            312000032226 
AT6	031706 032226 0   0   000000032226 0            312000032226 
FT0	031706 032226 0   0   777777777777 0            312000032226 
FT1A	031706 032226 0   0   777777777777 0            777777777777 
FT2	031706 032226 0   0   0            0            777777777777 
FT2RQ	031706 032226 0   0   777777777777 0            777777777777 
FT3	031706 032226 0   0   777777777777 0            777777777777 
FT9	031707 032226 0   0   777777777777 0            777777777777 
ET0	031710 032226 0   0   0            0            777777777777 
ST1A	031710 032226 0   0   0            0            777777777777 
ST9	031710 032226 0   0   0            0            777777777777 


*031710 JUMPA	0,031711
INITIAL
C(AC)=777777 777777 
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   777777777777 0            000000031711 
FT3	031710 031711 0   0   777777777777 0            000000031711 
FT9	031711 031711 0   0   777777777777 0            000000031711 
ET0	031711 031711 0   0   777777777777 0            000000031711 
ST1A	031711 031711 0   0   777777777777 0            000000031711 
ST9	031711 031711 0   0   777777777777 0            000000031711 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 181
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0270

*031711 CAME	1,032226
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031711 031711 0   0   312040032226 0            777777777777 
IT1	031711 0      0   0   312040032226 0            777777777777 
AT3	031711 0      0   0   000000032226 0            312040032226 
AT6	031711 032226 0   0   000000032226 0            312040032226 
FT0	031711 032226 0   0   777777777777 0            312040032226 
FT1A	031711 032226 0   0   777777777777 0            777777777777 
FT2	031711 032226 0   0   0            0            777777777777 
FT2RQ	031711 032226 0   0   777777777777 0            777777777777 
FT3	031711 032226 0   0   777777777777 0            777777777777 
FT9	031712 032226 0   0   777777777777 0            777777777777 
ET0	031713 032226 0   0   0            0            777777777777 
ST1A	031713 032226 0   0   0            0            777777777777 
ST9	031713 032226 0   0   0            0            777777777777 


*031713 JUMPA	0,031714
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031713 031713 0   0   324000031714 0            000000031714 
IT1	031713 0      0   0   324000031714 0            000000031714 
AT3	031713 0      0   0   000000031714 0            324000031714 
AT6	031713 031714 0   0   000000031714 0            324000031714 
FT1A	031713 031714 0   0   000000031714 0            000000031714 
FT2	031713 031714 0   0   0            0            000000031714 
FT2RQ	031713 031714 0   0   777777777777 0            000000031714 
FT3	031713 031714 0   0   777777777777 0            000000031714 
FT9	031714 031714 0   0   777777777777 0            000000031714 
ET0	031714 031714 0   0   777777777777 0            000000031714 
ST1A	031714 031714 0   0   777777777777 0            000000031714 
ST9	031714 031714 0   0   777777777777 0            000000031714 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 182
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0271

*031714 MOVE 	0,032255
INITIAL
C(AC)=777777 777777 
C(E)=252525 252525 
FINAL
C(AC)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031714 031714 0   0   200000032255 0            252525252525 
IT1	031714 0      0   0   200000032255 0            252525252525 
AT3	031714 0      0   0   000000032255 0            200000032255 
AT6	031714 032255 0   0   000000032255 0            200000032255 
FT0	031714 032255 0   0   252525252525 0            200000032255 
FT1A	031714 032255 0   0   252525252525 0            252525252525 
FT9	031715 032255 0   0   252525252525 0            252525252525 
ET0	031715 032255 0   0   252525252525 0            252525252525 
ST1	031715 032255 0   0   252525252525 0            252525252525 
ST2	031715 032255 0   0   252525252525 0            252525252525 
ST9	031715 032255 0   0   252525252525 0            252525252525 


*031715 MOVE 	1,032255
INITIAL
C(AC)=777777 777777 
C(E)=252525 252525 
FINAL
C(AC)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031715 031715 0   0   200040032255 0            252525252525 
IT1	031715 0      0   0   200040032255 0            252525252525 
AT3	031715 0      0   0   000000032255 0            200040032255 
AT6	031715 032255 0   0   000000032255 0            200040032255 
FT0	031715 032255 0   0   252525252525 0            200040032255 
FT1A	031715 032255 0   0   252525252525 0            252525252525 
FT9	031716 032255 0   0   252525252525 0            252525252525 
ET0	031716 032255 0   0   252525252525 0            252525252525 
ST1	031716 032255 0   0   252525252525 0            252525252525 
ST2	031716 032255 0   0   252525252525 0            252525252525 
ST9	031716 032255 0   0   252525252525 0            252525252525 


*031716 ROTC	0,000007
INITIAL
C(AC)=252525 252525   C(AC+1)=252525 252525 
FINAL
C(AC)=525252 525252   C(AC+1)=525252 525252 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031716 031716 0   0   245000000007 0            000000000007 
IT1	031716 0      0   0   245000000007 0            000000000007 
AT3	031716 0      0   0   000000000007 0            245000000007 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 183
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0272

AT6	031716 000007 0   0   000000000007 0            245000000007 
FT1A	031716 000007 0   0   000000000007 0            000000000007 
FT2	031716 000007 0   0   0            0            000000000007 
FT2RQ	031716 000007 0   0   252525252525 0            000000000007 
FT3	031716 000007 0   0   252525252525 0            000000000007 
FT4	031716 000007 0   0   0            252525252525 000000000007 
FT4RQ	031716 000007 0   0   252525252525 252525252525 000000000007 
FT4A	031716 000007 0   0   252525252525 252525252525 000000000007 
FT9	031717 000007 0   0   252525252525 252525252525 000000000007 
ET0	031717 000007 007 0   252525252525 252525252525 000000000007 
SRT1	031717 000007 771 0   252525252525 252525252525 000000000007 
SCT0	031717 000007 771 0   252525252525 252525252525 000000000007 
SCT3	031717 000007 772 0   525252525252 525252525252 000000000007 
SCT3	031717 000007 773 0   252525252525 252525252525 000000000007 
SCT3	031717 000007 774 0   525252525252 525252525252 000000000007 
SCT3	031717 000007 775 0   252525252525 252525252525 000000000007 
SCT3	031717 000007 776 0   525252525252 525252525252 000000000007 
SCT3	031717 000007 777 0   252525252525 252525252525 000000000007 
SCT3	031717 000007 0   0   525252525252 525252525252 000000000007 
SCT4	031717 000007 0   0   525252525252 525252525252 000000000007 
ST0	031717 000007 0   0   525252525252 525252525252 000000000007 
ST1	031717 000007 0   0   525252525252 525252525252 000000000007 
ST2	031717 000007 0   0   525252525252 525252525252 000000000007 
ST7	031717 000007 0   0   525252525252 525252525252 000000000007 
ST8	031717 000007 0   0   525252525252 525252525252 000000000007 
ST9	031717 000007 0   0   525252525252 525252525252 000000000007 


*031717 CAME	0,032256
INITIAL
C(AC)=525252 525252 
C(E)=525252 525252 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031717 031717 0   0   312000032256 0            525252525252 
IT1	031717 0      0   0   312000032256 0            525252525252 
AT3	031717 0      0   0   000000032256 0            312000032256 
AT6	031717 032256 0   0   000000032256 0            312000032256 
FT0	031717 032256 0   0   525252525252 0            312000032256 
FT1A	031717 032256 0   0   525252525252 0            525252525252 
FT2	031717 032256 0   0   0            0            525252525252 
FT2RQ	031717 032256 0   0   525252525252 0            525252525252 
FT3	031717 032256 0   0   525252525252 0            525252525252 
FT9	031720 032256 0   0   525252525252 0            525252525252 
ET0	031721 032256 0   0   0            0            525252525252 
ST1A	031721 032256 0   0   0            0            525252525252 
ST9	031721 032256 0   0   0            0            525252525252 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 184
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0273

*031721 JUMPA	0,031722
INITIAL
C(AC)=525252 525252 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031721 031721 0   0   324000031722 0            000000031722 
IT1	031721 0      0   0   324000031722 0            000000031722 
AT3	031721 0      0   0   000000031722 0            324000031722 
AT6	031721 031722 0   0   000000031722 0            324000031722 
FT1A	031721 031722 0   0   000000031722 0            000000031722 
FT2	031721 031722 0   0   0            0            000000031722 
FT2RQ	031721 031722 0   0   525252525252 0            000000031722 
FT3	031721 031722 0   0   525252525252 0            000000031722 
FT9	031722 031722 0   0   525252525252 0            000000031722 
ET0	031722 031722 0   0   525252525252 0            000000031722 
ST1A	031722 031722 0   0   525252525252 0            000000031722 
ST9	031722 031722 0   0   525252525252 0            000000031722 


*031722 CAME	1,032256
INITIAL
C(AC)=525252 525252 
C(E)=525252 525252 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031722 031722 0   0   312040032256 0            525252525252 
IT1	031722 0      0   0   312040032256 0            525252525252 
AT3	031722 0      0   0   000000032256 0            312040032256 
AT6	031722 032256 0   0   000000032256 0            312040032256 
FT0	031722 032256 0   0   525252525252 0            312040032256 
FT1A	031722 032256 0   0   525252525252 0            525252525252 
FT2	031722 032256 0   0   0            0            525252525252 
FT2RQ	031722 032256 0   0   525252525252 0            525252525252 
FT3	031722 032256 0   0   525252525252 0            525252525252 
FT9	031723 032256 0   0   525252525252 0            525252525252 
ET0	031724 032256 0   0   0            0            525252525252 
ST1A	031724 032256 0   0   0            0            525252525252 
ST9	031724 032256 0   0   0            0            525252525252 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 185
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0274

*031724 JUMPA	0,031725
INITIAL
C(AC)=525252 525252 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031724 031724 0   0   324000031725 0            000000031725 
IT1	031724 0      0   0   324000031725 0            000000031725 
AT3	031724 0      0   0   000000031725 0            324000031725 
AT6	031724 031725 0   0   000000031725 0            324000031725 
FT1A	031724 031725 0   0   000000031725 0            000000031725 
FT2	031724 031725 0   0   0            0            000000031725 
FT2RQ	031724 031725 0   0   525252525252 0            000000031725 
FT3	031724 031725 0   0   525252525252 0            000000031725 
FT9	031725 031725 0   0   525252525252 0            000000031725 
ET0	031725 031725 0   0   525252525252 0            000000031725 
ST1A	031725 031725 0   0   525252525252 0            000000031725 
ST9	031725 031725 0   0   525252525252 0            000000031725 


*031725 MOVE 	0,032256
INITIAL
C(AC)=525252 525252 
C(E)=525252 525252 
FINAL
C(AC)=525252 525252 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031725 031725 0   0   200000032256 0            525252525252 
IT1	031725 0      0   0   200000032256 0            525252525252 
AT3	031725 0      0   0   000000032256 0            200000032256 
AT6	031725 032256 0   0   000000032256 0            200000032256 
FT0	031725 032256 0   0   525252525252 0            200000032256 
FT1A	031725 032256 0   0   525252525252 0            525252525252 
FT9	031726 032256 0   0   525252525252 0            525252525252 
ET0	031726 032256 0   0   525252525252 0            525252525252 
ST1	031726 032256 0   0   525252525252 0            525252525252 
ST2	031726 032256 0   0   525252525252 0            525252525252 
ST9	031726 032256 0   0   525252525252 0            525252525252 


*031726 MOVE 	1,032256
INITIAL
C(AC)=525252 525252 
C(E)=525252 525252 
FINAL
C(AC)=525252 525252 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031726 031726 0   0   200040032256 0            525252525252 
IT1	031726 0      0   0   200040032256 0            525252525252 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 186
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0275

AT3	031726 0      0   0   000000032256 0            200040032256 
AT6	031726 032256 0   0   000000032256 0            200040032256 
FT0	031726 032256 0   0   525252525252 0            200040032256 
FT1A	031726 032256 0   0   525252525252 0            525252525252 
FT9	031727 032256 0   0   525252525252 0            525252525252 
ET0	031727 032256 0   0   525252525252 0            525252525252 
ST1	031727 032256 0   0   525252525252 0            525252525252 
ST2	031727 032256 0   0   525252525252 0            525252525252 
ST9	031727 032256 0   0   525252525252 0            525252525252 


*031727 ROTC	0,000007
INITIAL
C(AC)=525252 525252   C(AC+1)=525252 525252 
FINAL
C(AC)=252525 252525   C(AC+1)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031727 031727 0   0   245000000007 0            000000000007 
IT1	031727 0      0   0   245000000007 0            000000000007 
AT3	031727 0      0   0   000000000007 0            245000000007 
AT6	031727 000007 0   0   000000000007 0            245000000007 
FT1A	031727 000007 0   0   000000000007 0            000000000007 
FT2	031727 000007 0   0   0            0            000000000007 
FT2RQ	031727 000007 0   0   525252525252 0            000000000007 
FT3	031727 000007 0   0   525252525252 0            000000000007 
FT4	031727 000007 0   0   0            525252525252 000000000007 
FT4RQ	031727 000007 0   0   525252525252 525252525252 000000000007 
FT4A	031727 000007 0   0   525252525252 525252525252 000000000007 
FT9	031730 000007 0   0   525252525252 525252525252 000000000007 
ET0	031730 000007 007 0   525252525252 525252525252 000000000007 
SRT1	031730 000007 771 0   525252525252 525252525252 000000000007 
SCT0	031730 000007 771 0   525252525252 525252525252 000000000007 
SCT3	031730 000007 772 0   252525252525 252525252525 000000000007 
SCT3	031730 000007 773 0   525252525252 525252525252 000000000007 
SCT3	031730 000007 774 0   252525252525 252525252525 000000000007 
SCT3	031730 000007 775 0   525252525252 525252525252 000000000007 
SCT3	031730 000007 776 0   252525252525 252525252525 000000000007 
SCT3	031730 000007 777 0   525252525252 525252525252 000000000007 
SCT3	031730 000007 0   0   252525252525 252525252525 000000000007 
SCT4	031730 000007 0   0   252525252525 252525252525 000000000007 
ST0	031730 000007 0   0   252525252525 252525252525 000000000007 
ST1	031730 000007 0   0   252525252525 252525252525 000000000007 
ST2	031730 000007 0   0   252525252525 252525252525 000000000007 
ST7	031730 000007 0   0   252525252525 252525252525 000000000007 
ST8	031730 000007 0   0   252525252525 252525252525 000000000007 
ST9	031730 000007 0   0   252525252525 252525252525 000000000007 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 187
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0276

*031730 CAME	0,032255
INITIAL
C(AC)=252525 252525 
C(E)=252525 252525 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031730 031730 0   0   312000032255 0            252525252525 
IT1	031730 0      0   0   312000032255 0            252525252525 
AT3	031730 0      0   0   000000032255 0            312000032255 
AT6	031730 032255 0   0   000000032255 0            312000032255 
FT0	031730 032255 0   0   252525252525 0            312000032255 
FT1A	031730 032255 0   0   252525252525 0            252525252525 
FT2	031730 032255 0   0   0            0            252525252525 
FT2RQ	031730 032255 0   0   252525252525 0            252525252525 
FT3	031730 032255 0   0   252525252525 0            252525252525 
FT9	031731 032255 0   0   252525252525 0            252525252525 
ET0	031732 032255 0   0   0            0            252525252525 
ST1A	031732 032255 0   0   0            0            252525252525 
ST9	031732 032255 0   0   0            0            252525252525 


*031732 JUMPA	0,031733
INITIAL
C(AC)=252525 252525 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031732 031732 0   0   324000031733 0            000000031733 
IT1	031732 0      0   0   324000031733 0            000000031733 
AT3	031732 0      0   0   000000031733 0            324000031733 
AT6	031732 031733 0   0   000000031733 0            324000031733 
FT1A	031732 031733 0   0   000000031733 0            000000031733 
FT2	031732 031733 0   0   0            0            000000031733 
FT2RQ	031732 031733 0   0   252525252525 0            000000031733 
FT3	031732 031733 0   0   252525252525 0            000000031733 
FT9	031733 031733 0   0   252525252525 0            000000031733 
ET0	031733 031733 0   0   252525252525 0            000000031733 
ST1A	031733 031733 0   0   252525252525 0            000000031733 
ST9	031733 031733 0   0   252525252525 0            000000031733 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 188
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0277

*031733 CAME	1,032255
INITIAL
C(AC)=252525 252525 
C(E)=252525 252525 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031733 031733 0   0   312040032255 0            252525252525 
IT1	031733 0      0   0   312040032255 0            252525252525 
AT3	031733 0      0   0   000000032255 0            312040032255 
AT6	031733 032255 0   0   000000032255 0            312040032255 
FT0	031733 032255 0   0   252525252525 0            312040032255 
FT1A	031733 032255 0   0   252525252525 0            252525252525 
FT2	031733 032255 0   0   0            0            252525252525 
FT2RQ	031733 032255 0   0   252525252525 0            252525252525 
FT3	031733 032255 0   0   252525252525 0            252525252525 
FT9	031734 032255 0   0   252525252525 0            252525252525 
ET0	031735 032255 0   0   0            0            252525252525 
ST1A	031735 032255 0   0   0            0            252525252525 
ST9	031735 032255 0   0   0            0            252525252525 


*031735 JUMPA	0,031736
INITIAL
C(AC)=252525 252525 
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   252525252525 0            000000031736 
FT3	031735 031736 0   0   252525252525 0            000000031736 
FT9	031736 031736 0   0   252525252525 0            000000031736 
ET0	031736 031736 0   0   252525252525 0            000000031736 
ST1A	031736 031736 0   0   252525252525 0            000000031736 
ST9	031736 031736 0   0   252525252525 0            000000031736 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 189
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0278

*031736 MOVE 	0,032257
INITIAL
C(AC)=252525 252525 
C(E)=230703 603700 
FINAL
C(AC)=230703 603700 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031736 031736 0   0   200000032257 0            230703603700 
IT1	031736 0      0   0   200000032257 0            230703603700 
AT3	031736 0      0   0   000000032257 0            200000032257 
AT6	031736 032257 0   0   000000032257 0            200000032257 
FT0	031736 032257 0   0   230703603700 0            200000032257 
FT1A	031736 032257 0   0   230703603700 0            230703603700 
FT9	031737 032257 0   0   230703603700 0            230703603700 
ET0	031737 032257 0   0   230703603700 0            230703603700 
ST1	031737 032257 0   0   230703603700 0            230703603700 
ST2	031737 032257 0   0   230703603700 0            230703603700 
ST9	031737 032257 0   0   230703603700 0            230703603700 


*031737 MOVE 	1,032265
INITIAL
C(AC)=252525 252525 
C(E)=770037 600377 
FINAL
C(AC)=770037 600377 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031737 031737 0   0   200040032265 0            770037600377 
IT1	031737 0      0   0   200040032265 0            770037600377 
AT3	031737 0      0   0   000000032265 0            200040032265 
AT6	031737 032265 0   0   000000032265 0            200040032265 
FT0	031737 032265 0   0   770037600377 0            200040032265 
FT1A	031737 032265 0   0   770037600377 0            770037600377 
FT9	031740 032265 0   0   770037600377 0            770037600377 
ET0	031740 032265 0   0   770037600377 0            770037600377 
ST1	031740 032265 0   0   770037600377 0            770037600377 
ST2	031740 032265 0   0   770037600377 0            770037600377 
ST9	031740 032265 0   0   770037600377 0            770037600377 


*031740 ROTC	0,000007
INITIAL
C(AC)=230703 603700   C(AC+1)=770037 600377 
FINAL
C(AC)=160740 760176   C(AC+1)=007740 077646 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031740 031740 0   0   245000000007 0            000000000007 
IT1	031740 0      0   0   245000000007 0            000000000007 
AT3	031740 0      0   0   000000000007 0            245000000007 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 190
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0279

AT6	031740 000007 0   0   000000000007 0            245000000007 
FT1A	031740 000007 0   0   000000000007 0            000000000007 
FT2	031740 000007 0   0   0            0            000000000007 
FT2RQ	031740 000007 0   0   230703603700 0            000000000007 
FT3	031740 000007 0   0   230703603700 0            000000000007 
FT4	031740 000007 0   0   0            230703603700 000000000007 
FT4RQ	031740 000007 0   0   770037600377 230703603700 000000000007 
FT4A	031740 000007 0   0   230703603700 770037600377 000000000007 
FT9	031741 000007 0   0   230703603700 770037600377 000000000007 
ET0	031741 000007 007 0   230703603700 770037600377 000000000007 
SRT1	031741 000007 771 0   230703603700 770037600377 000000000007 
SCT0	031741 000007 771 0   230703603700 770037600377 000000000007 
SCT3	031741 000007 772 0   461607407601 760077400776 000000000007 
SCT3	031741 000007 773 0   143417017403 740177001775 000000000007 
SCT3	031741 000007 774 0   307036037007 700376003772 000000000007 
SCT3	031741 000007 775 0   616074076017 600774007764 000000000007 
SCT3	031741 000007 776 0   434170174037 401770017751 000000000007 
SCT3	031741 000007 777 0   070360370077 003760037723 000000000007 
SCT3	031741 000007 0   0   160740760176 007740077646 000000000007 
SCT4	031741 000007 0   0   160740760176 007740077646 000000000007 
ST0	031741 000007 0   0   160740760176 007740077646 000000000007 
ST1	031741 000007 0   0   160740760176 007740077646 000000000007 
ST2	031741 000007 0   0   160740760176 007740077646 000000000007 
ST7	031741 000007 0   0   007740077646 007740077646 000000000007 
ST8	031741 000007 0   0   007740077646 007740077646 000000000007 
ST9	031741 000007 0   0   007740077646 007740077646 000000000007 


*031741 CAME	0,032273
INITIAL
C(AC)=160740 760176 
C(E)=160740 760176 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031741 031741 0   0   312000032273 0            160740760176 
IT1	031741 0      0   0   312000032273 0            160740760176 
AT3	031741 0      0   0   000000032273 0            312000032273 
AT6	031741 032273 0   0   000000032273 0            312000032273 
FT0	031741 032273 0   0   160740760176 0            312000032273 
FT1A	031741 032273 0   0   160740760176 0            160740760176 
FT2	031741 032273 0   0   0            0            160740760176 
FT2RQ	031741 032273 0   0   160740760176 0            160740760176 
FT3	031741 032273 0   0   160740760176 0            160740760176 
FT9	031742 032273 0   0   160740760176 0            160740760176 
ET0	031743 032273 0   0   0            0            160740760176 
ST1A	031743 032273 0   0   0            0            160740760176 
ST9	031743 032273 0   0   0            0            160740760176 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 191
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0280

*031743 JUMPA	0,031744
INITIAL
C(AC)=160740 760176 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031743 031743 0   0   324000031744 0            000000031744 
IT1	031743 0      0   0   324000031744 0            000000031744 
AT3	031743 0      0   0   000000031744 0            324000031744 
AT6	031743 031744 0   0   000000031744 0            324000031744 
FT1A	031743 031744 0   0   000000031744 0            000000031744 
FT2	031743 031744 0   0   0            0            000000031744 
FT2RQ	031743 031744 0   0   160740760176 0            000000031744 
FT3	031743 031744 0   0   160740760176 0            000000031744 
FT9	031744 031744 0   0   160740760176 0            000000031744 
ET0	031744 031744 0   0   160740760176 0            000000031744 
ST1A	031744 031744 0   0   160740760176 0            000000031744 
ST9	031744 031744 0   0   160740760176 0            000000031744 


*031744 CAME	1,032274
INITIAL
C(AC)=007740 077646 
C(E)=007740 077646 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031744 031744 0   0   312040032274 0            007740077646 
IT1	031744 0      0   0   312040032274 0            007740077646 
AT3	031744 0      0   0   000000032274 0            312040032274 
AT6	031744 032274 0   0   000000032274 0            312040032274 
FT0	031744 032274 0   0   007740077646 0            312040032274 
FT1A	031744 032274 0   0   007740077646 0            007740077646 
FT2	031744 032274 0   0   0            0            007740077646 
FT2RQ	031744 032274 0   0   007740077646 0            007740077646 
FT3	031744 032274 0   0   007740077646 0            007740077646 
FT9	031745 032274 0   0   007740077646 0            007740077646 
ET0	031746 032274 0   0   0            0            007740077646 
ST1A	031746 032274 0   0   0            0            007740077646 
ST9	031746 032274 0   0   0            0            007740077646 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 192
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0281

*031746 JUMPA	0,031747
INITIAL
C(AC)=160740 760176 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031746 031746 0   0   324000031747 0            000000031747 
IT1	031746 0      0   0   324000031747 0            000000031747 
AT3	031746 0      0   0   000000031747 0            324000031747 
AT6	031746 031747 0   0   000000031747 0            324000031747 
FT1A	031746 031747 0   0   000000031747 0            000000031747 
FT2	031746 031747 0   0   0            0            000000031747 
FT2RQ	031746 031747 0   0   160740760176 0            000000031747 
FT3	031746 031747 0   0   160740760176 0            000000031747 
FT9	031747 031747 0   0   160740760176 0            000000031747 
ET0	031747 031747 0   0   160740760176 0            000000031747 
ST1A	031747 031747 0   0   160740760176 0            000000031747 
ST9	031747 031747 0   0   160740760176 0            000000031747 


*031747 MOVE 	0,032270
INITIAL
C(AC)=160740 760176 
C(E)=776003 760077 
FINAL
C(AC)=776003 760077 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031747 031747 0   0   200000032270 0            776003760077 
IT1	031747 0      0   0   200000032270 0            776003760077 
AT3	031747 0      0   0   000000032270 0            200000032270 
AT6	031747 032270 0   0   000000032270 0            200000032270 
FT0	031747 032270 0   0   776003760077 0            200000032270 
FT1A	031747 032270 0   0   776003760077 0            776003760077 
FT9	031750 032270 0   0   776003760077 0            776003760077 
ET0	031750 032270 0   0   776003760077 0            776003760077 
ST1	031750 032270 0   0   776003760077 0            776003760077 
ST2	031750 032270 0   0   776003760077 0            776003760077 
ST9	031750 032270 0   0   776003760077 0            776003760077 


*031750 MOVE 	1,032261
INITIAL
C(AC)=007740 077646 
C(E)=007603 607062 
FINAL
C(AC)=007603 607062 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031750 031750 0   0   200040032261 0            007603607062 
IT1	031750 0      0   0   200040032261 0            007603607062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 193
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0282

AT3	031750 0      0   0   000000032261 0            200040032261 
AT6	031750 032261 0   0   000000032261 0            200040032261 
FT0	031750 032261 0   0   007603607062 0            200040032261 
FT1A	031750 032261 0   0   007603607062 0            007603607062 
FT9	031751 032261 0   0   007603607062 0            007603607062 
ET0	031751 032261 0   0   007603607062 0            007603607062 
ST1	031751 032261 0   0   007603607062 0            007603607062 
ST2	031751 032261 0   0   007603607062 0            007603607062 
ST9	031751 032261 0   0   007603607062 0            007603607062 


*031751 ROTC	0,000007
INITIAL
C(AC)=776003 760077   C(AC+1)=007603 607062 
FINAL
C(AC)=400774 017601   C(AC+1)=740741 614577 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031751 031751 0   0   245000000007 0            000000000007 
IT1	031751 0      0   0   245000000007 0            000000000007 
AT3	031751 0      0   0   000000000007 0            245000000007 
AT6	031751 000007 0   0   000000000007 0            245000000007 
FT1A	031751 000007 0   0   000000000007 0            000000000007 
FT2	031751 000007 0   0   0            0            000000000007 
FT2RQ	031751 000007 0   0   776003760077 0            000000000007 
FT3	031751 000007 0   0   776003760077 0            000000000007 
FT4	031751 000007 0   0   0            776003760077 000000000007 
FT4RQ	031751 000007 0   0   007603607062 776003760077 000000000007 
FT4A	031751 000007 0   0   776003760077 007603607062 000000000007 
FT9	031752 000007 0   0   776003760077 007603607062 000000000007 
ET0	031752 000007 007 0   776003760077 007603607062 000000000007 
SRT1	031752 000007 771 0   776003760077 007603607062 000000000007 
SCT0	031752 000007 771 0   776003760077 007603607062 000000000007 
SCT3	031752 000007 772 0   774007740176 017407416145 000000000007 
SCT3	031752 000007 773 0   770017700374 037017034313 000000000007 
SCT3	031752 000007 774 0   760037600770 076036070627 000000000007 
SCT3	031752 000007 775 0   740077401760 174074161457 000000000007 
SCT3	031752 000007 776 0   700177003740 370170343137 000000000007 
SCT3	031752 000007 777 0   600376007700 760360706277 000000000007 
SCT3	031752 000007 0   0   400774017601 740741614577 000000000007 
SCT4	031752 000007 0   0   400774017601 740741614577 000000000007 
ST0	031752 000007 0   0   400774017601 740741614577 000000000007 
ST1	031752 000007 0   0   400774017601 740741614577 000000000007 
ST2	031752 000007 0   0   400774017601 740741614577 000000000007 
ST7	031752 000007 0   0   740741614577 740741614577 000000000007 
ST8	031752 000007 0   0   740741614577 740741614577 000000000007 
ST9	031752 000007 0   0   740741614577 740741614577 000000000007 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 194
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0283

*031752 CAME	0,032275
INITIAL
C(AC)=400774 017601 
C(E)=400774 017601 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031752 031752 0   0   312000032275 0            400774017601 
IT1	031752 0      0   0   312000032275 0            400774017601 
AT3	031752 0      0   0   000000032275 0            312000032275 
AT6	031752 032275 0   0   000000032275 0            312000032275 
FT0	031752 032275 0   0   400774017601 0            312000032275 
FT1A	031752 032275 0   0   400774017601 0            400774017601 
FT2	031752 032275 0   0   0            0            400774017601 
FT2RQ	031752 032275 0   0   400774017601 0            400774017601 
FT3	031752 032275 0   0   400774017601 0            400774017601 
FT9	031753 032275 0   0   400774017601 0            400774017601 
ET0	031754 032275 0   0   0            0            400774017601 
ST1A	031754 032275 0   0   0            0            400774017601 
ST9	031754 032275 0   0   0            0            400774017601 


*031754 JUMPA	0,031755
INITIAL
C(AC)=400774 017601 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031754 031754 0   0   324000031755 0            000000031755 
IT1	031754 0      0   0   324000031755 0            000000031755 
AT3	031754 0      0   0   000000031755 0            324000031755 
AT6	031754 031755 0   0   000000031755 0            324000031755 
FT1A	031754 031755 0   0   000000031755 0            000000031755 
FT2	031754 031755 0   0   0            0            000000031755 
FT2RQ	031754 031755 0   0   400774017601 0            000000031755 
FT3	031754 031755 0   0   400774017601 0            000000031755 
FT9	031755 031755 0   0   400774017601 0            000000031755 
ET0	031755 031755 0   0   400774017601 0            000000031755 
ST1A	031755 031755 0   0   400774017601 0            000000031755 
ST9	031755 031755 0   0   400774017601 0            000000031755 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 195
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0284

*031755 CAME	1,032276
INITIAL
C(AC)=740741 614577 
C(E)=740741 614577 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031755 031755 0   0   312040032276 0            740741614577 
IT1	031755 0      0   0   312040032276 0            740741614577 
AT3	031755 0      0   0   000000032276 0            312040032276 
AT6	031755 032276 0   0   000000032276 0            312040032276 
FT0	031755 032276 0   0   740741614577 0            312040032276 
FT1A	031755 032276 0   0   740741614577 0            740741614577 
FT2	031755 032276 0   0   0            0            740741614577 
FT2RQ	031755 032276 0   0   740741614577 0            740741614577 
FT3	031755 032276 0   0   740741614577 0            740741614577 
FT9	031756 032276 0   0   740741614577 0            740741614577 
ET0	031757 032276 0   0   0            0            740741614577 
ST1A	031757 032276 0   0   0            0            740741614577 
ST9	031757 032276 0   0   0            0            740741614577 


*031757 JUMPA	0,031760
INITIAL
C(AC)=400774 017601 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031757 031757 0   0   324000031760 0            000000031760 
IT1	031757 0      0   0   324000031760 0            000000031760 
AT3	031757 0      0   0   000000031760 0            324000031760 
AT6	031757 031760 0   0   000000031760 0            324000031760 
FT1A	031757 031760 0   0   000000031760 0            000000031760 
FT2	031757 031760 0   0   0            0            000000031760 
FT2RQ	031757 031760 0   0   400774017601 0            000000031760 
FT3	031757 031760 0   0   400774017601 0            000000031760 
FT9	031760 031760 0   0   400774017601 0            000000031760 
ET0	031760 031760 0   0   400774017601 0            000000031760 
ST1A	031760 031760 0   0   400774017601 0            000000031760 
ST9	031760 031760 0   0   400774017601 0            000000031760 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 196
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0285

*031760 MOVE 	0,032227
INITIAL
C(AC)=400774 017601 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031760 031760 0   0   200000032227 0            0            
IT1	031760 0      0   0   200000032227 0            0            
AT3	031760 0      0   0   000000032227 0            200000032227 
AT6	031760 032227 0   0   000000032227 0            200000032227 
FT0	031760 032227 0   0   0            0            200000032227 
FT1A	031760 032227 0   0   0            0            0            
FT9	031761 032227 0   0   0            0            0            
ET0	031761 032227 0   0   0            0            0            
ST1	031761 032227 0   0   0            0            0            
ST2	031761 032227 0   0   0            0            0            
ST9	031761 032227 0   0   0            0            0            


*031761 MOVE 	1,032254
INITIAL
C(AC)=740741 614577 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031761 031761 0   0   200040032254 0            172737405060 
IT1	031761 0      0   0   200040032254 0            172737405060 
AT3	031761 0      0   0   000000032254 0            200040032254 
AT6	031761 032254 0   0   000000032254 0            200040032254 
FT0	031761 032254 0   0   172737405060 0            200040032254 
FT1A	031761 032254 0   0   172737405060 0            172737405060 
FT9	031762 032254 0   0   172737405060 0            172737405060 
ET0	031762 032254 0   0   172737405060 0            172737405060 
ST1	031762 032254 0   0   172737405060 0            172737405060 
ST2	031762 032254 0   0   172737405060 0            172737405060 
ST9	031762 032254 0   0   172737405060 0            172737405060 


*031762 LSH	0,777745
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031762 031762 0   0   242000777745 0            000000777745 
IT1	031762 0      0   0   242000777745 0            000000777745 
AT3	031762 0      0   0   000000777745 0            242000777745 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 197
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0286

AT6	031762 777745 0   0   000000777745 0            242000777745 
FT1A	031762 777745 0   0   000000777745 0            000000777745 
FT2	031762 777745 0   0   0            0            000000777745 
FT2RQ	031762 777745 0   0   0            0            000000777745 
FT3	031762 777745 0   0   0            0            000000777745 
FT9	031763 777745 0   0   0            0            000000777745 
ET0	031763 777745 745 0   0            0            000000777745 
SCT0	031763 777745 745 0   0            0            000000777745 
SCT3	031763 777745 746 0   0            0            000000777745 
SCT3	031763 777745 747 0   0            0            000000777745 
SCT3	031763 777745 0   0   0            0            000000777745 
SCT3	031763 777745 751 0   0            0            000000777745 
SCT3	031763 777745 752 0   0            0            000000777745 
SCT3	031763 777745 753 0   0            0            000000777745 
SCT3	031763 777745 754 0   0            0            000000777745 
SCT3	031763 777745 755 0   0            0            000000777745 
SCT3	031763 777745 756 0   0            0            000000777745 
SCT3	031763 777745 757 0   0            0            000000777745 
SCT3	031763 777745 0   0   0            0            000000777745 
SCT3	031763 777745 761 0   0            0            000000777745 
SCT3	031763 777745 762 0   0            0            000000777745 
SCT3	031763 777745 763 0   0            0            000000777745 
SCT3	031763 777745 764 0   0            0            000000777745 
SCT3	031763 777745 765 0   0            0            000000777745 
SCT3	031763 777745 766 0   0            0            000000777745 
SCT3	031763 777745 767 0   0            0            000000777745 
SCT3	031763 777745 0   0   0            0            000000777745 
SCT3	031763 777745 771 0   0            0            000000777745 
SCT3	031763 777745 772 0   0            0            000000777745 
SCT3	031763 777745 773 0   0            0            000000777745 
SCT3	031763 777745 774 0   0            0            000000777745 
SCT3	031763 777745 775 0   0            0            000000777745 
SCT3	031763 777745 776 0   0            0            000000777745 
SCT3	031763 777745 777 0   0            0            000000777745 
SCT3	031763 777745 0   0   0            0            000000777745 
SCT4	031763 777745 0   0   0            0            000000777745 
ST0	031763 777745 0   0   0            0            000000777745 
ST1	031763 777745 0   0   0            0            000000777745 
ST2	031763 777745 0   0   0            0            000000777745 
ST9	031763 777745 0   0   0            0            000000777745 


*031763 CAME	0,032227
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031763 031763 0   0   312000032227 0            0            
IT1	031763 0      0   0   312000032227 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 198
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0287

AT3	031763 0      0   0   000000032227 0            312000032227 
AT6	031763 032227 0   0   000000032227 0            312000032227 
FT0	031763 032227 0   0   0            0            312000032227 
FT1A	031763 032227 0   0   0            0            0            
FT2	031763 032227 0   0   0            0            0            
FT2RQ	031763 032227 0   0   0            0            0            
FT3	031763 032227 0   0   0            0            0            
FT9	031764 032227 0   0   0            0            0            
ET0	031765 032227 0   0   0            0            0            
ST1A	031765 032227 0   0   0            0            0            
ST9	031765 032227 0   0   0            0            0            


*031765 JUMPA	0,031766
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031765 031765 0   0   324000031766 0            000000031766 
IT1	031765 0      0   0   324000031766 0            000000031766 
AT3	031765 0      0   0   000000031766 0            324000031766 
AT6	031765 031766 0   0   000000031766 0            324000031766 
FT1A	031765 031766 0   0   000000031766 0            000000031766 
FT2	031765 031766 0   0   0            0            000000031766 
FT2RQ	031765 031766 0   0   0            0            000000031766 
FT3	031765 031766 0   0   0            0            000000031766 
FT9	031766 031766 0   0   0            0            000000031766 
ET0	031766 031766 0   0   0            0            000000031766 
ST1A	031766 031766 0   0   0            0            000000031766 
ST9	031766 031766 0   0   0            0            000000031766 


*031766 CAME	1,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031766 031766 0   0   312040032254 0            172737405060 
IT1	031766 0      0   0   312040032254 0            172737405060 
AT3	031766 0      0   0   000000032254 0            312040032254 
AT6	031766 032254 0   0   000000032254 0            312040032254 
FT0	031766 032254 0   0   172737405060 0            312040032254 
FT1A	031766 032254 0   0   172737405060 0            172737405060 
FT2	031766 032254 0   0   0            0            172737405060 
FT2RQ	031766 032254 0   0   172737405060 0            172737405060 
FT3	031766 032254 0   0   172737405060 0            172737405060 
FT9	031767 032254 0   0   172737405060 0            172737405060 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 199
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0288

ET0	031770 032254 0   0   0            0            172737405060 
ST1A	031770 032254 0   0   0            0            172737405060 
ST9	031770 032254 0   0   0            0            172737405060 


*031770 JUMPA	0,031771
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031770 031770 0   0   324000031771 0            000000031771 
IT1	031770 0      0   0   324000031771 0            000000031771 
AT3	031770 0      0   0   000000031771 0            324000031771 
AT6	031770 031771 0   0   000000031771 0            324000031771 
FT1A	031770 031771 0   0   000000031771 0            000000031771 
FT2	031770 031771 0   0   0            0            000000031771 
FT2RQ	031770 031771 0   0   0            0            000000031771 
FT3	031770 031771 0   0   0            0            000000031771 
FT9	031771 031771 0   0   0            0            000000031771 
ET0	031771 031771 0   0   0            0            000000031771 
ST1A	031771 031771 0   0   0            0            000000031771 
ST9	031771 031771 0   0   0            0            000000031771 


*031771 MOVE 	0,032226
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031771 031771 0   0   200000032226 0            777777777777 
IT1	031771 0      0   0   200000032226 0            777777777777 
AT3	031771 0      0   0   000000032226 0            200000032226 
AT6	031771 032226 0   0   000000032226 0            200000032226 
FT0	031771 032226 0   0   777777777777 0            200000032226 
FT1A	031771 032226 0   0   777777777777 0            777777777777 
FT9	031772 032226 0   0   777777777777 0            777777777777 
ET0	031772 032226 0   0   777777777777 0            777777777777 
ST1	031772 032226 0   0   777777777777 0            777777777777 
ST2	031772 032226 0   0   777777777777 0            777777777777 
ST9	031772 032226 0   0   777777777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 200
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0289

*031772 MOVE 	1,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031772 031772 0   0   200040032254 0            172737405060 
IT1	031772 0      0   0   200040032254 0            172737405060 
AT3	031772 0      0   0   000000032254 0            200040032254 
AT6	031772 032254 0   0   000000032254 0            200040032254 
FT0	031772 032254 0   0   172737405060 0            200040032254 
FT1A	031772 032254 0   0   172737405060 0            172737405060 
FT9	031773 032254 0   0   172737405060 0            172737405060 
ET0	031773 032254 0   0   172737405060 0            172737405060 
ST1	031773 032254 0   0   172737405060 0            172737405060 
ST2	031773 032254 0   0   172737405060 0            172737405060 
ST9	031773 032254 0   0   172737405060 0            172737405060 


*031773 LSH	0,777745
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031773 031773 0   0   242000777745 0            000000777745 
IT1	031773 0      0   0   242000777745 0            000000777745 
AT3	031773 0      0   0   000000777745 0            242000777745 
AT6	031773 777745 0   0   000000777745 0            242000777745 
FT1A	031773 777745 0   0   000000777745 0            000000777745 
FT2	031773 777745 0   0   0            0            000000777745 
FT2RQ	031773 777745 0   0   777777777777 0            000000777745 
FT3	031773 777745 0   0   777777777777 0            000000777745 
FT9	031774 777745 0   0   777777777777 0            000000777745 
ET0	031774 777745 745 0   777777777777 0            000000777745 
SCT0	031774 777745 745 0   777777777777 0            000000777745 
SCT3	031774 777745 746 0   377777777777 0            000000777745 
SCT3	031774 777745 747 0   177777777777 0            000000777745 
SCT3	031774 777745 0   0   077777777777 0            000000777745 
SCT3	031774 777745 751 0   037777777777 0            000000777745 
SCT3	031774 777745 752 0   017777777777 0            000000777745 
SCT3	031774 777745 753 0   007777777777 0            000000777745 
SCT3	031774 777745 754 0   003777777777 0            000000777745 
SCT3	031774 777745 755 0   001777777777 0            000000777745 
SCT3	031774 777745 756 0   000777777777 0            000000777745 
SCT3	031774 777745 757 0   000377777777 0            000000777745 
SCT3	031774 777745 0   0   000177777777 0            000000777745 
SCT3	031774 777745 761 0   000077777777 0            000000777745 
SCT3	031774 777745 762 0   000037777777 0            000000777745 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 201
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0290

SCT3	031774 777745 763 0   000017777777 0            000000777745 
SCT3	031774 777745 764 0   000007777777 0            000000777745 
SCT3	031774 777745 765 0   000003777777 0            000000777745 
SCT3	031774 777745 766 0   000001777777 0            000000777745 
SCT3	031774 777745 767 0   000000777777 0            000000777745 
SCT3	031774 777745 0   0   000000377777 0            000000777745 
SCT3	031774 777745 771 0   000000177777 0            000000777745 
SCT3	031774 777745 772 0   000000077777 0            000000777745 
SCT3	031774 777745 773 0   000000037777 0            000000777745 
SCT3	031774 777745 774 0   000000017777 0            000000777745 
SCT3	031774 777745 775 0   000000007777 0            000000777745 
SCT3	031774 777745 776 0   000000003777 0            000000777745 
SCT3	031774 777745 777 0   000000001777 0            000000777745 
SCT3	031774 777745 0   0   000000000777 0            000000777745 
SCT4	031774 777745 0   0   000000000777 0            000000777745 
ST0	031774 777745 0   0   000000000777 0            000000777745 
ST1	031774 777745 0   0   000000000777 0            000000777745 
ST2	031774 777745 0   0   000000000777 0            000000777745 
ST9	031774 777745 0   0   000000000777 0            000000777745 


*031774 CAME	0,032277
INITIAL
C(AC)=000000 000777 
C(E)=000000 000777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031774 031774 0   0   312000032277 0            000000000777 
IT1	031774 0      0   0   312000032277 0            000000000777 
AT3	031774 0      0   0   000000032277 0            312000032277 
AT6	031774 032277 0   0   000000032277 0            312000032277 
FT0	031774 032277 0   0   000000000777 0            312000032277 
FT1A	031774 032277 0   0   000000000777 0            000000000777 
FT2	031774 032277 0   0   0            0            000000000777 
FT2RQ	031774 032277 0   0   000000000777 0            000000000777 
FT3	031774 032277 0   0   000000000777 0            000000000777 
FT9	031775 032277 0   0   000000000777 0            000000000777 
ET0	031776 032277 0   0   0            0            000000000777 
ST1A	031776 032277 0   0   0            0            000000000777 
ST9	031776 032277 0   0   0            0            000000000777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 202
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0291

*031776 JUMPA	0,031777
INITIAL
C(AC)=000000 000777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031776 031776 0   0   324000031777 0            000000031777 
IT1	031776 0      0   0   324000031777 0            000000031777 
AT3	031776 0      0   0   000000031777 0            324000031777 
AT6	031776 031777 0   0   000000031777 0            324000031777 
FT1A	031776 031777 0   0   000000031777 0            000000031777 
FT2	031776 031777 0   0   0            0            000000031777 
FT2RQ	031776 031777 0   0   000000000777 0            000000031777 
FT3	031776 031777 0   0   000000000777 0            000000031777 
FT9	031777 031777 0   0   000000000777 0            000000031777 
ET0	031777 031777 0   0   000000000777 0            000000031777 
ST1A	031777 031777 0   0   000000000777 0            000000031777 
ST9	031777 031777 0   0   000000000777 0            000000031777 


*031777 CAME	1,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031777 031777 0   0   312040032254 0            172737405060 
IT1	031777 0      0   0   312040032254 0            172737405060 
AT3	031777 0      0   0   000000032254 0            312040032254 
AT6	031777 032254 0   0   000000032254 0            312040032254 
FT0	031777 032254 0   0   172737405060 0            312040032254 
FT1A	031777 032254 0   0   172737405060 0            172737405060 
FT2	031777 032254 0   0   0            0            172737405060 
FT2RQ	031777 032254 0   0   172737405060 0            172737405060 
FT3	031777 032254 0   0   172737405060 0            172737405060 
FT9	0      032254 0   0   172737405060 0            172737405060 
ET0	032001 032254 0   0   0            0            172737405060 
ST1A	032001 032254 0   0   0            0            172737405060 
ST9	032001 032254 0   0   0            0            172737405060 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 203
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0292

*032001 JUMPA	0,032002
INITIAL
C(AC)=000000 000777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032001 032001 0   0   324000032002 0            000000032002 
IT1	032001 0      0   0   324000032002 0            000000032002 
AT3	032001 0      0   0   000000032002 0            324000032002 
AT6	032001 032002 0   0   000000032002 0            324000032002 
FT1A	032001 032002 0   0   000000032002 0            000000032002 
FT2	032001 032002 0   0   0            0            000000032002 
FT2RQ	032001 032002 0   0   000000000777 0            000000032002 
FT3	032001 032002 0   0   000000000777 0            000000032002 
FT9	032002 032002 0   0   000000000777 0            000000032002 
ET0	032002 032002 0   0   000000000777 0            000000032002 
ST1A	032002 032002 0   0   000000000777 0            000000032002 
ST9	032002 032002 0   0   000000000777 0            000000032002 


*032002 MOVE 	0,032255
INITIAL
C(AC)=000000 000777 
C(E)=252525 252525 
FINAL
C(AC)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032002 032002 0   0   200000032255 0            252525252525 
IT1	032002 0      0   0   200000032255 0            252525252525 
AT3	032002 0      0   0   000000032255 0            200000032255 
AT6	032002 032255 0   0   000000032255 0            200000032255 
FT0	032002 032255 0   0   252525252525 0            200000032255 
FT1A	032002 032255 0   0   252525252525 0            252525252525 
FT9	032003 032255 0   0   252525252525 0            252525252525 
ET0	032003 032255 0   0   252525252525 0            252525252525 
ST1	032003 032255 0   0   252525252525 0            252525252525 
ST2	032003 032255 0   0   252525252525 0            252525252525 
ST9	032003 032255 0   0   252525252525 0            252525252525 


*032003 MOVE 	1,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032003 032003 0   0   200040032254 0            172737405060 
IT1	032003 0      0   0   200040032254 0            172737405060 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 204
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0293

AT3	032003 0      0   0   000000032254 0            200040032254 
AT6	032003 032254 0   0   000000032254 0            200040032254 
FT0	032003 032254 0   0   172737405060 0            200040032254 
FT1A	032003 032254 0   0   172737405060 0            172737405060 
FT9	032004 032254 0   0   172737405060 0            172737405060 
ET0	032004 032254 0   0   172737405060 0            172737405060 
ST1	032004 032254 0   0   172737405060 0            172737405060 
ST2	032004 032254 0   0   172737405060 0            172737405060 
ST9	032004 032254 0   0   172737405060 0            172737405060 


*032004 LSH	0,777745
INITIAL
C(AC)=252525 252525 
FINAL
C(AC)=000000 000252 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032004 032004 0   0   242000777745 0            000000777745 
IT1	032004 0      0   0   242000777745 0            000000777745 
AT3	032004 0      0   0   000000777745 0            242000777745 
AT6	032004 777745 0   0   000000777745 0            242000777745 
FT1A	032004 777745 0   0   000000777745 0            000000777745 
FT2	032004 777745 0   0   0            0            000000777745 
FT2RQ	032004 777745 0   0   252525252525 0            000000777745 
FT3	032004 777745 0   0   252525252525 0            000000777745 
FT9	032005 777745 0   0   252525252525 0            000000777745 
ET0	032005 777745 745 0   252525252525 0            000000777745 
SCT0	032005 777745 745 0   252525252525 0            000000777745 
SCT3	032005 777745 746 0   125252525252 0            000000777745 
SCT3	032005 777745 747 0   052525252525 0            000000777745 
SCT3	032005 777745 0   0   025252525252 0            000000777745 
SCT3	032005 777745 751 0   012525252525 0            000000777745 
SCT3	032005 777745 752 0   005252525252 0            000000777745 
SCT3	032005 777745 753 0   002525252525 0            000000777745 
SCT3	032005 777745 754 0   001252525252 0            000000777745 
SCT3	032005 777745 755 0   000525252525 0            000000777745 
SCT3	032005 777745 756 0   000252525252 0            000000777745 
SCT3	032005 777745 757 0   000125252525 0            000000777745 
SCT3	032005 777745 0   0   000052525252 0            000000777745 
SCT3	032005 777745 761 0   000025252525 0            000000777745 
SCT3	032005 777745 762 0   000012525252 0            000000777745 
SCT3	032005 777745 763 0   000005252525 0            000000777745 
SCT3	032005 777745 764 0   000002525252 0            000000777745 
SCT3	032005 777745 765 0   000001252525 0            000000777745 
SCT3	032005 777745 766 0   000000525252 0            000000777745 
SCT3	032005 777745 767 0   000000252525 0            000000777745 
SCT3	032005 777745 0   0   000000125252 0            000000777745 
SCT3	032005 777745 771 0   000000052525 0            000000777745 
SCT3	032005 777745 772 0   000000025252 0            000000777745 
SCT3	032005 777745 773 0   000000012525 0            000000777745 
SCT3	032005 777745 774 0   000000005252 0            000000777745 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 205
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0294

SCT3	032005 777745 775 0   000000002525 0            000000777745 
SCT3	032005 777745 776 0   000000001252 0            000000777745 
SCT3	032005 777745 777 0   000000000525 0            000000777745 
SCT3	032005 777745 0   0   000000000252 0            000000777745 
SCT4	032005 777745 0   0   000000000252 0            000000777745 
ST0	032005 777745 0   0   000000000252 0            000000777745 
ST1	032005 777745 0   0   000000000252 0            000000777745 
ST2	032005 777745 0   0   000000000252 0            000000777745 
ST9	032005 777745 0   0   000000000252 0            000000777745 


*032005 CAME	0,032300
INITIAL
C(AC)=000000 000252 
C(E)=000000 000252 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032005 032005 0   0   312000032300 0            000000000252 
IT1	032005 0      0   0   312000032300 0            000000000252 
AT3	032005 0      0   0   000000032300 0            312000032300 
AT6	032005 0      0   0   000000032300 0            312000032300 
FT0	032005 0      0   0   000000000252 0            312000032300 
FT1A	032005 0      0   0   000000000252 0            000000000252 
FT2	032005 0      0   0   0            0            000000000252 
FT2RQ	032005 0      0   0   000000000252 0            000000000252 
FT3	032005 0      0   0   000000000252 0            000000000252 
FT9	032006 0      0   0   000000000252 0            000000000252 
ET0	032007 0      0   0   0            0            000000000252 
ST1A	032007 0      0   0   0            0            000000000252 
ST9	032007 0      0   0   0            0            000000000252 


*032007 JUMPA	0,032010
INITIAL
C(AC)=000000 000252 
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   000000000252 0            000000032010 
FT3	032007 032010 0   0   000000000252 0            000000032010 
FT9	032010 032010 0   0   000000000252 0            000000032010 
ET0	032010 032010 0   0   000000000252 0            000000032010 
ST1A	032010 032010 0   0   000000000252 0            000000032010 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 206
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0295

ST9	032010 032010 0   0   000000000252 0            000000032010 


*032010 CAME	1,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032010 032010 0   0   312040032254 0            172737405060 
IT1	032010 0      0   0   312040032254 0            172737405060 
AT3	032010 0      0   0   000000032254 0            312040032254 
AT6	032010 032254 0   0   000000032254 0            312040032254 
FT0	032010 032254 0   0   172737405060 0            312040032254 
FT1A	032010 032254 0   0   172737405060 0            172737405060 
FT2	032010 032254 0   0   0            0            172737405060 
FT2RQ	032010 032254 0   0   172737405060 0            172737405060 
FT3	032010 032254 0   0   172737405060 0            172737405060 
FT9	032011 032254 0   0   172737405060 0            172737405060 
ET0	032012 032254 0   0   0            0            172737405060 
ST1A	032012 032254 0   0   0            0            172737405060 
ST9	032012 032254 0   0   0            0            172737405060 


*032012 JUMPA	0,032013
INITIAL
C(AC)=000000 000252 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032012 032012 0   0   324000032013 0            000000032013 
IT1	032012 0      0   0   324000032013 0            000000032013 
AT3	032012 0      0   0   000000032013 0            324000032013 
AT6	032012 032013 0   0   000000032013 0            324000032013 
FT1A	032012 032013 0   0   000000032013 0            000000032013 
FT2	032012 032013 0   0   0            0            000000032013 
FT2RQ	032012 032013 0   0   000000000252 0            000000032013 
FT3	032012 032013 0   0   000000000252 0            000000032013 
FT9	032013 032013 0   0   000000000252 0            000000032013 
ET0	032013 032013 0   0   000000000252 0            000000032013 
ST1A	032013 032013 0   0   000000000252 0            000000032013 
ST9	032013 032013 0   0   000000000252 0            000000032013 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 207
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0296

*032013 MOVE 	0,032256
INITIAL
C(AC)=000000 000252 
C(E)=525252 525252 
FINAL
C(AC)=525252 525252 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032013 032013 0   0   200000032256 0            525252525252 
IT1	032013 0      0   0   200000032256 0            525252525252 
AT3	032013 0      0   0   000000032256 0            200000032256 
AT6	032013 032256 0   0   000000032256 0            200000032256 
FT0	032013 032256 0   0   525252525252 0            200000032256 
FT1A	032013 032256 0   0   525252525252 0            525252525252 
FT9	032014 032256 0   0   525252525252 0            525252525252 
ET0	032014 032256 0   0   525252525252 0            525252525252 
ST1	032014 032256 0   0   525252525252 0            525252525252 
ST2	032014 032256 0   0   525252525252 0            525252525252 
ST9	032014 032256 0   0   525252525252 0            525252525252 


*032014 MOVE 	1,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032014 032014 0   0   200040032254 0            172737405060 
IT1	032014 0      0   0   200040032254 0            172737405060 
AT3	032014 0      0   0   000000032254 0            200040032254 
AT6	032014 032254 0   0   000000032254 0            200040032254 
FT0	032014 032254 0   0   172737405060 0            200040032254 
FT1A	032014 032254 0   0   172737405060 0            172737405060 
FT9	032015 032254 0   0   172737405060 0            172737405060 
ET0	032015 032254 0   0   172737405060 0            172737405060 
ST1	032015 032254 0   0   172737405060 0            172737405060 
ST2	032015 032254 0   0   172737405060 0            172737405060 
ST9	032015 032254 0   0   172737405060 0            172737405060 


*032015 LSH	0,777745
INITIAL
C(AC)=525252 525252 
FINAL
C(AC)=000000 000525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032015 032015 0   0   242000777745 0            000000777745 
IT1	032015 0      0   0   242000777745 0            000000777745 
AT3	032015 0      0   0   000000777745 0            242000777745 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 208
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0297

AT6	032015 777745 0   0   000000777745 0            242000777745 
FT1A	032015 777745 0   0   000000777745 0            000000777745 
FT2	032015 777745 0   0   0            0            000000777745 
FT2RQ	032015 777745 0   0   525252525252 0            000000777745 
FT3	032015 777745 0   0   525252525252 0            000000777745 
FT9	032016 777745 0   0   525252525252 0            000000777745 
ET0	032016 777745 745 0   525252525252 0            000000777745 
SCT0	032016 777745 745 0   525252525252 0            000000777745 
SCT3	032016 777745 746 0   252525252525 0            000000777745 
SCT3	032016 777745 747 0   125252525252 0            000000777745 
SCT3	032016 777745 0   0   052525252525 0            000000777745 
SCT3	032016 777745 751 0   025252525252 0            000000777745 
SCT3	032016 777745 752 0   012525252525 0            000000777745 
SCT3	032016 777745 753 0   005252525252 0            000000777745 
SCT3	032016 777745 754 0   002525252525 0            000000777745 
SCT3	032016 777745 755 0   001252525252 0            000000777745 
SCT3	032016 777745 756 0   000525252525 0            000000777745 
SCT3	032016 777745 757 0   000252525252 0            000000777745 
SCT3	032016 777745 0   0   000125252525 0            000000777745 
SCT3	032016 777745 761 0   000052525252 0            000000777745 
SCT3	032016 777745 762 0   000025252525 0            000000777745 
SCT3	032016 777745 763 0   000012525252 0            000000777745 
SCT3	032016 777745 764 0   000005252525 0            000000777745 
SCT3	032016 777745 765 0   000002525252 0            000000777745 
SCT3	032016 777745 766 0   000001252525 0            000000777745 
SCT3	032016 777745 767 0   000000525252 0            000000777745 
SCT3	032016 777745 0   0   000000252525 0            000000777745 
SCT3	032016 777745 771 0   000000125252 0            000000777745 
SCT3	032016 777745 772 0   000000052525 0            000000777745 
SCT3	032016 777745 773 0   000000025252 0            000000777745 
SCT3	032016 777745 774 0   000000012525 0            000000777745 
SCT3	032016 777745 775 0   000000005252 0            000000777745 
SCT3	032016 777745 776 0   000000002525 0            000000777745 
SCT3	032016 777745 777 0   000000001252 0            000000777745 
SCT3	032016 777745 0   0   000000000525 0            000000777745 
SCT4	032016 777745 0   0   000000000525 0            000000777745 
ST0	032016 777745 0   0   000000000525 0            000000777745 
ST1	032016 777745 0   0   000000000525 0            000000777745 
ST2	032016 777745 0   0   000000000525 0            000000777745 
ST9	032016 777745 0   0   000000000525 0            000000777745 


*032016 CAME	0,032301
INITIAL
C(AC)=000000 000525 
C(E)=000000 000525 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032016 032016 0   0   312000032301 0            000000000525 
IT1	032016 0      0   0   312000032301 0            000000000525 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 209
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0298

AT3	032016 0      0   0   000000032301 0            312000032301 
AT6	032016 032301 0   0   000000032301 0            312000032301 
FT0	032016 032301 0   0   000000000525 0            312000032301 
FT1A	032016 032301 0   0   000000000525 0            000000000525 
FT2	032016 032301 0   0   0            0            000000000525 
FT2RQ	032016 032301 0   0   000000000525 0            000000000525 
FT3	032016 032301 0   0   000000000525 0            000000000525 
FT9	032017 032301 0   0   000000000525 0            000000000525 
ET0	032020 032301 0   0   0            0            000000000525 
ST1A	032020 032301 0   0   0            0            000000000525 
ST9	032020 032301 0   0   0            0            000000000525 


*032020 JUMPA	0,032021
INITIAL
C(AC)=000000 000525 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032020 032020 0   0   324000032021 0            000000032021 
IT1	032020 0      0   0   324000032021 0            000000032021 
AT3	032020 0      0   0   000000032021 0            324000032021 
AT6	032020 032021 0   0   000000032021 0            324000032021 
FT1A	032020 032021 0   0   000000032021 0            000000032021 
FT2	032020 032021 0   0   0            0            000000032021 
FT2RQ	032020 032021 0   0   000000000525 0            000000032021 
FT3	032020 032021 0   0   000000000525 0            000000032021 
FT9	032021 032021 0   0   000000000525 0            000000032021 
ET0	032021 032021 0   0   000000000525 0            000000032021 
ST1A	032021 032021 0   0   000000000525 0            000000032021 
ST9	032021 032021 0   0   000000000525 0            000000032021 


*032021 CAME	1,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032021 032021 0   0   312040032254 0            172737405060 
IT1	032021 0      0   0   312040032254 0            172737405060 
AT3	032021 0      0   0   000000032254 0            312040032254 
AT6	032021 032254 0   0   000000032254 0            312040032254 
FT0	032021 032254 0   0   172737405060 0            312040032254 
FT1A	032021 032254 0   0   172737405060 0            172737405060 
FT2	032021 032254 0   0   0            0            172737405060 
FT2RQ	032021 032254 0   0   172737405060 0            172737405060 
FT3	032021 032254 0   0   172737405060 0            172737405060 
FT9	032022 032254 0   0   172737405060 0            172737405060 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 210
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0299

ET0	032023 032254 0   0   0            0            172737405060 
ST1A	032023 032254 0   0   0            0            172737405060 
ST9	032023 032254 0   0   0            0            172737405060 


*032023 JUMPA	0,032024
INITIAL
C(AC)=000000 000525 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032023 032023 0   0   324000032024 0            000000032024 
IT1	032023 0      0   0   324000032024 0            000000032024 
AT3	032023 0      0   0   000000032024 0            324000032024 
AT6	032023 032024 0   0   000000032024 0            324000032024 
FT1A	032023 032024 0   0   000000032024 0            000000032024 
FT2	032023 032024 0   0   0            0            000000032024 
FT2RQ	032023 032024 0   0   000000000525 0            000000032024 
FT3	032023 032024 0   0   000000000525 0            000000032024 
FT9	032024 032024 0   0   000000000525 0            000000032024 
ET0	032024 032024 0   0   000000000525 0            000000032024 
ST1A	032024 032024 0   0   000000000525 0            000000032024 
ST9	032024 032024 0   0   000000000525 0            000000032024 


*032024 MOVE 	0,032257
INITIAL
C(AC)=000000 000525 
C(E)=230703 603700 
FINAL
C(AC)=230703 603700 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032024 032024 0   0   200000032257 0            230703603700 
IT1	032024 0      0   0   200000032257 0            230703603700 
AT3	032024 0      0   0   000000032257 0            200000032257 
AT6	032024 032257 0   0   000000032257 0            200000032257 
FT0	032024 032257 0   0   230703603700 0            200000032257 
FT1A	032024 032257 0   0   230703603700 0            230703603700 
FT9	032025 032257 0   0   230703603700 0            230703603700 
ET0	032025 032257 0   0   230703603700 0            230703603700 
ST1	032025 032257 0   0   230703603700 0            230703603700 
ST2	032025 032257 0   0   230703603700 0            230703603700 
ST9	032025 032257 0   0   230703603700 0            230703603700 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 211
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0300

*032025 MOVE 	1,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032025 032025 0   0   200040032254 0            172737405060 
IT1	032025 0      0   0   200040032254 0            172737405060 
AT3	032025 0      0   0   000000032254 0            200040032254 
AT6	032025 032254 0   0   000000032254 0            200040032254 
FT0	032025 032254 0   0   172737405060 0            200040032254 
FT1A	032025 032254 0   0   172737405060 0            172737405060 
FT9	032026 032254 0   0   172737405060 0            172737405060 
ET0	032026 032254 0   0   172737405060 0            172737405060 
ST1	032026 032254 0   0   172737405060 0            172737405060 
ST2	032026 032254 0   0   172737405060 0            172737405060 
ST9	032026 032254 0   0   172737405060 0            172737405060 


*032026 LSH	0,777745
INITIAL
C(AC)=230703 603700 
FINAL
C(AC)=000000 000230 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032026 032026 0   0   242000777745 0            000000777745 
IT1	032026 0      0   0   242000777745 0            000000777745 
AT3	032026 0      0   0   000000777745 0            242000777745 
AT6	032026 777745 0   0   000000777745 0            242000777745 
FT1A	032026 777745 0   0   000000777745 0            000000777745 
FT2	032026 777745 0   0   0            0            000000777745 
FT2RQ	032026 777745 0   0   230703603700 0            000000777745 
FT3	032026 777745 0   0   230703603700 0            000000777745 
FT9	032027 777745 0   0   230703603700 0            000000777745 
ET0	032027 777745 745 0   230703603700 0            000000777745 
SCT0	032027 777745 745 0   230703603700 0            000000777745 
SCT3	032027 777745 746 0   114341701740 0            000000777745 
SCT3	032027 777745 747 0   046160740760 0            000000777745 
SCT3	032027 777745 0   0   023070360370 0            000000777745 
SCT3	032027 777745 751 0   011434170174 0            000000777745 
SCT3	032027 777745 752 0   004616074076 0            000000777745 
SCT3	032027 777745 753 0   002307036037 0            000000777745 
SCT3	032027 777745 754 0   001143417017 0            000000777745 
SCT3	032027 777745 755 0   000461607407 0            000000777745 
SCT3	032027 777745 756 0   000230703603 0            000000777745 
SCT3	032027 777745 757 0   000114341701 0            000000777745 
SCT3	032027 777745 0   0   000046160740 0            000000777745 
SCT3	032027 777745 761 0   000023070360 0            000000777745 
SCT3	032027 777745 762 0   000011434170 0            000000777745 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 212
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0301

SCT3	032027 777745 763 0   000004616074 0            000000777745 
SCT3	032027 777745 764 0   000002307036 0            000000777745 
SCT3	032027 777745 765 0   000001143417 0            000000777745 
SCT3	032027 777745 766 0   000000461607 0            000000777745 
SCT3	032027 777745 767 0   000000230703 0            000000777745 
SCT3	032027 777745 0   0   000000114341 0            000000777745 
SCT3	032027 777745 771 0   000000046160 0            000000777745 
SCT3	032027 777745 772 0   000000023070 0            000000777745 
SCT3	032027 777745 773 0   000000011434 0            000000777745 
SCT3	032027 777745 774 0   000000004616 0            000000777745 
SCT3	032027 777745 775 0   000000002307 0            000000777745 
SCT3	032027 777745 776 0   000000001143 0            000000777745 
SCT3	032027 777745 777 0   000000000461 0            000000777745 
SCT3	032027 777745 0   0   000000000230 0            000000777745 
SCT4	032027 777745 0   0   000000000230 0            000000777745 
ST0	032027 777745 0   0   000000000230 0            000000777745 
ST1	032027 777745 0   0   000000000230 0            000000777745 
ST2	032027 777745 0   0   000000000230 0            000000777745 
ST9	032027 777745 0   0   000000000230 0            000000777745 


*032027 CAME	0,032302
INITIAL
C(AC)=000000 000230 
C(E)=000000 000230 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032027 032027 0   0   312000032302 0            000000000230 
IT1	032027 0      0   0   312000032302 0            000000000230 
AT3	032027 0      0   0   000000032302 0            312000032302 
AT6	032027 032302 0   0   000000032302 0            312000032302 
FT0	032027 032302 0   0   000000000230 0            312000032302 
FT1A	032027 032302 0   0   000000000230 0            000000000230 
FT2	032027 032302 0   0   0            0            000000000230 
FT2RQ	032027 032302 0   0   000000000230 0            000000000230 
FT3	032027 032302 0   0   000000000230 0            000000000230 
FT9	032030 032302 0   0   000000000230 0            000000000230 
ET0	032031 032302 0   0   0            0            000000000230 
ST1A	032031 032302 0   0   0            0            000000000230 
ST9	032031 032302 0   0   0            0            000000000230 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 213
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0302

*032031 JUMPA	0,032032
INITIAL
C(AC)=000000 000230 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032031 032031 0   0   324000032032 0            000000032032 
IT1	032031 0      0   0   324000032032 0            000000032032 
AT3	032031 0      0   0   000000032032 0            324000032032 
AT6	032031 032032 0   0   000000032032 0            324000032032 
FT1A	032031 032032 0   0   000000032032 0            000000032032 
FT2	032031 032032 0   0   0            0            000000032032 
FT2RQ	032031 032032 0   0   000000000230 0            000000032032 
FT3	032031 032032 0   0   000000000230 0            000000032032 
FT9	032032 032032 0   0   000000000230 0            000000032032 
ET0	032032 032032 0   0   000000000230 0            000000032032 
ST1A	032032 032032 0   0   000000000230 0            000000032032 
ST9	032032 032032 0   0   000000000230 0            000000032032 


*032032 CAME	1,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032032 032032 0   0   312040032254 0            172737405060 
IT1	032032 0      0   0   312040032254 0            172737405060 
AT3	032032 0      0   0   000000032254 0            312040032254 
AT6	032032 032254 0   0   000000032254 0            312040032254 
FT0	032032 032254 0   0   172737405060 0            312040032254 
FT1A	032032 032254 0   0   172737405060 0            172737405060 
FT2	032032 032254 0   0   0            0            172737405060 
FT2RQ	032032 032254 0   0   172737405060 0            172737405060 
FT3	032032 032254 0   0   172737405060 0            172737405060 
FT9	032033 032254 0   0   172737405060 0            172737405060 
ET0	032034 032254 0   0   0            0            172737405060 
ST1A	032034 032254 0   0   0            0            172737405060 
ST9	032034 032254 0   0   0            0            172737405060 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 214
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0303

*032034 JUMPA	0,032035
INITIAL
C(AC)=000000 000230 
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   000000000230 0            000000032035 
FT3	032034 032035 0   0   000000000230 0            000000032035 
FT9	032035 032035 0   0   000000000230 0            000000032035 
ET0	032035 032035 0   0   000000000230 0            000000032035 
ST1A	032035 032035 0   0   000000000230 0            000000032035 
ST9	032035 032035 0   0   000000000230 0            000000032035 


*032035 MOVE 	0,032261
INITIAL
C(AC)=000000 000230 
C(E)=007603 607062 
FINAL
C(AC)=007603 607062 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032035 032035 0   0   200000032261 0            007603607062 
IT1	032035 0      0   0   200000032261 0            007603607062 
AT3	032035 0      0   0   000000032261 0            200000032261 
AT6	032035 032261 0   0   000000032261 0            200000032261 
FT0	032035 032261 0   0   007603607062 0            200000032261 
FT1A	032035 032261 0   0   007603607062 0            007603607062 
FT9	032036 032261 0   0   007603607062 0            007603607062 
ET0	032036 032261 0   0   007603607062 0            007603607062 
ST1	032036 032261 0   0   007603607062 0            007603607062 
ST2	032036 032261 0   0   007603607062 0            007603607062 
ST9	032036 032261 0   0   007603607062 0            007603607062 


*032036 MOVE 	1,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032036 032036 0   0   200040032254 0            172737405060 
IT1	032036 0      0   0   200040032254 0            172737405060 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 215
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0304

AT3	032036 0      0   0   000000032254 0            200040032254 
AT6	032036 032254 0   0   000000032254 0            200040032254 
FT0	032036 032254 0   0   172737405060 0            200040032254 
FT1A	032036 032254 0   0   172737405060 0            172737405060 
FT9	032037 032254 0   0   172737405060 0            172737405060 
ET0	032037 032254 0   0   172737405060 0            172737405060 
ST1	032037 032254 0   0   172737405060 0            172737405060 
ST2	032037 032254 0   0   172737405060 0            172737405060 
ST9	032037 032254 0   0   172737405060 0            172737405060 


*032037 LSH	0,777745
INITIAL
C(AC)=007603 607062 
FINAL
C(AC)=000000 000007 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032037 032037 0   0   242000777745 0            000000777745 
IT1	032037 0      0   0   242000777745 0            000000777745 
AT3	032037 0      0   0   000000777745 0            242000777745 
AT6	032037 777745 0   0   000000777745 0            242000777745 
FT1A	032037 777745 0   0   000000777745 0            000000777745 
FT2	032037 777745 0   0   0            0            000000777745 
FT2RQ	032037 777745 0   0   007603607062 0            000000777745 
FT3	032037 777745 0   0   007603607062 0            000000777745 
FT9	032040 777745 0   0   007603607062 0            000000777745 
ET0	032040 777745 745 0   007603607062 0            000000777745 
SCT0	032040 777745 745 0   007603607062 0            000000777745 
SCT3	032040 777745 746 0   003701703431 0            000000777745 
SCT3	032040 777745 747 0   001740741614 0            000000777745 
SCT3	032040 777745 0   0   000760360706 0            000000777745 
SCT3	032040 777745 751 0   000370170343 0            000000777745 
SCT3	032040 777745 752 0   000174074161 0            000000777745 
SCT3	032040 777745 753 0   000076036070 0            000000777745 
SCT3	032040 777745 754 0   000037017034 0            000000777745 
SCT3	032040 777745 755 0   000017407416 0            000000777745 
SCT3	032040 777745 756 0   000007603607 0            000000777745 
SCT3	032040 777745 757 0   000003701703 0            000000777745 
SCT3	032040 777745 0   0   000001740741 0            000000777745 
SCT3	032040 777745 761 0   000000760360 0            000000777745 
SCT3	032040 777745 762 0   000000370170 0            000000777745 
SCT3	032040 777745 763 0   000000174074 0            000000777745 
SCT3	032040 777745 764 0   000000076036 0            000000777745 
SCT3	032040 777745 765 0   000000037017 0            000000777745 
SCT3	032040 777745 766 0   000000017407 0            000000777745 
SCT3	032040 777745 767 0   000000007603 0            000000777745 
SCT3	032040 777745 0   0   000000003701 0            000000777745 
SCT3	032040 777745 771 0   000000001740 0            000000777745 
SCT3	032040 777745 772 0   000000000760 0            000000777745 
SCT3	032040 777745 773 0   000000000370 0            000000777745 
SCT3	032040 777745 774 0   000000000174 0            000000777745 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 216
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0305

SCT3	032040 777745 775 0   000000000076 0            000000777745 
SCT3	032040 777745 776 0   000000000037 0            000000777745 
SCT3	032040 777745 777 0   000000000017 0            000000777745 
SCT3	032040 777745 0   0   000000000007 0            000000777745 
SCT4	032040 777745 0   0   000000000007 0            000000777745 
ST0	032040 777745 0   0   000000000007 0            000000777745 
ST1	032040 777745 0   0   000000000007 0            000000777745 
ST2	032040 777745 0   0   000000000007 0            000000777745 
ST9	032040 777745 0   0   000000000007 0            000000777745 


*032040 CAME	0,032252
INITIAL
C(AC)=000000 000007 
C(E)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032040 032040 0   0   312000032252 0            000000000007 
IT1	032040 0      0   0   312000032252 0            000000000007 
AT3	032040 0      0   0   000000032252 0            312000032252 
AT6	032040 032252 0   0   000000032252 0            312000032252 
FT0	032040 032252 0   0   000000000007 0            312000032252 
FT1A	032040 032252 0   0   000000000007 0            000000000007 
FT2	032040 032252 0   0   0            0            000000000007 
FT2RQ	032040 032252 0   0   000000000007 0            000000000007 
FT3	032040 032252 0   0   000000000007 0            000000000007 
FT9	032041 032252 0   0   000000000007 0            000000000007 
ET0	032042 032252 0   0   0            0            000000000007 
ST1A	032042 032252 0   0   0            0            000000000007 
ST9	032042 032252 0   0   0            0            000000000007 


*032042 JUMPA	0,032043
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032042 032042 0   0   324000032043 0            000000032043 
IT1	032042 0      0   0   324000032043 0            000000032043 
AT3	032042 0      0   0   000000032043 0            324000032043 
AT6	032042 032043 0   0   000000032043 0            324000032043 
FT1A	032042 032043 0   0   000000032043 0            000000032043 
FT2	032042 032043 0   0   0            0            000000032043 
FT2RQ	032042 032043 0   0   000000000007 0            000000032043 
FT3	032042 032043 0   0   000000000007 0            000000032043 
FT9	032043 032043 0   0   000000000007 0            000000032043 
ET0	032043 032043 0   0   000000000007 0            000000032043 
ST1A	032043 032043 0   0   000000000007 0            000000032043 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 217
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0306

ST9	032043 032043 0   0   000000000007 0            000000032043 


*032043 CAME	1,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032043 032043 0   0   312040032254 0            172737405060 
IT1	032043 0      0   0   312040032254 0            172737405060 
AT3	032043 0      0   0   000000032254 0            312040032254 
AT6	032043 032254 0   0   000000032254 0            312040032254 
FT0	032043 032254 0   0   172737405060 0            312040032254 
FT1A	032043 032254 0   0   172737405060 0            172737405060 
FT2	032043 032254 0   0   0            0            172737405060 
FT2RQ	032043 032254 0   0   172737405060 0            172737405060 
FT3	032043 032254 0   0   172737405060 0            172737405060 
FT9	032044 032254 0   0   172737405060 0            172737405060 
ET0	032045 032254 0   0   0            0            172737405060 
ST1A	032045 032254 0   0   0            0            172737405060 
ST9	032045 032254 0   0   0            0            172737405060 


*032045 JUMPA	0,032046
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032045 032045 0   0   324000032046 0            000000032046 
IT1	032045 0      0   0   324000032046 0            000000032046 
AT3	032045 0      0   0   000000032046 0            324000032046 
AT6	032045 032046 0   0   000000032046 0            324000032046 
FT1A	032045 032046 0   0   000000032046 0            000000032046 
FT2	032045 032046 0   0   0            0            000000032046 
FT2RQ	032045 032046 0   0   000000000007 0            000000032046 
FT3	032045 032046 0   0   000000000007 0            000000032046 
FT9	032046 032046 0   0   000000000007 0            000000032046 
ET0	032046 032046 0   0   000000000007 0            000000032046 
ST1A	032046 032046 0   0   000000000007 0            000000032046 
ST9	032046 032046 0   0   000000000007 0            000000032046 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 218
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0307

*032046 MOVE 	1,032227
INITIAL
C(AC)=172737 405060 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032046 032046 0   0   200040032227 0            0            
IT1	032046 0      0   0   200040032227 0            0            
AT3	032046 0      0   0   000000032227 0            200040032227 
AT6	032046 032227 0   0   000000032227 0            200040032227 
FT0	032046 032227 0   0   0            0            200040032227 
FT1A	032046 032227 0   0   0            0            0            
FT9	032047 032227 0   0   0            0            0            
ET0	032047 032227 0   0   0            0            0            
ST1	032047 032227 0   0   0            0            0            
ST2	032047 032227 0   0   0            0            0            
ST9	032047 032227 0   0   0            0            0            


*032047 MOVE 	2,032254
INITIAL
C(AC)=074161 440174 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032047 032047 0   0   200100032254 0            172737405060 
IT1	032047 0      0   0   200100032254 0            172737405060 
AT3	032047 0      0   0   000000032254 0            200100032254 
AT6	032047 032254 0   0   000000032254 0            200100032254 
FT0	032047 032254 0   0   172737405060 0            200100032254 
FT1A	032047 032254 0   0   172737405060 0            172737405060 
FT9	032050 032254 0   0   172737405060 0            172737405060 
ET0	032050 032254 0   0   172737405060 0            172737405060 
ST1	032050 032254 0   0   172737405060 0            172737405060 
ST2	032050 032254 0   0   172737405060 0            172737405060 
ST9	032050 032254 0   0   172737405060 0            172737405060 


*032050 LSH	1,777751
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032050 032050 0   0   242040777751 0            000000777751 
IT1	032050 0      0   0   242040777751 0            000000777751 
AT3	032050 0      0   0   000000777751 0            242040777751 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 219
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0308

AT6	032050 777751 0   0   000000777751 0            242040777751 
FT1A	032050 777751 0   0   000000777751 0            000000777751 
FT2	032050 777751 0   0   0            0            000000777751 
FT2RQ	032050 777751 0   0   0            0            000000777751 
FT3	032050 777751 0   0   0            0            000000777751 
FT9	032051 777751 0   0   0            0            000000777751 
ET0	032051 777751 751 0   0            0            000000777751 
SCT0	032051 777751 751 0   0            0            000000777751 
SCT3	032051 777751 752 0   0            0            000000777751 
SCT3	032051 777751 753 0   0            0            000000777751 
SCT3	032051 777751 754 0   0            0            000000777751 
SCT3	032051 777751 755 0   0            0            000000777751 
SCT3	032051 777751 756 0   0            0            000000777751 
SCT3	032051 777751 757 0   0            0            000000777751 
SCT3	032051 777751 0   0   0            0            000000777751 
SCT3	032051 777751 761 0   0            0            000000777751 
SCT3	032051 777751 762 0   0            0            000000777751 
SCT3	032051 777751 763 0   0            0            000000777751 
SCT3	032051 777751 764 0   0            0            000000777751 
SCT3	032051 777751 765 0   0            0            000000777751 
SCT3	032051 777751 766 0   0            0            000000777751 
SCT3	032051 777751 767 0   0            0            000000777751 
SCT3	032051 777751 0   0   0            0            000000777751 
SCT3	032051 777751 771 0   0            0            000000777751 
SCT3	032051 777751 772 0   0            0            000000777751 
SCT3	032051 777751 773 0   0            0            000000777751 
SCT3	032051 777751 774 0   0            0            000000777751 
SCT3	032051 777751 775 0   0            0            000000777751 
SCT3	032051 777751 776 0   0            0            000000777751 
SCT3	032051 777751 777 0   0            0            000000777751 
SCT3	032051 777751 0   0   0            0            000000777751 
SCT4	032051 777751 0   0   0            0            000000777751 
ST0	032051 777751 0   0   0            0            000000777751 
ST1	032051 777751 0   0   0            0            000000777751 
ST2	032051 777751 0   0   0            0            000000777751 
ST9	032051 777751 0   0   0            0            000000777751 


*032051 CAME	1,032227
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032051 032051 0   0   312040032227 0            0            
IT1	032051 0      0   0   312040032227 0            0            
AT3	032051 0      0   0   000000032227 0            312040032227 
AT6	032051 032227 0   0   000000032227 0            312040032227 
FT0	032051 032227 0   0   0            0            312040032227 
FT1A	032051 032227 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 220
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0309

FT2	032051 032227 0   0   0            0            0            
FT2RQ	032051 032227 0   0   0            0            0            
FT3	032051 032227 0   0   0            0            0            
FT9	032052 032227 0   0   0            0            0            
ET0	032053 032227 0   0   0            0            0            
ST1A	032053 032227 0   0   0            0            0            
ST9	032053 032227 0   0   0            0            0            


*032053 JUMPA	0,032054
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032053 032053 0   0   324000032054 0            000000032054 
IT1	032053 0      0   0   324000032054 0            000000032054 
AT3	032053 0      0   0   000000032054 0            324000032054 
AT6	032053 032054 0   0   000000032054 0            324000032054 
FT1A	032053 032054 0   0   000000032054 0            000000032054 
FT2	032053 032054 0   0   0            0            000000032054 
FT2RQ	032053 032054 0   0   000000000007 0            000000032054 
FT3	032053 032054 0   0   000000000007 0            000000032054 
FT9	032054 032054 0   0   000000000007 0            000000032054 
ET0	032054 032054 0   0   000000000007 0            000000032054 
ST1A	032054 032054 0   0   000000000007 0            000000032054 
ST9	032054 032054 0   0   000000000007 0            000000032054 


*032054 CAME	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032054 032054 0   0   312100032254 0            172737405060 
IT1	032054 0      0   0   312100032254 0            172737405060 
AT3	032054 0      0   0   000000032254 0            312100032254 
AT6	032054 032254 0   0   000000032254 0            312100032254 
FT0	032054 032254 0   0   172737405060 0            312100032254 
FT1A	032054 032254 0   0   172737405060 0            172737405060 
FT2	032054 032254 0   0   0            0            172737405060 
FT2RQ	032054 032254 0   0   172737405060 0            172737405060 
FT3	032054 032254 0   0   172737405060 0            172737405060 
FT9	032055 032254 0   0   172737405060 0            172737405060 
ET0	032056 032254 0   0   0            0            172737405060 
ST1A	032056 032254 0   0   0            0            172737405060 
ST9	032056 032254 0   0   0            0            172737405060 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 221
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0310


*032056 JUMPA	0,032057
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032056 032056 0   0   324000032057 0            000000032057 
IT1	032056 0      0   0   324000032057 0            000000032057 
AT3	032056 0      0   0   000000032057 0            324000032057 
AT6	032056 032057 0   0   000000032057 0            324000032057 
FT1A	032056 032057 0   0   000000032057 0            000000032057 
FT2	032056 032057 0   0   0            0            000000032057 
FT2RQ	032056 032057 0   0   000000000007 0            000000032057 
FT3	032056 032057 0   0   000000000007 0            000000032057 
FT9	032057 032057 0   0   000000000007 0            000000032057 
ET0	032057 032057 0   0   000000000007 0            000000032057 
ST1A	032057 032057 0   0   000000000007 0            000000032057 
ST9	032057 032057 0   0   000000000007 0            000000032057 


*032057 MOVE 	1,032226
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032057 032057 0   0   200040032226 0            777777777777 
IT1	032057 0      0   0   200040032226 0            777777777777 
AT3	032057 0      0   0   000000032226 0            200040032226 
AT6	032057 032226 0   0   000000032226 0            200040032226 
FT0	032057 032226 0   0   777777777777 0            200040032226 
FT1A	032057 032226 0   0   777777777777 0            777777777777 
FT9	032060 032226 0   0   777777777777 0            777777777777 
ET0	032060 032226 0   0   777777777777 0            777777777777 
ST1	032060 032226 0   0   777777777777 0            777777777777 
ST2	032060 032226 0   0   777777777777 0            777777777777 
ST9	032060 032226 0   0   777777777777 0            777777777777 


*032060 MOVE 	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032060 032060 0   0   200100032254 0            172737405060 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 222
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0311

IT1	032060 0      0   0   200100032254 0            172737405060 
AT3	032060 0      0   0   000000032254 0            200100032254 
AT6	032060 032254 0   0   000000032254 0            200100032254 
FT0	032060 032254 0   0   172737405060 0            200100032254 
FT1A	032060 032254 0   0   172737405060 0            172737405060 
FT9	032061 032254 0   0   172737405060 0            172737405060 
ET0	032061 032254 0   0   172737405060 0            172737405060 
ST1	032061 032254 0   0   172737405060 0            172737405060 
ST2	032061 032254 0   0   172737405060 0            172737405060 
ST9	032061 032254 0   0   172737405060 0            172737405060 


*032061 LSH	1,777751
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 017777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032061 032061 0   0   242040777751 0            000000777751 
IT1	032061 0      0   0   242040777751 0            000000777751 
AT3	032061 0      0   0   000000777751 0            242040777751 
AT6	032061 777751 0   0   000000777751 0            242040777751 
FT1A	032061 777751 0   0   000000777751 0            000000777751 
FT2	032061 777751 0   0   0            0            000000777751 
FT2RQ	032061 777751 0   0   777777777777 0            000000777751 
FT3	032061 777751 0   0   777777777777 0            000000777751 
FT9	032062 777751 0   0   777777777777 0            000000777751 
ET0	032062 777751 751 0   777777777777 0            000000777751 
SCT0	032062 777751 751 0   777777777777 0            000000777751 
SCT3	032062 777751 752 0   377777777777 0            000000777751 
SCT3	032062 777751 753 0   177777777777 0            000000777751 
SCT3	032062 777751 754 0   077777777777 0            000000777751 
SCT3	032062 777751 755 0   037777777777 0            000000777751 
SCT3	032062 777751 756 0   017777777777 0            000000777751 
SCT3	032062 777751 757 0   007777777777 0            000000777751 
SCT3	032062 777751 0   0   003777777777 0            000000777751 
SCT3	032062 777751 761 0   001777777777 0            000000777751 
SCT3	032062 777751 762 0   000777777777 0            000000777751 
SCT3	032062 777751 763 0   000377777777 0            000000777751 
SCT3	032062 777751 764 0   000177777777 0            000000777751 
SCT3	032062 777751 765 0   000077777777 0            000000777751 
SCT3	032062 777751 766 0   000037777777 0            000000777751 
SCT3	032062 777751 767 0   000017777777 0            000000777751 
SCT3	032062 777751 0   0   000007777777 0            000000777751 
SCT3	032062 777751 771 0   000003777777 0            000000777751 
SCT3	032062 777751 772 0   000001777777 0            000000777751 
SCT3	032062 777751 773 0   000000777777 0            000000777751 
SCT3	032062 777751 774 0   000000377777 0            000000777751 
SCT3	032062 777751 775 0   000000177777 0            000000777751 
SCT3	032062 777751 776 0   000000077777 0            000000777751 
SCT3	032062 777751 777 0   000000037777 0            000000777751 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 223
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0312

SCT3	032062 777751 0   0   000000017777 0            000000777751 
SCT4	032062 777751 0   0   000000017777 0            000000777751 
ST0	032062 777751 0   0   000000017777 0            000000777751 
ST1	032062 777751 0   0   000000017777 0            000000777751 
ST2	032062 777751 0   0   000000017777 0            000000777751 
ST9	032062 777751 0   0   000000017777 0            000000777751 


*032062 CAME	1,032303
INITIAL
C(AC)=000000 017777 
C(E)=000000 017777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032062 032062 0   0   312040032303 0            000000017777 
IT1	032062 0      0   0   312040032303 0            000000017777 
AT3	032062 0      0   0   000000032303 0            312040032303 
AT6	032062 032303 0   0   000000032303 0            312040032303 
FT0	032062 032303 0   0   000000017777 0            312040032303 
FT1A	032062 032303 0   0   000000017777 0            000000017777 
FT2	032062 032303 0   0   0            0            000000017777 
FT2RQ	032062 032303 0   0   000000017777 0            000000017777 
FT3	032062 032303 0   0   000000017777 0            000000017777 
FT9	032063 032303 0   0   000000017777 0            000000017777 
ET0	032064 032303 0   0   0            0            000000017777 
ST1A	032064 032303 0   0   0            0            000000017777 
ST9	032064 032303 0   0   0            0            000000017777 


*032064 JUMPA	0,032065
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032064 032064 0   0   324000032065 0            000000032065 
IT1	032064 0      0   0   324000032065 0            000000032065 
AT3	032064 0      0   0   000000032065 0            324000032065 
AT6	032064 032065 0   0   000000032065 0            324000032065 
FT1A	032064 032065 0   0   000000032065 0            000000032065 
FT2	032064 032065 0   0   0            0            000000032065 
FT2RQ	032064 032065 0   0   000000000007 0            000000032065 
FT3	032064 032065 0   0   000000000007 0            000000032065 
FT9	032065 032065 0   0   000000000007 0            000000032065 
ET0	032065 032065 0   0   000000000007 0            000000032065 
ST1A	032065 032065 0   0   000000000007 0            000000032065 
ST9	032065 032065 0   0   000000000007 0            000000032065 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 224
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0313

*032065 CAME	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032065 032065 0   0   312100032254 0            172737405060 
IT1	032065 0      0   0   312100032254 0            172737405060 
AT3	032065 0      0   0   000000032254 0            312100032254 
AT6	032065 032254 0   0   000000032254 0            312100032254 
FT0	032065 032254 0   0   172737405060 0            312100032254 
FT1A	032065 032254 0   0   172737405060 0            172737405060 
FT2	032065 032254 0   0   0            0            172737405060 
FT2RQ	032065 032254 0   0   172737405060 0            172737405060 
FT3	032065 032254 0   0   172737405060 0            172737405060 
FT9	032066 032254 0   0   172737405060 0            172737405060 
ET0	032067 032254 0   0   0            0            172737405060 
ST1A	032067 032254 0   0   0            0            172737405060 
ST9	032067 032254 0   0   0            0            172737405060 


*032067 JUMPA	0,032070
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032067 032067 0   0   324000032070 0            000000032070 
IT1	032067 0      0   0   324000032070 0            000000032070 
AT3	032067 0      0   0   000000032070 0            324000032070 
AT6	032067 032070 0   0   000000032070 0            324000032070 
FT1A	032067 032070 0   0   000000032070 0            000000032070 
FT2	032067 032070 0   0   0            0            000000032070 
FT2RQ	032067 032070 0   0   000000000007 0            000000032070 
FT3	032067 032070 0   0   000000000007 0            000000032070 
FT9	032070 032070 0   0   000000000007 0            000000032070 
ET0	032070 032070 0   0   000000000007 0            000000032070 
ST1A	032070 032070 0   0   000000000007 0            000000032070 
ST9	032070 032070 0   0   000000000007 0            000000032070 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 225
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0314

*032070 MOVE 	1,032255
INITIAL
C(AC)=000000 017777 
C(E)=252525 252525 
FINAL
C(AC)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032070 032070 0   0   200040032255 0            252525252525 
IT1	032070 0      0   0   200040032255 0            252525252525 
AT3	032070 0      0   0   000000032255 0            200040032255 
AT6	032070 032255 0   0   000000032255 0            200040032255 
FT0	032070 032255 0   0   252525252525 0            200040032255 
FT1A	032070 032255 0   0   252525252525 0            252525252525 
FT9	032071 032255 0   0   252525252525 0            252525252525 
ET0	032071 032255 0   0   252525252525 0            252525252525 
ST1	032071 032255 0   0   252525252525 0            252525252525 
ST2	032071 032255 0   0   252525252525 0            252525252525 
ST9	032071 032255 0   0   252525252525 0            252525252525 


*032071 MOVE 	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032071 032071 0   0   200100032254 0            172737405060 
IT1	032071 0      0   0   200100032254 0            172737405060 
AT3	032071 0      0   0   000000032254 0            200100032254 
AT6	032071 032254 0   0   000000032254 0            200100032254 
FT0	032071 032254 0   0   172737405060 0            200100032254 
FT1A	032071 032254 0   0   172737405060 0            172737405060 
FT9	032072 032254 0   0   172737405060 0            172737405060 
ET0	032072 032254 0   0   172737405060 0            172737405060 
ST1	032072 032254 0   0   172737405060 0            172737405060 
ST2	032072 032254 0   0   172737405060 0            172737405060 
ST9	032072 032254 0   0   172737405060 0            172737405060 


*032072 LSH	1,777751
INITIAL
C(AC)=252525 252525 
FINAL
C(AC)=000000 005252 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032072 032072 0   0   242040777751 0            000000777751 
IT1	032072 0      0   0   242040777751 0            000000777751 
AT3	032072 0      0   0   000000777751 0            242040777751 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 226
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0315

AT6	032072 777751 0   0   000000777751 0            242040777751 
FT1A	032072 777751 0   0   000000777751 0            000000777751 
FT2	032072 777751 0   0   0            0            000000777751 
FT2RQ	032072 777751 0   0   252525252525 0            000000777751 
FT3	032072 777751 0   0   252525252525 0            000000777751 
FT9	032073 777751 0   0   252525252525 0            000000777751 
ET0	032073 777751 751 0   252525252525 0            000000777751 
SCT0	032073 777751 751 0   252525252525 0            000000777751 
SCT3	032073 777751 752 0   125252525252 0            000000777751 
SCT3	032073 777751 753 0   052525252525 0            000000777751 
SCT3	032073 777751 754 0   025252525252 0            000000777751 
SCT3	032073 777751 755 0   012525252525 0            000000777751 
SCT3	032073 777751 756 0   005252525252 0            000000777751 
SCT3	032073 777751 757 0   002525252525 0            000000777751 
SCT3	032073 777751 0   0   001252525252 0            000000777751 
SCT3	032073 777751 761 0   000525252525 0            000000777751 
SCT3	032073 777751 762 0   000252525252 0            000000777751 
SCT3	032073 777751 763 0   000125252525 0            000000777751 
SCT3	032073 777751 764 0   000052525252 0            000000777751 
SCT3	032073 777751 765 0   000025252525 0            000000777751 
SCT3	032073 777751 766 0   000012525252 0            000000777751 
SCT3	032073 777751 767 0   000005252525 0            000000777751 
SCT3	032073 777751 0   0   000002525252 0            000000777751 
SCT3	032073 777751 771 0   000001252525 0            000000777751 
SCT3	032073 777751 772 0   000000525252 0            000000777751 
SCT3	032073 777751 773 0   000000252525 0            000000777751 
SCT3	032073 777751 774 0   000000125252 0            000000777751 
SCT3	032073 777751 775 0   000000052525 0            000000777751 
SCT3	032073 777751 776 0   000000025252 0            000000777751 
SCT3	032073 777751 777 0   000000012525 0            000000777751 
SCT3	032073 777751 0   0   000000005252 0            000000777751 
SCT4	032073 777751 0   0   000000005252 0            000000777751 
ST0	032073 777751 0   0   000000005252 0            000000777751 
ST1	032073 777751 0   0   000000005252 0            000000777751 
ST2	032073 777751 0   0   000000005252 0            000000777751 
ST9	032073 777751 0   0   000000005252 0            000000777751 


*032073 CAME	1,032304
INITIAL
C(AC)=000000 005252 
C(E)=000000 005252 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032073 032073 0   0   312040032304 0            000000005252 
IT1	032073 0      0   0   312040032304 0            000000005252 
AT3	032073 0      0   0   000000032304 0            312040032304 
AT6	032073 032304 0   0   000000032304 0            312040032304 
FT0	032073 032304 0   0   000000005252 0            312040032304 
FT1A	032073 032304 0   0   000000005252 0            000000005252 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 227
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0316

FT2	032073 032304 0   0   0            0            000000005252 
FT2RQ	032073 032304 0   0   000000005252 0            000000005252 
FT3	032073 032304 0   0   000000005252 0            000000005252 
FT9	032074 032304 0   0   000000005252 0            000000005252 
ET0	032075 032304 0   0   0            0            000000005252 
ST1A	032075 032304 0   0   0            0            000000005252 
ST9	032075 032304 0   0   0            0            000000005252 


*032075 JUMPA	0,032076
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032075 032075 0   0   324000032076 0            000000032076 
IT1	032075 0      0   0   324000032076 0            000000032076 
AT3	032075 0      0   0   000000032076 0            324000032076 
AT6	032075 032076 0   0   000000032076 0            324000032076 
FT1A	032075 032076 0   0   000000032076 0            000000032076 
FT2	032075 032076 0   0   0            0            000000032076 
FT2RQ	032075 032076 0   0   000000000007 0            000000032076 
FT3	032075 032076 0   0   000000000007 0            000000032076 
FT9	032076 032076 0   0   000000000007 0            000000032076 
ET0	032076 032076 0   0   000000000007 0            000000032076 
ST1A	032076 032076 0   0   000000000007 0            000000032076 
ST9	032076 032076 0   0   000000000007 0            000000032076 


*032076 CAME	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032076 032076 0   0   312100032254 0            172737405060 
IT1	032076 0      0   0   312100032254 0            172737405060 
AT3	032076 0      0   0   000000032254 0            312100032254 
AT6	032076 032254 0   0   000000032254 0            312100032254 
FT0	032076 032254 0   0   172737405060 0            312100032254 
FT1A	032076 032254 0   0   172737405060 0            172737405060 
FT2	032076 032254 0   0   0            0            172737405060 
FT2RQ	032076 032254 0   0   172737405060 0            172737405060 
FT3	032076 032254 0   0   172737405060 0            172737405060 
FT9	032077 032254 0   0   172737405060 0            172737405060 
ET0	0      032254 0   0   0            0            172737405060 
ST1A	0      032254 0   0   0            0            172737405060 
ST9	0      032254 0   0   0            0            172737405060 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 228
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0317


*032100 JUMPA	0,032101
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000032101 0            000000032101 
IT1	0      0      0   0   324000032101 0            000000032101 
AT3	0      0      0   0   000000032101 0            324000032101 
AT6	0      032101 0   0   000000032101 0            324000032101 
FT1A	0      032101 0   0   000000032101 0            000000032101 
FT2	0      032101 0   0   0            0            000000032101 
FT2RQ	0      032101 0   0   000000000007 0            000000032101 
FT3	0      032101 0   0   000000000007 0            000000032101 
FT9	032101 032101 0   0   000000000007 0            000000032101 
ET0	032101 032101 0   0   000000000007 0            000000032101 
ST1A	032101 032101 0   0   000000000007 0            000000032101 
ST9	032101 032101 0   0   000000000007 0            000000032101 


*032101 MOVE 	1,032256
INITIAL
C(AC)=000000 005252 
C(E)=525252 525252 
FINAL
C(AC)=525252 525252 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032101 032101 0   0   200040032256 0            525252525252 
IT1	032101 0      0   0   200040032256 0            525252525252 
AT3	032101 0      0   0   000000032256 0            200040032256 
AT6	032101 032256 0   0   000000032256 0            200040032256 
FT0	032101 032256 0   0   525252525252 0            200040032256 
FT1A	032101 032256 0   0   525252525252 0            525252525252 
FT9	032102 032256 0   0   525252525252 0            525252525252 
ET0	032102 032256 0   0   525252525252 0            525252525252 
ST1	032102 032256 0   0   525252525252 0            525252525252 
ST2	032102 032256 0   0   525252525252 0            525252525252 
ST9	032102 032256 0   0   525252525252 0            525252525252 


*032102 MOVE 	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032102 032102 0   0   200100032254 0            172737405060 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 229
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0318

IT1	032102 0      0   0   200100032254 0            172737405060 
AT3	032102 0      0   0   000000032254 0            200100032254 
AT6	032102 032254 0   0   000000032254 0            200100032254 
FT0	032102 032254 0   0   172737405060 0            200100032254 
FT1A	032102 032254 0   0   172737405060 0            172737405060 
FT9	032103 032254 0   0   172737405060 0            172737405060 
ET0	032103 032254 0   0   172737405060 0            172737405060 
ST1	032103 032254 0   0   172737405060 0            172737405060 
ST2	032103 032254 0   0   172737405060 0            172737405060 
ST9	032103 032254 0   0   172737405060 0            172737405060 


*032103 LSH	1,777751
INITIAL
C(AC)=525252 525252 
FINAL
C(AC)=000000 012525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032103 032103 0   0   242040777751 0            000000777751 
IT1	032103 0      0   0   242040777751 0            000000777751 
AT3	032103 0      0   0   000000777751 0            242040777751 
AT6	032103 777751 0   0   000000777751 0            242040777751 
FT1A	032103 777751 0   0   000000777751 0            000000777751 
FT2	032103 777751 0   0   0            0            000000777751 
FT2RQ	032103 777751 0   0   525252525252 0            000000777751 
FT3	032103 777751 0   0   525252525252 0            000000777751 
FT9	032104 777751 0   0   525252525252 0            000000777751 
ET0	032104 777751 751 0   525252525252 0            000000777751 
SCT0	032104 777751 751 0   525252525252 0            000000777751 
SCT3	032104 777751 752 0   252525252525 0            000000777751 
SCT3	032104 777751 753 0   125252525252 0            000000777751 
SCT3	032104 777751 754 0   052525252525 0            000000777751 
SCT3	032104 777751 755 0   025252525252 0            000000777751 
SCT3	032104 777751 756 0   012525252525 0            000000777751 
SCT3	032104 777751 757 0   005252525252 0            000000777751 
SCT3	032104 777751 0   0   002525252525 0            000000777751 
SCT3	032104 777751 761 0   001252525252 0            000000777751 
SCT3	032104 777751 762 0   000525252525 0            000000777751 
SCT3	032104 777751 763 0   000252525252 0            000000777751 
SCT3	032104 777751 764 0   000125252525 0            000000777751 
SCT3	032104 777751 765 0   000052525252 0            000000777751 
SCT3	032104 777751 766 0   000025252525 0            000000777751 
SCT3	032104 777751 767 0   000012525252 0            000000777751 
SCT3	032104 777751 0   0   000005252525 0            000000777751 
SCT3	032104 777751 771 0   000002525252 0            000000777751 
SCT3	032104 777751 772 0   000001252525 0            000000777751 
SCT3	032104 777751 773 0   000000525252 0            000000777751 
SCT3	032104 777751 774 0   000000252525 0            000000777751 
SCT3	032104 777751 775 0   000000125252 0            000000777751 
SCT3	032104 777751 776 0   000000052525 0            000000777751 
SCT3	032104 777751 777 0   000000025252 0            000000777751 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 230
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0319

SCT3	032104 777751 0   0   000000012525 0            000000777751 
SCT4	032104 777751 0   0   000000012525 0            000000777751 
ST0	032104 777751 0   0   000000012525 0            000000777751 
ST1	032104 777751 0   0   000000012525 0            000000777751 
ST2	032104 777751 0   0   000000012525 0            000000777751 
ST9	032104 777751 0   0   000000012525 0            000000777751 


*032104 CAME	1,032305
INITIAL
C(AC)=000000 012525 
C(E)=000000 012525 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032104 032104 0   0   312040032305 0            000000012525 
IT1	032104 0      0   0   312040032305 0            000000012525 
AT3	032104 0      0   0   000000032305 0            312040032305 
AT6	032104 032305 0   0   000000032305 0            312040032305 
FT0	032104 032305 0   0   000000012525 0            312040032305 
FT1A	032104 032305 0   0   000000012525 0            000000012525 
FT2	032104 032305 0   0   0            0            000000012525 
FT2RQ	032104 032305 0   0   000000012525 0            000000012525 
FT3	032104 032305 0   0   000000012525 0            000000012525 
FT9	032105 032305 0   0   000000012525 0            000000012525 
ET0	032106 032305 0   0   0            0            000000012525 
ST1A	032106 032305 0   0   0            0            000000012525 
ST9	032106 032305 0   0   0            0            000000012525 


*032106 JUMPA	0,032107
INITIAL
C(AC)=000000 000007 
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   000000000007 0            000000032107 
FT3	032106 032107 0   0   000000000007 0            000000032107 
FT9	032107 032107 0   0   000000000007 0            000000032107 
ET0	032107 032107 0   0   000000000007 0            000000032107 
ST1A	032107 032107 0   0   000000000007 0            000000032107 
ST9	032107 032107 0   0   000000000007 0            000000032107 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 231
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0320

*032107 CAME	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032107 032107 0   0   312100032254 0            172737405060 
IT1	032107 0      0   0   312100032254 0            172737405060 
AT3	032107 0      0   0   000000032254 0            312100032254 
AT6	032107 032254 0   0   000000032254 0            312100032254 
FT0	032107 032254 0   0   172737405060 0            312100032254 
FT1A	032107 032254 0   0   172737405060 0            172737405060 
FT2	032107 032254 0   0   0            0            172737405060 
FT2RQ	032107 032254 0   0   172737405060 0            172737405060 
FT3	032107 032254 0   0   172737405060 0            172737405060 
FT9	032110 032254 0   0   172737405060 0            172737405060 
ET0	032111 032254 0   0   0            0            172737405060 
ST1A	032111 032254 0   0   0            0            172737405060 
ST9	032111 032254 0   0   0            0            172737405060 


*032111 JUMPA	0,032112
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032111 032111 0   0   324000032112 0            000000032112 
IT1	032111 0      0   0   324000032112 0            000000032112 
AT3	032111 0      0   0   000000032112 0            324000032112 
AT6	032111 032112 0   0   000000032112 0            324000032112 
FT1A	032111 032112 0   0   000000032112 0            000000032112 
FT2	032111 032112 0   0   0            0            000000032112 
FT2RQ	032111 032112 0   0   000000000007 0            000000032112 
FT3	032111 032112 0   0   000000000007 0            000000032112 
FT9	032112 032112 0   0   000000000007 0            000000032112 
ET0	032112 032112 0   0   000000000007 0            000000032112 
ST1A	032112 032112 0   0   000000000007 0            000000032112 
ST9	032112 032112 0   0   000000000007 0            000000032112 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 232
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0321

*032112 MOVE 	1,032257
INITIAL
C(AC)=000000 012525 
C(E)=230703 603700 
FINAL
C(AC)=230703 603700 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032112 032112 0   0   200040032257 0            230703603700 
IT1	032112 0      0   0   200040032257 0            230703603700 
AT3	032112 0      0   0   000000032257 0            200040032257 
AT6	032112 032257 0   0   000000032257 0            200040032257 
FT0	032112 032257 0   0   230703603700 0            200040032257 
FT1A	032112 032257 0   0   230703603700 0            230703603700 
FT9	032113 032257 0   0   230703603700 0            230703603700 
ET0	032113 032257 0   0   230703603700 0            230703603700 
ST1	032113 032257 0   0   230703603700 0            230703603700 
ST2	032113 032257 0   0   230703603700 0            230703603700 
ST9	032113 032257 0   0   230703603700 0            230703603700 


*032113 MOVE 	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032113 032113 0   0   200100032254 0            172737405060 
IT1	032113 0      0   0   200100032254 0            172737405060 
AT3	032113 0      0   0   000000032254 0            200100032254 
AT6	032113 032254 0   0   000000032254 0            200100032254 
FT0	032113 032254 0   0   172737405060 0            200100032254 
FT1A	032113 032254 0   0   172737405060 0            172737405060 
FT9	032114 032254 0   0   172737405060 0            172737405060 
ET0	032114 032254 0   0   172737405060 0            172737405060 
ST1	032114 032254 0   0   172737405060 0            172737405060 
ST2	032114 032254 0   0   172737405060 0            172737405060 
ST9	032114 032254 0   0   172737405060 0            172737405060 


*032114 LSH	1,777751
INITIAL
C(AC)=230703 603700 
FINAL
C(AC)=000000 004616 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032114 032114 0   0   242040777751 0            000000777751 
IT1	032114 0      0   0   242040777751 0            000000777751 
AT3	032114 0      0   0   000000777751 0            242040777751 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 233
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0322

AT6	032114 777751 0   0   000000777751 0            242040777751 
FT1A	032114 777751 0   0   000000777751 0            000000777751 
FT2	032114 777751 0   0   0            0            000000777751 
FT2RQ	032114 777751 0   0   230703603700 0            000000777751 
FT3	032114 777751 0   0   230703603700 0            000000777751 
FT9	032115 777751 0   0   230703603700 0            000000777751 
ET0	032115 777751 751 0   230703603700 0            000000777751 
SCT0	032115 777751 751 0   230703603700 0            000000777751 
SCT3	032115 777751 752 0   114341701740 0            000000777751 
SCT3	032115 777751 753 0   046160740760 0            000000777751 
SCT3	032115 777751 754 0   023070360370 0            000000777751 
SCT3	032115 777751 755 0   011434170174 0            000000777751 
SCT3	032115 777751 756 0   004616074076 0            000000777751 
SCT3	032115 777751 757 0   002307036037 0            000000777751 
SCT3	032115 777751 0   0   001143417017 0            000000777751 
SCT3	032115 777751 761 0   000461607407 0            000000777751 
SCT3	032115 777751 762 0   000230703603 0            000000777751 
SCT3	032115 777751 763 0   000114341701 0            000000777751 
SCT3	032115 777751 764 0   000046160740 0            000000777751 
SCT3	032115 777751 765 0   000023070360 0            000000777751 
SCT3	032115 777751 766 0   000011434170 0            000000777751 
SCT3	032115 777751 767 0   000004616074 0            000000777751 
SCT3	032115 777751 0   0   000002307036 0            000000777751 
SCT3	032115 777751 771 0   000001143417 0            000000777751 
SCT3	032115 777751 772 0   000000461607 0            000000777751 
SCT3	032115 777751 773 0   000000230703 0            000000777751 
SCT3	032115 777751 774 0   000000114341 0            000000777751 
SCT3	032115 777751 775 0   000000046160 0            000000777751 
SCT3	032115 777751 776 0   000000023070 0            000000777751 
SCT3	032115 777751 777 0   000000011434 0            000000777751 
SCT3	032115 777751 0   0   000000004616 0            000000777751 
SCT4	032115 777751 0   0   000000004616 0            000000777751 
ST0	032115 777751 0   0   000000004616 0            000000777751 
ST1	032115 777751 0   0   000000004616 0            000000777751 
ST2	032115 777751 0   0   000000004616 0            000000777751 
ST9	032115 777751 0   0   000000004616 0            000000777751 


*032115 CAME	1,032306
INITIAL
C(AC)=000000 004616 
C(E)=000000 004616 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032115 032115 0   0   312040032306 0            000000004616 
IT1	032115 0      0   0   312040032306 0            000000004616 
AT3	032115 0      0   0   000000032306 0            312040032306 
AT6	032115 032306 0   0   000000032306 0            312040032306 
FT0	032115 032306 0   0   000000004616 0            312040032306 
FT1A	032115 032306 0   0   000000004616 0            000000004616 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 234
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0323

FT2	032115 032306 0   0   0            0            000000004616 
FT2RQ	032115 032306 0   0   000000004616 0            000000004616 
FT3	032115 032306 0   0   000000004616 0            000000004616 
FT9	032116 032306 0   0   000000004616 0            000000004616 
ET0	032117 032306 0   0   0            0            000000004616 
ST1A	032117 032306 0   0   0            0            000000004616 
ST9	032117 032306 0   0   0            0            000000004616 


*032117 JUMPA	0,032120
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032117 032117 0   0   324000032120 0            000000032120 
IT1	032117 0      0   0   324000032120 0            000000032120 
AT3	032117 0      0   0   000000032120 0            324000032120 
AT6	032117 032120 0   0   000000032120 0            324000032120 
FT1A	032117 032120 0   0   000000032120 0            000000032120 
FT2	032117 032120 0   0   0            0            000000032120 
FT2RQ	032117 032120 0   0   000000000007 0            000000032120 
FT3	032117 032120 0   0   000000000007 0            000000032120 
FT9	032120 032120 0   0   000000000007 0            000000032120 
ET0	032120 032120 0   0   000000000007 0            000000032120 
ST1A	032120 032120 0   0   000000000007 0            000000032120 
ST9	032120 032120 0   0   000000000007 0            000000032120 


*032120 CAME	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032120 032120 0   0   312100032254 0            172737405060 
IT1	032120 0      0   0   312100032254 0            172737405060 
AT3	032120 0      0   0   000000032254 0            312100032254 
AT6	032120 032254 0   0   000000032254 0            312100032254 
FT0	032120 032254 0   0   172737405060 0            312100032254 
FT1A	032120 032254 0   0   172737405060 0            172737405060 
FT2	032120 032254 0   0   0            0            172737405060 
FT2RQ	032120 032254 0   0   172737405060 0            172737405060 
FT3	032120 032254 0   0   172737405060 0            172737405060 
FT9	032121 032254 0   0   172737405060 0            172737405060 
ET0	032122 032254 0   0   0            0            172737405060 
ST1A	032122 032254 0   0   0            0            172737405060 
ST9	032122 032254 0   0   0            0            172737405060 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 235
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0324


*032122 JUMPA	0,032123
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032122 032122 0   0   324000032123 0            000000032123 
IT1	032122 0      0   0   324000032123 0            000000032123 
AT3	032122 0      0   0   000000032123 0            324000032123 
AT6	032122 032123 0   0   000000032123 0            324000032123 
FT1A	032122 032123 0   0   000000032123 0            000000032123 
FT2	032122 032123 0   0   0            0            000000032123 
FT2RQ	032122 032123 0   0   000000000007 0            000000032123 
FT3	032122 032123 0   0   000000000007 0            000000032123 
FT9	032123 032123 0   0   000000000007 0            000000032123 
ET0	032123 032123 0   0   000000000007 0            000000032123 
ST1A	032123 032123 0   0   000000000007 0            000000032123 
ST9	032123 032123 0   0   000000000007 0            000000032123 


*032123 MOVE 	1,032261
INITIAL
C(AC)=000000 004616 
C(E)=007603 607062 
FINAL
C(AC)=007603 607062 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032123 032123 0   0   200040032261 0            007603607062 
IT1	032123 0      0   0   200040032261 0            007603607062 
AT3	032123 0      0   0   000000032261 0            200040032261 
AT6	032123 032261 0   0   000000032261 0            200040032261 
FT0	032123 032261 0   0   007603607062 0            200040032261 
FT1A	032123 032261 0   0   007603607062 0            007603607062 
FT9	032124 032261 0   0   007603607062 0            007603607062 
ET0	032124 032261 0   0   007603607062 0            007603607062 
ST1	032124 032261 0   0   007603607062 0            007603607062 
ST2	032124 032261 0   0   007603607062 0            007603607062 
ST9	032124 032261 0   0   007603607062 0            007603607062 


*032124 MOVE 	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032124 032124 0   0   200100032254 0            172737405060 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 236
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0325

IT1	032124 0      0   0   200100032254 0            172737405060 
AT3	032124 0      0   0   000000032254 0            200100032254 
AT6	032124 032254 0   0   000000032254 0            200100032254 
FT0	032124 032254 0   0   172737405060 0            200100032254 
FT1A	032124 032254 0   0   172737405060 0            172737405060 
FT9	032125 032254 0   0   172737405060 0            172737405060 
ET0	032125 032254 0   0   172737405060 0            172737405060 
ST1	032125 032254 0   0   172737405060 0            172737405060 
ST2	032125 032254 0   0   172737405060 0            172737405060 
ST9	032125 032254 0   0   172737405060 0            172737405060 


*032125 LSH	1,777751
INITIAL
C(AC)=007603 607062 
FINAL
C(AC)=000000 000174 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032125 032125 0   0   242040777751 0            000000777751 
IT1	032125 0      0   0   242040777751 0            000000777751 
AT3	032125 0      0   0   000000777751 0            242040777751 
AT6	032125 777751 0   0   000000777751 0            242040777751 
FT1A	032125 777751 0   0   000000777751 0            000000777751 
FT2	032125 777751 0   0   0            0            000000777751 
FT2RQ	032125 777751 0   0   007603607062 0            000000777751 
FT3	032125 777751 0   0   007603607062 0            000000777751 
FT9	032126 777751 0   0   007603607062 0            000000777751 
ET0	032126 777751 751 0   007603607062 0            000000777751 
SCT0	032126 777751 751 0   007603607062 0            000000777751 
SCT3	032126 777751 752 0   003701703431 0            000000777751 
SCT3	032126 777751 753 0   001740741614 0            000000777751 
SCT3	032126 777751 754 0   000760360706 0            000000777751 
SCT3	032126 777751 755 0   000370170343 0            000000777751 
SCT3	032126 777751 756 0   000174074161 0            000000777751 
SCT3	032126 777751 757 0   000076036070 0            000000777751 
SCT3	032126 777751 0   0   000037017034 0            000000777751 
SCT3	032126 777751 761 0   000017407416 0            000000777751 
SCT3	032126 777751 762 0   000007603607 0            000000777751 
SCT3	032126 777751 763 0   000003701703 0            000000777751 
SCT3	032126 777751 764 0   000001740741 0            000000777751 
SCT3	032126 777751 765 0   000000760360 0            000000777751 
SCT3	032126 777751 766 0   000000370170 0            000000777751 
SCT3	032126 777751 767 0   000000174074 0            000000777751 
SCT3	032126 777751 0   0   000000076036 0            000000777751 
SCT3	032126 777751 771 0   000000037017 0            000000777751 
SCT3	032126 777751 772 0   000000017407 0            000000777751 
SCT3	032126 777751 773 0   000000007603 0            000000777751 
SCT3	032126 777751 774 0   000000003701 0            000000777751 
SCT3	032126 777751 775 0   000000001740 0            000000777751 
SCT3	032126 777751 776 0   000000000760 0            000000777751 
SCT3	032126 777751 777 0   000000000370 0            000000777751 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 237
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0326

SCT3	032126 777751 0   0   000000000174 0            000000777751 
SCT4	032126 777751 0   0   000000000174 0            000000777751 
ST0	032126 777751 0   0   000000000174 0            000000777751 
ST1	032126 777751 0   0   000000000174 0            000000777751 
ST2	032126 777751 0   0   000000000174 0            000000777751 
ST9	032126 777751 0   0   000000000174 0            000000777751 


*032126 CAME	1,032307
INITIAL
C(AC)=000000 000174 
C(E)=000000 000174 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032126 032126 0   0   312040032307 0            000000000174 
IT1	032126 0      0   0   312040032307 0            000000000174 
AT3	032126 0      0   0   000000032307 0            312040032307 
AT6	032126 032307 0   0   000000032307 0            312040032307 
FT0	032126 032307 0   0   000000000174 0            312040032307 
FT1A	032126 032307 0   0   000000000174 0            000000000174 
FT2	032126 032307 0   0   0            0            000000000174 
FT2RQ	032126 032307 0   0   000000000174 0            000000000174 
FT3	032126 032307 0   0   000000000174 0            000000000174 
FT9	032127 032307 0   0   000000000174 0            000000000174 
ET0	032130 032307 0   0   0            0            000000000174 
ST1A	032130 032307 0   0   0            0            000000000174 
ST9	032130 032307 0   0   0            0            000000000174 


*032130 JUMPA	0,032131
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032130 032130 0   0   324000032131 0            000000032131 
IT1	032130 0      0   0   324000032131 0            000000032131 
AT3	032130 0      0   0   000000032131 0            324000032131 
AT6	032130 032131 0   0   000000032131 0            324000032131 
FT1A	032130 032131 0   0   000000032131 0            000000032131 
FT2	032130 032131 0   0   0            0            000000032131 
FT2RQ	032130 032131 0   0   000000000007 0            000000032131 
FT3	032130 032131 0   0   000000000007 0            000000032131 
FT9	032131 032131 0   0   000000000007 0            000000032131 
ET0	032131 032131 0   0   000000000007 0            000000032131 
ST1A	032131 032131 0   0   000000000007 0            000000032131 
ST9	032131 032131 0   0   000000000007 0            000000032131 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 238
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0327

*032131 CAME	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032131 032131 0   0   312100032254 0            172737405060 
IT1	032131 0      0   0   312100032254 0            172737405060 
AT3	032131 0      0   0   000000032254 0            312100032254 
AT6	032131 032254 0   0   000000032254 0            312100032254 
FT0	032131 032254 0   0   172737405060 0            312100032254 
FT1A	032131 032254 0   0   172737405060 0            172737405060 
FT2	032131 032254 0   0   0            0            172737405060 
FT2RQ	032131 032254 0   0   172737405060 0            172737405060 
FT3	032131 032254 0   0   172737405060 0            172737405060 
FT9	032132 032254 0   0   172737405060 0            172737405060 
ET0	032133 032254 0   0   0            0            172737405060 
ST1A	032133 032254 0   0   0            0            172737405060 
ST9	032133 032254 0   0   0            0            172737405060 


*032133 JUMPA	0,032134
INITIAL
C(AC)=000000 000007 
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   000000000007 0            000000032134 
FT3	032133 032134 0   0   000000000007 0            000000032134 
FT9	032134 032134 0   0   000000000007 0            000000032134 
ET0	032134 032134 0   0   000000000007 0            000000032134 
ST1A	032134 032134 0   0   000000000007 0            000000032134 
ST9	032134 032134 0   0   000000000007 0            000000032134 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 239
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0328

*032134 MOVE 	1,032227
INITIAL
C(AC)=000000 000174 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032134 032134 0   0   200040032227 0            0            
IT1	032134 0      0   0   200040032227 0            0            
AT3	032134 0      0   0   000000032227 0            200040032227 
AT6	032134 032227 0   0   000000032227 0            200040032227 
FT0	032134 032227 0   0   0            0            200040032227 
FT1A	032134 032227 0   0   0            0            0            
FT9	032135 032227 0   0   0            0            0            
ET0	032135 032227 0   0   0            0            0            
ST1	032135 032227 0   0   0            0            0            
ST2	032135 032227 0   0   0            0            0            
ST9	032135 032227 0   0   0            0            0            


*032135 MOVE 	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032135 032135 0   0   200100032254 0            172737405060 
IT1	032135 0      0   0   200100032254 0            172737405060 
AT3	032135 0      0   0   000000032254 0            200100032254 
AT6	032135 032254 0   0   000000032254 0            200100032254 
FT0	032135 032254 0   0   172737405060 0            200100032254 
FT1A	032135 032254 0   0   172737405060 0            172737405060 
FT9	032136 032254 0   0   172737405060 0            172737405060 
ET0	032136 032254 0   0   172737405060 0            172737405060 
ST1	032136 032254 0   0   172737405060 0            172737405060 
ST2	032136 032254 0   0   172737405060 0            172737405060 
ST9	032136 032254 0   0   172737405060 0            172737405060 


*032136 LSH	1,777745
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032136 032136 0   0   242040777745 0            000000777745 
IT1	032136 0      0   0   242040777745 0            000000777745 
AT3	032136 0      0   0   000000777745 0            242040777745 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 240
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0329

AT6	032136 777745 0   0   000000777745 0            242040777745 
FT1A	032136 777745 0   0   000000777745 0            000000777745 
FT2	032136 777745 0   0   0            0            000000777745 
FT2RQ	032136 777745 0   0   0            0            000000777745 
FT3	032136 777745 0   0   0            0            000000777745 
FT9	032137 777745 0   0   0            0            000000777745 
ET0	032137 777745 745 0   0            0            000000777745 
SCT0	032137 777745 745 0   0            0            000000777745 
SCT3	032137 777745 746 0   0            0            000000777745 
SCT3	032137 777745 747 0   0            0            000000777745 
SCT3	032137 777745 0   0   0            0            000000777745 
SCT3	032137 777745 751 0   0            0            000000777745 
SCT3	032137 777745 752 0   0            0            000000777745 
SCT3	032137 777745 753 0   0            0            000000777745 
SCT3	032137 777745 754 0   0            0            000000777745 
SCT3	032137 777745 755 0   0            0            000000777745 
SCT3	032137 777745 756 0   0            0            000000777745 
SCT3	032137 777745 757 0   0            0            000000777745 
SCT3	032137 777745 0   0   0            0            000000777745 
SCT3	032137 777745 761 0   0            0            000000777745 
SCT3	032137 777745 762 0   0            0            000000777745 
SCT3	032137 777745 763 0   0            0            000000777745 
SCT3	032137 777745 764 0   0            0            000000777745 
SCT3	032137 777745 765 0   0            0            000000777745 
SCT3	032137 777745 766 0   0            0            000000777745 
SCT3	032137 777745 767 0   0            0            000000777745 
SCT3	032137 777745 0   0   0            0            000000777745 
SCT3	032137 777745 771 0   0            0            000000777745 
SCT3	032137 777745 772 0   0            0            000000777745 
SCT3	032137 777745 773 0   0            0            000000777745 
SCT3	032137 777745 774 0   0            0            000000777745 
SCT3	032137 777745 775 0   0            0            000000777745 
SCT3	032137 777745 776 0   0            0            000000777745 
SCT3	032137 777745 777 0   0            0            000000777745 
SCT3	032137 777745 0   0   0            0            000000777745 
SCT4	032137 777745 0   0   0            0            000000777745 
ST0	032137 777745 0   0   0            0            000000777745 
ST1	032137 777745 0   0   0            0            000000777745 
ST2	032137 777745 0   0   0            0            000000777745 
ST9	032137 777745 0   0   0            0            000000777745 


*032137 CAME	1,032227
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032137 032137 0   0   312040032227 0            0            
IT1	032137 0      0   0   312040032227 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 241
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0330

AT3	032137 0      0   0   000000032227 0            312040032227 
AT6	032137 032227 0   0   000000032227 0            312040032227 
FT0	032137 032227 0   0   0            0            312040032227 
FT1A	032137 032227 0   0   0            0            0            
FT2	032137 032227 0   0   0            0            0            
FT2RQ	032137 032227 0   0   0            0            0            
FT3	032137 032227 0   0   0            0            0            
FT9	032140 032227 0   0   0            0            0            
ET0	032141 032227 0   0   0            0            0            
ST1A	032141 032227 0   0   0            0            0            
ST9	032141 032227 0   0   0            0            0            


*032141 JUMPA	0,032142
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032141 032141 0   0   324000032142 0            000000032142 
IT1	032141 0      0   0   324000032142 0            000000032142 
AT3	032141 0      0   0   000000032142 0            324000032142 
AT6	032141 032142 0   0   000000032142 0            324000032142 
FT1A	032141 032142 0   0   000000032142 0            000000032142 
FT2	032141 032142 0   0   0            0            000000032142 
FT2RQ	032141 032142 0   0   000000000007 0            000000032142 
FT3	032141 032142 0   0   000000000007 0            000000032142 
FT9	032142 032142 0   0   000000000007 0            000000032142 
ET0	032142 032142 0   0   000000000007 0            000000032142 
ST1A	032142 032142 0   0   000000000007 0            000000032142 
ST9	032142 032142 0   0   000000000007 0            000000032142 


*032142 CAME	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032142 032142 0   0   312100032254 0            172737405060 
IT1	032142 0      0   0   312100032254 0            172737405060 
AT3	032142 0      0   0   000000032254 0            312100032254 
AT6	032142 032254 0   0   000000032254 0            312100032254 
FT0	032142 032254 0   0   172737405060 0            312100032254 
FT1A	032142 032254 0   0   172737405060 0            172737405060 
FT2	032142 032254 0   0   0            0            172737405060 
FT2RQ	032142 032254 0   0   172737405060 0            172737405060 
FT3	032142 032254 0   0   172737405060 0            172737405060 
FT9	032143 032254 0   0   172737405060 0            172737405060 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 242
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0331

ET0	032144 032254 0   0   0            0            172737405060 
ST1A	032144 032254 0   0   0            0            172737405060 
ST9	032144 032254 0   0   0            0            172737405060 


*032144 JUMPA	0,032145
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032144 032144 0   0   324000032145 0            000000032145 
IT1	032144 0      0   0   324000032145 0            000000032145 
AT3	032144 0      0   0   000000032145 0            324000032145 
AT6	032144 032145 0   0   000000032145 0            324000032145 
FT1A	032144 032145 0   0   000000032145 0            000000032145 
FT2	032144 032145 0   0   0            0            000000032145 
FT2RQ	032144 032145 0   0   000000000007 0            000000032145 
FT3	032144 032145 0   0   000000000007 0            000000032145 
FT9	032145 032145 0   0   000000000007 0            000000032145 
ET0	032145 032145 0   0   000000000007 0            000000032145 
ST1A	032145 032145 0   0   000000000007 0            000000032145 
ST9	032145 032145 0   0   000000000007 0            000000032145 


*032145 MOVE 	1,032226
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032145 032145 0   0   200040032226 0            777777777777 
IT1	032145 0      0   0   200040032226 0            777777777777 
AT3	032145 0      0   0   000000032226 0            200040032226 
AT6	032145 032226 0   0   000000032226 0            200040032226 
FT0	032145 032226 0   0   777777777777 0            200040032226 
FT1A	032145 032226 0   0   777777777777 0            777777777777 
FT9	032146 032226 0   0   777777777777 0            777777777777 
ET0	032146 032226 0   0   777777777777 0            777777777777 
ST1	032146 032226 0   0   777777777777 0            777777777777 
ST2	032146 032226 0   0   777777777777 0            777777777777 
ST9	032146 032226 0   0   777777777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 243
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0332

*032146 MOVE 	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032146 032146 0   0   200100032254 0            172737405060 
IT1	032146 0      0   0   200100032254 0            172737405060 
AT3	032146 0      0   0   000000032254 0            200100032254 
AT6	032146 032254 0   0   000000032254 0            200100032254 
FT0	032146 032254 0   0   172737405060 0            200100032254 
FT1A	032146 032254 0   0   172737405060 0            172737405060 
FT9	032147 032254 0   0   172737405060 0            172737405060 
ET0	032147 032254 0   0   172737405060 0            172737405060 
ST1	032147 032254 0   0   172737405060 0            172737405060 
ST2	032147 032254 0   0   172737405060 0            172737405060 
ST9	032147 032254 0   0   172737405060 0            172737405060 


*032147 LSH	1,777745
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032147 032147 0   0   242040777745 0            000000777745 
IT1	032147 0      0   0   242040777745 0            000000777745 
AT3	032147 0      0   0   000000777745 0            242040777745 
AT6	032147 777745 0   0   000000777745 0            242040777745 
FT1A	032147 777745 0   0   000000777745 0            000000777745 
FT2	032147 777745 0   0   0            0            000000777745 
FT2RQ	032147 777745 0   0   777777777777 0            000000777745 
FT3	032147 777745 0   0   777777777777 0            000000777745 
FT9	032150 777745 0   0   777777777777 0            000000777745 
ET0	032150 777745 745 0   777777777777 0            000000777745 
SCT0	032150 777745 745 0   777777777777 0            000000777745 
SCT3	032150 777745 746 0   377777777777 0            000000777745 
SCT3	032150 777745 747 0   177777777777 0            000000777745 
SCT3	032150 777745 0   0   077777777777 0            000000777745 
SCT3	032150 777745 751 0   037777777777 0            000000777745 
SCT3	032150 777745 752 0   017777777777 0            000000777745 
SCT3	032150 777745 753 0   007777777777 0            000000777745 
SCT3	032150 777745 754 0   003777777777 0            000000777745 
SCT3	032150 777745 755 0   001777777777 0            000000777745 
SCT3	032150 777745 756 0   000777777777 0            000000777745 
SCT3	032150 777745 757 0   000377777777 0            000000777745 
SCT3	032150 777745 0   0   000177777777 0            000000777745 
SCT3	032150 777745 761 0   000077777777 0            000000777745 
SCT3	032150 777745 762 0   000037777777 0            000000777745 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 244
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0333

SCT3	032150 777745 763 0   000017777777 0            000000777745 
SCT3	032150 777745 764 0   000007777777 0            000000777745 
SCT3	032150 777745 765 0   000003777777 0            000000777745 
SCT3	032150 777745 766 0   000001777777 0            000000777745 
SCT3	032150 777745 767 0   000000777777 0            000000777745 
SCT3	032150 777745 0   0   000000377777 0            000000777745 
SCT3	032150 777745 771 0   000000177777 0            000000777745 
SCT3	032150 777745 772 0   000000077777 0            000000777745 
SCT3	032150 777745 773 0   000000037777 0            000000777745 
SCT3	032150 777745 774 0   000000017777 0            000000777745 
SCT3	032150 777745 775 0   000000007777 0            000000777745 
SCT3	032150 777745 776 0   000000003777 0            000000777745 
SCT3	032150 777745 777 0   000000001777 0            000000777745 
SCT3	032150 777745 0   0   000000000777 0            000000777745 
SCT4	032150 777745 0   0   000000000777 0            000000777745 
ST0	032150 777745 0   0   000000000777 0            000000777745 
ST1	032150 777745 0   0   000000000777 0            000000777745 
ST2	032150 777745 0   0   000000000777 0            000000777745 
ST9	032150 777745 0   0   000000000777 0            000000777745 


*032150 CAME	1,032277
INITIAL
C(AC)=000000 000777 
C(E)=000000 000777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032150 032150 0   0   312040032277 0            000000000777 
IT1	032150 0      0   0   312040032277 0            000000000777 
AT3	032150 0      0   0   000000032277 0            312040032277 
AT6	032150 032277 0   0   000000032277 0            312040032277 
FT0	032150 032277 0   0   000000000777 0            312040032277 
FT1A	032150 032277 0   0   000000000777 0            000000000777 
FT2	032150 032277 0   0   0            0            000000000777 
FT2RQ	032150 032277 0   0   000000000777 0            000000000777 
FT3	032150 032277 0   0   000000000777 0            000000000777 
FT9	032151 032277 0   0   000000000777 0            000000000777 
ET0	032152 032277 0   0   0            0            000000000777 
ST1A	032152 032277 0   0   0            0            000000000777 
ST9	032152 032277 0   0   0            0            000000000777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 245
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0334

*032152 JUMPA	0,032153
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032152 032152 0   0   324000032153 0            000000032153 
IT1	032152 0      0   0   324000032153 0            000000032153 
AT3	032152 0      0   0   000000032153 0            324000032153 
AT6	032152 032153 0   0   000000032153 0            324000032153 
FT1A	032152 032153 0   0   000000032153 0            000000032153 
FT2	032152 032153 0   0   0            0            000000032153 
FT2RQ	032152 032153 0   0   000000000007 0            000000032153 
FT3	032152 032153 0   0   000000000007 0            000000032153 
FT9	032153 032153 0   0   000000000007 0            000000032153 
ET0	032153 032153 0   0   000000000007 0            000000032153 
ST1A	032153 032153 0   0   000000000007 0            000000032153 
ST9	032153 032153 0   0   000000000007 0            000000032153 


*032153 CAME	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032153 032153 0   0   312100032254 0            172737405060 
IT1	032153 0      0   0   312100032254 0            172737405060 
AT3	032153 0      0   0   000000032254 0            312100032254 
AT6	032153 032254 0   0   000000032254 0            312100032254 
FT0	032153 032254 0   0   172737405060 0            312100032254 
FT1A	032153 032254 0   0   172737405060 0            172737405060 
FT2	032153 032254 0   0   0            0            172737405060 
FT2RQ	032153 032254 0   0   172737405060 0            172737405060 
FT3	032153 032254 0   0   172737405060 0            172737405060 
FT9	032154 032254 0   0   172737405060 0            172737405060 
ET0	032155 032254 0   0   0            0            172737405060 
ST1A	032155 032254 0   0   0            0            172737405060 
ST9	032155 032254 0   0   0            0            172737405060 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 246
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0335

*032155 JUMPA	0,032156
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032155 032155 0   0   324000032156 0            000000032156 
IT1	032155 0      0   0   324000032156 0            000000032156 
AT3	032155 0      0   0   000000032156 0            324000032156 
AT6	032155 032156 0   0   000000032156 0            324000032156 
FT1A	032155 032156 0   0   000000032156 0            000000032156 
FT2	032155 032156 0   0   0            0            000000032156 
FT2RQ	032155 032156 0   0   000000000007 0            000000032156 
FT3	032155 032156 0   0   000000000007 0            000000032156 
FT9	032156 032156 0   0   000000000007 0            000000032156 
ET0	032156 032156 0   0   000000000007 0            000000032156 
ST1A	032156 032156 0   0   000000000007 0            000000032156 
ST9	032156 032156 0   0   000000000007 0            000000032156 


*032156 MOVE 	1,032255
INITIAL
C(AC)=000000 000777 
C(E)=252525 252525 
FINAL
C(AC)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032156 032156 0   0   200040032255 0            252525252525 
IT1	032156 0      0   0   200040032255 0            252525252525 
AT3	032156 0      0   0   000000032255 0            200040032255 
AT6	032156 032255 0   0   000000032255 0            200040032255 
FT0	032156 032255 0   0   252525252525 0            200040032255 
FT1A	032156 032255 0   0   252525252525 0            252525252525 
FT9	032157 032255 0   0   252525252525 0            252525252525 
ET0	032157 032255 0   0   252525252525 0            252525252525 
ST1	032157 032255 0   0   252525252525 0            252525252525 
ST2	032157 032255 0   0   252525252525 0            252525252525 
ST9	032157 032255 0   0   252525252525 0            252525252525 


*032157 MOVE 	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032157 032157 0   0   200100032254 0            172737405060 
IT1	032157 0      0   0   200100032254 0            172737405060 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 247
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0336

AT3	032157 0      0   0   000000032254 0            200100032254 
AT6	032157 032254 0   0   000000032254 0            200100032254 
FT0	032157 032254 0   0   172737405060 0            200100032254 
FT1A	032157 032254 0   0   172737405060 0            172737405060 
FT9	032160 032254 0   0   172737405060 0            172737405060 
ET0	032160 032254 0   0   172737405060 0            172737405060 
ST1	032160 032254 0   0   172737405060 0            172737405060 
ST2	032160 032254 0   0   172737405060 0            172737405060 
ST9	032160 032254 0   0   172737405060 0            172737405060 


*032160 LSH	1,777745
INITIAL
C(AC)=252525 252525 
FINAL
C(AC)=000000 000252 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032160 032160 0   0   242040777745 0            000000777745 
IT1	032160 0      0   0   242040777745 0            000000777745 
AT3	032160 0      0   0   000000777745 0            242040777745 
AT6	032160 777745 0   0   000000777745 0            242040777745 
FT1A	032160 777745 0   0   000000777745 0            000000777745 
FT2	032160 777745 0   0   0            0            000000777745 
FT2RQ	032160 777745 0   0   252525252525 0            000000777745 
FT3	032160 777745 0   0   252525252525 0            000000777745 
FT9	032161 777745 0   0   252525252525 0            000000777745 
ET0	032161 777745 745 0   252525252525 0            000000777745 
SCT0	032161 777745 745 0   252525252525 0            000000777745 
SCT3	032161 777745 746 0   125252525252 0            000000777745 
SCT3	032161 777745 747 0   052525252525 0            000000777745 
SCT3	032161 777745 0   0   025252525252 0            000000777745 
SCT3	032161 777745 751 0   012525252525 0            000000777745 
SCT3	032161 777745 752 0   005252525252 0            000000777745 
SCT3	032161 777745 753 0   002525252525 0            000000777745 
SCT3	032161 777745 754 0   001252525252 0            000000777745 
SCT3	032161 777745 755 0   000525252525 0            000000777745 
SCT3	032161 777745 756 0   000252525252 0            000000777745 
SCT3	032161 777745 757 0   000125252525 0            000000777745 
SCT3	032161 777745 0   0   000052525252 0            000000777745 
SCT3	032161 777745 761 0   000025252525 0            000000777745 
SCT3	032161 777745 762 0   000012525252 0            000000777745 
SCT3	032161 777745 763 0   000005252525 0            000000777745 
SCT3	032161 777745 764 0   000002525252 0            000000777745 
SCT3	032161 777745 765 0   000001252525 0            000000777745 
SCT3	032161 777745 766 0   000000525252 0            000000777745 
SCT3	032161 777745 767 0   000000252525 0            000000777745 
SCT3	032161 777745 0   0   000000125252 0            000000777745 
SCT3	032161 777745 771 0   000000052525 0            000000777745 
SCT3	032161 777745 772 0   000000025252 0            000000777745 
SCT3	032161 777745 773 0   000000012525 0            000000777745 
SCT3	032161 777745 774 0   000000005252 0            000000777745 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 248
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0337

SCT3	032161 777745 775 0   000000002525 0            000000777745 
SCT3	032161 777745 776 0   000000001252 0            000000777745 
SCT3	032161 777745 777 0   000000000525 0            000000777745 
SCT3	032161 777745 0   0   000000000252 0            000000777745 
SCT4	032161 777745 0   0   000000000252 0            000000777745 
ST0	032161 777745 0   0   000000000252 0            000000777745 
ST1	032161 777745 0   0   000000000252 0            000000777745 
ST2	032161 777745 0   0   000000000252 0            000000777745 
ST9	032161 777745 0   0   000000000252 0            000000777745 


*032161 CAME	1,032300
INITIAL
C(AC)=000000 000252 
C(E)=000000 000252 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032161 032161 0   0   312040032300 0            000000000252 
IT1	032161 0      0   0   312040032300 0            000000000252 
AT3	032161 0      0   0   000000032300 0            312040032300 
AT6	032161 0      0   0   000000032300 0            312040032300 
FT0	032161 0      0   0   000000000252 0            312040032300 
FT1A	032161 0      0   0   000000000252 0            000000000252 
FT2	032161 0      0   0   0            0            000000000252 
FT2RQ	032161 0      0   0   000000000252 0            000000000252 
FT3	032161 0      0   0   000000000252 0            000000000252 
FT9	032162 0      0   0   000000000252 0            000000000252 
ET0	032163 0      0   0   0            0            000000000252 
ST1A	032163 0      0   0   0            0            000000000252 
ST9	032163 0      0   0   0            0            000000000252 


*032163 JUMPA	0,032164
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032163 032163 0   0   324000032164 0            000000032164 
IT1	032163 0      0   0   324000032164 0            000000032164 
AT3	032163 0      0   0   000000032164 0            324000032164 
AT6	032163 032164 0   0   000000032164 0            324000032164 
FT1A	032163 032164 0   0   000000032164 0            000000032164 
FT2	032163 032164 0   0   0            0            000000032164 
FT2RQ	032163 032164 0   0   000000000007 0            000000032164 
FT3	032163 032164 0   0   000000000007 0            000000032164 
FT9	032164 032164 0   0   000000000007 0            000000032164 
ET0	032164 032164 0   0   000000000007 0            000000032164 
ST1A	032164 032164 0   0   000000000007 0            000000032164 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 249
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0338

ST9	032164 032164 0   0   000000000007 0            000000032164 


*032164 CAME	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032164 032164 0   0   312100032254 0            172737405060 
IT1	032164 0      0   0   312100032254 0            172737405060 
AT3	032164 0      0   0   000000032254 0            312100032254 
AT6	032164 032254 0   0   000000032254 0            312100032254 
FT0	032164 032254 0   0   172737405060 0            312100032254 
FT1A	032164 032254 0   0   172737405060 0            172737405060 
FT2	032164 032254 0   0   0            0            172737405060 
FT2RQ	032164 032254 0   0   172737405060 0            172737405060 
FT3	032164 032254 0   0   172737405060 0            172737405060 
FT9	032165 032254 0   0   172737405060 0            172737405060 
ET0	032166 032254 0   0   0            0            172737405060 
ST1A	032166 032254 0   0   0            0            172737405060 
ST9	032166 032254 0   0   0            0            172737405060 


*032166 JUMPA	0,032167
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032166 032166 0   0   324000032167 0            000000032167 
IT1	032166 0      0   0   324000032167 0            000000032167 
AT3	032166 0      0   0   000000032167 0            324000032167 
AT6	032166 032167 0   0   000000032167 0            324000032167 
FT1A	032166 032167 0   0   000000032167 0            000000032167 
FT2	032166 032167 0   0   0            0            000000032167 
FT2RQ	032166 032167 0   0   000000000007 0            000000032167 
FT3	032166 032167 0   0   000000000007 0            000000032167 
FT9	032167 032167 0   0   000000000007 0            000000032167 
ET0	032167 032167 0   0   000000000007 0            000000032167 
ST1A	032167 032167 0   0   000000000007 0            000000032167 
ST9	032167 032167 0   0   000000000007 0            000000032167 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 250
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0339

*032167 MOVE 	1,032256
INITIAL
C(AC)=000000 000252 
C(E)=525252 525252 
FINAL
C(AC)=525252 525252 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032167 032167 0   0   200040032256 0            525252525252 
IT1	032167 0      0   0   200040032256 0            525252525252 
AT3	032167 0      0   0   000000032256 0            200040032256 
AT6	032167 032256 0   0   000000032256 0            200040032256 
FT0	032167 032256 0   0   525252525252 0            200040032256 
FT1A	032167 032256 0   0   525252525252 0            525252525252 
FT9	032170 032256 0   0   525252525252 0            525252525252 
ET0	032170 032256 0   0   525252525252 0            525252525252 
ST1	032170 032256 0   0   525252525252 0            525252525252 
ST2	032170 032256 0   0   525252525252 0            525252525252 
ST9	032170 032256 0   0   525252525252 0            525252525252 


*032170 MOVE 	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032170 032170 0   0   200100032254 0            172737405060 
IT1	032170 0      0   0   200100032254 0            172737405060 
AT3	032170 0      0   0   000000032254 0            200100032254 
AT6	032170 032254 0   0   000000032254 0            200100032254 
FT0	032170 032254 0   0   172737405060 0            200100032254 
FT1A	032170 032254 0   0   172737405060 0            172737405060 
FT9	032171 032254 0   0   172737405060 0            172737405060 
ET0	032171 032254 0   0   172737405060 0            172737405060 
ST1	032171 032254 0   0   172737405060 0            172737405060 
ST2	032171 032254 0   0   172737405060 0            172737405060 
ST9	032171 032254 0   0   172737405060 0            172737405060 


*032171 LSH	1,777745
INITIAL
C(AC)=525252 525252 
FINAL
C(AC)=000000 000525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032171 032171 0   0   242040777745 0            000000777745 
IT1	032171 0      0   0   242040777745 0            000000777745 
AT3	032171 0      0   0   000000777745 0            242040777745 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 251
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0340

AT6	032171 777745 0   0   000000777745 0            242040777745 
FT1A	032171 777745 0   0   000000777745 0            000000777745 
FT2	032171 777745 0   0   0            0            000000777745 
FT2RQ	032171 777745 0   0   525252525252 0            000000777745 
FT3	032171 777745 0   0   525252525252 0            000000777745 
FT9	032172 777745 0   0   525252525252 0            000000777745 
ET0	032172 777745 745 0   525252525252 0            000000777745 
SCT0	032172 777745 745 0   525252525252 0            000000777745 
SCT3	032172 777745 746 0   252525252525 0            000000777745 
SCT3	032172 777745 747 0   125252525252 0            000000777745 
SCT3	032172 777745 0   0   052525252525 0            000000777745 
SCT3	032172 777745 751 0   025252525252 0            000000777745 
SCT3	032172 777745 752 0   012525252525 0            000000777745 
SCT3	032172 777745 753 0   005252525252 0            000000777745 
SCT3	032172 777745 754 0   002525252525 0            000000777745 
SCT3	032172 777745 755 0   001252525252 0            000000777745 
SCT3	032172 777745 756 0   000525252525 0            000000777745 
SCT3	032172 777745 757 0   000252525252 0            000000777745 
SCT3	032172 777745 0   0   000125252525 0            000000777745 
SCT3	032172 777745 761 0   000052525252 0            000000777745 
SCT3	032172 777745 762 0   000025252525 0            000000777745 
SCT3	032172 777745 763 0   000012525252 0            000000777745 
SCT3	032172 777745 764 0   000005252525 0            000000777745 
SCT3	032172 777745 765 0   000002525252 0            000000777745 
SCT3	032172 777745 766 0   000001252525 0            000000777745 
SCT3	032172 777745 767 0   000000525252 0            000000777745 
SCT3	032172 777745 0   0   000000252525 0            000000777745 
SCT3	032172 777745 771 0   000000125252 0            000000777745 
SCT3	032172 777745 772 0   000000052525 0            000000777745 
SCT3	032172 777745 773 0   000000025252 0            000000777745 
SCT3	032172 777745 774 0   000000012525 0            000000777745 
SCT3	032172 777745 775 0   000000005252 0            000000777745 
SCT3	032172 777745 776 0   000000002525 0            000000777745 
SCT3	032172 777745 777 0   000000001252 0            000000777745 
SCT3	032172 777745 0   0   000000000525 0            000000777745 
SCT4	032172 777745 0   0   000000000525 0            000000777745 
ST0	032172 777745 0   0   000000000525 0            000000777745 
ST1	032172 777745 0   0   000000000525 0            000000777745 
ST2	032172 777745 0   0   000000000525 0            000000777745 
ST9	032172 777745 0   0   000000000525 0            000000777745 


*032172 CAME	1,032301
INITIAL
C(AC)=000000 000525 
C(E)=000000 000525 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032172 032172 0   0   312040032301 0            000000000525 
IT1	032172 0      0   0   312040032301 0            000000000525 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 252
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0341

AT3	032172 0      0   0   000000032301 0            312040032301 
AT6	032172 032301 0   0   000000032301 0            312040032301 
FT0	032172 032301 0   0   000000000525 0            312040032301 
FT1A	032172 032301 0   0   000000000525 0            000000000525 
FT2	032172 032301 0   0   0            0            000000000525 
FT2RQ	032172 032301 0   0   000000000525 0            000000000525 
FT3	032172 032301 0   0   000000000525 0            000000000525 
FT9	032173 032301 0   0   000000000525 0            000000000525 
ET0	032174 032301 0   0   0            0            000000000525 
ST1A	032174 032301 0   0   0            0            000000000525 
ST9	032174 032301 0   0   0            0            000000000525 


*032174 JUMPA	0,032175
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032174 032174 0   0   324000032175 0            000000032175 
IT1	032174 0      0   0   324000032175 0            000000032175 
AT3	032174 0      0   0   000000032175 0            324000032175 
AT6	032174 032175 0   0   000000032175 0            324000032175 
FT1A	032174 032175 0   0   000000032175 0            000000032175 
FT2	032174 032175 0   0   0            0            000000032175 
FT2RQ	032174 032175 0   0   000000000007 0            000000032175 
FT3	032174 032175 0   0   000000000007 0            000000032175 
FT9	032175 032175 0   0   000000000007 0            000000032175 
ET0	032175 032175 0   0   000000000007 0            000000032175 
ST1A	032175 032175 0   0   000000000007 0            000000032175 
ST9	032175 032175 0   0   000000000007 0            000000032175 


*032175 CAME	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032175 032175 0   0   312100032254 0            172737405060 
IT1	032175 0      0   0   312100032254 0            172737405060 
AT3	032175 0      0   0   000000032254 0            312100032254 
AT6	032175 032254 0   0   000000032254 0            312100032254 
FT0	032175 032254 0   0   172737405060 0            312100032254 
FT1A	032175 032254 0   0   172737405060 0            172737405060 
FT2	032175 032254 0   0   0            0            172737405060 
FT2RQ	032175 032254 0   0   172737405060 0            172737405060 
FT3	032175 032254 0   0   172737405060 0            172737405060 
FT9	032176 032254 0   0   172737405060 0            172737405060 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 253
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0342

ET0	032177 032254 0   0   0            0            172737405060 
ST1A	032177 032254 0   0   0            0            172737405060 
ST9	032177 032254 0   0   0            0            172737405060 


*032177 JUMPA	0,032200
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032177 032177 0   0   324000032200 0            000000032200 
IT1	032177 0      0   0   324000032200 0            000000032200 
AT3	032177 0      0   0   000000032200 0            324000032200 
AT6	032177 0      0   0   000000032200 0            324000032200 
FT1A	032177 0      0   0   000000032200 0            000000032200 
FT2	032177 0      0   0   0            0            000000032200 
FT2RQ	032177 0      0   0   000000000007 0            000000032200 
FT3	032177 0      0   0   000000000007 0            000000032200 
FT9	0      0      0   0   000000000007 0            000000032200 
ET0	0      0      0   0   000000000007 0            000000032200 
ST1A	0      0      0   0   000000000007 0            000000032200 
ST9	0      0      0   0   000000000007 0            000000032200 


*032200 MOVE 	1,032257
INITIAL
C(AC)=000000 000525 
C(E)=230703 603700 
FINAL
C(AC)=230703 603700 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   200040032257 0            230703603700 
IT1	0      0      0   0   200040032257 0            230703603700 
AT3	0      0      0   0   000000032257 0            200040032257 
AT6	0      032257 0   0   000000032257 0            200040032257 
FT0	0      032257 0   0   230703603700 0            200040032257 
FT1A	0      032257 0   0   230703603700 0            230703603700 
FT9	032201 032257 0   0   230703603700 0            230703603700 
ET0	032201 032257 0   0   230703603700 0            230703603700 
ST1	032201 032257 0   0   230703603700 0            230703603700 
ST2	032201 032257 0   0   230703603700 0            230703603700 
ST9	032201 032257 0   0   230703603700 0            230703603700 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 254
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0343

*032201 MOVE 	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032201 032201 0   0   200100032254 0            172737405060 
IT1	032201 0      0   0   200100032254 0            172737405060 
AT3	032201 0      0   0   000000032254 0            200100032254 
AT6	032201 032254 0   0   000000032254 0            200100032254 
FT0	032201 032254 0   0   172737405060 0            200100032254 
FT1A	032201 032254 0   0   172737405060 0            172737405060 
FT9	032202 032254 0   0   172737405060 0            172737405060 
ET0	032202 032254 0   0   172737405060 0            172737405060 
ST1	032202 032254 0   0   172737405060 0            172737405060 
ST2	032202 032254 0   0   172737405060 0            172737405060 
ST9	032202 032254 0   0   172737405060 0            172737405060 


*032202 LSH	1,777745
INITIAL
C(AC)=230703 603700 
FINAL
C(AC)=000000 000230 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032202 032202 0   0   242040777745 0            000000777745 
IT1	032202 0      0   0   242040777745 0            000000777745 
AT3	032202 0      0   0   000000777745 0            242040777745 
AT6	032202 777745 0   0   000000777745 0            242040777745 
FT1A	032202 777745 0   0   000000777745 0            000000777745 
FT2	032202 777745 0   0   0            0            000000777745 
FT2RQ	032202 777745 0   0   230703603700 0            000000777745 
FT3	032202 777745 0   0   230703603700 0            000000777745 
FT9	032203 777745 0   0   230703603700 0            000000777745 
ET0	032203 777745 745 0   230703603700 0            000000777745 
SCT0	032203 777745 745 0   230703603700 0            000000777745 
SCT3	032203 777745 746 0   114341701740 0            000000777745 
SCT3	032203 777745 747 0   046160740760 0            000000777745 
SCT3	032203 777745 0   0   023070360370 0            000000777745 
SCT3	032203 777745 751 0   011434170174 0            000000777745 
SCT3	032203 777745 752 0   004616074076 0            000000777745 
SCT3	032203 777745 753 0   002307036037 0            000000777745 
SCT3	032203 777745 754 0   001143417017 0            000000777745 
SCT3	032203 777745 755 0   000461607407 0            000000777745 
SCT3	032203 777745 756 0   000230703603 0            000000777745 
SCT3	032203 777745 757 0   000114341701 0            000000777745 
SCT3	032203 777745 0   0   000046160740 0            000000777745 
SCT3	032203 777745 761 0   000023070360 0            000000777745 
SCT3	032203 777745 762 0   000011434170 0            000000777745 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 255
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0344

SCT3	032203 777745 763 0   000004616074 0            000000777745 
SCT3	032203 777745 764 0   000002307036 0            000000777745 
SCT3	032203 777745 765 0   000001143417 0            000000777745 
SCT3	032203 777745 766 0   000000461607 0            000000777745 
SCT3	032203 777745 767 0   000000230703 0            000000777745 
SCT3	032203 777745 0   0   000000114341 0            000000777745 
SCT3	032203 777745 771 0   000000046160 0            000000777745 
SCT3	032203 777745 772 0   000000023070 0            000000777745 
SCT3	032203 777745 773 0   000000011434 0            000000777745 
SCT3	032203 777745 774 0   000000004616 0            000000777745 
SCT3	032203 777745 775 0   000000002307 0            000000777745 
SCT3	032203 777745 776 0   000000001143 0            000000777745 
SCT3	032203 777745 777 0   000000000461 0            000000777745 
SCT3	032203 777745 0   0   000000000230 0            000000777745 
SCT4	032203 777745 0   0   000000000230 0            000000777745 
ST0	032203 777745 0   0   000000000230 0            000000777745 
ST1	032203 777745 0   0   000000000230 0            000000777745 
ST2	032203 777745 0   0   000000000230 0            000000777745 
ST9	032203 777745 0   0   000000000230 0            000000777745 


*032203 CAME	1,032302
INITIAL
C(AC)=000000 000230 
C(E)=000000 000230 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032203 032203 0   0   312040032302 0            000000000230 
IT1	032203 0      0   0   312040032302 0            000000000230 
AT3	032203 0      0   0   000000032302 0            312040032302 
AT6	032203 032302 0   0   000000032302 0            312040032302 
FT0	032203 032302 0   0   000000000230 0            312040032302 
FT1A	032203 032302 0   0   000000000230 0            000000000230 
FT2	032203 032302 0   0   0            0            000000000230 
FT2RQ	032203 032302 0   0   000000000230 0            000000000230 
FT3	032203 032302 0   0   000000000230 0            000000000230 
FT9	032204 032302 0   0   000000000230 0            000000000230 
ET0	032205 032302 0   0   0            0            000000000230 
ST1A	032205 032302 0   0   0            0            000000000230 
ST9	032205 032302 0   0   0            0            000000000230 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 256
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0345

*032205 JUMPA	0,032206
INITIAL
C(AC)=000000 000007 
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   000000000007 0            000000032206 
FT3	032205 032206 0   0   000000000007 0            000000032206 
FT9	032206 032206 0   0   000000000007 0            000000032206 
ET0	032206 032206 0   0   000000000007 0            000000032206 
ST1A	032206 032206 0   0   000000000007 0            000000032206 
ST9	032206 032206 0   0   000000000007 0            000000032206 


*032206 CAME	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032206 032206 0   0   312100032254 0            172737405060 
IT1	032206 0      0   0   312100032254 0            172737405060 
AT3	032206 0      0   0   000000032254 0            312100032254 
AT6	032206 032254 0   0   000000032254 0            312100032254 
FT0	032206 032254 0   0   172737405060 0            312100032254 
FT1A	032206 032254 0   0   172737405060 0            172737405060 
FT2	032206 032254 0   0   0            0            172737405060 
FT2RQ	032206 032254 0   0   172737405060 0            172737405060 
FT3	032206 032254 0   0   172737405060 0            172737405060 
FT9	032207 032254 0   0   172737405060 0            172737405060 
ET0	032210 032254 0   0   0            0            172737405060 
ST1A	032210 032254 0   0   0            0            172737405060 
ST9	032210 032254 0   0   0            0            172737405060 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 257
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0346

*032210 JUMPA	0,032211
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032210 032210 0   0   324000032211 0            000000032211 
IT1	032210 0      0   0   324000032211 0            000000032211 
AT3	032210 0      0   0   000000032211 0            324000032211 
AT6	032210 032211 0   0   000000032211 0            324000032211 
FT1A	032210 032211 0   0   000000032211 0            000000032211 
FT2	032210 032211 0   0   0            0            000000032211 
FT2RQ	032210 032211 0   0   000000000007 0            000000032211 
FT3	032210 032211 0   0   000000000007 0            000000032211 
FT9	032211 032211 0   0   000000000007 0            000000032211 
ET0	032211 032211 0   0   000000000007 0            000000032211 
ST1A	032211 032211 0   0   000000000007 0            000000032211 
ST9	032211 032211 0   0   000000000007 0            000000032211 


*032211 MOVE 	1,032261
INITIAL
C(AC)=000000 000230 
C(E)=007603 607062 
FINAL
C(AC)=007603 607062 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032211 032211 0   0   200040032261 0            007603607062 
IT1	032211 0      0   0   200040032261 0            007603607062 
AT3	032211 0      0   0   000000032261 0            200040032261 
AT6	032211 032261 0   0   000000032261 0            200040032261 
FT0	032211 032261 0   0   007603607062 0            200040032261 
FT1A	032211 032261 0   0   007603607062 0            007603607062 
FT9	032212 032261 0   0   007603607062 0            007603607062 
ET0	032212 032261 0   0   007603607062 0            007603607062 
ST1	032212 032261 0   0   007603607062 0            007603607062 
ST2	032212 032261 0   0   007603607062 0            007603607062 
ST9	032212 032261 0   0   007603607062 0            007603607062 


*032212 MOVE 	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL
C(AC)=172737 405060 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032212 032212 0   0   200100032254 0            172737405060 
IT1	032212 0      0   0   200100032254 0            172737405060 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 258
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0347

AT3	032212 0      0   0   000000032254 0            200100032254 
AT6	032212 032254 0   0   000000032254 0            200100032254 
FT0	032212 032254 0   0   172737405060 0            200100032254 
FT1A	032212 032254 0   0   172737405060 0            172737405060 
FT9	032213 032254 0   0   172737405060 0            172737405060 
ET0	032213 032254 0   0   172737405060 0            172737405060 
ST1	032213 032254 0   0   172737405060 0            172737405060 
ST2	032213 032254 0   0   172737405060 0            172737405060 
ST9	032213 032254 0   0   172737405060 0            172737405060 


*032213 LSH	1,777745
INITIAL
C(AC)=007603 607062 
FINAL
C(AC)=000000 000007 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032213 032213 0   0   242040777745 0            000000777745 
IT1	032213 0      0   0   242040777745 0            000000777745 
AT3	032213 0      0   0   000000777745 0            242040777745 
AT6	032213 777745 0   0   000000777745 0            242040777745 
FT1A	032213 777745 0   0   000000777745 0            000000777745 
FT2	032213 777745 0   0   0            0            000000777745 
FT2RQ	032213 777745 0   0   007603607062 0            000000777745 
FT3	032213 777745 0   0   007603607062 0            000000777745 
FT9	032214 777745 0   0   007603607062 0            000000777745 
ET0	032214 777745 745 0   007603607062 0            000000777745 
SCT0	032214 777745 745 0   007603607062 0            000000777745 
SCT3	032214 777745 746 0   003701703431 0            000000777745 
SCT3	032214 777745 747 0   001740741614 0            000000777745 
SCT3	032214 777745 0   0   000760360706 0            000000777745 
SCT3	032214 777745 751 0   000370170343 0            000000777745 
SCT3	032214 777745 752 0   000174074161 0            000000777745 
SCT3	032214 777745 753 0   000076036070 0            000000777745 
SCT3	032214 777745 754 0   000037017034 0            000000777745 
SCT3	032214 777745 755 0   000017407416 0            000000777745 
SCT3	032214 777745 756 0   000007603607 0            000000777745 
SCT3	032214 777745 757 0   000003701703 0            000000777745 
SCT3	032214 777745 0   0   000001740741 0            000000777745 
SCT3	032214 777745 761 0   000000760360 0            000000777745 
SCT3	032214 777745 762 0   000000370170 0            000000777745 
SCT3	032214 777745 763 0   000000174074 0            000000777745 
SCT3	032214 777745 764 0   000000076036 0            000000777745 
SCT3	032214 777745 765 0   000000037017 0            000000777745 
SCT3	032214 777745 766 0   000000017407 0            000000777745 
SCT3	032214 777745 767 0   000000007603 0            000000777745 
SCT3	032214 777745 0   0   000000003701 0            000000777745 
SCT3	032214 777745 771 0   000000001740 0            000000777745 
SCT3	032214 777745 772 0   000000000760 0            000000777745 
SCT3	032214 777745 773 0   000000000370 0            000000777745 
SCT3	032214 777745 774 0   000000000174 0            000000777745 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 259
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0348

SCT3	032214 777745 775 0   000000000076 0            000000777745 
SCT3	032214 777745 776 0   000000000037 0            000000777745 
SCT3	032214 777745 777 0   000000000017 0            000000777745 
SCT3	032214 777745 0   0   000000000007 0            000000777745 
SCT4	032214 777745 0   0   000000000007 0            000000777745 
ST0	032214 777745 0   0   000000000007 0            000000777745 
ST1	032214 777745 0   0   000000000007 0            000000777745 
ST2	032214 777745 0   0   000000000007 0            000000777745 
ST9	032214 777745 0   0   000000000007 0            000000777745 


*032214 CAME	1,032252
INITIAL
C(AC)=000000 000007 
C(E)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032214 032214 0   0   312040032252 0            000000000007 
IT1	032214 0      0   0   312040032252 0            000000000007 
AT3	032214 0      0   0   000000032252 0            312040032252 
AT6	032214 032252 0   0   000000032252 0            312040032252 
FT0	032214 032252 0   0   000000000007 0            312040032252 
FT1A	032214 032252 0   0   000000000007 0            000000000007 
FT2	032214 032252 0   0   0            0            000000000007 
FT2RQ	032214 032252 0   0   000000000007 0            000000000007 
FT3	032214 032252 0   0   000000000007 0            000000000007 
FT9	032215 032252 0   0   000000000007 0            000000000007 
ET0	032216 032252 0   0   0            0            000000000007 
ST1A	032216 032252 0   0   0            0            000000000007 
ST9	032216 032252 0   0   0            0            000000000007 


*032216 JUMPA	0,032217
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032216 032216 0   0   324000032217 0            000000032217 
IT1	032216 0      0   0   324000032217 0            000000032217 
AT3	032216 0      0   0   000000032217 0            324000032217 
AT6	032216 032217 0   0   000000032217 0            324000032217 
FT1A	032216 032217 0   0   000000032217 0            000000032217 
FT2	032216 032217 0   0   0            0            000000032217 
FT2RQ	032216 032217 0   0   000000000007 0            000000032217 
FT3	032216 032217 0   0   000000000007 0            000000032217 
FT9	032217 032217 0   0   000000000007 0            000000032217 
ET0	032217 032217 0   0   000000000007 0            000000032217 
ST1A	032217 032217 0   0   000000000007 0            000000032217 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 260
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0349

ST9	032217 032217 0   0   000000000007 0            000000032217 


*032217 CAME	2,032254
INITIAL
C(AC)=172737 405060 
C(E)=172737 405060 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032217 032217 0   0   312100032254 0            172737405060 
IT1	032217 0      0   0   312100032254 0            172737405060 
AT3	032217 0      0   0   000000032254 0            312100032254 
AT6	032217 032254 0   0   000000032254 0            312100032254 
FT0	032217 032254 0   0   172737405060 0            312100032254 
FT1A	032217 032254 0   0   172737405060 0            172737405060 
FT2	032217 032254 0   0   0            0            172737405060 
FT2RQ	032217 032254 0   0   172737405060 0            172737405060 
FT3	032217 032254 0   0   172737405060 0            172737405060 
FT9	032220 032254 0   0   172737405060 0            172737405060 
ET0	032221 032254 0   0   0            0            172737405060 
ST1A	032221 032254 0   0   0            0            172737405060 
ST9	032221 032254 0   0   0            0            172737405060 


*032221 JUMPA	0,032222
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032221 032221 0   0   324000032222 0            000000032222 
IT1	032221 0      0   0   324000032222 0            000000032222 
AT3	032221 0      0   0   000000032222 0            324000032222 
AT6	032221 032222 0   0   000000032222 0            324000032222 
FT1A	032221 032222 0   0   000000032222 0            000000032222 
FT2	032221 032222 0   0   0            0            000000032222 
FT2RQ	032221 032222 0   0   000000000007 0            000000032222 
FT3	032221 032222 0   0   000000000007 0            000000032222 
FT9	032222 032222 0   0   000000000007 0            000000032222 
ET0	032222 032222 0   0   000000000007 0            000000032222 
ST1A	032222 032222 0   0   000000000007 0            000000032222 
ST9	032222 032222 0   0   000000000007 0            000000032222 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 261
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0350

*032222 JRST	0,030057
INITIAL
C(AC)=000000 000007 
C(E)=254000 030641 
FINAL

C(E)=254000 030641 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032222 032222 0   0   254000030057 0            254000030057 
IT1	032222 0      0   0   254000030057 0            254000030057 
AT3	032222 0      0   0   000000030057 0            254000030057 
AT6	032222 030057 0   0   000000030057 0            254000030057 
FT1A	032222 030057 0   0   000000030057 0            254000030057 
FT9	032223 030057 0   0   000000030057 0            254000030057 
ET0	030057 032223 0   0   000000030057 0            254000030057 
ST1A	030057 032223 0   0   000000030057 0            254000030057 
ST9	030057 032223 0   0   000000030057 0            254000030057 


*030057 JRST	0,030641
INITIAL
C(AC)=000000 000007 
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 000007 
C(E)=000000 000000 
FINAL
C(AC)=000000 000007 
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  20-JAN-77   PAGE 262
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0351

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 000007 
C(E)=000000 000001 
FINAL
C(AC)=000000 000007 
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 000007 
C(E)=000000 000000 
FINAL
C(AC)=000000 000007 

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  20-JAN-77   PAGE 263
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0352

*030644 JRST	0,030652
INITIAL
C(AC)=000000 000007 
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 000007 
C(E)=000000 000000 
FINAL
C(AC)=000000 000007 

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   0            0            000000030024 
FT3	030654 030024 0   0   0            0            000000030024 
FT9	030655 030024 0   0   0            0            000000030024 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 264
DAKAG	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0353

ST1	030655 030024 0   0   0            0            000000030024 
ST2	030655 030024 0   0   0            0            000000030024 
ST9	030655 030024 0   0   0            0            000000030024 


*030655 SKIPE	0,030024
INITIAL
C(AC)=000000 000007 
C(E)=000000 000000 
FINAL
C(AC)=000000 000007 

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 000007 
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