Google
 

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





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

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

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

	FUNCTION:	BASIC INSTRUCTIONS

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


1.0	ABSTRACT

	THIS PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC IS THE FIRST IN A
	SERIES OF PDP-10 KA10 PROCESSOR DIAGNOSTICS.  IT IS THE MOST
	BASIC OF THE PROCESSOR DIAGNOSTICS.  THIS DIAGNOSTIC
	ASSUMES THE HALT INSTRUCTION AND THE COMPUTER CONSOLE
	TO BE OPERATIVE.  IT MAKES NO FURTHER ASSUMPTIONS EXCEPT
	THAT IT IS LOADED INTO MEMORY CORRECTLY.

	THE DIAGNOSTIC TESTS SOME OF THE MOVE AND SKIP INSTRUCTIONS.
	IT ALSO TESTS THE ADDERS AND OTHER LOGIC WITH AND, XOR, EQV,
	AND ALL BOOLE 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 
							MAINDEC-10-DAKAA.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-DAKAA.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-DAKAA
                                                                                                                           SEQ 0006
************************************************************************

PRODUCT CODE:		MAINDEC-10-DAKAA

PRODUCT NAME:		BASIC INSTRUCTION DIAGNOSTIC #1

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

************************************************************************
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 1
DAKAAT	MAC	19-JAN-77 13:31		DIAGNOSTIC PARAMETERS                                                              SEQ 0007

     1					;DAKAA
     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	DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 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
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 2
DAKAAT	MAC	19-JAN-77 13:31		DIAGNOSTIC PARAMETERS                                                              SEQ 0008

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

   881					SUBTTL	TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS
   882
   883					;NOTE: AN "*" IN THE COMMENT FIELD OF AN INSTRUCTION INDICATES THAT IT IS THE TESTED
   884					;INSTRUCTION.
   885					;**********
   886
   887					;THIS TEST VERIFIES THAT SKIPA ALWAYS SKIPS THE NEXT INSTRUCTION
   888
   889			030742		A00=.
   890	030742	334 00 0 00 000000 	A12500:	SKIPA			;*SKIPA SHOULD ALWAYS SKIP THE NEXT INSTRUCTION
   891	030743	254 04 0 00 000000 		HALT			;IF PROGRAM HALTS, SKIPA DID NOT SKIP
   892
   893					;IF PROGRAM HANGS UP ON SKIPA INSTRUCTION, CHECK AB PC EN [ABC], AB PC F/F [ABC],
   894					;AB PC B [ABC OR AB], AB PC (FETCH) EN [ABC], IR SKIPS [IR3], IR SKIPX [IR1],
   895					;IR 3XX [IR1], IR BITS 00 - 08 [IR1], F CYC ACT EN C [FI], FT6 F/F [F2],
   896					;PC CLOCK EN [PCC],  ET2 J F/F [E], PC CLK (ET2) EN [PCC], ADZ COND P [ADZ] AND
   897					;ADZ COND R [ADZ], PC CLOCK A [PCC], PC CLOCK B [PCC]
   898
   899					;IF PROGRAM HALTED ON HALT INSTRUCTION, CHECK ST1 COND [ST2]
   900
   901					;**********
   902
   903					;THIS TEST VERIFIES THAT JUMP NEVER JUMPS
   904
   905	030744	320 00 0 00 030745 	A15000:	JUMP	.+1		;*JUMP SHOULD NEVER JUMP
   906	030745	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF JUMP IS SUCCESSFUL
   907	030746	254 04 0 00 000000 		HALT			;HALT IF JUMP FAILS
   908
   909					;IF PROGRAM HANGS UP ON JUMP .+1 INSTRUCTION, THE JUMP INSTRUCTION
   910					;MAY HAVE FAILED.  CHECK ST1 COND [ST2], ST INST FET ST1 EN [ST2], ET2 D F/F [E],
   911					;IR JUMPS [IR1], IR JUMPX [IR1]
   912
   913					;**********
   914					;THIS TEST VERIFIES THAT JUMP NEVER JUMPS
   915
   916	030747	320 00 0 00 030751 	A15100:	JUMP	.+2		;*JUMP SHOULD NEVER JUMP
   917	030750	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF JUMP IS SUCCESSFUL
   918	030751	254 04 0 00 000000 		HALT			;HALT IF JUMP FAILS
   919
   920					;AB PC EN [ABC]
   921
   922					;**********
   923
   924					;THIS TEST VERIFIES THAT JUMPA .+1 ALWAYS JUMPS TO THE NEXT INSTRUCTION
   925
   926	030752	324 00 0 00 030753 	A12700:	JUMPA	.+1		;*JUMPA .+1 SHOULD NEVER JUMP
   927	030753	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF JUMPA IS SUCCESSFUL
   928	030754	254 04 0 00 000000 		HALT			;HALT IF JUMPA .+1 FAILED
   929
   930					;**********
   931
   932					;THIS TEST VERIFIES THAT JUMPA JUMPS TO THE LOCATION SPECIFIED BY E WHEN E=.+2
   933
   934	030755	324 00 0 00 030757 	A12600:	JUMPA	.+2		;*JUMPA .+2 SHOULD ALWAYS SKIP THE NEXT INSTRUCTION
   935	030756	254 04 0 00 000000 		HALT			;PROGRAM HALTS HERE IF JUMPA .+2 FAILS
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 2-1
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0029

   936
   937					;ST1 COND [ST2]
   938
   939					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 3
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0030

   940					;THIS TEST VERIFIES THAT SKIPA IS DATA INDEPENDENT.  HENCE, IT ALWAYS SKIPS THE NEXT
   941					;INSTRUCTION.
   942					;THE MOVE [0] INSTRUCTION IS USED TO TEST THE DATA INDEPENDENCE OF SKIPA.
   943
   944	030757	200 00 0 00 035062 	A100:	MOVE	[0]		;PRESET LOCATION 0 TO ALL ZEROS
   945	030760	334 00 0 00 000000 		SKIPA			;*SKIPA SHOULD ALWAYS SKIP THE NEXT INSTRUCTION
   946						STOP^
   947	030761	254 04 0 00 030762 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   948	030762	324 00 0 00 030763 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   949									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
   950									;IN THE SUBTEST) TO LOOP ON ERROR^
   951
   952					;**********
   953					;THIS TEST INSURES THAT SKIPA IS DATA INDEPENDENT.  HENCE, IT ALWAYS SKIPS THE NEXT
   954					;INSTRUCTION.
   955					;THE MOVE [-1] INSTRUCTION IS USED TO TEST THE DATA INDEPENDENCE OF SKIPA.
   956
   957	030763	200 00 0 00 035063 	A200:	MOVE	[-1]		;PRESET LOCATION 0 TO ALL ONES
   958	030764	334 00 0 00 000000 		SKIPA			;*SKIPA SKOULD ALWAYS SKIP THE NEXT INSTRUCTION
   959						STOP^
   960	030765	254 04 0 00 030766 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   961	030766	324 00 0 00 030767 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   962									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
   963									;IN THE SUBTEST) TO LOOP ON ERROR^
   964
   965					;COND P [ADZ]
   966
   967					;**********
   968					;THIS TEST VERIFIES THAT SKIPGE SKIPS THE NEXT INSTRUCTION WHEN C(E)
   969					;IS ALL ZEROS.  THE MOVE INSTRUCTION IS USED TO LOAD E WITH ALL ZEROS.
   970
   971	030767	200 00 0 00 035062 	A300:	MOVE	[0]		;PRESET E TO ALL ZEROS
   972	030770	335 00 0 00 000000 		SKIPGE			;*SKIPGE SHOULD SKIP THE NEXT INSTRUCTION
   973						STOP^
   974	030771	254 04 0 00 030772 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   975	030772	324 00 0 00 030773 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   976									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
   977									;IN THE SUBTEST) TO LOOP ON ERROR^
   978
   979					;COND R [ADZ], AD00 S-A-1, AD AR + EN [ADAP], AD LT AR + EN [ADAP],
   980					;AD RT AR + EN [ADAP], AD AR + EN C [ADAP], F CYC ACT EN A [F1]
   981
   982					;**********
   983
   984					;THIS TEST VERIFIES THAT SKIP IS DATA INDEPENDENT.  HENCE, SKIP NEVER SKIPS.  IT ALWAYS
   985					;CONTINUES ON TO THE NEXT INSTRUCTION.
   986
   987	030773	200 00 0 00 035063 	A400:	MOVE	[-1]		;PRESET E TO ALL ONES
   988	030774	330 00 0 00 000000 		SKIP			;*SKIP SHOULD NEVER SKIP THE NEXT INSTRUCTION
   989	030775	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSES
   990						STOP^
   991	030776	254 04 0 00 030777 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   992	030777	324 00 0 00 031000 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   993									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
   994									;IN THE SUBTEST) TO LOOP ON ERROR^
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 3-1
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0031

   995
   996					;PC CHANGE [PCC], PC CHANGE A [PCC], SEE MEMORY CONTROL DWGS [MC1-4]
   997
   998					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 4
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0032

   999					;THIS TEST VERIFIES THAT SKIPGE WILL NOT SKIP THE NEXT INSTRUCTION WHEN C(E) IS
  1000					;NEGATIVE.  THE MOVE INSTRUCTION LOADS E WITH -1, A NEGATIVE NUMBER.
  1001
  1002	031000	200 00 0 00 035063 	A500:	MOVE	[-1]		;PRESET E WITH ALL ONES, A NEGATIVE NUMBER
  1003	031001	335 00 0 00 000000 		SKIPGE			;*SKIPGE SHOULD NOT SKIP THE NEXT INSTRUCTION
  1004	031002	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSES
  1005						STOP^
  1006	031003	254 04 0 00 031004 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1007	031004	324 00 0 00 031005 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1008									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1009									;IN THE SUBTEST) TO LOOP ON ERROR^
  1010
  1011					;IF MOVE INSTRUCTION FAILED, CHECK MOVX-: FCE [F1], -IR XXXI [IR1], -IR XXXM [IR1], 
  1012					;IR HWTFWT [IR3], IR FWT [IR2], IR2XX [IR1]
  1013
  1014					;IF SKIPGE FAILED, CHECK SKIPX: FCE [F1]
  1015
  1016					;**********
  1017
  1018					;THIS TEST VERIFIES THAT SKIPN WILL NOT SKIP THE NEXT INSTRUCTION WHEN
  1019					;C(E) IS ZERO.  THE MOVE INSTRUCTION  LOADS E WITH ALL ZEROS.
  1020
  1021	031005	200 00 0 00 035062 	A600:	MOVE	[0]		;PRESET E WITH ALL ZEROS
  1022	031006	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD NOT SKIP THE NEXT INSTRUCTION
  1023	031007	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSES
  1024						STOP^
  1025	031010	254 04 0 00 031011 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1026	031011	324 00 0 00 031012 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1027									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1028									;IN THE SUBTEST) TO LOOP ON ERROR^
  1029
  1030					;**********
  1031
  1032					;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT.  HENCE, IT SHOULD SKIP
  1033					;THE NEXT INSTRUCTION WHEN C(E) IS NON-ZERO.  THE MOVE INSTRUCTION LOADS
  1034					;E WITH -1, A NON-ZERO NUMBER.
  1035
  1036	031012	200 00 0 00 035063 	A700:	MOVE	[-1]		;PRESET E WITH ALL ONES, A NON-ZERO NUMBER
  1037	031013	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1038						STOP^
  1039	031014	254 04 0 00 031015 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1040	031015	324 00 0 00 031016 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1041									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1042									;IN THE SUBTEST) TO LOOP ON ERROR^
  1043
  1044					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 5
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0033

  1045					;THIS TEST VERIFIES THAT SKIPE IS DATA DEPENDENT.  HENCE, IT SHOULD NOT
  1046					;SKIP THE NEXT INSTRUCTION WHEN C(E) IS NON-ZERO.  THE MOVE INSTRUCTION LOADS E
  1047					;WITH -1, A NON-ZERO NUMBER.
  1048
  1049	031016	200 00 0 00 035063 	A1000:	MOVE	[-1]		;PRESET E WITH ALL ONES, A NON-ZERO NUMBER
  1050	031017	332 00 0 00 000000 		SKIPE			;*SKIPE SHOULD NOT SKIP THE NEXT INSTRUCTION
  1051	031020	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSES
  1052						STOP^
  1053	031021	254 04 0 00 031022 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1054	031022	324 00 0 00 031023 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1055									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1056									;IN THE SUBTEST) TO LOOP ON ERROR^
  1057
  1058					;**********
  1059
  1060					;THIS TEST VERIFIES THAT SKIPE IS DATA DEPENDENT.  HENCE, IT SHOULD SKIP
  1061					;THE NEXT INSTRUCTION WHEN C(E) IS ZERO.  THE MOVE INSTRUCTION LOADS ALL
  1062					;ZEROS INTO E.
  1063
  1064	031023	200 00 0 00 035062 	A1100:	MOVE	[0]		;PRESET E TO ALL ZEROS
  1065	031024	332 00 0 00 000000 		SKIPE			;*SKIPE SHOULD SKIP THE NEXT INSTRUCTION
  1066						STOP^
  1067	031025	254 04 0 00 031026 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1068	031026	324 00 0 00 031027 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1069									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1070									;IN THE SUBTEST) TO LOOP ON ERROR^
  1071
  1072					;**********
  1073
  1074					;THIS TEST VERIFIES THAT SKIP IS DATA INDEPENDENT.  HENCE, IT NEVER SKIPS.  IT ALWAYS
  1075					;CONTINUES ON TO THE NEXT INSTRUCTION.
  1076
  1077	031027	200 00 0 00 035062 	A1200:	MOVE	[0]		;PRESET E TO ALL ZEROS
  1078	031030	330 00 0 00 000000 		SKIP			;*SKIP SHOULD NEVER SKIP THE NEXT INSTRUCTION
  1079	031031	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSES
  1080						STOP^
  1081	031032	254 04 0 00 031033 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1082	031033	324 00 0 00 031034 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1083									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1084									;IN THE SUBTEST) TO LOOP ON ERROR^
  1085
  1086					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 6
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0034

  1087					;THIS TEST VERIFIES THAT SKIPL IS DATA DEPENDENT.  HENCE, IT WILL NOT SKIP THE NEXT
  1088					;INSTRUCTION WHEN C(E) IS NOT NEGATIVE.  THE MOVE INSTRUCTION IS USED TO LOAD
  1089					;E WITH ALL ZEROS, A NON-NEGATIVE NUMBER.
  1090
  1091	031034	200 00 0 00 035062 	A1300:	MOVE	[0]		;PRESET E T0 ZERO, A NON-NEGATIVE NUMBER
  1092	031035	331 00 0 00 000000 		SKIPL			;*SKIPL SHOULD NOT SKIP THE NEXT INSTRUCTION
  1093	031036	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSES
  1094						STOP^
  1095	031037	254 04 0 00 031040 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1096	031040	324 00 0 00 031041 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1097									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1098									;IN THE SUBTEST) TO LOOP ON ERROR^
  1099
  1100					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 7
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0035

  1101					;THIS TEST VERIFIES THAT SKIPL IS DATA DEPENDENT.  HENCE, IT WILL SKIP THE NEXT
  1102					;INSTRUCTION WHEN C(E) IS NEGATIVE.  THE MOVE INSTRUCTION IS USED TO LOAD E WITH -1,
  1103					;A NEGATIVE NUMBER.
  1104
  1105	031041	200 00 0 00 035063 	A1400:	MOVE	[-1]		;PRESET E TO -1, A NEGATIVE NUMBER
  1106	031042	331 00 0 00 000000 		SKIPL			;*SKIPL SHOULD SKIP THE NEXT INSTRUCTION
  1107						STOP^
  1108	031043	254 04 0 00 031044 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1109	031044	324 00 0 00 031045 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1110									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1111									;IN THE SUBTEST) TO LOOP ON ERROR^
  1112
  1113					;**********
  1114
  1115					;THIS TEST VERIFIES THAT SKIPG IS DATA DEPENDENT.  HENCE, IT WILL SKIP THE NEXT
  1116					;INSTRUCTION WHEN C(E) IS GREATER THAN ZERO.  THE MOVE INSTRUCTION IS USED TO LOAD
  1117					;E WITH A NON-ZERO POSITIVE NUMBER.
  1118
  1119	031045	200 00 0 00 035064 	A1500:	MOVE	[XWD 377777,-1]	;PRESET E TO 377777777777, A NON-ZERO POSITIVE NUMBER
  1120	031046	337 00 0 00 000000 		SKIPG			;*SKIPG SHOULD SKIP THE NEXT INSTRUCTION
  1121						STOP^
  1122	031047	254 04 0 00 031050 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1123	031050	324 00 0 00 031051 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1124									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1125									;IN THE SUBTEST) TO LOOP ON ERROR^
  1126
  1127					;**********
  1128
  1129					;THIS TEST VERIFIES THAT SKIPG IS DATA DEPENDENT.  HENCE, IT WILL NOT SKIP THE NEXT
  1130					;INSTRUCTION WHEN C(E) IS NOT GREATER THAN ZERO.  THE MOVE INSTRUCTION IS USED TO
  1131					;LOAD E WITH -1, A NUMBER NOT GREATER THAN ZERO.
  1132
  1133	031051	200 00 0 00 035063 	A1600:	MOVE	[-1]		;PRESET E TO -1, A NEGATIVE NUMBER
  1134	031052	337 00 0 00 000000 		SKIPG			;*SKIPG SHOULD NOT SKIP THE NEXT INSTRUCTION
  1135	031053	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSES
  1136						STOP^
  1137	031054	254 04 0 00 031055 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1138	031055	324 00 0 00 031056 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1139									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1140									;IN THE SUBTEST) TO LOOP ON ERROR^
  1141
  1142					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 8
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0036

  1143					;THIS TEST VERIFIES THAT SKIPL IS DATA  DEPENDENT.  HENCE, IT WILL NOT SKIP THE NEXT
  1144					;INSTRUCTION WHEN C(E) IS NON-NEGATIVE.  THE MOVE INSTRUCTION IS USED TO LOAD E WITH
  1145					;377777777777, A NON-NEGATIVE NUMBER.
  1146
  1147	031056	200 00 0 00 035064 	A1700:	MOVE	[XWD 377777,-1]	;PRESET E TO 377777777777, A NON-NEGATIVE NUMBER
  1148	031057	331 00 0 00 000000 		SKIPL			;*SKIPL SHOULD NOT SKIP THE NEXT INSTRUCTION
  1149	031060	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSES
  1150						STOP^
  1151	031061	254 04 0 00 031062 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1152	031062	324 00 0 00 031063 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1153									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1154									;IN THE SUBTEST) TO LOOP ON ERROR^
  1155
  1156					;**********
  1157
  1158					;THIS TEST VERIFIES THAT SKIPLE IS DATA DEPENDENT.  HENCE, IT WILL SKIP THE NEXT
  1159					;INSTRUCTION WHEN C(E) IS ZERO.  THE MOVE INSTRUCTION LOADS E WITH ALL ZEROS.
  1160
  1161	031063	200 00 0 00 035062 	A2000:	MOVE	[0]		;PRESET E TO ALL ZEROS
  1162	031064	333 00 0 00 000000 		SKIPLE			;*SKIPLE SHOULD SKIP THE NEXT INSTRUCTION
  1163						STOP^
  1164	031065	254 04 0 00 031066 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1165	031066	324 00 0 00 031067 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1166									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1167									;IN THE SUBTEST) TO LOOP ON ERROR^
  1168
  1169					;**********
  1170
  1171					;THIS TEST VERIFIES THAT SKIPLE IS DATA DEPENDENT.  HENCE, IT WILL SKIP THE NEXT
  1172					;INSTRUCTION WHEN E CONTAINS A NEGATIVE NUMBER.  THE MOVE INSTRUCTION IS USED TO LOAD
  1173					;E WITH 400000000000, A NEGATIVE NUMBER.
  1174
  1175	031067	200 00 0 00 035065 	A2100:	MOVE	[XWD 400000,0]	;PRESET E TO 400000000000, A NEGATIVE NUMBER.
  1176	031070	333 00 0 00 000000 		SKIPLE			;*SKIPLE SHOULD SKIP THE NEXT INSTRUCTION
  1177						STOP^
  1178	031071	254 04 0 00 031072 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1179	031072	324 00 0 00 031073 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1180									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1181									;IN THE SUBTEST) TO LOOP ON ERROR^
  1182
  1183					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 9
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0037

  1184					;THIS TEST VERIFIES THAT SKIPLE IS DATA DEPENDENT.  HENCE, IT WILL NOT SKIP THE NEXT
  1185					;INSTRUCTION WHEN E CONTAINS A POSITIVE NUMBER.  THE MOVE INSTRUCTION LOADS
  1186					;E WITH 377777777777, A POSITIVE NUMBER.
  1187
  1188	031073	200 00 0 00 035064 	A2200:	MOVE	[XWD 377777,-1]	;PRESET E TO 377777777777, A POSITIVE NUMBER
  1189	031074	333 00 0 00 000000 		SKIPLE			;*SKIPLE SHOULD NOT SKIP THE NEXT INSTRUCTION
  1190	031075	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSES
  1191						STOP^
  1192	031076	254 04 0 00 031077 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1193	031077	324 00 0 00 031100 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1194									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1195									;IN THE SUBTEST) TO LOOP ON ERROR^
  1196
  1197					;*********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 10
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0038

  1198					;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT.  HENCE, IT WILL SKIP THE NEXT
  1199					;INSTRUCTION ;WHEN E CONTAINS A NON-ZERO NUMBER.  THE MOVE INSTRUCTION IS USED TO
  1200					;LOAD 777000000000, A NON-ZERO NUMBER INTO E.
  1201
  1202	031100	200 00 0 00 035066 	A2300:	MOVE	[XWD 777000,0]	;PRESET E WITH 777000000000, A NON-ZERO NUMBER
  1203	031101	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1204						STOP^
  1205	031102	254 04 0 00 031103 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1206	031103	324 00 0 00 031104 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1207									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1208									;IN THE SUBTEST) TO LOOP ON ERROR^
  1209
  1210					;**********
  1211
  1212					;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT.  HENCE, IT WILL SKIP THE NEXT
  1213					;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER.  THE MOVE INSTRUCTION IS USED TO
  1214					;LOAD A NON-ZERO NUMBER, 377000000 INTO E.
  1215
  1216	031104	200 00 0 00 035067 	A2400:	MOVE	[XWD 377,0]	;PRESET E TO 377000000, A NON ZERO NUMBER
  1217	031105	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1218						STOP^
  1219	031106	254 04 0 00 031107 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1220	031107	324 00 0 00 031110 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1221									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1222									;IN THE SUBTEST) TO LOOP ON ERROR^
  1223
  1224					;**********
  1225
  1226					;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT.  HENCE, IT WILL SKIP THE NEXT
  1227					;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER.  THE MOVE INSTRUCTION IS USED TO
  1228					;LOAD E WITH A NON-ZERO NUMBER, 177000.
  1229
  1230	031110	200 00 0 00 035070 	A2500:	MOVE	[177000]	;PRESET E WITH 177000, A NON ZERO NUMBER
  1231	031111	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1232						STOP^
  1233	031112	254 04 0 00 031113 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1234	031113	324 00 0 00 031114 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1235									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1236									;IN THE SUBTEST) TO LOOP ON ERROR^
  1237
  1238					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 11
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0039

  1239					;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT.  HENCE, IT WILL SKIP THE NEXT
  1240					;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER.  THE MOVE INSTRUCTION IS USED TO
  1241					;LOAD 777, A NON-ZERO NUMBER INTO E.
  1242
  1243	031114	200 00 0 00 035071 	A2600:	MOVE	[777]		;PRESET E WITH 777, A NON-ZERO NUMBER
  1244	031115	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1245						STOP^
  1246	031116	254 04 0 00 031117 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1247	031117	324 00 0 00 031120 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1248									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1249									;IN THE SUBTEST) TO LOOP ON ERROR^
  1250
  1251					;**********
  1252
  1253					;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT.  HENCE, IT WILL SKIP THE NEXT
  1254					;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER.  THE MOVE INSTRUCTION IS USED TO
  1255					;LOAD E WITH 600000, A NON-ZERO NUMBER.
  1256
  1257	031120	200 00 0 00 035072 	A2700:	MOVE	[600000]	;PRESET E WITK 600000, A NON-ZERO NUMBER
  1258	031121	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1259						STOP^
  1260	031122	254 04 0 00 031123 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1261	031123	324 00 0 00 031124 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1262									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1263									;IN THE SUBTEST) TO LOOP ON ERROR^
  1264
  1265					;**********
  1266
  1267					;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT.  HENCE, IT WILL SKIP THE NEXT
  1268					;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER.  THE MOVE INSTRUCTION IS USED TO
  1269					;LOAD E WITH 400000000, A NON-ZERO NUMBER.
  1270
  1271	031124	200 00 0 00 035073 	A3000:	MOVE	[XWD 400,000]	;PRESET E WITH 400000000, A NON-ZERO NUMBER
  1272	031125	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1273						STOP^
  1274	031126	254 04 0 00 031127 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1275	031127	324 00 0 00 031130 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1276									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1277									;IN THE SUBTEST) TO LOOP ON ERROR^
  1278
  1279					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 12
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0040

  1280			003100		SN=3100
  1281			000000			ZZ=0
  1282
  1283					A3100:	REPEAT	^D36,
  1284					<;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1285					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1286					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1287					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1288					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1289					
  1290					SN=SN+1
  1291						ZZ=ZZ+ZZ
  1292						IFE	ZZ,<ZZ=1>
  1293						MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1294						SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1295						STOP
  1296					
  1297					;**********
  1298					>
  1299					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1300					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1301					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1302					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1303					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1304
  1305			003101		SN=SN+1
  1306			000000			ZZ=ZZ+ZZ
  1307			000001			IFE	ZZ,<ZZ=1>
  1308	031130	200 00 0 00 035074 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1309	031131	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1310						STOP^
  1311	031132	254 04 0 00 031133 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1312	031133	324 00 0 00 031134 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1313									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1314									;IN THE SUBTEST) TO LOOP ON ERROR^
  1315
  1316					;**********
  1317
  1318					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1319					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1320					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1321					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1322					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1323
  1324			003102		SN=SN+1
  1325			000002			ZZ=ZZ+ZZ
  1326						IFE	ZZ,<ZZ=1>
  1327	031134	200 00 0 00 035075 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1328	031135	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1329						STOP^
  1330	031136	254 04 0 00 031137 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1331	031137	324 00 0 00 031140 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1332									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1333									;IN THE SUBTEST) TO LOOP ON ERROR^
  1334
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 12-1
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0041

  1335					;**********
  1336
  1337					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1338					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1339					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1340					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1341					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1342
  1343			003103		SN=SN+1
  1344			000004			ZZ=ZZ+ZZ
  1345						IFE	ZZ,<ZZ=1>
  1346	031140	200 00 0 00 035076 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1347	031141	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1348						STOP^
  1349	031142	254 04 0 00 031143 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1350	031143	324 00 0 00 031144 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1351									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1352									;IN THE SUBTEST) TO LOOP ON ERROR^
  1353
  1354					;**********
  1355
  1356					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1357					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1358					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1359					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1360					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1361
  1362			003104		SN=SN+1
  1363			000010			ZZ=ZZ+ZZ
  1364						IFE	ZZ,<ZZ=1>
  1365	031144	200 00 0 00 035077 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1366	031145	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1367						STOP^
  1368	031146	254 04 0 00 031147 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1369	031147	324 00 0 00 031150 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1370									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1371									;IN THE SUBTEST) TO LOOP ON ERROR^
  1372
  1373					;**********
  1374
  1375					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1376					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1377					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1378					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1379					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1380
  1381			003105		SN=SN+1
  1382			000020			ZZ=ZZ+ZZ
  1383						IFE	ZZ,<ZZ=1>
  1384	031150	200 00 0 00 035100 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1385	031151	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1386						STOP^
  1387	031152	254 04 0 00 031153 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1388	031153	324 00 0 00 031154 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1389									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 12-2
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0042

  1390									;IN THE SUBTEST) TO LOOP ON ERROR^
  1391
  1392					;**********
  1393
  1394					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1395					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1396					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1397					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1398					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1399
  1400			003106		SN=SN+1
  1401			000040			ZZ=ZZ+ZZ
  1402						IFE	ZZ,<ZZ=1>
  1403	031154	200 00 0 00 035101 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1404	031155	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1405						STOP^
  1406	031156	254 04 0 00 031157 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1407	031157	324 00 0 00 031160 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1408									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1409									;IN THE SUBTEST) TO LOOP ON ERROR^
  1410
  1411					;**********
  1412
  1413					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1414					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1415					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1416					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1417					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1418
  1419			003107		SN=SN+1
  1420			000100			ZZ=ZZ+ZZ
  1421						IFE	ZZ,<ZZ=1>
  1422	031160	200 00 0 00 035102 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1423	031161	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1424						STOP^
  1425	031162	254 04 0 00 031163 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1426	031163	324 00 0 00 031164 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1427									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1428									;IN THE SUBTEST) TO LOOP ON ERROR^
  1429
  1430					;**********
  1431
  1432					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1433					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1434					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1435					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1436					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1437
  1438			003110		SN=SN+1
  1439			000200			ZZ=ZZ+ZZ
  1440						IFE	ZZ,<ZZ=1>
  1441	031164	200 00 0 00 035103 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1442	031165	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1443						STOP^
  1444	031166	254 04 0 00 031167 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 12-3
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0043

  1445	031167	324 00 0 00 031170 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1446									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1447									;IN THE SUBTEST) TO LOOP ON ERROR^
  1448
  1449					;**********
  1450
  1451					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1452					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1453					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1454					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1455					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1456
  1457			003111		SN=SN+1
  1458			000400			ZZ=ZZ+ZZ
  1459						IFE	ZZ,<ZZ=1>
  1460	031170	200 00 0 00 035104 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1461	031171	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1462						STOP^
  1463	031172	254 04 0 00 031173 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1464	031173	324 00 0 00 031174 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1465									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1466									;IN THE SUBTEST) TO LOOP ON ERROR^
  1467
  1468					;**********
  1469
  1470					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1471					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1472					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1473					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1474					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1475
  1476			003112		SN=SN+1
  1477			001000			ZZ=ZZ+ZZ
  1478						IFE	ZZ,<ZZ=1>
  1479	031174	200 00 0 00 035105 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1480	031175	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1481						STOP^
  1482	031176	254 04 0 00 031177 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1483	031177	324 00 0 00 031200 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1484									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1485									;IN THE SUBTEST) TO LOOP ON ERROR^
  1486
  1487					;**********
  1488
  1489					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1490					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1491					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1492					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1493					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1494
  1495			003113		SN=SN+1
  1496			002000			ZZ=ZZ+ZZ
  1497						IFE	ZZ,<ZZ=1>
  1498	031200	200 00 0 00 035106 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1499	031201	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 12-4
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0044

  1500						STOP^
  1501	031202	254 04 0 00 031203 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1502	031203	324 00 0 00 031204 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1503									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1504									;IN THE SUBTEST) TO LOOP ON ERROR^
  1505
  1506					;**********
  1507
  1508					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1509					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1510					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1511					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1512					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1513
  1514			003114		SN=SN+1
  1515			004000			ZZ=ZZ+ZZ
  1516						IFE	ZZ,<ZZ=1>
  1517	031204	200 00 0 00 035107 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1518	031205	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1519						STOP^
  1520	031206	254 04 0 00 031207 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1521	031207	324 00 0 00 031210 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1522									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1523									;IN THE SUBTEST) TO LOOP ON ERROR^
  1524
  1525					;**********
  1526
  1527					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1528					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1529					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1530					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1531					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1532
  1533			003115		SN=SN+1
  1534			010000			ZZ=ZZ+ZZ
  1535						IFE	ZZ,<ZZ=1>
  1536	031210	200 00 0 00 035110 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1537	031211	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1538						STOP^
  1539	031212	254 04 0 00 031213 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1540	031213	324 00 0 00 031214 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1541									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1542									;IN THE SUBTEST) TO LOOP ON ERROR^
  1543
  1544					;**********
  1545
  1546					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1547					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1548					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1549					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1550					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1551
  1552			003116		SN=SN+1
  1553			020000			ZZ=ZZ+ZZ
  1554						IFE	ZZ,<ZZ=1>
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 12-5
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0045

  1555	031214	200 00 0 00 035111 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1556	031215	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1557						STOP^
  1558	031216	254 04 0 00 031217 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1559	031217	324 00 0 00 031220 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1560									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1561									;IN THE SUBTEST) TO LOOP ON ERROR^
  1562
  1563					;**********
  1564
  1565					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1566					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1567					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1568					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1569					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1570
  1571			003117		SN=SN+1
  1572			040000			ZZ=ZZ+ZZ
  1573						IFE	ZZ,<ZZ=1>
  1574	031220	200 00 0 00 035112 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1575	031221	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1576						STOP^
  1577	031222	254 04 0 00 031223 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1578	031223	324 00 0 00 031224 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1579									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1580									;IN THE SUBTEST) TO LOOP ON ERROR^
  1581
  1582					;**********
  1583
  1584					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1585					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1586					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1587					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1588					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1589
  1590			003120		SN=SN+1
  1591			100000			ZZ=ZZ+ZZ
  1592						IFE	ZZ,<ZZ=1>
  1593	031224	200 00 0 00 035113 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1594	031225	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1595						STOP^
  1596	031226	254 04 0 00 031227 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1597	031227	324 00 0 00 031230 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1598									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1599									;IN THE SUBTEST) TO LOOP ON ERROR^
  1600
  1601					;**********
  1602
  1603					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1604					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1605					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1606					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1607					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1608
  1609			003121		SN=SN+1
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 12-6
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0046

  1610			200000			ZZ=ZZ+ZZ
  1611						IFE	ZZ,<ZZ=1>
  1612	031230	200 00 0 00 035114 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1613	031231	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1614						STOP^
  1615	031232	254 04 0 00 031233 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1616	031233	324 00 0 00 031234 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1617									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1618									;IN THE SUBTEST) TO LOOP ON ERROR^
  1619
  1620					;**********
  1621
  1622					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1623					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1624					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1625					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1626					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1627
  1628			003122		SN=SN+1
  1629			400000			ZZ=ZZ+ZZ
  1630						IFE	ZZ,<ZZ=1>
  1631	031234	200 00 0 00 035115 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1632	031235	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1633						STOP^
  1634	031236	254 04 0 00 031237 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1635	031237	324 00 0 00 031240 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1636									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1637									;IN THE SUBTEST) TO LOOP ON ERROR^
  1638
  1639					;**********
  1640
  1641					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1642					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1643					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1644					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1645					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1646
  1647			003123		SN=SN+1
  1648		000001	000000			ZZ=ZZ+ZZ
  1649						IFE	ZZ,<ZZ=1>
  1650	031240	200 00 0 00 035116 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1651	031241	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1652						STOP^
  1653	031242	254 04 0 00 031243 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1654	031243	324 00 0 00 031244 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1655									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1656									;IN THE SUBTEST) TO LOOP ON ERROR^
  1657
  1658					;**********
  1659
  1660					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1661					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1662					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1663					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1664					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 12-7
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0047

  1665
  1666			003124		SN=SN+1
  1667		000002	000000			ZZ=ZZ+ZZ
  1668						IFE	ZZ,<ZZ=1>
  1669	031244	200 00 0 00 035117 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1670	031245	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1671						STOP^
  1672	031246	254 04 0 00 031247 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1673	031247	324 00 0 00 031250 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1674									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1675									;IN THE SUBTEST) TO LOOP ON ERROR^
  1676
  1677					;**********
  1678
  1679					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1680					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1681					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1682					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1683					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1684
  1685			003125		SN=SN+1
  1686		000004	000000			ZZ=ZZ+ZZ
  1687						IFE	ZZ,<ZZ=1>
  1688	031250	200 00 0 00 035120 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1689	031251	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1690						STOP^
  1691	031252	254 04 0 00 031253 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1692	031253	324 00 0 00 031254 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1693									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1694									;IN THE SUBTEST) TO LOOP ON ERROR^
  1695
  1696					;**********
  1697
  1698					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1699					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1700					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1701					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1702					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1703
  1704			003126		SN=SN+1
  1705		000010	000000			ZZ=ZZ+ZZ
  1706						IFE	ZZ,<ZZ=1>
  1707	031254	200 00 0 00 035121 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1708	031255	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1709						STOP^
  1710	031256	254 04 0 00 031257 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1711	031257	324 00 0 00 031260 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1712									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1713									;IN THE SUBTEST) TO LOOP ON ERROR^
  1714
  1715					;**********
  1716
  1717					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1718					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1719					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 12-8
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0048

  1720					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1721					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1722
  1723			003127		SN=SN+1
  1724		000020	000000			ZZ=ZZ+ZZ
  1725						IFE	ZZ,<ZZ=1>
  1726	031260	200 00 0 00 035122 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1727	031261	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1728						STOP^
  1729	031262	254 04 0 00 031263 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1730	031263	324 00 0 00 031264 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1731									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1732									;IN THE SUBTEST) TO LOOP ON ERROR^
  1733
  1734					;**********
  1735
  1736					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1737					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1738					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1739					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1740					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1741
  1742			003130		SN=SN+1
  1743		000040	000000			ZZ=ZZ+ZZ
  1744						IFE	ZZ,<ZZ=1>
  1745	031264	200 00 0 00 035123 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1746	031265	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1747						STOP^
  1748	031266	254 04 0 00 031267 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1749	031267	324 00 0 00 031270 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1750									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1751									;IN THE SUBTEST) TO LOOP ON ERROR^
  1752
  1753					;**********
  1754
  1755					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1756					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1757					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1758					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1759					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1760
  1761			003131		SN=SN+1
  1762		000100	000000			ZZ=ZZ+ZZ
  1763						IFE	ZZ,<ZZ=1>
  1764	031270	200 00 0 00 035124 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1765	031271	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1766						STOP^
  1767	031272	254 04 0 00 031273 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1768	031273	324 00 0 00 031274 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1769									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1770									;IN THE SUBTEST) TO LOOP ON ERROR^
  1771
  1772					;**********
  1773
  1774					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 12-9
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0049

  1775					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1776					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1777					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1778					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1779
  1780			003132		SN=SN+1
  1781		000200	000000			ZZ=ZZ+ZZ
  1782						IFE	ZZ,<ZZ=1>
  1783	031274	200 00 0 00 035125 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1784	031275	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1785						STOP^
  1786	031276	254 04 0 00 031277 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1787	031277	324 00 0 00 031300 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1788									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1789									;IN THE SUBTEST) TO LOOP ON ERROR^
  1790
  1791					;**********
  1792
  1793					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1794					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1795					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1796					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1797					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1798
  1799			003133		SN=SN+1
  1800		000400	000000			ZZ=ZZ+ZZ
  1801						IFE	ZZ,<ZZ=1>
  1802	031300	200 00 0 00 035073 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1803	031301	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1804						STOP^
  1805	031302	254 04 0 00 031303 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1806	031303	324 00 0 00 031304 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1807									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1808									;IN THE SUBTEST) TO LOOP ON ERROR^
  1809
  1810					;**********
  1811
  1812					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1813					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1814					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1815					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1816					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1817
  1818			003134		SN=SN+1
  1819		001000	000000			ZZ=ZZ+ZZ
  1820						IFE	ZZ,<ZZ=1>
  1821	031304	200 00 0 00 035126 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1822	031305	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1823						STOP^
  1824	031306	254 04 0 00 031307 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1825	031307	324 00 0 00 031310 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1826									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1827									;IN THE SUBTEST) TO LOOP ON ERROR^
  1828
  1829					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 12-10
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0050

  1830
  1831					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1832					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1833					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1834					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1835					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1836
  1837			003135		SN=SN+1
  1838		002000	000000			ZZ=ZZ+ZZ
  1839						IFE	ZZ,<ZZ=1>
  1840	031310	200 00 0 00 035127 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1841	031311	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1842						STOP^
  1843	031312	254 04 0 00 031313 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1844	031313	324 00 0 00 031314 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1845									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1846									;IN THE SUBTEST) TO LOOP ON ERROR^
  1847
  1848					;**********
  1849
  1850					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1851					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1852					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1853					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1854					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1855
  1856			003136		SN=SN+1
  1857		004000	000000			ZZ=ZZ+ZZ
  1858						IFE	ZZ,<ZZ=1>
  1859	031314	200 00 0 00 035130 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1860	031315	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1861						STOP^
  1862	031316	254 04 0 00 031317 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1863	031317	324 00 0 00 031320 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1864									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1865									;IN THE SUBTEST) TO LOOP ON ERROR^
  1866
  1867					;**********
  1868
  1869					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1870					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1871					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1872					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1873					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1874
  1875			003137		SN=SN+1
  1876		010000	000000			ZZ=ZZ+ZZ
  1877						IFE	ZZ,<ZZ=1>
  1878	031320	200 00 0 00 035131 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1879	031321	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1880						STOP^
  1881	031322	254 04 0 00 031323 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1882	031323	324 00 0 00 031324 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1883									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1884									;IN THE SUBTEST) TO LOOP ON ERROR^
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 12-11
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0051

  1885
  1886					;**********
  1887
  1888					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1889					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1890					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1891					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1892					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1893
  1894			003140		SN=SN+1
  1895		020000	000000			ZZ=ZZ+ZZ
  1896						IFE	ZZ,<ZZ=1>
  1897	031324	200 00 0 00 035132 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1898	031325	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1899						STOP^
  1900	031326	254 04 0 00 031327 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1901	031327	324 00 0 00 031330 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1902									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1903									;IN THE SUBTEST) TO LOOP ON ERROR^
  1904
  1905					;**********
  1906
  1907					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1908					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1909					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1910					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1911					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1912
  1913			003141		SN=SN+1
  1914		040000	000000			ZZ=ZZ+ZZ
  1915						IFE	ZZ,<ZZ=1>
  1916	031330	200 00 0 00 035133 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1917	031331	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1918						STOP^
  1919	031332	254 04 0 00 031333 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1920	031333	324 00 0 00 031334 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1921									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1922									;IN THE SUBTEST) TO LOOP ON ERROR^
  1923
  1924					;**********
  1925
  1926					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1927					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1928					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1929					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1930					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1931
  1932			003142		SN=SN+1
  1933		100000	000000			ZZ=ZZ+ZZ
  1934						IFE	ZZ,<ZZ=1>
  1935	031334	200 00 0 00 035134 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1936	031335	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1937						STOP^
  1938	031336	254 04 0 00 031337 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1939	031337	324 00 0 00 031340 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 12-12
DAKAAM	MAC	19-JAN-77 13:42		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0052

  1940									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1941									;IN THE SUBTEST) TO LOOP ON ERROR^
  1942
  1943					;**********
  1944
  1945					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1946					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1947					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1948					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1949					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1950
  1951			003143		SN=SN+1
  1952		200000	000000			ZZ=ZZ+ZZ
  1953						IFE	ZZ,<ZZ=1>
  1954	031340	200 00 0 00 035135 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1955	031341	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1956						STOP^
  1957	031342	254 04 0 00 031343 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1958	031343	324 00 0 00 031344 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1959									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1960									;IN THE SUBTEST) TO LOOP ON ERROR^
  1961
  1962					;**********
  1963
  1964					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1965					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1966					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1967					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1968					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1969
  1970			003144		SN=SN+1
  1971		400000	000000			ZZ=ZZ+ZZ
  1972						IFE	ZZ,<ZZ=1>
  1973	031344	200 00 0 00 035065 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1974	031345	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1975						STOP^
  1976	031346	254 04 0 00 031347 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1977	031347	324 00 0 00 031350 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1978									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1979									;IN THE SUBTEST) TO LOOP ON ERROR^
  1980
  1981					;**********
  1982
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 13
DAKAAM	MAC	19-JAN-77 13:42		TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS                                        SEQ 0053

  1983					SUBTTL	TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS
  1984
  1985					;THIS TEST VERIFIES THAT MOVEI LOADS E INTO THE AC.  SKIPG IS USED TO CHECK THAT
  1986					;THE AC WAS INDEED MODIFIED BY MOVEI.
  1987
  1988	031350	201 00 0 00 035063 	A3200:	MOVEI	[-1]		;*MOVEI SHOULD LOAD A POSITIVE NUMBER INTO AC0
  1989	031351	337 00 0 00 000000 		SKIPG			;SKIP HALT INSTRUCTION IF MOVEI LOADED AC CORRECTLY
  1990						STOP^
  1991	031352	254 04 0 00 031353 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1992	031353	324 00 0 00 031354 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1993									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1994									;IN THE SUBTEST) TO LOOP ON ERROR^
  1995
  1996					;IF PROGRAM HANGS UP ON MOVEI INSTRUCTION, CHECK AD FM +EN [ADFP], AD FM + EN A [ADFP],
  1997					;AD FM + F/F [ADFP], F CYC ACT EN C [F1]
  1998
  1999					;**********
  2000
  2001					;THIS TEST VERIFIES THAT SKIPL IS SENSITIVE TO THE DATA IN E AND NOT SENSITIVE TO
  2002					;THE DATA IN THE AC.  HENCE, SKIPL WILL SKIP THE NEXT INSTRUCTION ONLY IF
  2003					;C(E) IS LESS THAN ZERO.  E IS SET TO -1, A NEGATIVE NUMBER; AND
  2004					;THE AC IS SET TO 0 IN THIS TEST.  THEREFORE SKIPL SHOULD SKIP.
  2005
  2006	031354	200 00 0 00 035062 	A3300:	MOVE	[0]		;SET THE AC TO ALL ZEROS
  2007	031355	331 00 0 00 035063 		SKIPL	[-1]		;*SKIPL SHOULD SKIP BECAUSE C(E) IS NEGATIVE
  2008						STOP^
  2009	031356	254 04 0 00 031357 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2010	031357	324 00 0 00 031360 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2011									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2012									;IN THE SUBTEST) TO LOOP ON ERROR^
  2013
  2014					;**********
  2015
  2016					;THIS TEST VERIFIES THAT SKIPL IS SENSITIVE TO THE SIGN BIT IN E.  SKIPL SHOULD
  2017					;SKIP THE NEXT INSTRUCTION WHEN AND ONLY WHEN THE SIGN BIT IS SET.  IN THIS
  2018					;TEST, C(AC) IS PRESET TO ALL ZEROS, THEN SKIPL IS EXECUTED WITH C(E)=400000,,0.
  2019					;A FAILURE UCCURS IF SKIPL DOES NOT SKIP.
  2020
  2021	031360	200 00 0 00 035062 	A13100:	MOVE	[0]		;SET THE AC TO ALL ZEROS
  2022	031361	331 00 0 00 035065 		SKIPL	[400000,,0]	;*SKIPL SHOULD SKIP BECAUSE C(E) IS NEGATIVE
  2023						STOP^
  2024	031362	254 04 0 00 031363 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2025	031363	324 00 0 00 031364 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2026									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2027									;IN THE SUBTEST) TO LOOP ON ERROR^
  2028
  2029					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 14
DAKAAM	MAC	19-JAN-77 13:42		TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS                                        SEQ 0054

  2030					;THIS TEST VERIFIES THAT THE CAM INSTRUCTION DOES NOT MODIFY C(AC).  THE AC IS
  2031					;INITIALLY LOADED WITH ALL ZEROS; THEN CAM IS EXECUTED WITH C(E) NON-ZERO.
  2032					;THE AC IS THEN CHECKED FOR ALL ZEROS.  THIS TEST FAILS IF THE AC WAS MODIFIED BY CAM.
  2033
  2034	031364	200 00 0 00 035062 	A3400:	MOVE	[0]		;PRESET THE AC TO ALL ZEROS
  2035	031365	310 00 0 00 035136 		CAM	[1234]		;*CAM SHOULD NOT MODIFY THE AC
  2036	031366	200 00 0 00 000000 		MOVE			;MOVE C(0) INTO 0 (THIS INSTRUCTION SERVES AS A NO-OP.
  2037									;IT IS A PROGRAM FILLER IN CASE CAM SKIPS.)
  2038	031367	332 00 0 00 000000 		SKIPE			;SKIP HALT INSTRUCTION IF AC WAS NOT MODIFIED BY CAM
  2039						STOP^
  2040	031370	254 04 0 00 031371 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2041	031371	324 00 0 00 031372 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2042									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2043									;IN THE SUBTEST) TO LOOP ON ERROR^
  2044
  2045					;IF TEST HANGS ON CAM INSTRUCTION, AB PC EN [ABC], AB PC (FETCH) EN [ABC],
  2046					;IR CAXX [IR3]
  2047
  2048					;IF TEST LOOPS ON CAM INSTRUCTION, MC INSTR FETCH EN [MC1], MC INST FET ET2 EN [MC1],
  2049					;ET2 J F/F [E], IR CAXX [IR3]
  2050
  2051					;IF TEST HALTS AT HALT INSTRUCTION, SAC INH [ST2], IR CAXX [IR3], IR CAMX [IR1]
  2052
  2053					;**********
  2054
  2055					;THIS TEST VERIFIES THAT THE CAI INSTRUCTION DOES NOT MODIFY C(AC).  THE AC IS
  2056					;INITIALLY LOADED WITH ALL ZEROS; THEN CAI IS EXECUTED WITH E NON-ZERO.  THE AC IS
  2057					;THEN CHECKED FOR ALL ZEROS.  THIS TEST FAILS IF THE AC WAS MODIFIED BY CAM.
  2058
  2059	031372	200 00 0 00 035062 	A3500:	MOVE	[0]		;PRESET THE AC TO ALL ZEROS
  2060	031373	300 00 0 00 035136 		CAI	[1234]		;*CAI SHOULD NOT MODIFY THE AC
  2061	031374	200 00 0 00 000000 		MOVE			;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A PROGRAM FILLER
  2062									;IN CASE CAI MODIFIES THE AC.  IT SERVES AS A NO-OP)
  2063	031375	332 00 0 00 000000 		SKIPE			;SKIP HALT INSTRUCTION IF CAI DID NOT MODIFY THE AC
  2064						STOP^
  2065	031376	254 04 0 00 031377 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2066	031377	324 00 0 00 031400 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2067									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2068									;IN THE SUBTEST) TO LOOP ON ERROR^
  2069
  2070					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 15
DAKAAM	MAC	19-JAN-77 13:42		TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS                                        SEQ 0055

  2071					;THIS TEST VERIFIES THAT CAI DOES NOT MODIFY C(AC0) WHEN AN AC OTHER THAN AC0 IS
  2072					;SPECIFIED BY THE CAI INSTRUCTION.
  2073					;THIS IS THE FIRST TEST THAT USES AN AC OTHER THAN AC0.
  2074					;FIRST, AC0 IS LOADED WITH ALL ZEROS; THEN, THE CAI INSTRUCTION IS EXECUTED WITH
  2075					;A NON-ZERO E.  AC 0 IS THEN TESTED F0R ALL ZEROS.
  2076
  2077	031400	200 00 0 00 035062 	A3600:	MOVE	[0]		;LOAD AC0 WITH ALL ZEROS
  2078	031401	300 17 0 00 035136 		CAI	17,[1234]	;*CAI SHOULD NOT MODIFY AC0
  2079	031402	200 00 0 00 000000 		MOVE			;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A FILLER IN CASE
  2080									;CAI SKIPS THE NEXT INSTRUCTION.  IT ACTS AS A NO-OP)
  2081	031403	332 00 0 00 000000 		SKIPE			;SKIP HALT INSTRUCTION IF C(AC0) WAS NOT MODIFIED
  2082						STOP^
  2083	031404	254 04 0 00 031405 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2084	031405	324 00 0 00 031406 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2085									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2086									;IN THE SUBTEST) TO LOOP ON ERROR^
  2087
  2088					;**********
  2089
  2090					;THIS TEST VERIFIES THAT CAM DOES NOT MODIFY C(AC0) WHEN AN AC OTHER THAN AC0 IS
  2091					;SPECIFIED BY THE CAM INSTRUCTION.
  2092					;FIRST, AC0 IS LOADED WITH ALL ZEROS; THEN, THE CAM INSTRUCTION IS EXECUTED WITH
  2093					;A NON-ZERO E.  AC 0 IS THEN TESTED F0R ALL ZEROS.
  2094
  2095	031406	200 00 0 00 035062 	A3700:	MOVE	[0]		;PRESET C(AC0) TO ALL ZEROS
  2096	031407	310 17 0 00 035136 		CAM	17,[1234]	;*CAM SHOULD NOT MODIFY AC0
  2097	031410	200 00 0 00 000000 		MOVE			;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A FILLER IN CASE
  2098									;CAM SKIPS THE NEXT INSTRUCTION.  IT SERVES AS A NO-OP)
  2099	031411	332 00 0 00 000000 		SKIPE			;SKIP HALT INSTRUCTION IF AC0 WAS NOT MODIFIED BY CAM
  2100						STOP^
  2101	031412	254 04 0 00 031413 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2102	031413	324 00 0 00 031414 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2103									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2104									;IN THE SUBTEST) TO LOOP ON ERROR^
  2105
  2106					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 16
DAKAAM	MAC	19-JAN-77 13:42		TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS                                        SEQ 0056

  2107					;THIS TEST VERIFIES THAT MOVE WILL PLACE C(E) INTO THE AC.  AC, E AND C(E) ARE NON-ZERO
  2108					;IN THIS TEST.  THIS TEST PASSES IF  FINAL C(AC) OF THE MOVE INSTRUCTION IS NON-ZERO.
  2109
  2110	031414	200 01 0 00 035062 	A4500:	MOVE	1,[0]		;LOAD THE AC WITH ALL ZEROS
  2111	031415	200 01 0 00 035063 		MOVE	1,[-1]		;*MOVE SHOULD PLACE ALL ONES IN THE AC
  2112	031416	336 00 0 00 000001 		SKIPN	1		;SKIP HALT INSTRUCTION IF MOVE MODIFIED THE AC
  2113						STOP^
  2114	031417	254 04 0 00 031420 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2115	031420	324 00 0 00 031421 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2116									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2117									;IN THE SUBTEST) TO LOOP ON ERROR^
  2118
  2119					;**********
  2120
  2121					;THIS TEST VERIFIES THAT THE MOVE INSTRUCTION WILL PLACE C(E) INTO THE AC.
  2122					;AC, E ARE NON-ZERO AND C(E)=0.
  2123					;THIS TEST FAILS IF THE FINAL C(AC) IS NOT EQUAL TO ZERO, THE ORIGINAL C(E)
  2124
  2125	031421	200 01 0 00 035062 	A4600:	MOVE	1,[0]		;*PLACE ALL ZEROS INTO THE AC
  2126	031422	332 00 0 00 000001 		SKIPE	1		;SKIP HALT INSTRUCTION IF MOVE PLACED ALL ZEROS INTO AC
  2127						STOP^
  2128	031423	254 04 0 00 031424 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2129	031424	324 00 0 00 031425 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2130									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2131									;IN THE SUBTEST) TO LOOP ON ERROR^
  2132
  2133					;IF JUMP .+1 OF PREVIOUS TEST FAILED, CHECK JUMPS: AD FM + EN [ADFP], IR JUMPS [IR1],
  2134					;IR JUMPX [IR1], AR AD EN [ARMA], AR AD EN A [ARMA], AR LT AD EN A [ARMA],
  2135					;AR LT ADD EN B [ARMA], AR RT AD EN A [ARMA],
  2136					;AR RT AD EN B [ARMA], AR A CLK INPUT [ARMA],
  2137					;ET2 C F/F [E], AR AD ET2 EN [ARMA], AR AD BR (ET2) B [ARMA]
  2138
  2139					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 17
DAKAAM	MAC	19-JAN-77 13:42		TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS                                        SEQ 0057

  2140					;THIS TEST VERIFIES THAT SOS DOES NOT MODIFY C(AC) WHEN THE AC IS AC0.
  2141					;FIRST, AC0 IS LOADED WITH ALL ZEROS AND E IS LOADED WITH A POSITIVE NUMBER;
  2142					;THEN, SOS IS EXECUTED.  SOS SHOULD SUBTRACT ONE FROM C((E)
  2143					;AND EXECUTE THE NEXT INSTRUCTION.  IT SHOULD NOT MODIFY AC0.
  2144					;THE TEST PASSES IF AC0 WAS NOT MODIFIED.
  2145
  2146	031425	200 00 0 00 035062 	A4000:	MOVE	[0]		;PRESET AC0 TO ALL ZEROS
  2147	031426	200 07 0 00 035136 		MOVE	7,[1234]	;PRESET E WITH A POSITIVE NUMBER
  2148	031427	370 00 0 00 000007 		SOS	7		;*SOS SHOULD NOT MODIFY C(AC0)
  2149	031430	200 00 0 00 000000 		MOVE			;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A FILLER IN CASE
  2150									;SOS SKIPS THE NEXT INSTRUCTION.  IT SERVES AS A NO-OP)
  2151	031431	332 00 0 00 000000 		SKIPE			;SKIP THE HALT INSTRUCTION IF C(AC0) WAS NOT MODIFIED
  2152						STOP^
  2153	031432	254 04 0 00 031433 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2154	031433	324 00 0 00 031434 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2155									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2156									;IN THE SUBTEST) TO LOOP ON ERROR^
  2157
  2158					;**********
  2159			004100		SN=4100
  2160			000000			AC=0
  2161
  2162					A4100:	REPEAT	4,		
  2163					<;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC
  2164					;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10.
  2165					;FIRST, THE AC IS LOADED WITH ALL ZEROS;  THEN, THE SKIP INSTRUCTION IS EXECUTED
  2166					;WITH AC1, AC2, AC4 OR AC10.  C(E) IS EQUAL TO -1.  THE SKIP INSTRUCTION SHOULD CAUSE
  2167					;THE AC TO CONTAIN -1.  THE AC IS THEN CHECKED FOR
  2168					;NON-ZERO CONTENTS.  THE TEST FAILS IF C(AC)=0.
  2169					;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0.
  2170					
  2171					SN=SN+1
  2172						AC=AC+AC
  2173						IFE	AC,<AC=1>
  2174						MOVE	0,[0]		;PRESET AC0 TO ALL ZEROS
  2175						MOVE	AC,[0]		;PRESET THE AC TO ALL ZEROS
  2176						SKIP	AC,[-1]		;*SKIP SHOULD PLACE -1 INTO THE AC
  2177						SKIPN	AC		;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO
  2178						STOP
  2179						SKIPE	0		;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP
  2180						STOP
  2181					
  2182					;**********
  2183					>
  2184					;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC
  2185					;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10.
  2186					;FIRST, THE AC IS LOADED WITH ALL ZEROS;  THEN, THE SKIP INSTRUCTION IS EXECUTED
  2187					;WITH AC1, AC2, AC4 OR AC10.  C(E) IS EQUAL TO -1.  THE SKIP INSTRUCTION SHOULD CAUSE
  2188					;THE AC TO CONTAIN -1.  THE AC IS THEN CHECKED FOR
  2189					;NON-ZERO CONTENTS.  THE TEST FAILS IF C(AC)=0.
  2190					;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0.
  2191
  2192			004101		SN=SN+1
  2193			000000			AC=AC+AC
  2194			000001			IFE	AC,<AC=1>
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 17-1
DAKAAM	MAC	19-JAN-77 13:42		TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS                                        SEQ 0058

  2195	031434	200 00 0 00 035062 		MOVE	0,[0]		;PRESET AC0 TO ALL ZEROS
  2196	031435	200 01 0 00 035062 		MOVE	AC,[0]		;PRESET THE AC TO ALL ZEROS
  2197	031436	330 01 0 00 035063 		SKIP	AC,[-1]		;*SKIP SHOULD PLACE -1 INTO THE AC
  2198	031437	336 00 0 00 000001 		SKIPN	AC		;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO
  2199						STOP^
  2200	031440	254 04 0 00 031441 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2201	031441	324 00 0 00 031442 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2202									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2203									;IN THE SUBTEST) TO LOOP ON ERROR^
  2204	031442	332 00 0 00 000000 		SKIPE	0		;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP
  2205						STOP^
  2206	031443	254 04 0 00 031444 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2207	031444	324 00 0 00 031445 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2208									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2209									;IN THE SUBTEST) TO LOOP ON ERROR^
  2210
  2211					;**********
  2212
  2213					;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC
  2214					;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10.
  2215					;FIRST, THE AC IS LOADED WITH ALL ZEROS;  THEN, THE SKIP INSTRUCTION IS EXECUTED
  2216					;WITH AC1, AC2, AC4 OR AC10.  C(E) IS EQUAL TO -1.  THE SKIP INSTRUCTION SHOULD CAUSE
  2217					;THE AC TO CONTAIN -1.  THE AC IS THEN CHECKED FOR
  2218					;NON-ZERO CONTENTS.  THE TEST FAILS IF C(AC)=0.
  2219					;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0.
  2220
  2221			004102		SN=SN+1
  2222			000002			AC=AC+AC
  2223						IFE	AC,<AC=1>
  2224	031445	200 00 0 00 035062 		MOVE	0,[0]		;PRESET AC0 TO ALL ZEROS
  2225	031446	200 02 0 00 035062 		MOVE	AC,[0]		;PRESET THE AC TO ALL ZEROS
  2226	031447	330 02 0 00 035063 		SKIP	AC,[-1]		;*SKIP SHOULD PLACE -1 INTO THE AC
  2227	031450	336 00 0 00 000002 		SKIPN	AC		;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO
  2228						STOP^
  2229	031451	254 04 0 00 031452 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2230	031452	324 00 0 00 031453 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2231									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2232									;IN THE SUBTEST) TO LOOP ON ERROR^
  2233	031453	332 00 0 00 000000 		SKIPE	0		;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP
  2234						STOP^
  2235	031454	254 04 0 00 031455 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2236	031455	324 00 0 00 031456 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2237									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2238									;IN THE SUBTEST) TO LOOP ON ERROR^
  2239
  2240					;**********
  2241
  2242					;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC
  2243					;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10.
  2244					;FIRST, THE AC IS LOADED WITH ALL ZEROS;  THEN, THE SKIP INSTRUCTION IS EXECUTED
  2245					;WITH AC1, AC2, AC4 OR AC10.  C(E) IS EQUAL TO -1.  THE SKIP INSTRUCTION SHOULD CAUSE
  2246					;THE AC TO CONTAIN -1.  THE AC IS THEN CHECKED FOR
  2247					;NON-ZERO CONTENTS.  THE TEST FAILS IF C(AC)=0.
  2248					;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0.
  2249
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 17-2
DAKAAM	MAC	19-JAN-77 13:42		TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS                                        SEQ 0059

  2250			004103		SN=SN+1
  2251			000004			AC=AC+AC
  2252						IFE	AC,<AC=1>
  2253	031456	200 00 0 00 035062 		MOVE	0,[0]		;PRESET AC0 TO ALL ZEROS
  2254	031457	200 04 0 00 035062 		MOVE	AC,[0]		;PRESET THE AC TO ALL ZEROS
  2255	031460	330 04 0 00 035063 		SKIP	AC,[-1]		;*SKIP SHOULD PLACE -1 INTO THE AC
  2256	031461	336 00 0 00 000004 		SKIPN	AC		;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO
  2257						STOP^
  2258	031462	254 04 0 00 031463 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2259	031463	324 00 0 00 031464 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2260									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2261									;IN THE SUBTEST) TO LOOP ON ERROR^
  2262	031464	332 00 0 00 000000 		SKIPE	0		;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP
  2263						STOP^
  2264	031465	254 04 0 00 031466 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2265	031466	324 00 0 00 031467 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2266									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2267									;IN THE SUBTEST) TO LOOP ON ERROR^
  2268
  2269					;**********
  2270
  2271					;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC
  2272					;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10.
  2273					;FIRST, THE AC IS LOADED WITH ALL ZEROS;  THEN, THE SKIP INSTRUCTION IS EXECUTED
  2274					;WITH AC1, AC2, AC4 OR AC10.  C(E) IS EQUAL TO -1.  THE SKIP INSTRUCTION SHOULD CAUSE
  2275					;THE AC TO CONTAIN -1.  THE AC IS THEN CHECKED FOR
  2276					;NON-ZERO CONTENTS.  THE TEST FAILS IF C(AC)=0.
  2277					;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0.
  2278
  2279			004104		SN=SN+1
  2280			000010			AC=AC+AC
  2281						IFE	AC,<AC=1>
  2282	031467	200 00 0 00 035062 		MOVE	0,[0]		;PRESET AC0 TO ALL ZEROS
  2283	031470	200 10 0 00 035062 		MOVE	AC,[0]		;PRESET THE AC TO ALL ZEROS
  2284	031471	330 10 0 00 035063 		SKIP	AC,[-1]		;*SKIP SHOULD PLACE -1 INTO THE AC
  2285	031472	336 00 0 00 000010 		SKIPN	AC		;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO
  2286						STOP^
  2287	031473	254 04 0 00 031474 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2288	031474	324 00 0 00 031475 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2289									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2290									;IN THE SUBTEST) TO LOOP ON ERROR^
  2291	031475	332 00 0 00 000000 		SKIPE	0		;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP
  2292						STOP^
  2293	031476	254 04 0 00 031477 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2294	031477	324 00 0 00 031500 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2295									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2296									;IN THE SUBTEST) TO LOOP ON ERROR^
  2297
  2298					;**********
  2299
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 18
DAKAAM	MAC	19-JAN-77 13:42		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0060

  2300					SUBTTL	TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS
  2301
  2302					;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL NOT MODIFY THE CONTENTS OF AC0.
  2303					;FIRST, AC0 IS LOADED WITH ALL ZEROS;  THEN,
  2304					;THE SKIP INSTRUCTION IS EXECUTED WITH C(E)=-1 AND AC0.  AC0 IS THEN TESTED FOR ALL
  2305					;ZEROS.  THE TEST FAILS IF AC0 WAS MODIFIED BY THE SKIP INSTRUCTION.
  2306
  2307	031500	200 00 0 00 035062 	A4200:	MOVE	[0]		;PRESET AC0 TO ALL ZEROS
  2308	031501	330 00 0 00 035063 		SKIP	[-1]		;*SKIP SHOULD NOT MODIFY AC0
  2309	031502	332 00 0 00 000000 		SKIPE			;SKIP HALT INSTRUCTION IF AC0 WAS NOT MODIFIED BY SKIP
  2310						STOP^
  2311	031503	254 04 0 00 031504 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2312	031504	324 00 0 00 031505 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2313									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2314									;IN THE SUBTEST) TO LOOP ON ERROR^
  2315
  2316					;AC=0: SAC INH, IR BIT 9, 10, 11 OR 12 S-A-1
  2317
  2318					;**********
  2319
  2320					;THIS TEST VERIFIES THAT MOVSS DOES NOT MODIFY C(AC0) WHEN AC0 IS SPECIFIED AS THE AC.
  2321					;FIRST, E IS LOADED WITH ALL ONES AND THE AC (AC0)
  2322					;IS LOADED WITH ALL ZEROS; THEN, MOVSS IS EXECUTED.  MOVSS SHOULD NOT MODIFY AC0.
  2323					;AC0 IS THEN CHECKED TO INSURE THAT IT WAS NOT MODIFIED BY MOVSS.
  2324
  2325	031505	200 07 0 00 035063 	A4300:	MOVE	7,[-1]		;LOAD E OF THE MOVSS INSTRUCTION WITH ALL ONES
  2326	031506	200 00 0 00 035062 		MOVE	[0]		;PRESET AC0 TO ALL ZEROS
  2327	031507	207 00 0 00 000007 		MOVSS	7		;*MOVSS SHOULD NOT MODIFY AC0
  2328	031510	332 00 0 00 000000 		SKIPE			;SKIP HALT INSTRUCTION IF AC0 WAS INTACT
  2329						STOP^
  2330	031511	254 04 0 00 031512 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2331	031512	324 00 0 00 031513 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2332									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2333									;IN THE SUBTEST) TO LOOP ON ERROR^
  2334
  2335					;MOVX & AC=0: SAC INH [ST2], IR XXXS [IR1]
  2336
  2337					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 19
DAKAAM	MAC	19-JAN-77 13:42		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0061

  2338					;THIS TEST VERIFIES THAT HRRS DOES NOT MODIFY C(AC0) WHEN AC0 IS THE SPECIFIED AC.
  2339					;FIRST, E IS LOADED WITH ALL ONES AND AC0 IS LOADED WITH ALL ZEROS;
  2340					;THEN, HRRS IS EXECUTED WITH AC=AC0.  AC0 IS THEN CHECKED FOR ALL ZEROS.
  2341					;IF AC0 WAS MODIFIED BY THE HRRS INSTRUCTION, THE TEST FAIL.
  2342
  2343	031513	200 07 0 00 035063 	A4400:	MOVE	7,[-1]		;PRESET E OF THE HRRS INSTRUCTION TO ALL ONES
  2344	031514	200 00 0 00 035062 		MOVE	[0]		;PRESET AC0 TO ALL ZEROS
  2345	031515	543 00 0 00 000007 		HRRS	7		;*HRRS SHOULD NOT MODIFY THE AC WHEN THE AC IS AC0
  2346	031516	332 00 0 00 000000 		SKIPE			;SKIP THE HALT INSTRUCTION IF AC0 WAS INTACT
  2347						STOP^
  2348	031517	254 04 0 00 031520 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2349	031520	324 00 0 00 031521 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2350									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2351									;IN THE SUBTEST) TO LOOP ON ERROR^
  2352
  2353					;(HXXXS&AC=0): SAC INH [ST2], IR HWTFWT [IR3], IR XXXS [IR1], IR HWT [IR1],
  2354					;IR BITS S-A-1
  2355
  2356					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 20
DAKAAM	MAC	19-JAN-77 13:42		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0062

  2357					;THIS TEST VERIFIES THAT THE JUMP INSTRUCTION DOES NOT MODIFY C(AC).
  2358					;THE AC IS FIRST LOADED WITH ALL ZEROS;
  2359					;THEN JUMP .+1 IS EXECUTED.  THE AC IS THEN CHECKED TO INSURE THAT IT WAS NOT MODIFIED
  2360					;BY JUMP.  THE TEST FAILS IF THE AC WAS MODIFIED
  2361
  2362	031521	200 00 0 00 035062 	A4700:	MOVE	[0]		; PRESET THE AC TO ALL ZEROS
  2363	031522	320 00 0 00 031523 		JUMP	.+1		;*JUMP SHOULD NOT MODIFY THE AC
  2364	031523	332 00 0 00 000000 		SKIPE			;SKIP HALT INSTRUCTION IF AC WAS INTACT
  2365						STOP^
  2366	031524	254 04 0 00 031525 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2367	031525	324 00 0 00 031526 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2368									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2369									;IN THE SUBTEST) TO LOOP ON ERROR^
  2370
  2371					;**********
  2372
  2373					;THIS TEST VERIFIES THAT MOVS WILL NOT PICK UP ANY ONES WHEN SWAPPING A WORD
  2374					;OF ALL ZEROS.  FIRST, E IS LOADED WITH A WORD OF ALL ZEROS;
  2375					;THEN, MOVS IS EXECUTED.  THE AC IS THEN CHECKED TO INSURE THAT THE RESULT DOES NOT
  2376					;CONTAIN ANY ONES.
  2377
  2378	031526	200 00 0 00 035062 	A5000:	MOVE	[0]		;PRESET E WITH ALL ZEROS
  2379	031527	204 00 0 00 000000 		MOVS			;*MOVS SHOULD RESULT WITH AN AC 0F ALL ZEROS
  2380	031530	332 00 0 00 000000 		SKIPE			;SKIP HALT INSTRUCTION IF C(AC)=0
  2381						STOP^
  2382	031531	254 04 0 00 031532 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2383	031532	324 00 0 00 031533 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2384									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2385									;IN THE SUBTEST) TO LOOP ON ERROR^
  2386
  2387					;**********
  2388
  2389					;THIS TEST VERIFIES THAT A MOVS EXECUTED ON AN E CONTAINING A NON-ZERO NUMBER
  2390					;RESULTS IN A NON-ZERO NUMBER IN THE AC.  FIRST A NON-ZERO WORD
  2391					;IS LOADED INTO E; THEN, MOVS IS EXECUTED.  THE AC IS CHECKED FOR A NON-ZERO RESULT.
  2392					;IF C(AC)=0, THE TEST FAILS.
  2393
  2394	031533	200 00 0 00 035137 	A5100:	MOVE	[XWD 0,-1]	;LOAD E WITH A NON-ZERO VALUE
  2395	031534	204 00 0 00 000000 		MOVS			;*MOVS SHOULD RESULT IN C(AC) NON-ZERO
  2396	031535	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF C(AC) OF MOVS IS NON-ZERO
  2397						STOP^
  2398	031536	254 04 0 00 031537 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2399	031537	324 00 0 00 031540 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2400									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2401									;IN THE SUBTEST) TO LOOP ON ERROR^
  2402
  2403					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 21
DAKAAM	MAC	19-JAN-77 13:42		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0063

  2404					;THIS TEST VERIFIES THAT A MOVS EXECUTED ON AN E CONTAINING A NON-ZERO NUMBER
  2405					;RESULTS IN A NON-ZERO NUMBER IN THE AC.  FIRST A NON-ZERO WORD
  2406					;IS LOADED INTO E; THEN, MOVS IS EXECUTED.  THE AC IS CHECKED FOR A NON-ZERO
  2407					;RESULT.  IF C(AC)=0, THE TEST FAILS.
  2408
  2409	031540	200 00 0 00 035140 	A5200:	MOVE	[XWD -1,0]	;LOAD E OF MOVS WITH A NON-ZERO NUMBER
  2410	031541	204 00 0 00 000000 		MOVS			;*MOVS SHOULD RESULT WITH C(AC) NON-ZERO
  2411	031542	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF C(AC) OF MOVS IS NON-ZERO
  2412						STOP^
  2413	031543	254 04 0 00 031544 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2414	031544	324 00 0 00 031545 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2415									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2416									;IN THE SUBTEST) TO LOOP ON ERROR^
  2417
  2418					;**********
  2419
  2420					;THIS TEST VERIFIES THAT THE MOVS INSTRUCTION SWAPS BITS 0 AND 188 OF E
  2421					;AND STORES THEM IN THE AC UNLESS AR BIT 0 IS S-A-0.  FIRST, A WORD
  2422					;WITH BIT 0 SET TO A ONE AND BIT 18 CLEARED IS LOADED INTO E.  THEN, MOVS
  2423					;IS EXECUTED.  THE AC IS THEN CHECKED FOR A 0 IN BIT 0, WHICH IS THE
  2424					;CORRECT RESULT.
  2425
  2426	031545	200 00 0 00 035140 	A5300:	MOVE	[XWD -1,0]	;LOAD E OF MOVS WITH 777777000000
  2427	031546	204 00 0 00 000000 		MOVS			;*MOVS SHOULD RESULT WITH AC BIT 0 EQUAL TO 0
  2428	031547	337 00 0 00 000000 		SKIPG			;SKIP HALT INSTRUCTION IF BIT 0 OF AC IS 0
  2429						STOP^
  2430	031550	254 04 0 00 031551 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2431	031551	324 00 0 00 031552 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2432									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2433									;IN THE SUBTEST) TO LOOP ON ERROR^
  2434
  2435					;MOVSX: AR SWAP [ARMB], AR LT AR RT A [ARMB], AR LT AR RT B [ARMB],
  2436					;AR RT AR LT A [ARMB], AR RT AR LT B [ARMB], ET2 A F/F [E], IR MOVSX [IR1],
  2437					;IR MOV(E,S)X [IR1]
  2438
  2439					;**********
  2440
  2441					;THIS TEST VERIFIES THAT THE MOVS INSTRUCTION SWAPS BITS 0 AND 18 OF E AND
  2442					;STORES THEM IN THE AC UNLESS AR BIT 0 IS S-A-1.  FIRST, A WORD WITH BIT 0
  2443					;SET TO A ONE AND BIT 18 CLEARED IS LOADED INTO E.  THEN, MOVS IS EXECUTED.
  2444					;THE AC IS CHECKED FOR A ZERO IN BIT ZERO, WHICH IS THE CORRECT RESULT.
  2445
  2446	031552	200 00 0 00 035137 	A5400:	MOVE	[XWD 0,-1]	;LOAD E OF MOVS WITH 777777
  2447	031553	204 00 0 00 000000 		MOVS			;*MOVS SHOULD RESULT WITH BIT 0 OF THE AC SET
  2448	031554	331 00 0 00 000000 		SKIPL			;PASS IF AC BIT 0 IS SET
  2449						STOP^
  2450	031555	254 04 0 00 031556 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2451	031556	324 00 0 00 031557 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2452									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2453									;IN THE SUBTEST) TO LOOP ON ERROR^
  2454
  2455					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 22
DAKAAM	MAC	19-JAN-77 13:42		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0064

  2456			005500		SN=5500
  2457			000000			ZZ=0
  2458
  2459					A5500:	REPEAT	^D18,
  2460					<;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2461					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2462					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2463					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2464					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2465					SN=SN+1
  2466						ZZ=ZZ+ZZ
  2467						IFE	ZZ,<ZZ=1>
  2468						MOVE	[0]		;CLEAR AC
  2469						MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2470						SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2471						STOP
  2472					
  2473					;**********
  2474					>
  2475					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2476					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2477					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2478					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2479					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2480			005501		SN=SN+1
  2481			000000			ZZ=ZZ+ZZ
  2482			000001			IFE	ZZ,<ZZ=1>
  2483	031557	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2484	031560	204 00 0 00 035074 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2485	031561	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2486						STOP^
  2487	031562	254 04 0 00 031563 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2488	031563	324 00 0 00 031564 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2489									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2490									;IN THE SUBTEST) TO LOOP ON ERROR^
  2491
  2492					;**********
  2493
  2494					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2495					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2496					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2497					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2498					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2499			005502		SN=SN+1
  2500			000002			ZZ=ZZ+ZZ
  2501						IFE	ZZ,<ZZ=1>
  2502	031564	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2503	031565	204 00 0 00 035075 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2504	031566	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2505						STOP^
  2506	031567	254 04 0 00 031570 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2507	031570	324 00 0 00 031571 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2508									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2509									;IN THE SUBTEST) TO LOOP ON ERROR^
  2510
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 22-1
DAKAAM	MAC	19-JAN-77 13:42		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0065

  2511					;**********
  2512
  2513					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2514					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2515					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2516					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2517					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2518			005503		SN=SN+1
  2519			000004			ZZ=ZZ+ZZ
  2520						IFE	ZZ,<ZZ=1>
  2521	031571	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2522	031572	204 00 0 00 035076 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2523	031573	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2524						STOP^
  2525	031574	254 04 0 00 031575 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2526	031575	324 00 0 00 031576 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2527									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2528									;IN THE SUBTEST) TO LOOP ON ERROR^
  2529
  2530					;**********
  2531
  2532					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2533					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2534					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2535					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2536					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2537			005504		SN=SN+1
  2538			000010			ZZ=ZZ+ZZ
  2539						IFE	ZZ,<ZZ=1>
  2540	031576	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2541	031577	204 00 0 00 035077 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2542	031600	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2543						STOP^
  2544	031601	254 04 0 00 031602 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2545	031602	324 00 0 00 031603 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2546									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2547									;IN THE SUBTEST) TO LOOP ON ERROR^
  2548
  2549					;**********
  2550
  2551					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2552					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2553					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2554					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2555					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2556			005505		SN=SN+1
  2557			000020			ZZ=ZZ+ZZ
  2558						IFE	ZZ,<ZZ=1>
  2559	031603	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2560	031604	204 00 0 00 035100 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2561	031605	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2562						STOP^
  2563	031606	254 04 0 00 031607 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2564	031607	324 00 0 00 031610 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2565									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 22-2
DAKAAM	MAC	19-JAN-77 13:42		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0066

  2566									;IN THE SUBTEST) TO LOOP ON ERROR^
  2567
  2568					;**********
  2569
  2570					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2571					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2572					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2573					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2574					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2575			005506		SN=SN+1
  2576			000040			ZZ=ZZ+ZZ
  2577						IFE	ZZ,<ZZ=1>
  2578	031610	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2579	031611	204 00 0 00 035101 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2580	031612	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2581						STOP^
  2582	031613	254 04 0 00 031614 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2583	031614	324 00 0 00 031615 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2584									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2585									;IN THE SUBTEST) TO LOOP ON ERROR^
  2586
  2587					;**********
  2588
  2589					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2590					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2591					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2592					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2593					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2594			005507		SN=SN+1
  2595			000100			ZZ=ZZ+ZZ
  2596						IFE	ZZ,<ZZ=1>
  2597	031615	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2598	031616	204 00 0 00 035102 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2599	031617	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2600						STOP^
  2601	031620	254 04 0 00 031621 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2602	031621	324 00 0 00 031622 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2603									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2604									;IN THE SUBTEST) TO LOOP ON ERROR^
  2605
  2606					;**********
  2607
  2608					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2609					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2610					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2611					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2612					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2613			005510		SN=SN+1
  2614			000200			ZZ=ZZ+ZZ
  2615						IFE	ZZ,<ZZ=1>
  2616	031622	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2617	031623	204 00 0 00 035103 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2618	031624	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2619						STOP^
  2620	031625	254 04 0 00 031626 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 22-3
DAKAAM	MAC	19-JAN-77 13:42		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0067

  2621	031626	324 00 0 00 031627 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2622									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2623									;IN THE SUBTEST) TO LOOP ON ERROR^
  2624
  2625					;**********
  2626
  2627					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2628					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2629					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2630					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2631					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2632			005511		SN=SN+1
  2633			000400			ZZ=ZZ+ZZ
  2634						IFE	ZZ,<ZZ=1>
  2635	031627	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2636	031630	204 00 0 00 035104 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2637	031631	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2638						STOP^
  2639	031632	254 04 0 00 031633 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2640	031633	324 00 0 00 031634 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2641									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2642									;IN THE SUBTEST) TO LOOP ON ERROR^
  2643
  2644					;**********
  2645
  2646					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2647					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2648					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2649					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2650					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2651			005512		SN=SN+1
  2652			001000			ZZ=ZZ+ZZ
  2653						IFE	ZZ,<ZZ=1>
  2654	031634	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2655	031635	204 00 0 00 035105 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2656	031636	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2657						STOP^
  2658	031637	254 04 0 00 031640 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2659	031640	324 00 0 00 031641 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2660									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2661									;IN THE SUBTEST) TO LOOP ON ERROR^
  2662
  2663					;**********
  2664
  2665					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2666					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2667					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2668					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2669					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2670			005513		SN=SN+1
  2671			002000			ZZ=ZZ+ZZ
  2672						IFE	ZZ,<ZZ=1>
  2673	031641	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2674	031642	204 00 0 00 035106 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2675	031643	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 22-4
DAKAAM	MAC	19-JAN-77 13:42		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0068

  2676						STOP^
  2677	031644	254 04 0 00 031645 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2678	031645	324 00 0 00 031646 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2679									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2680									;IN THE SUBTEST) TO LOOP ON ERROR^
  2681
  2682					;**********
  2683
  2684					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2685					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2686					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2687					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2688					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2689			005514		SN=SN+1
  2690			004000			ZZ=ZZ+ZZ
  2691						IFE	ZZ,<ZZ=1>
  2692	031646	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2693	031647	204 00 0 00 035107 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2694	031650	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2695						STOP^
  2696	031651	254 04 0 00 031652 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2697	031652	324 00 0 00 031653 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2698									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2699									;IN THE SUBTEST) TO LOOP ON ERROR^
  2700
  2701					;**********
  2702
  2703					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2704					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2705					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2706					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2707					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2708			005515		SN=SN+1
  2709			010000			ZZ=ZZ+ZZ
  2710						IFE	ZZ,<ZZ=1>
  2711	031653	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2712	031654	204 00 0 00 035110 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2713	031655	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2714						STOP^
  2715	031656	254 04 0 00 031657 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2716	031657	324 00 0 00 031660 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2717									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2718									;IN THE SUBTEST) TO LOOP ON ERROR^
  2719
  2720					;**********
  2721
  2722					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2723					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2724					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2725					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2726					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2727			005516		SN=SN+1
  2728			020000			ZZ=ZZ+ZZ
  2729						IFE	ZZ,<ZZ=1>
  2730	031660	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 22-5
DAKAAM	MAC	19-JAN-77 13:42		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0069

  2731	031661	204 00 0 00 035111 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2732	031662	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2733						STOP^
  2734	031663	254 04 0 00 031664 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2735	031664	324 00 0 00 031665 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2736									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2737									;IN THE SUBTEST) TO LOOP ON ERROR^
  2738
  2739					;**********
  2740
  2741					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2742					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2743					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2744					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2745					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2746			005517		SN=SN+1
  2747			040000			ZZ=ZZ+ZZ
  2748						IFE	ZZ,<ZZ=1>
  2749	031665	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2750	031666	204 00 0 00 035112 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2751	031667	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2752						STOP^
  2753	031670	254 04 0 00 031671 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2754	031671	324 00 0 00 031672 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2755									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2756									;IN THE SUBTEST) TO LOOP ON ERROR^
  2757
  2758					;**********
  2759
  2760					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2761					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2762					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2763					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2764					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2765			005520		SN=SN+1
  2766			100000			ZZ=ZZ+ZZ
  2767						IFE	ZZ,<ZZ=1>
  2768	031672	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2769	031673	204 00 0 00 035113 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2770	031674	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2771						STOP^
  2772	031675	254 04 0 00 031676 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2773	031676	324 00 0 00 031677 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2774									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2775									;IN THE SUBTEST) TO LOOP ON ERROR^
  2776
  2777					;**********
  2778
  2779					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2780					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2781					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2782					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2783					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2784			005521		SN=SN+1
  2785			200000			ZZ=ZZ+ZZ
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 22-6
DAKAAM	MAC	19-JAN-77 13:42		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0070

  2786						IFE	ZZ,<ZZ=1>
  2787	031677	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2788	031700	204 00 0 00 035114 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2789	031701	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2790						STOP^
  2791	031702	254 04 0 00 031703 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2792	031703	324 00 0 00 031704 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2793									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2794									;IN THE SUBTEST) TO LOOP ON ERROR^
  2795
  2796					;**********
  2797
  2798					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2799					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2800					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2801					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2802					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2803			005522		SN=SN+1
  2804			400000			ZZ=ZZ+ZZ
  2805						IFE	ZZ,<ZZ=1>
  2806	031704	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2807	031705	204 00 0 00 035115 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2808	031706	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2809						STOP^
  2810	031707	254 04 0 00 031710 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2811	031710	324 00 0 00 031711 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2812									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2813									;IN THE SUBTEST) TO LOOP ON ERROR^
  2814
  2815					;**********
  2816
  2817			005600		SN=5600
  2818
  2819					A5600:	REPEAT	^D18,
  2820					<;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2821					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2822					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2823					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2824					;HALF OF THE AC IS TESTED WITH A 1.
  2825					
  2826					SN=SN+1
  2827						ZZ=ZZ+ZZ
  2828						MOVE	[0]		;CLEAR AC
  2829						MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2830						SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2831						STOP
  2832					
  2833					;**********
  2834					>
  2835					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2836					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2837					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2838					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2839					;HALF OF THE AC IS TESTED WITH A 1.
  2840
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 22-7
DAKAAM	MAC	19-JAN-77 13:42		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0071

  2841			005601		SN=SN+1
  2842		000001	000000			ZZ=ZZ+ZZ
  2843	031711	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2844	031712	204 00 0 00 035116 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2845	031713	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2846						STOP^
  2847	031714	254 04 0 00 031715 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2848	031715	324 00 0 00 031716 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2849									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2850									;IN THE SUBTEST) TO LOOP ON ERROR^
  2851
  2852					;**********
  2853
  2854					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2855					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2856					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2857					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2858					;HALF OF THE AC IS TESTED WITH A 1.
  2859
  2860			005602		SN=SN+1
  2861		000002	000000			ZZ=ZZ+ZZ
  2862	031716	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2863	031717	204 00 0 00 035117 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2864	031720	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2865						STOP^
  2866	031721	254 04 0 00 031722 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2867	031722	324 00 0 00 031723 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2868									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2869									;IN THE SUBTEST) TO LOOP ON ERROR^
  2870
  2871					;**********
  2872
  2873					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2874					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2875					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2876					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2877					;HALF OF THE AC IS TESTED WITH A 1.
  2878
  2879			005603		SN=SN+1
  2880		000004	000000			ZZ=ZZ+ZZ
  2881	031723	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2882	031724	204 00 0 00 035120 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2883	031725	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2884						STOP^
  2885	031726	254 04 0 00 031727 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2886	031727	324 00 0 00 031730 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2887									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2888									;IN THE SUBTEST) TO LOOP ON ERROR^
  2889
  2890					;**********
  2891
  2892					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2893					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2894					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2895					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 22-8
DAKAAM	MAC	19-JAN-77 13:42		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0072

  2896					;HALF OF THE AC IS TESTED WITH A 1.
  2897
  2898			005604		SN=SN+1
  2899		000010	000000			ZZ=ZZ+ZZ
  2900	031730	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2901	031731	204 00 0 00 035121 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2902	031732	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2903						STOP^
  2904	031733	254 04 0 00 031734 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2905	031734	324 00 0 00 031735 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2906									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2907									;IN THE SUBTEST) TO LOOP ON ERROR^
  2908
  2909					;**********
  2910
  2911					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2912					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2913					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2914					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2915					;HALF OF THE AC IS TESTED WITH A 1.
  2916
  2917			005605		SN=SN+1
  2918		000020	000000			ZZ=ZZ+ZZ
  2919	031735	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2920	031736	204 00 0 00 035122 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2921	031737	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2922						STOP^
  2923	031740	254 04 0 00 031741 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2924	031741	324 00 0 00 031742 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2925									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2926									;IN THE SUBTEST) TO LOOP ON ERROR^
  2927
  2928					;**********
  2929
  2930					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2931					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2932					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2933					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2934					;HALF OF THE AC IS TESTED WITH A 1.
  2935
  2936			005606		SN=SN+1
  2937		000040	000000			ZZ=ZZ+ZZ
  2938	031742	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2939	031743	204 00 0 00 035123 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2940	031744	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2941						STOP^
  2942	031745	254 04 0 00 031746 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2943	031746	324 00 0 00 031747 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2944									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2945									;IN THE SUBTEST) TO LOOP ON ERROR^
  2946
  2947					;**********
  2948
  2949					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2950					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 22-9
DAKAAM	MAC	19-JAN-77 13:42		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0073

  2951					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2952					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2953					;HALF OF THE AC IS TESTED WITH A 1.
  2954
  2955			005607		SN=SN+1
  2956		000100	000000			ZZ=ZZ+ZZ
  2957	031747	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2958	031750	204 00 0 00 035124 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2959	031751	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2960						STOP^
  2961	031752	254 04 0 00 031753 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2962	031753	324 00 0 00 031754 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2963									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2964									;IN THE SUBTEST) TO LOOP ON ERROR^
  2965
  2966					;**********
  2967
  2968					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2969					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2970					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2971					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2972					;HALF OF THE AC IS TESTED WITH A 1.
  2973
  2974			005610		SN=SN+1
  2975		000200	000000			ZZ=ZZ+ZZ
  2976	031754	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2977	031755	204 00 0 00 035125 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2978	031756	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2979						STOP^
  2980	031757	254 04 0 00 031760 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2981	031760	324 00 0 00 031761 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2982									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2983									;IN THE SUBTEST) TO LOOP ON ERROR^
  2984
  2985					;**********
  2986
  2987					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2988					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2989					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2990					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2991					;HALF OF THE AC IS TESTED WITH A 1.
  2992
  2993			005611		SN=SN+1
  2994		000400	000000			ZZ=ZZ+ZZ
  2995	031761	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2996	031762	204 00 0 00 035073 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2997	031763	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2998						STOP^
  2999	031764	254 04 0 00 031765 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3000	031765	324 00 0 00 031766 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3001									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3002									;IN THE SUBTEST) TO LOOP ON ERROR^
  3003
  3004					;**********
  3005
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 22-10
DAKAAM	MAC	19-JAN-77 13:42		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0074

  3006					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  3007					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  3008					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  3009					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  3010					;HALF OF THE AC IS TESTED WITH A 1.
  3011
  3012			005612		SN=SN+1
  3013		001000	000000			ZZ=ZZ+ZZ
  3014	031766	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  3015	031767	204 00 0 00 035126 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  3016	031770	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  3017						STOP^
  3018	031771	254 04 0 00 031772 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3019	031772	324 00 0 00 031773 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3020									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3021									;IN THE SUBTEST) TO LOOP ON ERROR^
  3022
  3023					;**********
  3024
  3025					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  3026					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  3027					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  3028					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  3029					;HALF OF THE AC IS TESTED WITH A 1.
  3030
  3031			005613		SN=SN+1
  3032		002000	000000			ZZ=ZZ+ZZ
  3033	031773	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  3034	031774	204 00 0 00 035127 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  3035	031775	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  3036						STOP^
  3037	031776	254 04 0 00 031777 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3038	031777	324 00 0 00 032000 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3039									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3040									;IN THE SUBTEST) TO LOOP ON ERROR^
  3041
  3042					;**********
  3043
  3044					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  3045					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  3046					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  3047					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  3048					;HALF OF THE AC IS TESTED WITH A 1.
  3049
  3050			005614		SN=SN+1
  3051		004000	000000			ZZ=ZZ+ZZ
  3052	032000	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  3053	032001	204 00 0 00 035130 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  3054	032002	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  3055						STOP^
  3056	032003	254 04 0 00 032004 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3057	032004	324 00 0 00 032005 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3058									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3059									;IN THE SUBTEST) TO LOOP ON ERROR^
  3060
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 22-11
DAKAAM	MAC	19-JAN-77 13:42		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0075

  3061					;**********
  3062
  3063					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  3064					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  3065					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  3066					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  3067					;HALF OF THE AC IS TESTED WITH A 1.
  3068
  3069			005615		SN=SN+1
  3070		010000	000000			ZZ=ZZ+ZZ
  3071	032005	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  3072	032006	204 00 0 00 035131 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  3073	032007	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  3074						STOP^
  3075	032010	254 04 0 00 032011 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3076	032011	324 00 0 00 032012 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3077									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3078									;IN THE SUBTEST) TO LOOP ON ERROR^
  3079
  3080					;**********
  3081
  3082					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  3083					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  3084					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  3085					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  3086					;HALF OF THE AC IS TESTED WITH A 1.
  3087
  3088			005616		SN=SN+1
  3089		020000	000000			ZZ=ZZ+ZZ
  3090	032012	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  3091	032013	204 00 0 00 035132 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  3092	032014	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  3093						STOP^
  3094	032015	254 04 0 00 032016 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3095	032016	324 00 0 00 032017 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3096									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3097									;IN THE SUBTEST) TO LOOP ON ERROR^
  3098
  3099					;**********
  3100
  3101					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  3102					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  3103					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  3104					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  3105					;HALF OF THE AC IS TESTED WITH A 1.
  3106
  3107			005617		SN=SN+1
  3108		040000	000000			ZZ=ZZ+ZZ
  3109	032017	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  3110	032020	204 00 0 00 035133 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  3111	032021	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  3112						STOP^
  3113	032022	254 04 0 00 032023 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3114	032023	324 00 0 00 032024 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3115									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 22-12
DAKAAM	MAC	19-JAN-77 13:42		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0076

  3116									;IN THE SUBTEST) TO LOOP ON ERROR^
  3117
  3118					;**********
  3119
  3120					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  3121					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  3122					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  3123					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  3124					;HALF OF THE AC IS TESTED WITH A 1.
  3125
  3126			005620		SN=SN+1
  3127		100000	000000			ZZ=ZZ+ZZ
  3128	032024	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  3129	032025	204 00 0 00 035134 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  3130	032026	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  3131						STOP^
  3132	032027	254 04 0 00 032030 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3133	032030	324 00 0 00 032031 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3134									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3135									;IN THE SUBTEST) TO LOOP ON ERROR^
  3136
  3137					;**********
  3138
  3139					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  3140					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  3141					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  3142					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  3143					;HALF OF THE AC IS TESTED WITH A 1.
  3144
  3145			005621		SN=SN+1
  3146		200000	000000			ZZ=ZZ+ZZ
  3147	032031	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  3148	032032	204 00 0 00 035135 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  3149	032033	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  3150						STOP^
  3151	032034	254 04 0 00 032035 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3152	032035	324 00 0 00 032036 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3153									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3154									;IN THE SUBTEST) TO LOOP ON ERROR^
  3155
  3156					;**********
  3157
  3158					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  3159					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  3160					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  3161					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  3162					;HALF OF THE AC IS TESTED WITH A 1.
  3163
  3164			005622		SN=SN+1
  3165		400000	000000			ZZ=ZZ+ZZ
  3166	032036	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  3167	032037	204 00 0 00 035065 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  3168	032040	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  3169						STOP^
  3170	032041	254 04 0 00 032042 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 22-13
DAKAAM	MAC	19-JAN-77 13:42		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0077

  3171	032042	324 00 0 00 032043 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3172									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3173									;IN THE SUBTEST) TO LOOP ON ERROR^
  3174
  3175					;**********
  3176
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 23
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0078

  3177					SUBTTL	TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)
  3178
  3179					;THIS TEST VERIFIES THAT SETM LOADS AC FROM E.  THE AC IS FIRST SET
  3180					;TO ZERO; THEN, SETM IS EXECUTED WITH ALL ONES IN E.  BIT 0 OF THE AC
  3181					;IS THEN CHECKED FOR A 1.
  3182
  3183	032043	200 00 0 00 035062 	A5700:	MOVE	[0]		;PRELOAD AC WITH ALL ZEROS
  3184	032044	414 00 0 00 035063 		SETM	[-1]		;*SETM SHOULD LOAD AC WITH ALL ONES
  3185	032045	331 00 0 00 000000 		SKIPL			;PASS TEST IF AC BIT 0 IS A ONE
  3186						STOP^
  3187	032046	254 04 0 00 032047 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3188	032047	324 00 0 00 032050 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3189									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3190									;IN THE SUBTEST) TO LOOP ON ERROR^
  3191					;FCE [F1], IR BOOLE [IR1], IRXX(0,5,12,17) [IR2]
  3192
  3193					;**********
  3194
  3195					;THIS TEST VERIFIES THAT SETM LOADS AC FROM E.  THE AC IS FIRST SET TO
  3196					;ALL ONES; THEN, SETM IS EXECUTED WITH ALL ZEROS IN E.  THE AC IS CHECKED
  3197					;FOR ALL ZEROS
  3198
  3199	032050	200 00 0 00 035063 	A6000:	MOVE	[-1]		;PRESET AC TO ALL ONES
  3200	032051	414 00 0 00 035062 		SETM	[0]		;*SETM SHOULD LOAD AC WITH ALL ONES
  3201	032052	332 00 0 00 000000 		SKIPE			;PASSES TEST IF C(AC) = 0
  3202						STOP^
  3203	032053	254 04 0 00 032054 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3204	032054	324 00 0 00 032055 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3205									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3206									;IN THE SUBTEST) TO LOOP ON ERROR^
  3207
  3208					;AD AR + EN [ADAP], AD AR + EN C[ADAP],
  3209					;F CYC ACT EN A[F1], IR BOOLE AD A +F[IR2],
  3210					;IR BOOLE [IR1], IRXX(1-3,6,11,15,16) [IR2]
  3211
  3212					;**********
  3213
  3214					;THIS TEST VERIFIES THAT SETZ LOADS TH AC WITH ALL ZEROS.  FIRST, A WORD
  3215					;OF ALL ZEROS IS LOADED INTO THE AC VIA A MOVE INSTC. THEN, SETZ IS
  3216					;EXECUTED.  THE AC IS CHECKED FOR ALL ZEROS.
  3217					;IF ANY BITS IN THE AC ARE SET, THE TEST FAILS.
  3218
  3219	032055	200 00 0 00 035062 	A6100:	MOVE	[0]		;RESET AC TO ALL ZEROS
  3220	032056	400 00 0 00 000000 		SETZ			;*SETZ SHOULD CLEAR THE AC
  3221	032057	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC) = 0
  3222						STOP^
  3223	032060	254 04 0 00 032061 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3224	032061	324 00 0 00 032062 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3225									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3226									;IN THE SUBTEST) TO LOOP ON ERROR^
  3227
  3228					;AD MASK GEN EN [ADC1], AD MASK GEN F/F'S [ADC1]
  3229					;AD MASK EN B; F CYC ACT EN B[F1]; IRXX00 [IR1];
  3230					;IR BOOLE [IR1]
  3231
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 23-1
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0079

  3232					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 24
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0080

  3233					;THIS TEST VERIFIES THAT SETZ LOADS THE AC WITH ALL ZEROS.  FIRST,
  3234					;THE AC IS SET TO ALL ONES; THEN, SETZ IS EXECUTED.  THE AC IS THEN
  3235					;CHECKED FOR ALL ZEROS.  IF ANY BITS IN THE AC ARE SET, THE TEST FAILS.
  3236
  3237	032062	200 00 0 00 035063 	A6200:	MOVE	[-1]		;PRESET AC TO ALL ONES
  3238	032063	400 00 0 00 032063 		SETZ	.		;*SETZ SHOULD CLEAR THE AC
  3239	032064	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC) = 0
  3240						STOP^
  3241	032065	254 04 0 00 032066 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3242	032066	324 00 0 00 032067 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3243									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3244									;IN THE SUBTEST) TO LOOP ON ERROR^
  3245
  3246					;AR AD EN [ARMA], AR AD ET2 EN [ARMA], IR BOOLE [IR]
  3247
  3248					;**********
  3249
  3250					;THIS TEST VERIFIES THAT THE AND INSTRUCTION OPERATING ON AN AC
  3251					;CONTAINING ALL ZEROS AND AN E CONTAINING ALL ZEROS RESULTS IN AN AC
  3252					;OF ALL ZEROS.  THE AC AND E ARE THE SAME IN THIS TEST.
  3253					;AC, E ARE LOADED WITH ZEROS; THEN, AND IS EXECUTED.  THE AC IS THEN
  3254					;CHECKED FOR ALL ZEROS.  IF ANY BITS IN THE AC ARE SET BY THE AND INSTRUCTION,
  3255					;THE TEST FAILS.
  3256
  3257
  3258	032067	200 00 0 00 035062 	A6300:	MOVE	[0]		;PRESET AC, E TO ALL ZEROS
  3259	032070	404 00 0 00 000000 		AND			;*AND SHOULD RESULT IN C(AC) = 0
  3260	032071	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC) = 0
  3261						STOP^
  3262	032072	254 04 0 00 032073 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3263	032073	324 00 0 00 032074 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3264									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3265									;IN THE SUBTEST) TO LOOP ON ERROR^
  3266
  3267					;**********
  3268			006400		SN=6400
  3269			000000			ZZ=0
  3270
  3271					A6400:	REPEAT	^D36,
  3272					<;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3273					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3274					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3275					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3276					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3277					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3278					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3279					
  3280					SN=SN+1
  3281						ZZ=ZZ+ZZ
  3282						IFE	ZZ,<ZZ=1>
  3283						SETZ			;PRESET E TO ALL ZEROS
  3284						MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3285									;WHERE X VARIES FROM 0 THRU 35
  3286						AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3287						SKIPE	1		;FAIL IF C(AC) NON-ZERO
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 24-1
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0081

  3288						STOP
  3289						SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3290						STOP
  3291					;**********
  3292					>
  3293					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3294					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3295					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3296					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3297					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3298					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3299					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3300
  3301			006401		SN=SN+1
  3302			000000			ZZ=ZZ+ZZ
  3303			000001			IFE	ZZ,<ZZ=1>
  3304	032074	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3305	032075	200 01 0 00 035074 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3306									;WHERE X VARIES FROM 0 THRU 35
  3307	032076	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3308	032077	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3309						STOP^
  3310	032100	254 04 0 00 032101 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3311	032101	324 00 0 00 032102 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3312									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3313									;IN THE SUBTEST) TO LOOP ON ERROR^
  3314	032102	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3315						STOP^
  3316	032103	254 04 0 00 032104 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3317	032104	324 00 0 00 032105 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3318									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3319									;IN THE SUBTEST) TO LOOP ON ERROR^
  3320					;**********
  3321
  3322					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3323					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3324					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3325					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3326					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3327					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3328					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3329
  3330			006402		SN=SN+1
  3331			000002			ZZ=ZZ+ZZ
  3332						IFE	ZZ,<ZZ=1>
  3333	032105	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3334	032106	200 01 0 00 035075 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3335									;WHERE X VARIES FROM 0 THRU 35
  3336	032107	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3337	032110	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3338						STOP^
  3339	032111	254 04 0 00 032112 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3340	032112	324 00 0 00 032113 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3341									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3342									;IN THE SUBTEST) TO LOOP ON ERROR^
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 24-2
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0082

  3343	032113	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3344						STOP^
  3345	032114	254 04 0 00 032115 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3346	032115	324 00 0 00 032116 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3347									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3348									;IN THE SUBTEST) TO LOOP ON ERROR^
  3349					;**********
  3350
  3351					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3352					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3353					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3354					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3355					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3356					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3357					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3358
  3359			006403		SN=SN+1
  3360			000004			ZZ=ZZ+ZZ
  3361						IFE	ZZ,<ZZ=1>
  3362	032116	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3363	032117	200 01 0 00 035076 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3364									;WHERE X VARIES FROM 0 THRU 35
  3365	032120	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3366	032121	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3367						STOP^
  3368	032122	254 04 0 00 032123 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3369	032123	324 00 0 00 032124 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3370									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3371									;IN THE SUBTEST) TO LOOP ON ERROR^
  3372	032124	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3373						STOP^
  3374	032125	254 04 0 00 032126 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3375	032126	324 00 0 00 032127 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3376									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3377									;IN THE SUBTEST) TO LOOP ON ERROR^
  3378					;**********
  3379
  3380					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3381					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3382					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3383					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3384					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3385					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3386					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3387
  3388			006404		SN=SN+1
  3389			000010			ZZ=ZZ+ZZ
  3390						IFE	ZZ,<ZZ=1>
  3391	032127	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3392	032130	200 01 0 00 035077 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3393									;WHERE X VARIES FROM 0 THRU 35
  3394	032131	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3395	032132	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3396						STOP^
  3397	032133	254 04 0 00 032134 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 24-3
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0083

  3398	032134	324 00 0 00 032135 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3399									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3400									;IN THE SUBTEST) TO LOOP ON ERROR^
  3401	032135	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3402						STOP^
  3403	032136	254 04 0 00 032137 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3404	032137	324 00 0 00 032140 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3405									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3406									;IN THE SUBTEST) TO LOOP ON ERROR^
  3407					;**********
  3408
  3409					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3410					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3411					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3412					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3413					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3414					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3415					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3416
  3417			006405		SN=SN+1
  3418			000020			ZZ=ZZ+ZZ
  3419						IFE	ZZ,<ZZ=1>
  3420	032140	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3421	032141	200 01 0 00 035100 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3422									;WHERE X VARIES FROM 0 THRU 35
  3423	032142	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3424	032143	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3425						STOP^
  3426	032144	254 04 0 00 032145 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3427	032145	324 00 0 00 032146 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3428									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3429									;IN THE SUBTEST) TO LOOP ON ERROR^
  3430	032146	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3431						STOP^
  3432	032147	254 04 0 00 032150 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3433	032150	324 00 0 00 032151 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3434									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3435									;IN THE SUBTEST) TO LOOP ON ERROR^
  3436					;**********
  3437
  3438					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3439					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3440					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3441					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3442					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3443					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3444					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3445
  3446			006406		SN=SN+1
  3447			000040			ZZ=ZZ+ZZ
  3448						IFE	ZZ,<ZZ=1>
  3449	032151	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3450	032152	200 01 0 00 035101 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3451									;WHERE X VARIES FROM 0 THRU 35
  3452	032153	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 24-4
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0084

  3453	032154	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3454						STOP^
  3455	032155	254 04 0 00 032156 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3456	032156	324 00 0 00 032157 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3457									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3458									;IN THE SUBTEST) TO LOOP ON ERROR^
  3459	032157	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3460						STOP^
  3461	032160	254 04 0 00 032161 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3462	032161	324 00 0 00 032162 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3463									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3464									;IN THE SUBTEST) TO LOOP ON ERROR^
  3465					;**********
  3466
  3467					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3468					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3469					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3470					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3471					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3472					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3473					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3474
  3475			006407		SN=SN+1
  3476			000100			ZZ=ZZ+ZZ
  3477						IFE	ZZ,<ZZ=1>
  3478	032162	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3479	032163	200 01 0 00 035102 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3480									;WHERE X VARIES FROM 0 THRU 35
  3481	032164	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3482	032165	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3483						STOP^
  3484	032166	254 04 0 00 032167 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3485	032167	324 00 0 00 032170 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3486									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3487									;IN THE SUBTEST) TO LOOP ON ERROR^
  3488	032170	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3489						STOP^
  3490	032171	254 04 0 00 032172 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3491	032172	324 00 0 00 032173 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3492									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3493									;IN THE SUBTEST) TO LOOP ON ERROR^
  3494					;**********
  3495
  3496					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3497					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3498					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3499					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3500					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3501					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3502					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3503
  3504			006410		SN=SN+1
  3505			000200			ZZ=ZZ+ZZ
  3506						IFE	ZZ,<ZZ=1>
  3507	032173	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 24-5
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0085

  3508	032174	200 01 0 00 035103 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3509									;WHERE X VARIES FROM 0 THRU 35
  3510	032175	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3511	032176	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3512						STOP^
  3513	032177	254 04 0 00 032200 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3514	032200	324 00 0 00 032201 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3515									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3516									;IN THE SUBTEST) TO LOOP ON ERROR^
  3517	032201	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3518						STOP^
  3519	032202	254 04 0 00 032203 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3520	032203	324 00 0 00 032204 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3521									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3522									;IN THE SUBTEST) TO LOOP ON ERROR^
  3523					;**********
  3524
  3525					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3526					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3527					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3528					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3529					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3530					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3531					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3532
  3533			006411		SN=SN+1
  3534			000400			ZZ=ZZ+ZZ
  3535						IFE	ZZ,<ZZ=1>
  3536	032204	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3537	032205	200 01 0 00 035104 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3538									;WHERE X VARIES FROM 0 THRU 35
  3539	032206	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3540	032207	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3541						STOP^
  3542	032210	254 04 0 00 032211 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3543	032211	324 00 0 00 032212 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3544									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3545									;IN THE SUBTEST) TO LOOP ON ERROR^
  3546	032212	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3547						STOP^
  3548	032213	254 04 0 00 032214 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3549	032214	324 00 0 00 032215 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3550									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3551									;IN THE SUBTEST) TO LOOP ON ERROR^
  3552					;**********
  3553
  3554					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3555					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3556					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3557					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3558					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3559					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3560					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3561
  3562			006412		SN=SN+1
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 24-6
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0086

  3563			001000			ZZ=ZZ+ZZ
  3564						IFE	ZZ,<ZZ=1>
  3565	032215	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3566	032216	200 01 0 00 035105 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3567									;WHERE X VARIES FROM 0 THRU 35
  3568	032217	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3569	032220	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3570						STOP^
  3571	032221	254 04 0 00 032222 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3572	032222	324 00 0 00 032223 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3573									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3574									;IN THE SUBTEST) TO LOOP ON ERROR^
  3575	032223	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3576						STOP^
  3577	032224	254 04 0 00 032225 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3578	032225	324 00 0 00 032226 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3579									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3580									;IN THE SUBTEST) TO LOOP ON ERROR^
  3581					;**********
  3582
  3583					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3584					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3585					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3586					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3587					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3588					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3589					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3590
  3591			006413		SN=SN+1
  3592			002000			ZZ=ZZ+ZZ
  3593						IFE	ZZ,<ZZ=1>
  3594	032226	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3595	032227	200 01 0 00 035106 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3596									;WHERE X VARIES FROM 0 THRU 35
  3597	032230	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3598	032231	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3599						STOP^
  3600	032232	254 04 0 00 032233 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3601	032233	324 00 0 00 032234 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3602									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3603									;IN THE SUBTEST) TO LOOP ON ERROR^
  3604	032234	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3605						STOP^
  3606	032235	254 04 0 00 032236 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3607	032236	324 00 0 00 032237 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3608									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3609									;IN THE SUBTEST) TO LOOP ON ERROR^
  3610					;**********
  3611
  3612					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3613					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3614					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3615					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3616					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3617					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 24-7
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0087

  3618					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3619
  3620			006414		SN=SN+1
  3621			004000			ZZ=ZZ+ZZ
  3622						IFE	ZZ,<ZZ=1>
  3623	032237	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3624	032240	200 01 0 00 035107 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3625									;WHERE X VARIES FROM 0 THRU 35
  3626	032241	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3627	032242	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3628						STOP^
  3629	032243	254 04 0 00 032244 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3630	032244	324 00 0 00 032245 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3631									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3632									;IN THE SUBTEST) TO LOOP ON ERROR^
  3633	032245	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3634						STOP^
  3635	032246	254 04 0 00 032247 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3636	032247	324 00 0 00 032250 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3637									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3638									;IN THE SUBTEST) TO LOOP ON ERROR^
  3639					;**********
  3640
  3641					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3642					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3643					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3644					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3645					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3646					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3647					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3648
  3649			006415		SN=SN+1
  3650			010000			ZZ=ZZ+ZZ
  3651						IFE	ZZ,<ZZ=1>
  3652	032250	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3653	032251	200 01 0 00 035110 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3654									;WHERE X VARIES FROM 0 THRU 35
  3655	032252	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3656	032253	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3657						STOP^
  3658	032254	254 04 0 00 032255 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3659	032255	324 00 0 00 032256 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3660									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3661									;IN THE SUBTEST) TO LOOP ON ERROR^
  3662	032256	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3663						STOP^
  3664	032257	254 04 0 00 032260 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3665	032260	324 00 0 00 032261 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3666									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3667									;IN THE SUBTEST) TO LOOP ON ERROR^
  3668					;**********
  3669
  3670					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3671					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3672					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 24-8
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0088

  3673					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3674					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3675					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3676					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3677
  3678			006416		SN=SN+1
  3679			020000			ZZ=ZZ+ZZ
  3680						IFE	ZZ,<ZZ=1>
  3681	032261	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3682	032262	200 01 0 00 035111 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3683									;WHERE X VARIES FROM 0 THRU 35
  3684	032263	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3685	032264	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3686						STOP^
  3687	032265	254 04 0 00 032266 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3688	032266	324 00 0 00 032267 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3689									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3690									;IN THE SUBTEST) TO LOOP ON ERROR^
  3691	032267	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3692						STOP^
  3693	032270	254 04 0 00 032271 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3694	032271	324 00 0 00 032272 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3695									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3696									;IN THE SUBTEST) TO LOOP ON ERROR^
  3697					;**********
  3698
  3699					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3700					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3701					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3702					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3703					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3704					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3705					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3706
  3707			006417		SN=SN+1
  3708			040000			ZZ=ZZ+ZZ
  3709						IFE	ZZ,<ZZ=1>
  3710	032272	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3711	032273	200 01 0 00 035112 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3712									;WHERE X VARIES FROM 0 THRU 35
  3713	032274	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3714	032275	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3715						STOP^
  3716	032276	254 04 0 00 032277 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3717	032277	324 00 0 00 032300 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3718									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3719									;IN THE SUBTEST) TO LOOP ON ERROR^
  3720	032300	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3721						STOP^
  3722	032301	254 04 0 00 032302 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3723	032302	324 00 0 00 032303 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3724									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3725									;IN THE SUBTEST) TO LOOP ON ERROR^
  3726					;**********
  3727
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 24-9
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0089

  3728					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3729					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3730					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3731					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3732					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3733					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3734					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3735
  3736			006420		SN=SN+1
  3737			100000			ZZ=ZZ+ZZ
  3738						IFE	ZZ,<ZZ=1>
  3739	032303	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3740	032304	200 01 0 00 035113 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3741									;WHERE X VARIES FROM 0 THRU 35
  3742	032305	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3743	032306	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3744						STOP^
  3745	032307	254 04 0 00 032310 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3746	032310	324 00 0 00 032311 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3747									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3748									;IN THE SUBTEST) TO LOOP ON ERROR^
  3749	032311	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3750						STOP^
  3751	032312	254 04 0 00 032313 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3752	032313	324 00 0 00 032314 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3753									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3754									;IN THE SUBTEST) TO LOOP ON ERROR^
  3755					;**********
  3756
  3757					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3758					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3759					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3760					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3761					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3762					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3763					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3764
  3765			006421		SN=SN+1
  3766			200000			ZZ=ZZ+ZZ
  3767						IFE	ZZ,<ZZ=1>
  3768	032314	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3769	032315	200 01 0 00 035114 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3770									;WHERE X VARIES FROM 0 THRU 35
  3771	032316	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3772	032317	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3773						STOP^
  3774	032320	254 04 0 00 032321 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3775	032321	324 00 0 00 032322 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3776									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3777									;IN THE SUBTEST) TO LOOP ON ERROR^
  3778	032322	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3779						STOP^
  3780	032323	254 04 0 00 032324 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3781	032324	324 00 0 00 032325 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3782									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 24-10
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0090

  3783									;IN THE SUBTEST) TO LOOP ON ERROR^
  3784					;**********
  3785
  3786					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3787					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3788					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3789					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3790					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3791					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3792					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3793
  3794			006422		SN=SN+1
  3795			400000			ZZ=ZZ+ZZ
  3796						IFE	ZZ,<ZZ=1>
  3797	032325	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3798	032326	200 01 0 00 035115 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3799									;WHERE X VARIES FROM 0 THRU 35
  3800	032327	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3801	032330	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3802						STOP^
  3803	032331	254 04 0 00 032332 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3804	032332	324 00 0 00 032333 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3805									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3806									;IN THE SUBTEST) TO LOOP ON ERROR^
  3807	032333	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3808						STOP^
  3809	032334	254 04 0 00 032335 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3810	032335	324 00 0 00 032336 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3811									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3812									;IN THE SUBTEST) TO LOOP ON ERROR^
  3813					;**********
  3814
  3815					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3816					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3817					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3818					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3819					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3820					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3821					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3822
  3823			006423		SN=SN+1
  3824		000001	000000			ZZ=ZZ+ZZ
  3825						IFE	ZZ,<ZZ=1>
  3826	032336	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3827	032337	200 01 0 00 035116 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3828									;WHERE X VARIES FROM 0 THRU 35
  3829	032340	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3830	032341	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3831						STOP^
  3832	032342	254 04 0 00 032343 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3833	032343	324 00 0 00 032344 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3834									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3835									;IN THE SUBTEST) TO LOOP ON ERROR^
  3836	032344	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3837						STOP^
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 24-11
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0091

  3838	032345	254 04 0 00 032346 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3839	032346	324 00 0 00 032347 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3840									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3841									;IN THE SUBTEST) TO LOOP ON ERROR^
  3842					;**********
  3843
  3844					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3845					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3846					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3847					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3848					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3849					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3850					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3851
  3852			006424		SN=SN+1
  3853		000002	000000			ZZ=ZZ+ZZ
  3854						IFE	ZZ,<ZZ=1>
  3855	032347	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3856	032350	200 01 0 00 035117 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3857									;WHERE X VARIES FROM 0 THRU 35
  3858	032351	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3859	032352	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3860						STOP^
  3861	032353	254 04 0 00 032354 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3862	032354	324 00 0 00 032355 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3863									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3864									;IN THE SUBTEST) TO LOOP ON ERROR^
  3865	032355	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3866						STOP^
  3867	032356	254 04 0 00 032357 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3868	032357	324 00 0 00 032360 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3869									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3870									;IN THE SUBTEST) TO LOOP ON ERROR^
  3871					;**********
  3872
  3873					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3874					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3875					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3876					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3877					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3878					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3879					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3880
  3881			006425		SN=SN+1
  3882		000004	000000			ZZ=ZZ+ZZ
  3883						IFE	ZZ,<ZZ=1>
  3884	032360	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3885	032361	200 01 0 00 035120 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3886									;WHERE X VARIES FROM 0 THRU 35
  3887	032362	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3888	032363	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3889						STOP^
  3890	032364	254 04 0 00 032365 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3891	032365	324 00 0 00 032366 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3892									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 24-12
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0092

  3893									;IN THE SUBTEST) TO LOOP ON ERROR^
  3894	032366	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3895						STOP^
  3896	032367	254 04 0 00 032370 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3897	032370	324 00 0 00 032371 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3898									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3899									;IN THE SUBTEST) TO LOOP ON ERROR^
  3900					;**********
  3901
  3902					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3903					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3904					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3905					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3906					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3907					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3908					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3909
  3910			006426		SN=SN+1
  3911		000010	000000			ZZ=ZZ+ZZ
  3912						IFE	ZZ,<ZZ=1>
  3913	032371	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3914	032372	200 01 0 00 035121 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3915									;WHERE X VARIES FROM 0 THRU 35
  3916	032373	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3917	032374	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3918						STOP^
  3919	032375	254 04 0 00 032376 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3920	032376	324 00 0 00 032377 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3921									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3922									;IN THE SUBTEST) TO LOOP ON ERROR^
  3923	032377	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3924						STOP^
  3925	032400	254 04 0 00 032401 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3926	032401	324 00 0 00 032402 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3927									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3928									;IN THE SUBTEST) TO LOOP ON ERROR^
  3929					;**********
  3930
  3931					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3932					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3933					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3934					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3935					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3936					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3937					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3938
  3939			006427		SN=SN+1
  3940		000020	000000			ZZ=ZZ+ZZ
  3941						IFE	ZZ,<ZZ=1>
  3942	032402	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3943	032403	200 01 0 00 035122 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3944									;WHERE X VARIES FROM 0 THRU 35
  3945	032404	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3946	032405	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3947						STOP^
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 24-13
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0093

  3948	032406	254 04 0 00 032407 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3949	032407	324 00 0 00 032410 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3950									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3951									;IN THE SUBTEST) TO LOOP ON ERROR^
  3952	032410	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3953						STOP^
  3954	032411	254 04 0 00 032412 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3955	032412	324 00 0 00 032413 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3956									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3957									;IN THE SUBTEST) TO LOOP ON ERROR^
  3958					;**********
  3959
  3960					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3961					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3962					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3963					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3964					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3965					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3966					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3967
  3968			006430		SN=SN+1
  3969		000040	000000			ZZ=ZZ+ZZ
  3970						IFE	ZZ,<ZZ=1>
  3971	032413	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3972	032414	200 01 0 00 035123 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3973									;WHERE X VARIES FROM 0 THRU 35
  3974	032415	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3975	032416	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3976						STOP^
  3977	032417	254 04 0 00 032420 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3978	032420	324 00 0 00 032421 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3979									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3980									;IN THE SUBTEST) TO LOOP ON ERROR^
  3981	032421	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3982						STOP^
  3983	032422	254 04 0 00 032423 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3984	032423	324 00 0 00 032424 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3985									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3986									;IN THE SUBTEST) TO LOOP ON ERROR^
  3987					;**********
  3988
  3989					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3990					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3991					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3992					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3993					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3994					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3995					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3996
  3997			006431		SN=SN+1
  3998		000100	000000			ZZ=ZZ+ZZ
  3999						IFE	ZZ,<ZZ=1>
  4000	032424	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  4001	032425	200 01 0 00 035124 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  4002									;WHERE X VARIES FROM 0 THRU 35
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 24-14
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0094

  4003	032426	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  4004	032427	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  4005						STOP^
  4006	032430	254 04 0 00 032431 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4007	032431	324 00 0 00 032432 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4008									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4009									;IN THE SUBTEST) TO LOOP ON ERROR^
  4010	032432	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  4011						STOP^
  4012	032433	254 04 0 00 032434 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4013	032434	324 00 0 00 032435 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4014									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4015									;IN THE SUBTEST) TO LOOP ON ERROR^
  4016					;**********
  4017
  4018					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  4019					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  4020					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  4021					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  4022					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  4023					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  4024					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  4025
  4026			006432		SN=SN+1
  4027		000200	000000			ZZ=ZZ+ZZ
  4028						IFE	ZZ,<ZZ=1>
  4029	032435	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  4030	032436	200 01 0 00 035125 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  4031									;WHERE X VARIES FROM 0 THRU 35
  4032	032437	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  4033	032440	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  4034						STOP^
  4035	032441	254 04 0 00 032442 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4036	032442	324 00 0 00 032443 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4037									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4038									;IN THE SUBTEST) TO LOOP ON ERROR^
  4039	032443	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  4040						STOP^
  4041	032444	254 04 0 00 032445 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4042	032445	324 00 0 00 032446 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4043									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4044									;IN THE SUBTEST) TO LOOP ON ERROR^
  4045					;**********
  4046
  4047					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  4048					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  4049					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  4050					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  4051					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  4052					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  4053					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  4054
  4055			006433		SN=SN+1
  4056		000400	000000			ZZ=ZZ+ZZ
  4057						IFE	ZZ,<ZZ=1>
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 24-15
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0095

  4058	032446	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  4059	032447	200 01 0 00 035073 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  4060									;WHERE X VARIES FROM 0 THRU 35
  4061	032450	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  4062	032451	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  4063						STOP^
  4064	032452	254 04 0 00 032453 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4065	032453	324 00 0 00 032454 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4066									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4067									;IN THE SUBTEST) TO LOOP ON ERROR^
  4068	032454	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  4069						STOP^
  4070	032455	254 04 0 00 032456 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4071	032456	324 00 0 00 032457 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4072									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4073									;IN THE SUBTEST) TO LOOP ON ERROR^
  4074					;**********
  4075
  4076					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  4077					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  4078					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  4079					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  4080					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  4081					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  4082					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  4083
  4084			006434		SN=SN+1
  4085		001000	000000			ZZ=ZZ+ZZ
  4086						IFE	ZZ,<ZZ=1>
  4087	032457	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  4088	032460	200 01 0 00 035126 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  4089									;WHERE X VARIES FROM 0 THRU 35
  4090	032461	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  4091	032462	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  4092						STOP^
  4093	032463	254 04 0 00 032464 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4094	032464	324 00 0 00 032465 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4095									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4096									;IN THE SUBTEST) TO LOOP ON ERROR^
  4097	032465	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  4098						STOP^
  4099	032466	254 04 0 00 032467 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4100	032467	324 00 0 00 032470 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4101									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4102									;IN THE SUBTEST) TO LOOP ON ERROR^
  4103					;**********
  4104
  4105					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  4106					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  4107					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  4108					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  4109					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  4110					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  4111					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  4112
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 24-16
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0096

  4113			006435		SN=SN+1
  4114		002000	000000			ZZ=ZZ+ZZ
  4115						IFE	ZZ,<ZZ=1>
  4116	032470	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  4117	032471	200 01 0 00 035127 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  4118									;WHERE X VARIES FROM 0 THRU 35
  4119	032472	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  4120	032473	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  4121						STOP^
  4122	032474	254 04 0 00 032475 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4123	032475	324 00 0 00 032476 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4124									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4125									;IN THE SUBTEST) TO LOOP ON ERROR^
  4126	032476	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  4127						STOP^
  4128	032477	254 04 0 00 032500 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4129	032500	324 00 0 00 032501 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4130									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4131									;IN THE SUBTEST) TO LOOP ON ERROR^
  4132					;**********
  4133
  4134					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  4135					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  4136					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  4137					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  4138					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  4139					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  4140					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  4141
  4142			006436		SN=SN+1
  4143		004000	000000			ZZ=ZZ+ZZ
  4144						IFE	ZZ,<ZZ=1>
  4145	032501	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  4146	032502	200 01 0 00 035130 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  4147									;WHERE X VARIES FROM 0 THRU 35
  4148	032503	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  4149	032504	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  4150						STOP^
  4151	032505	254 04 0 00 032506 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4152	032506	324 00 0 00 032507 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4153									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4154									;IN THE SUBTEST) TO LOOP ON ERROR^
  4155	032507	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  4156						STOP^
  4157	032510	254 04 0 00 032511 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4158	032511	324 00 0 00 032512 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4159									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4160									;IN THE SUBTEST) TO LOOP ON ERROR^
  4161					;**********
  4162
  4163					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  4164					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  4165					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  4166					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  4167					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 24-17
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0097

  4168					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  4169					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  4170
  4171			006437		SN=SN+1
  4172		010000	000000			ZZ=ZZ+ZZ
  4173						IFE	ZZ,<ZZ=1>
  4174	032512	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  4175	032513	200 01 0 00 035131 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  4176									;WHERE X VARIES FROM 0 THRU 35
  4177	032514	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  4178	032515	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  4179						STOP^
  4180	032516	254 04 0 00 032517 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4181	032517	324 00 0 00 032520 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4182									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4183									;IN THE SUBTEST) TO LOOP ON ERROR^
  4184	032520	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  4185						STOP^
  4186	032521	254 04 0 00 032522 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4187	032522	324 00 0 00 032523 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4188									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4189									;IN THE SUBTEST) TO LOOP ON ERROR^
  4190					;**********
  4191
  4192					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  4193					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  4194					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  4195					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  4196					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  4197					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  4198					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  4199
  4200			006440		SN=SN+1
  4201		020000	000000			ZZ=ZZ+ZZ
  4202						IFE	ZZ,<ZZ=1>
  4203	032523	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  4204	032524	200 01 0 00 035132 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  4205									;WHERE X VARIES FROM 0 THRU 35
  4206	032525	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  4207	032526	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  4208						STOP^
  4209	032527	254 04 0 00 032530 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4210	032530	324 00 0 00 032531 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4211									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4212									;IN THE SUBTEST) TO LOOP ON ERROR^
  4213	032531	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  4214						STOP^
  4215	032532	254 04 0 00 032533 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4216	032533	324 00 0 00 032534 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4217									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4218									;IN THE SUBTEST) TO LOOP ON ERROR^
  4219					;**********
  4220
  4221					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  4222					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 24-18
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0098

  4223					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  4224					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  4225					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  4226					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  4227					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  4228
  4229			006441		SN=SN+1
  4230		040000	000000			ZZ=ZZ+ZZ
  4231						IFE	ZZ,<ZZ=1>
  4232	032534	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  4233	032535	200 01 0 00 035133 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  4234									;WHERE X VARIES FROM 0 THRU 35
  4235	032536	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  4236	032537	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  4237						STOP^
  4238	032540	254 04 0 00 032541 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4239	032541	324 00 0 00 032542 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4240									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4241									;IN THE SUBTEST) TO LOOP ON ERROR^
  4242	032542	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  4243						STOP^
  4244	032543	254 04 0 00 032544 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4245	032544	324 00 0 00 032545 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4246									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4247									;IN THE SUBTEST) TO LOOP ON ERROR^
  4248					;**********
  4249
  4250					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  4251					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  4252					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  4253					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  4254					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  4255					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  4256					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  4257
  4258			006442		SN=SN+1
  4259		100000	000000			ZZ=ZZ+ZZ
  4260						IFE	ZZ,<ZZ=1>
  4261	032545	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  4262	032546	200 01 0 00 035134 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  4263									;WHERE X VARIES FROM 0 THRU 35
  4264	032547	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  4265	032550	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  4266						STOP^
  4267	032551	254 04 0 00 032552 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4268	032552	324 00 0 00 032553 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4269									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4270									;IN THE SUBTEST) TO LOOP ON ERROR^
  4271	032553	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  4272						STOP^
  4273	032554	254 04 0 00 032555 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4274	032555	324 00 0 00 032556 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4275									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4276									;IN THE SUBTEST) TO LOOP ON ERROR^
  4277					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 24-19
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0099

  4278
  4279					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  4280					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  4281					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  4282					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  4283					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  4284					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  4285					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  4286
  4287			006443		SN=SN+1
  4288		200000	000000			ZZ=ZZ+ZZ
  4289						IFE	ZZ,<ZZ=1>
  4290	032556	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  4291	032557	200 01 0 00 035135 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  4292									;WHERE X VARIES FROM 0 THRU 35
  4293	032560	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  4294	032561	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  4295						STOP^
  4296	032562	254 04 0 00 032563 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4297	032563	324 00 0 00 032564 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4298									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4299									;IN THE SUBTEST) TO LOOP ON ERROR^
  4300	032564	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  4301						STOP^
  4302	032565	254 04 0 00 032566 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4303	032566	324 00 0 00 032567 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4304									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4305									;IN THE SUBTEST) TO LOOP ON ERROR^
  4306					;**********
  4307
  4308					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  4309					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  4310					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  4311					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  4312					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  4313					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  4314					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  4315
  4316			006444		SN=SN+1
  4317		400000	000000			ZZ=ZZ+ZZ
  4318						IFE	ZZ,<ZZ=1>
  4319	032567	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  4320	032570	200 01 0 00 035065 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  4321									;WHERE X VARIES FROM 0 THRU 35
  4322	032571	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  4323	032572	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  4324						STOP^
  4325	032573	254 04 0 00 032574 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4326	032574	324 00 0 00 032575 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4327									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4328									;IN THE SUBTEST) TO LOOP ON ERROR^
  4329	032575	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  4330						STOP^
  4331	032576	254 04 0 00 032577 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4332	032577	324 00 0 00 032600 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 24-20
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0100

  4333									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4334									;IN THE SUBTEST) TO LOOP ON ERROR^
  4335					;**********
  4336
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 25
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0101

  4337			006500		SN=6500
  4338			000000			ZZ=0
  4339
  4340					A6500:	REPEAT	^D36,
  4341					<;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4342					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4343					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4344					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4345					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4346					SN=SN+1
  4347						ZZ=ZZ+ZZ
  4348						IFE	ZZ,<ZZ=1>
  4349						MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4350						AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4351									;POSITION WITH ITSELF SHOULD RESULT WITH
  4352									;C(AC) NONZERO
  4353						SKIPN			;PASS TEST IF C(AC) NONZERO
  4354						STOP
  4355					
  4356					;**********
  4357					>
  4358					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4359					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4360					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4361					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4362					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4363			006501		SN=SN+1
  4364			000000			ZZ=ZZ+ZZ
  4365			000001			IFE	ZZ,<ZZ=1>
  4366	032600	200 00 0 00 035074 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4367	032601	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4368									;POSITION WITH ITSELF SHOULD RESULT WITH
  4369									;C(AC) NONZERO
  4370	032602	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4371						STOP^
  4372	032603	254 04 0 00 032604 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4373	032604	324 00 0 00 032605 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4374									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4375									;IN THE SUBTEST) TO LOOP ON ERROR^
  4376
  4377					;**********
  4378
  4379					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4380					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4381					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4382					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4383					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4384			006502		SN=SN+1
  4385			000002			ZZ=ZZ+ZZ
  4386						IFE	ZZ,<ZZ=1>
  4387	032605	200 00 0 00 035075 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4388	032606	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4389									;POSITION WITH ITSELF SHOULD RESULT WITH
  4390									;C(AC) NONZERO
  4391	032607	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 25-1
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0102

  4392						STOP^
  4393	032610	254 04 0 00 032611 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4394	032611	324 00 0 00 032612 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4395									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4396									;IN THE SUBTEST) TO LOOP ON ERROR^
  4397
  4398					;**********
  4399
  4400					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4401					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4402					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4403					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4404					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4405			006503		SN=SN+1
  4406			000004			ZZ=ZZ+ZZ
  4407						IFE	ZZ,<ZZ=1>
  4408	032612	200 00 0 00 035076 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4409	032613	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4410									;POSITION WITH ITSELF SHOULD RESULT WITH
  4411									;C(AC) NONZERO
  4412	032614	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4413						STOP^
  4414	032615	254 04 0 00 032616 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4415	032616	324 00 0 00 032617 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4416									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4417									;IN THE SUBTEST) TO LOOP ON ERROR^
  4418
  4419					;**********
  4420
  4421					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4422					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4423					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4424					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4425					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4426			006504		SN=SN+1
  4427			000010			ZZ=ZZ+ZZ
  4428						IFE	ZZ,<ZZ=1>
  4429	032617	200 00 0 00 035077 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4430	032620	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4431									;POSITION WITH ITSELF SHOULD RESULT WITH
  4432									;C(AC) NONZERO
  4433	032621	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4434						STOP^
  4435	032622	254 04 0 00 032623 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4436	032623	324 00 0 00 032624 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4437									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4438									;IN THE SUBTEST) TO LOOP ON ERROR^
  4439
  4440					;**********
  4441
  4442					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4443					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4444					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4445					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4446					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 25-2
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0103

  4447			006505		SN=SN+1
  4448			000020			ZZ=ZZ+ZZ
  4449						IFE	ZZ,<ZZ=1>
  4450	032624	200 00 0 00 035100 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4451	032625	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4452									;POSITION WITH ITSELF SHOULD RESULT WITH
  4453									;C(AC) NONZERO
  4454	032626	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4455						STOP^
  4456	032627	254 04 0 00 032630 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4457	032630	324 00 0 00 032631 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4458									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4459									;IN THE SUBTEST) TO LOOP ON ERROR^
  4460
  4461					;**********
  4462
  4463					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4464					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4465					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4466					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4467					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4468			006506		SN=SN+1
  4469			000040			ZZ=ZZ+ZZ
  4470						IFE	ZZ,<ZZ=1>
  4471	032631	200 00 0 00 035101 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4472	032632	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4473									;POSITION WITH ITSELF SHOULD RESULT WITH
  4474									;C(AC) NONZERO
  4475	032633	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4476						STOP^
  4477	032634	254 04 0 00 032635 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4478	032635	324 00 0 00 032636 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4479									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4480									;IN THE SUBTEST) TO LOOP ON ERROR^
  4481
  4482					;**********
  4483
  4484					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4485					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4486					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4487					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4488					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4489			006507		SN=SN+1
  4490			000100			ZZ=ZZ+ZZ
  4491						IFE	ZZ,<ZZ=1>
  4492	032636	200 00 0 00 035102 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4493	032637	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4494									;POSITION WITH ITSELF SHOULD RESULT WITH
  4495									;C(AC) NONZERO
  4496	032640	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4497						STOP^
  4498	032641	254 04 0 00 032642 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4499	032642	324 00 0 00 032643 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4500									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4501									;IN THE SUBTEST) TO LOOP ON ERROR^
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 25-3
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0104

  4502
  4503					;**********
  4504
  4505					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4506					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4507					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4508					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4509					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4510			006510		SN=SN+1
  4511			000200			ZZ=ZZ+ZZ
  4512						IFE	ZZ,<ZZ=1>
  4513	032643	200 00 0 00 035103 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4514	032644	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4515									;POSITION WITH ITSELF SHOULD RESULT WITH
  4516									;C(AC) NONZERO
  4517	032645	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4518						STOP^
  4519	032646	254 04 0 00 032647 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4520	032647	324 00 0 00 032650 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4521									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4522									;IN THE SUBTEST) TO LOOP ON ERROR^
  4523
  4524					;**********
  4525
  4526					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4527					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4528					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4529					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4530					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4531			006511		SN=SN+1
  4532			000400			ZZ=ZZ+ZZ
  4533						IFE	ZZ,<ZZ=1>
  4534	032650	200 00 0 00 035104 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4535	032651	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4536									;POSITION WITH ITSELF SHOULD RESULT WITH
  4537									;C(AC) NONZERO
  4538	032652	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4539						STOP^
  4540	032653	254 04 0 00 032654 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4541	032654	324 00 0 00 032655 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4542									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4543									;IN THE SUBTEST) TO LOOP ON ERROR^
  4544
  4545					;**********
  4546
  4547					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4548					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4549					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4550					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4551					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4552			006512		SN=SN+1
  4553			001000			ZZ=ZZ+ZZ
  4554						IFE	ZZ,<ZZ=1>
  4555	032655	200 00 0 00 035105 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4556	032656	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 25-4
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0105

  4557									;POSITION WITH ITSELF SHOULD RESULT WITH
  4558									;C(AC) NONZERO
  4559	032657	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4560						STOP^
  4561	032660	254 04 0 00 032661 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4562	032661	324 00 0 00 032662 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4563									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4564									;IN THE SUBTEST) TO LOOP ON ERROR^
  4565
  4566					;**********
  4567
  4568					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4569					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4570					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4571					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4572					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4573			006513		SN=SN+1
  4574			002000			ZZ=ZZ+ZZ
  4575						IFE	ZZ,<ZZ=1>
  4576	032662	200 00 0 00 035106 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4577	032663	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4578									;POSITION WITH ITSELF SHOULD RESULT WITH
  4579									;C(AC) NONZERO
  4580	032664	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4581						STOP^
  4582	032665	254 04 0 00 032666 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4583	032666	324 00 0 00 032667 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4584									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4585									;IN THE SUBTEST) TO LOOP ON ERROR^
  4586
  4587					;**********
  4588
  4589					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4590					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4591					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4592					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4593					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4594			006514		SN=SN+1
  4595			004000			ZZ=ZZ+ZZ
  4596						IFE	ZZ,<ZZ=1>
  4597	032667	200 00 0 00 035107 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4598	032670	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4599									;POSITION WITH ITSELF SHOULD RESULT WITH
  4600									;C(AC) NONZERO
  4601	032671	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4602						STOP^
  4603	032672	254 04 0 00 032673 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4604	032673	324 00 0 00 032674 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4605									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4606									;IN THE SUBTEST) TO LOOP ON ERROR^
  4607
  4608					;**********
  4609
  4610					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4611					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 25-5
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0106

  4612					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4613					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4614					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4615			006515		SN=SN+1
  4616			010000			ZZ=ZZ+ZZ
  4617						IFE	ZZ,<ZZ=1>
  4618	032674	200 00 0 00 035110 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4619	032675	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4620									;POSITION WITH ITSELF SHOULD RESULT WITH
  4621									;C(AC) NONZERO
  4622	032676	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4623						STOP^
  4624	032677	254 04 0 00 032700 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4625	032700	324 00 0 00 032701 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4626									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4627									;IN THE SUBTEST) TO LOOP ON ERROR^
  4628
  4629					;**********
  4630
  4631					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4632					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4633					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4634					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4635					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4636			006516		SN=SN+1
  4637			020000			ZZ=ZZ+ZZ
  4638						IFE	ZZ,<ZZ=1>
  4639	032701	200 00 0 00 035111 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4640	032702	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4641									;POSITION WITH ITSELF SHOULD RESULT WITH
  4642									;C(AC) NONZERO
  4643	032703	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4644						STOP^
  4645	032704	254 04 0 00 032705 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4646	032705	324 00 0 00 032706 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4647									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4648									;IN THE SUBTEST) TO LOOP ON ERROR^
  4649
  4650					;**********
  4651
  4652					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4653					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4654					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4655					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4656					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4657			006517		SN=SN+1
  4658			040000			ZZ=ZZ+ZZ
  4659						IFE	ZZ,<ZZ=1>
  4660	032706	200 00 0 00 035112 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4661	032707	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4662									;POSITION WITH ITSELF SHOULD RESULT WITH
  4663									;C(AC) NONZERO
  4664	032710	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4665						STOP^
  4666	032711	254 04 0 00 032712 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 25-6
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0107

  4667	032712	324 00 0 00 032713 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4668									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4669									;IN THE SUBTEST) TO LOOP ON ERROR^
  4670
  4671					;**********
  4672
  4673					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4674					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4675					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4676					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4677					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4678			006520		SN=SN+1
  4679			100000			ZZ=ZZ+ZZ
  4680						IFE	ZZ,<ZZ=1>
  4681	032713	200 00 0 00 035113 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4682	032714	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4683									;POSITION WITH ITSELF SHOULD RESULT WITH
  4684									;C(AC) NONZERO
  4685	032715	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4686						STOP^
  4687	032716	254 04 0 00 032717 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4688	032717	324 00 0 00 032720 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4689									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4690									;IN THE SUBTEST) TO LOOP ON ERROR^
  4691
  4692					;**********
  4693
  4694					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4695					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4696					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4697					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4698					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4699			006521		SN=SN+1
  4700			200000			ZZ=ZZ+ZZ
  4701						IFE	ZZ,<ZZ=1>
  4702	032720	200 00 0 00 035114 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4703	032721	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4704									;POSITION WITH ITSELF SHOULD RESULT WITH
  4705									;C(AC) NONZERO
  4706	032722	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4707						STOP^
  4708	032723	254 04 0 00 032724 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4709	032724	324 00 0 00 032725 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4710									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4711									;IN THE SUBTEST) TO LOOP ON ERROR^
  4712
  4713					;**********
  4714
  4715					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4716					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4717					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4718					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4719					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4720			006522		SN=SN+1
  4721			400000			ZZ=ZZ+ZZ
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 25-7
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0108

  4722						IFE	ZZ,<ZZ=1>
  4723	032725	200 00 0 00 035115 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4724	032726	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4725									;POSITION WITH ITSELF SHOULD RESULT WITH
  4726									;C(AC) NONZERO
  4727	032727	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4728						STOP^
  4729	032730	254 04 0 00 032731 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4730	032731	324 00 0 00 032732 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4731									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4732									;IN THE SUBTEST) TO LOOP ON ERROR^
  4733
  4734					;**********
  4735
  4736					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4737					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4738					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4739					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4740					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4741			006523		SN=SN+1
  4742		000001	000000			ZZ=ZZ+ZZ
  4743						IFE	ZZ,<ZZ=1>
  4744	032732	200 00 0 00 035116 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4745	032733	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4746									;POSITION WITH ITSELF SHOULD RESULT WITH
  4747									;C(AC) NONZERO
  4748	032734	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4749						STOP^
  4750	032735	254 04 0 00 032736 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4751	032736	324 00 0 00 032737 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4752									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4753									;IN THE SUBTEST) TO LOOP ON ERROR^
  4754
  4755					;**********
  4756
  4757					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4758					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4759					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4760					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4761					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4762			006524		SN=SN+1
  4763		000002	000000			ZZ=ZZ+ZZ
  4764						IFE	ZZ,<ZZ=1>
  4765	032737	200 00 0 00 035117 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4766	032740	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4767									;POSITION WITH ITSELF SHOULD RESULT WITH
  4768									;C(AC) NONZERO
  4769	032741	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4770						STOP^
  4771	032742	254 04 0 00 032743 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4772	032743	324 00 0 00 032744 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4773									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4774									;IN THE SUBTEST) TO LOOP ON ERROR^
  4775
  4776					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 25-8
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0109

  4777
  4778					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4779					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4780					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4781					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4782					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4783			006525		SN=SN+1
  4784		000004	000000			ZZ=ZZ+ZZ
  4785						IFE	ZZ,<ZZ=1>
  4786	032744	200 00 0 00 035120 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4787	032745	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4788									;POSITION WITH ITSELF SHOULD RESULT WITH
  4789									;C(AC) NONZERO
  4790	032746	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4791						STOP^
  4792	032747	254 04 0 00 032750 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4793	032750	324 00 0 00 032751 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4794									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4795									;IN THE SUBTEST) TO LOOP ON ERROR^
  4796
  4797					;**********
  4798
  4799					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4800					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4801					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4802					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4803					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4804			006526		SN=SN+1
  4805		000010	000000			ZZ=ZZ+ZZ
  4806						IFE	ZZ,<ZZ=1>
  4807	032751	200 00 0 00 035121 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4808	032752	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4809									;POSITION WITH ITSELF SHOULD RESULT WITH
  4810									;C(AC) NONZERO
  4811	032753	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4812						STOP^
  4813	032754	254 04 0 00 032755 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4814	032755	324 00 0 00 032756 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4815									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4816									;IN THE SUBTEST) TO LOOP ON ERROR^
  4817
  4818					;**********
  4819
  4820					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4821					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4822					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4823					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4824					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4825			006527		SN=SN+1
  4826		000020	000000			ZZ=ZZ+ZZ
  4827						IFE	ZZ,<ZZ=1>
  4828	032756	200 00 0 00 035122 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4829	032757	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4830									;POSITION WITH ITSELF SHOULD RESULT WITH
  4831									;C(AC) NONZERO
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 25-9
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0110

  4832	032760	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4833						STOP^
  4834	032761	254 04 0 00 032762 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4835	032762	324 00 0 00 032763 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4836									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4837									;IN THE SUBTEST) TO LOOP ON ERROR^
  4838
  4839					;**********
  4840
  4841					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4842					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4843					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4844					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4845					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4846			006530		SN=SN+1
  4847		000040	000000			ZZ=ZZ+ZZ
  4848						IFE	ZZ,<ZZ=1>
  4849	032763	200 00 0 00 035123 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4850	032764	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4851									;POSITION WITH ITSELF SHOULD RESULT WITH
  4852									;C(AC) NONZERO
  4853	032765	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4854						STOP^
  4855	032766	254 04 0 00 032767 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4856	032767	324 00 0 00 032770 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4857									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4858									;IN THE SUBTEST) TO LOOP ON ERROR^
  4859
  4860					;**********
  4861
  4862					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4863					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4864					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4865					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4866					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4867			006531		SN=SN+1
  4868		000100	000000			ZZ=ZZ+ZZ
  4869						IFE	ZZ,<ZZ=1>
  4870	032770	200 00 0 00 035124 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4871	032771	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4872									;POSITION WITH ITSELF SHOULD RESULT WITH
  4873									;C(AC) NONZERO
  4874	032772	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4875						STOP^
  4876	032773	254 04 0 00 032774 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4877	032774	324 00 0 00 032775 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4878									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4879									;IN THE SUBTEST) TO LOOP ON ERROR^
  4880
  4881					;**********
  4882
  4883					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4884					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4885					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4886					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 25-10
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0111

  4887					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4888			006532		SN=SN+1
  4889		000200	000000			ZZ=ZZ+ZZ
  4890						IFE	ZZ,<ZZ=1>
  4891	032775	200 00 0 00 035125 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4892	032776	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4893									;POSITION WITH ITSELF SHOULD RESULT WITH
  4894									;C(AC) NONZERO
  4895	032777	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4896						STOP^
  4897	033000	254 04 0 00 033001 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4898	033001	324 00 0 00 033002 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4899									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4900									;IN THE SUBTEST) TO LOOP ON ERROR^
  4901
  4902					;**********
  4903
  4904					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4905					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4906					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4907					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4908					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4909			006533		SN=SN+1
  4910		000400	000000			ZZ=ZZ+ZZ
  4911						IFE	ZZ,<ZZ=1>
  4912	033002	200 00 0 00 035073 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4913	033003	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4914									;POSITION WITH ITSELF SHOULD RESULT WITH
  4915									;C(AC) NONZERO
  4916	033004	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4917						STOP^
  4918	033005	254 04 0 00 033006 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4919	033006	324 00 0 00 033007 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4920									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4921									;IN THE SUBTEST) TO LOOP ON ERROR^
  4922
  4923					;**********
  4924
  4925					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4926					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4927					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4928					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4929					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4930			006534		SN=SN+1
  4931		001000	000000			ZZ=ZZ+ZZ
  4932						IFE	ZZ,<ZZ=1>
  4933	033007	200 00 0 00 035126 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4934	033010	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4935									;POSITION WITH ITSELF SHOULD RESULT WITH
  4936									;C(AC) NONZERO
  4937	033011	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4938						STOP^
  4939	033012	254 04 0 00 033013 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4940	033013	324 00 0 00 033014 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4941									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 25-11
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0112

  4942									;IN THE SUBTEST) TO LOOP ON ERROR^
  4943
  4944					;**********
  4945
  4946					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4947					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4948					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4949					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4950					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4951			006535		SN=SN+1
  4952		002000	000000			ZZ=ZZ+ZZ
  4953						IFE	ZZ,<ZZ=1>
  4954	033014	200 00 0 00 035127 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4955	033015	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4956									;POSITION WITH ITSELF SHOULD RESULT WITH
  4957									;C(AC) NONZERO
  4958	033016	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4959						STOP^
  4960	033017	254 04 0 00 033020 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4961	033020	324 00 0 00 033021 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4962									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4963									;IN THE SUBTEST) TO LOOP ON ERROR^
  4964
  4965					;**********
  4966
  4967					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4968					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4969					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4970					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4971					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4972			006536		SN=SN+1
  4973		004000	000000			ZZ=ZZ+ZZ
  4974						IFE	ZZ,<ZZ=1>
  4975	033021	200 00 0 00 035130 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4976	033022	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4977									;POSITION WITH ITSELF SHOULD RESULT WITH
  4978									;C(AC) NONZERO
  4979	033023	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4980						STOP^
  4981	033024	254 04 0 00 033025 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4982	033025	324 00 0 00 033026 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4983									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4984									;IN THE SUBTEST) TO LOOP ON ERROR^
  4985
  4986					;**********
  4987
  4988					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4989					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4990					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4991					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4992					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4993			006537		SN=SN+1
  4994		010000	000000			ZZ=ZZ+ZZ
  4995						IFE	ZZ,<ZZ=1>
  4996	033026	200 00 0 00 035131 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 25-12
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0113

  4997	033027	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4998									;POSITION WITH ITSELF SHOULD RESULT WITH
  4999									;C(AC) NONZERO
  5000	033030	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  5001						STOP^
  5002	033031	254 04 0 00 033032 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5003	033032	324 00 0 00 033033 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5004									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5005									;IN THE SUBTEST) TO LOOP ON ERROR^
  5006
  5007					;**********
  5008
  5009					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  5010					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  5011					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  5012					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  5013					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  5014			006540		SN=SN+1
  5015		020000	000000			ZZ=ZZ+ZZ
  5016						IFE	ZZ,<ZZ=1>
  5017	033033	200 00 0 00 035132 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  5018	033034	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  5019									;POSITION WITH ITSELF SHOULD RESULT WITH
  5020									;C(AC) NONZERO
  5021	033035	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  5022						STOP^
  5023	033036	254 04 0 00 033037 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5024	033037	324 00 0 00 033040 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5025									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5026									;IN THE SUBTEST) TO LOOP ON ERROR^
  5027
  5028					;**********
  5029
  5030					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  5031					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  5032					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  5033					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  5034					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  5035			006541		SN=SN+1
  5036		040000	000000			ZZ=ZZ+ZZ
  5037						IFE	ZZ,<ZZ=1>
  5038	033040	200 00 0 00 035133 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  5039	033041	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  5040									;POSITION WITH ITSELF SHOULD RESULT WITH
  5041									;C(AC) NONZERO
  5042	033042	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  5043						STOP^
  5044	033043	254 04 0 00 033044 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5045	033044	324 00 0 00 033045 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5046									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5047									;IN THE SUBTEST) TO LOOP ON ERROR^
  5048
  5049					;**********
  5050
  5051					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 25-13
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0114

  5052					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  5053					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  5054					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  5055					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  5056			006542		SN=SN+1
  5057		100000	000000			ZZ=ZZ+ZZ
  5058						IFE	ZZ,<ZZ=1>
  5059	033045	200 00 0 00 035134 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  5060	033046	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  5061									;POSITION WITH ITSELF SHOULD RESULT WITH
  5062									;C(AC) NONZERO
  5063	033047	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  5064						STOP^
  5065	033050	254 04 0 00 033051 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5066	033051	324 00 0 00 033052 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5067									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5068									;IN THE SUBTEST) TO LOOP ON ERROR^
  5069
  5070					;**********
  5071
  5072					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  5073					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  5074					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  5075					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  5076					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  5077			006543		SN=SN+1
  5078		200000	000000			ZZ=ZZ+ZZ
  5079						IFE	ZZ,<ZZ=1>
  5080	033052	200 00 0 00 035135 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  5081	033053	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  5082									;POSITION WITH ITSELF SHOULD RESULT WITH
  5083									;C(AC) NONZERO
  5084	033054	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  5085						STOP^
  5086	033055	254 04 0 00 033056 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5087	033056	324 00 0 00 033057 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5088									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5089									;IN THE SUBTEST) TO LOOP ON ERROR^
  5090
  5091					;**********
  5092
  5093					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  5094					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  5095					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  5096					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  5097					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  5098			006544		SN=SN+1
  5099		400000	000000			ZZ=ZZ+ZZ
  5100						IFE	ZZ,<ZZ=1>
  5101	033057	200 00 0 00 035065 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  5102	033060	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  5103									;POSITION WITH ITSELF SHOULD RESULT WITH
  5104									;C(AC) NONZERO
  5105	033061	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  5106						STOP^
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 25-14
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0115

  5107	033062	254 04 0 00 033063 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5108	033063	324 00 0 00 033064 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5109									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5110									;IN THE SUBTEST) TO LOOP ON ERROR^
  5111
  5112					;**********
  5113
  5114					;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE
  5115					;C(AC)=0 AND C(E)=0 AND E OUTSIDE OF THE AC RANGE IS ALL ZEROS IN THE AC.
  5116					;FIRST, THE AC IS CLEARED; THEN, THE C(AC) IS ANDED WITH C(E) WHEN
  5117					;E GREATER THAN 20 AND C(E)=0. THE RESULT SHOULD BE C(AC)=0.
  5118					;IF C(AC) IS NON-ZERO, 'AND' FAILED WITH THE MEMORY OPERAND.
  5119
  5120	033064	200 00 0 00 035062 	A6600:	MOVE	[0]		;PRESET AC TO ALL ZEROS
  5121	033065	404 00 0 00 035062 		AND	[0]		;*AND OF TWO WORDS OF ALL ZEROS
  5122									;SHOULD RESULT IN C(AC)=0
  5123	033066	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5124						STOP^
  5125	033067	254 04 0 00 033070 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5126	033070	324 00 0 00 033071 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5127									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5128									;IN THE SUBTEST) TO LOOP ON ERROR^
  5129
  5130					;**********
  5131
  5132					;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE C(AC)=0
  5133					;AND C(E) IS ALL ONES IS AN AC CONTAINING ALL ZEROS.  FIRST, THE AC IS
  5134					;CLEARED; THEN THE C(AC) IS ANDED WITH AN E CONTAINING ALL ONES, WHERE
  5135					;E IS BEYOND THE AC RANGE.  THE RESULT SHOULD BE C(AC)=0.
  5136					;IF C(AC) IS NON-ZERO, 'AND' FAILED WITH THE MEMORY OPERAND.
  5137
  5138	033071	200 00 0 00 035062 	A6700:	MOVE	[0]		;PRESET AC TO ALL ZEROS
  5139	033072	404 00 0 00 035063 		AND	[-1]		;*AND OF TWO WORDS WHERE C(AC)=0 SHOULD RESULT IN C(AC)=0
  5140	033073	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5141						STOP^
  5142	033074	254 04 0 00 033075 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5143	033075	324 00 0 00 033076 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5144									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5145									;IN THE SUBTEST) TO LOOP ON ERROR^
  5146
  5147					;AD FM+EN [ADFP],AD FM+EN A [ADFP],
  5148					;F CYC ACT EN C [F1],IR BOOLE AD FM+F [IR2],
  5149					;IR BOOLE [IR1],IRXX(1,4,5,11,13,16) [IR2]
  5150
  5151					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 26
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0116

  5152					;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE C(E)=0
  5153					;AND C(AC) IS ALL ONES IS AN AC CONTAINING ALL ZEROS. FIRST, THE
  5154					;AC IS SET TO ALL ONES; THEN, THE AC IS ANDED WITH AN E CONTAINING ALL
  5155					;ZEROS, WHERE E IS BEYOND THE AC RANGE.  THE RESULT SHOULD BE C(AC)=0.
  5156					;IF C(AC) IS NON-ZERO, 'AND' FAILED WITH THE MEMORY OPERAND.
  5157
  5158	033076	200 00 0 00 035063 	A7000:	MOVE	[-1]		;PRESET AC TO ALL ONES
  5159	033077	404 00 0 00 035062 		AND	[0]		;*AND OF TWO WORDS WHERE C(E)=0 SHOULD RESULT IN C(AC)=0
  5160	033100	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5161						STOP^
  5162	033101	254 04 0 00 033102 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5163	033102	324 00 0 00 033103 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5164									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5165									;IN THE SUBTEST) TO LOOP ON ERROR^
  5166
  5167					;**********
  5168
  5169					;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE C(E) IS
  5170					;ALL ONES AND C(AC) IS ALL ONES IS AN AC CONTAINING ALL ONES.  FIRST, THE
  5171					;AC IS SET TO ALL ONES; THEN, C(AC) IS ANDED WITH AN E CONTAINING ALL
  5172					;ONES.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5173					;IF C(AC) IS ZERO, 'AND' FAILED WITH THE MEMORY OPERAND.
  5174
  5175	033103	200 00 0 00 035063 	A7100:	MOVE	[-1]		;PRELOAD AC WITH ALL ONES
  5176	033104	404 00 0 00 035063 		AND	[-1]		;*AND OF TWO WORDS OF ALL ONES SHOULD
  5177									;RESULT IN C(AC)=ALL ONES
  5178	033105	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) IS NON ZERO
  5179						STOP^
  5180	033106	254 04 0 00 033107 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5181	033107	324 00 0 00 033110 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5182									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5183									;IN THE SUBTEST) TO LOOP ON ERROR^
  5184
  5185					;**********
  5186
  5187					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 
  5188					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHERE CONTENTS IS NON-ZERO.
  5189					;FIRST, THE AC IS CLEARED, THEN, XOR IS EXECUTED WHERE C(E) IS NON-ZERO.
  5190					;THE AC IS THEN CHECKED FOR NON-ZERO CONTENTS.
  5191	033110	200 00 0 00 035062 	A7200:	MOVE	[0]		;CLEAR AC
  5192	033111	430 00 0 00 035141 		XOR	[707070707070]	;*XOR WITH C(AC)=0 AND C(E)=7070707070 SHOULD
  5193									;RESTULT IN C(AC)=707070707070
  5194	033112	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5195						STOP^
  5196	033113	254 04 0 00 033114 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5197	033114	324 00 0 00 033115 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5198									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5199									;IN THE SUBTEST) TO LOOP ON ERROR^
  5200
  5201					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0117

  5202			007300		SN=7300
  5203			000000			ZZ=0
  5204
  5205					A7300:	REPEAT	^D36,
  5206					<;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5207					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5208					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5209					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5210					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5211					SN=SN+1
  5212						ZZ=ZZ+ZZ
  5213						IFE	ZZ,<ZZ=1>
  5214						MOVE	[0]		;CLEAR AC
  5215						XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5216									;RESULT IN C(AC) NONZERO
  5217						SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5218						STOP
  5219					
  5220					;**********
  5221					>
  5222					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5223					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5224					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5225					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5226					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5227			007301		SN=SN+1
  5228			000000			ZZ=ZZ+ZZ
  5229			000001			IFE	ZZ,<ZZ=1>
  5230	033115	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5231	033116	430 00 0 00 035074 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5232									;RESULT IN C(AC) NONZERO
  5233	033117	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5234						STOP^
  5235	033120	254 04 0 00 033121 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5236	033121	324 00 0 00 033122 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5237									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5238									;IN THE SUBTEST) TO LOOP ON ERROR^
  5239
  5240					;**********
  5241
  5242					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5243					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5244					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5245					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5246					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5247			007302		SN=SN+1
  5248			000002			ZZ=ZZ+ZZ
  5249						IFE	ZZ,<ZZ=1>
  5250	033122	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5251	033123	430 00 0 00 035075 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5252									;RESULT IN C(AC) NONZERO
  5253	033124	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5254						STOP^
  5255	033125	254 04 0 00 033126 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5256	033126	324 00 0 00 033127 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-1
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0118

  5257									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5258									;IN THE SUBTEST) TO LOOP ON ERROR^
  5259
  5260					;**********
  5261
  5262					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5263					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5264					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5265					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5266					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5267			007303		SN=SN+1
  5268			000004			ZZ=ZZ+ZZ
  5269						IFE	ZZ,<ZZ=1>
  5270	033127	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5271	033130	430 00 0 00 035076 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5272									;RESULT IN C(AC) NONZERO
  5273	033131	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5274						STOP^
  5275	033132	254 04 0 00 033133 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5276	033133	324 00 0 00 033134 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5277									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5278									;IN THE SUBTEST) TO LOOP ON ERROR^
  5279
  5280					;**********
  5281
  5282					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5283					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5284					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5285					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5286					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5287			007304		SN=SN+1
  5288			000010			ZZ=ZZ+ZZ
  5289						IFE	ZZ,<ZZ=1>
  5290	033134	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5291	033135	430 00 0 00 035077 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5292									;RESULT IN C(AC) NONZERO
  5293	033136	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5294						STOP^
  5295	033137	254 04 0 00 033140 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5296	033140	324 00 0 00 033141 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5297									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5298									;IN THE SUBTEST) TO LOOP ON ERROR^
  5299
  5300					;**********
  5301
  5302					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5303					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5304					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5305					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5306					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5307			007305		SN=SN+1
  5308			000020			ZZ=ZZ+ZZ
  5309						IFE	ZZ,<ZZ=1>
  5310	033141	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5311	033142	430 00 0 00 035100 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-2
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0119

  5312									;RESULT IN C(AC) NONZERO
  5313	033143	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5314						STOP^
  5315	033144	254 04 0 00 033145 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5316	033145	324 00 0 00 033146 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5317									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5318									;IN THE SUBTEST) TO LOOP ON ERROR^
  5319
  5320					;**********
  5321
  5322					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5323					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5324					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5325					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5326					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5327			007306		SN=SN+1
  5328			000040			ZZ=ZZ+ZZ
  5329						IFE	ZZ,<ZZ=1>
  5330	033146	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5331	033147	430 00 0 00 035101 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5332									;RESULT IN C(AC) NONZERO
  5333	033150	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5334						STOP^
  5335	033151	254 04 0 00 033152 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5336	033152	324 00 0 00 033153 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5337									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5338									;IN THE SUBTEST) TO LOOP ON ERROR^
  5339
  5340					;**********
  5341
  5342					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5343					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5344					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5345					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5346					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5347			007307		SN=SN+1
  5348			000100			ZZ=ZZ+ZZ
  5349						IFE	ZZ,<ZZ=1>
  5350	033153	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5351	033154	430 00 0 00 035102 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5352									;RESULT IN C(AC) NONZERO
  5353	033155	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5354						STOP^
  5355	033156	254 04 0 00 033157 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5356	033157	324 00 0 00 033160 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5357									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5358									;IN THE SUBTEST) TO LOOP ON ERROR^
  5359
  5360					;**********
  5361
  5362					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5363					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5364					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5365					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5366					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-3
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0120

  5367			007310		SN=SN+1
  5368			000200			ZZ=ZZ+ZZ
  5369						IFE	ZZ,<ZZ=1>
  5370	033160	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5371	033161	430 00 0 00 035103 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5372									;RESULT IN C(AC) NONZERO
  5373	033162	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5374						STOP^
  5375	033163	254 04 0 00 033164 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5376	033164	324 00 0 00 033165 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5377									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5378									;IN THE SUBTEST) TO LOOP ON ERROR^
  5379
  5380					;**********
  5381
  5382					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5383					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5384					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5385					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5386					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5387			007311		SN=SN+1
  5388			000400			ZZ=ZZ+ZZ
  5389						IFE	ZZ,<ZZ=1>
  5390	033165	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5391	033166	430 00 0 00 035104 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5392									;RESULT IN C(AC) NONZERO
  5393	033167	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5394						STOP^
  5395	033170	254 04 0 00 033171 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5396	033171	324 00 0 00 033172 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5397									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5398									;IN THE SUBTEST) TO LOOP ON ERROR^
  5399
  5400					;**********
  5401
  5402					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5403					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5404					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5405					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5406					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5407			007312		SN=SN+1
  5408			001000			ZZ=ZZ+ZZ
  5409						IFE	ZZ,<ZZ=1>
  5410	033172	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5411	033173	430 00 0 00 035105 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5412									;RESULT IN C(AC) NONZERO
  5413	033174	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5414						STOP^
  5415	033175	254 04 0 00 033176 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5416	033176	324 00 0 00 033177 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5417									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5418									;IN THE SUBTEST) TO LOOP ON ERROR^
  5419
  5420					;**********
  5421
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-4
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0121

  5422					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5423					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5424					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5425					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5426					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5427			007313		SN=SN+1
  5428			002000			ZZ=ZZ+ZZ
  5429						IFE	ZZ,<ZZ=1>
  5430	033177	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5431	033200	430 00 0 00 035106 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5432									;RESULT IN C(AC) NONZERO
  5433	033201	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5434						STOP^
  5435	033202	254 04 0 00 033203 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5436	033203	324 00 0 00 033204 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5437									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5438									;IN THE SUBTEST) TO LOOP ON ERROR^
  5439
  5440					;**********
  5441
  5442					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5443					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5444					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5445					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5446					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5447			007314		SN=SN+1
  5448			004000			ZZ=ZZ+ZZ
  5449						IFE	ZZ,<ZZ=1>
  5450	033204	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5451	033205	430 00 0 00 035107 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5452									;RESULT IN C(AC) NONZERO
  5453	033206	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5454						STOP^
  5455	033207	254 04 0 00 033210 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5456	033210	324 00 0 00 033211 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5457									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5458									;IN THE SUBTEST) TO LOOP ON ERROR^
  5459
  5460					;**********
  5461
  5462					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5463					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5464					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5465					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5466					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5467			007315		SN=SN+1
  5468			010000			ZZ=ZZ+ZZ
  5469						IFE	ZZ,<ZZ=1>
  5470	033211	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5471	033212	430 00 0 00 035110 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5472									;RESULT IN C(AC) NONZERO
  5473	033213	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5474						STOP^
  5475	033214	254 04 0 00 033215 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5476	033215	324 00 0 00 033216 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-5
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0122

  5477									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5478									;IN THE SUBTEST) TO LOOP ON ERROR^
  5479
  5480					;**********
  5481
  5482					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5483					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5484					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5485					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5486					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5487			007316		SN=SN+1
  5488			020000			ZZ=ZZ+ZZ
  5489						IFE	ZZ,<ZZ=1>
  5490	033216	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5491	033217	430 00 0 00 035111 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5492									;RESULT IN C(AC) NONZERO
  5493	033220	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5494						STOP^
  5495	033221	254 04 0 00 033222 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5496	033222	324 00 0 00 033223 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5497									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5498									;IN THE SUBTEST) TO LOOP ON ERROR^
  5499
  5500					;**********
  5501
  5502					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5503					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5504					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5505					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5506					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5507			007317		SN=SN+1
  5508			040000			ZZ=ZZ+ZZ
  5509						IFE	ZZ,<ZZ=1>
  5510	033223	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5511	033224	430 00 0 00 035112 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5512									;RESULT IN C(AC) NONZERO
  5513	033225	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5514						STOP^
  5515	033226	254 04 0 00 033227 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5516	033227	324 00 0 00 033230 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5517									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5518									;IN THE SUBTEST) TO LOOP ON ERROR^
  5519
  5520					;**********
  5521
  5522					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5523					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5524					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5525					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5526					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5527			007320		SN=SN+1
  5528			100000			ZZ=ZZ+ZZ
  5529						IFE	ZZ,<ZZ=1>
  5530	033230	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5531	033231	430 00 0 00 035113 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-6
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0123

  5532									;RESULT IN C(AC) NONZERO
  5533	033232	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5534						STOP^
  5535	033233	254 04 0 00 033234 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5536	033234	324 00 0 00 033235 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5537									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5538									;IN THE SUBTEST) TO LOOP ON ERROR^
  5539
  5540					;**********
  5541
  5542					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5543					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5544					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5545					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5546					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5547			007321		SN=SN+1
  5548			200000			ZZ=ZZ+ZZ
  5549						IFE	ZZ,<ZZ=1>
  5550	033235	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5551	033236	430 00 0 00 035114 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5552									;RESULT IN C(AC) NONZERO
  5553	033237	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5554						STOP^
  5555	033240	254 04 0 00 033241 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5556	033241	324 00 0 00 033242 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5557									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5558									;IN THE SUBTEST) TO LOOP ON ERROR^
  5559
  5560					;**********
  5561
  5562					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5563					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5564					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5565					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5566					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5567			007322		SN=SN+1
  5568			400000			ZZ=ZZ+ZZ
  5569						IFE	ZZ,<ZZ=1>
  5570	033242	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5571	033243	430 00 0 00 035115 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5572									;RESULT IN C(AC) NONZERO
  5573	033244	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5574						STOP^
  5575	033245	254 04 0 00 033246 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5576	033246	324 00 0 00 033247 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5577									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5578									;IN THE SUBTEST) TO LOOP ON ERROR^
  5579
  5580					;**********
  5581
  5582					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5583					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5584					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5585					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5586					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-7
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0124

  5587			007323		SN=SN+1
  5588		000001	000000			ZZ=ZZ+ZZ
  5589						IFE	ZZ,<ZZ=1>
  5590	033247	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5591	033250	430 00 0 00 035116 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5592									;RESULT IN C(AC) NONZERO
  5593	033251	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5594						STOP^
  5595	033252	254 04 0 00 033253 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5596	033253	324 00 0 00 033254 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5597									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5598									;IN THE SUBTEST) TO LOOP ON ERROR^
  5599
  5600					;**********
  5601
  5602					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5603					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5604					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5605					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5606					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5607			007324		SN=SN+1
  5608		000002	000000			ZZ=ZZ+ZZ
  5609						IFE	ZZ,<ZZ=1>
  5610	033254	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5611	033255	430 00 0 00 035117 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5612									;RESULT IN C(AC) NONZERO
  5613	033256	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5614						STOP^
  5615	033257	254 04 0 00 033260 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5616	033260	324 00 0 00 033261 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5617									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5618									;IN THE SUBTEST) TO LOOP ON ERROR^
  5619
  5620					;**********
  5621
  5622					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5623					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5624					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5625					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5626					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5627			007325		SN=SN+1
  5628		000004	000000			ZZ=ZZ+ZZ
  5629						IFE	ZZ,<ZZ=1>
  5630	033261	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5631	033262	430 00 0 00 035120 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5632									;RESULT IN C(AC) NONZERO
  5633	033263	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5634						STOP^
  5635	033264	254 04 0 00 033265 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5636	033265	324 00 0 00 033266 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5637									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5638									;IN THE SUBTEST) TO LOOP ON ERROR^
  5639
  5640					;**********
  5641
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-8
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0125

  5642					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5643					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5644					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5645					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5646					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5647			007326		SN=SN+1
  5648		000010	000000			ZZ=ZZ+ZZ
  5649						IFE	ZZ,<ZZ=1>
  5650	033266	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5651	033267	430 00 0 00 035121 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5652									;RESULT IN C(AC) NONZERO
  5653	033270	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5654						STOP^
  5655	033271	254 04 0 00 033272 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5656	033272	324 00 0 00 033273 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5657									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5658									;IN THE SUBTEST) TO LOOP ON ERROR^
  5659
  5660					;**********
  5661
  5662					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5663					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5664					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5665					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5666					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5667			007327		SN=SN+1
  5668		000020	000000			ZZ=ZZ+ZZ
  5669						IFE	ZZ,<ZZ=1>
  5670	033273	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5671	033274	430 00 0 00 035122 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5672									;RESULT IN C(AC) NONZERO
  5673	033275	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5674						STOP^
  5675	033276	254 04 0 00 033277 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5676	033277	324 00 0 00 033300 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5677									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5678									;IN THE SUBTEST) TO LOOP ON ERROR^
  5679
  5680					;**********
  5681
  5682					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5683					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5684					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5685					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5686					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5687			007330		SN=SN+1
  5688		000040	000000			ZZ=ZZ+ZZ
  5689						IFE	ZZ,<ZZ=1>
  5690	033300	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5691	033301	430 00 0 00 035123 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5692									;RESULT IN C(AC) NONZERO
  5693	033302	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5694						STOP^
  5695	033303	254 04 0 00 033304 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5696	033304	324 00 0 00 033305 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-9
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0126

  5697									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5698									;IN THE SUBTEST) TO LOOP ON ERROR^
  5699
  5700					;**********
  5701
  5702					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5703					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5704					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5705					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5706					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5707			007331		SN=SN+1
  5708		000100	000000			ZZ=ZZ+ZZ
  5709						IFE	ZZ,<ZZ=1>
  5710	033305	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5711	033306	430 00 0 00 035124 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5712									;RESULT IN C(AC) NONZERO
  5713	033307	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5714						STOP^
  5715	033310	254 04 0 00 033311 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5716	033311	324 00 0 00 033312 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5717									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5718									;IN THE SUBTEST) TO LOOP ON ERROR^
  5719
  5720					;**********
  5721
  5722					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5723					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5724					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5725					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5726					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5727			007332		SN=SN+1
  5728		000200	000000			ZZ=ZZ+ZZ
  5729						IFE	ZZ,<ZZ=1>
  5730	033312	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5731	033313	430 00 0 00 035125 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5732									;RESULT IN C(AC) NONZERO
  5733	033314	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5734						STOP^
  5735	033315	254 04 0 00 033316 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5736	033316	324 00 0 00 033317 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5737									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5738									;IN THE SUBTEST) TO LOOP ON ERROR^
  5739
  5740					;**********
  5741
  5742					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5743					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5744					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5745					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5746					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5747			007333		SN=SN+1
  5748		000400	000000			ZZ=ZZ+ZZ
  5749						IFE	ZZ,<ZZ=1>
  5750	033317	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5751	033320	430 00 0 00 035073 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-10
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0127

  5752									;RESULT IN C(AC) NONZERO
  5753	033321	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5754						STOP^
  5755	033322	254 04 0 00 033323 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5756	033323	324 00 0 00 033324 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5757									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5758									;IN THE SUBTEST) TO LOOP ON ERROR^
  5759
  5760					;**********
  5761
  5762					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5763					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5764					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5765					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5766					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5767			007334		SN=SN+1
  5768		001000	000000			ZZ=ZZ+ZZ
  5769						IFE	ZZ,<ZZ=1>
  5770	033324	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5771	033325	430 00 0 00 035126 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5772									;RESULT IN C(AC) NONZERO
  5773	033326	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5774						STOP^
  5775	033327	254 04 0 00 033330 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5776	033330	324 00 0 00 033331 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5777									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5778									;IN THE SUBTEST) TO LOOP ON ERROR^
  5779
  5780					;**********
  5781
  5782					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5783					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5784					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5785					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5786					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5787			007335		SN=SN+1
  5788		002000	000000			ZZ=ZZ+ZZ
  5789						IFE	ZZ,<ZZ=1>
  5790	033331	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5791	033332	430 00 0 00 035127 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5792									;RESULT IN C(AC) NONZERO
  5793	033333	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5794						STOP^
  5795	033334	254 04 0 00 033335 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5796	033335	324 00 0 00 033336 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5797									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5798									;IN THE SUBTEST) TO LOOP ON ERROR^
  5799
  5800					;**********
  5801
  5802					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5803					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5804					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5805					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5806					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-11
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0128

  5807			007336		SN=SN+1
  5808		004000	000000			ZZ=ZZ+ZZ
  5809						IFE	ZZ,<ZZ=1>
  5810	033336	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5811	033337	430 00 0 00 035130 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5812									;RESULT IN C(AC) NONZERO
  5813	033340	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5814						STOP^
  5815	033341	254 04 0 00 033342 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5816	033342	324 00 0 00 033343 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5817									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5818									;IN THE SUBTEST) TO LOOP ON ERROR^
  5819
  5820					;**********
  5821
  5822					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5823					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5824					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5825					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5826					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5827			007337		SN=SN+1
  5828		010000	000000			ZZ=ZZ+ZZ
  5829						IFE	ZZ,<ZZ=1>
  5830	033343	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5831	033344	430 00 0 00 035131 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5832									;RESULT IN C(AC) NONZERO
  5833	033345	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5834						STOP^
  5835	033346	254 04 0 00 033347 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5836	033347	324 00 0 00 033350 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5837									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5838									;IN THE SUBTEST) TO LOOP ON ERROR^
  5839
  5840					;**********
  5841
  5842					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5843					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5844					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5845					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5846					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5847			007340		SN=SN+1
  5848		020000	000000			ZZ=ZZ+ZZ
  5849						IFE	ZZ,<ZZ=1>
  5850	033350	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5851	033351	430 00 0 00 035132 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5852									;RESULT IN C(AC) NONZERO
  5853	033352	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5854						STOP^
  5855	033353	254 04 0 00 033354 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5856	033354	324 00 0 00 033355 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5857									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5858									;IN THE SUBTEST) TO LOOP ON ERROR^
  5859
  5860					;**********
  5861
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-12
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0129

  5862					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5863					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5864					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5865					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5866					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5867			007341		SN=SN+1
  5868		040000	000000			ZZ=ZZ+ZZ
  5869						IFE	ZZ,<ZZ=1>
  5870	033355	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5871	033356	430 00 0 00 035133 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5872									;RESULT IN C(AC) NONZERO
  5873	033357	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5874						STOP^
  5875	033360	254 04 0 00 033361 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5876	033361	324 00 0 00 033362 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5877									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5878									;IN THE SUBTEST) TO LOOP ON ERROR^
  5879
  5880					;**********
  5881
  5882					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5883					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5884					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5885					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5886					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5887			007342		SN=SN+1
  5888		100000	000000			ZZ=ZZ+ZZ
  5889						IFE	ZZ,<ZZ=1>
  5890	033362	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5891	033363	430 00 0 00 035134 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5892									;RESULT IN C(AC) NONZERO
  5893	033364	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5894						STOP^
  5895	033365	254 04 0 00 033366 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5896	033366	324 00 0 00 033367 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5897									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5898									;IN THE SUBTEST) TO LOOP ON ERROR^
  5899
  5900					;**********
  5901
  5902					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5903					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5904					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5905					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5906					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5907			007343		SN=SN+1
  5908		200000	000000			ZZ=ZZ+ZZ
  5909						IFE	ZZ,<ZZ=1>
  5910	033367	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5911	033370	430 00 0 00 035135 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5912									;RESULT IN C(AC) NONZERO
  5913	033371	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5914						STOP^
  5915	033372	254 04 0 00 033373 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5916	033373	324 00 0 00 033374 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-13
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0130

  5917									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5918									;IN THE SUBTEST) TO LOOP ON ERROR^
  5919
  5920					;**********
  5921
  5922					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5923					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5924					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5925					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5926					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5927			007344		SN=SN+1
  5928		400000	000000			ZZ=ZZ+ZZ
  5929						IFE	ZZ,<ZZ=1>
  5930	033374	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5931	033375	430 00 0 00 035065 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5932									;RESULT IN C(AC) NONZERO
  5933	033376	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5934						STOP^
  5935	033377	254 04 0 00 033400 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5936	033400	324 00 0 00 033401 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5937									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5938									;IN THE SUBTEST) TO LOOP ON ERROR^
  5939
  5940					;**********
  5941
  5942			007400		SN=7400
  5943			000000			ZZ=0
  5944
  5945					A7400:	REPEAT	^D36,
  5946					<;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5947					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5948					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5949					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5950					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5951					SN=SN+1
  5952						ZZ=ZZ+ZZ
  5953						IFE	ZZ,<ZZ=1>
  5954						MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5955						XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5956									;RESULT IN C(AC) NON-ZERO
  5957						SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5958						STOP
  5959					
  5960					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5961					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5962					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5963					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5964					
  5965					;**********
  5966					>
  5967					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5968					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5969					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5970					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5971					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-14
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0131

  5972			007401		SN=SN+1
  5973			000000			ZZ=ZZ+ZZ
  5974			000001			IFE	ZZ,<ZZ=1>
  5975	033401	200 00 0 00 035074 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5976	033402	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5977									;RESULT IN C(AC) NON-ZERO
  5978	033403	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5979						STOP^
  5980	033404	254 04 0 00 033405 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5981	033405	324 00 0 00 033406 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5982									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5983									;IN THE SUBTEST) TO LOOP ON ERROR^
  5984
  5985					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5986					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5987					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5988					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5989
  5990					;**********
  5991
  5992					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5993					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5994					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5995					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5996					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5997			007402		SN=SN+1
  5998			000002			ZZ=ZZ+ZZ
  5999						IFE	ZZ,<ZZ=1>
  6000	033406	200 00 0 00 035075 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6001	033407	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6002									;RESULT IN C(AC) NON-ZERO
  6003	033410	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6004						STOP^
  6005	033411	254 04 0 00 033412 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6006	033412	324 00 0 00 033413 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6007									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6008									;IN THE SUBTEST) TO LOOP ON ERROR^
  6009
  6010					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6011					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6012					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6013					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6014
  6015					;**********
  6016
  6017					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6018					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6019					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6020					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6021					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6022			007403		SN=SN+1
  6023			000004			ZZ=ZZ+ZZ
  6024						IFE	ZZ,<ZZ=1>
  6025	033413	200 00 0 00 035076 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6026	033414	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-15
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0132

  6027									;RESULT IN C(AC) NON-ZERO
  6028	033415	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6029						STOP^
  6030	033416	254 04 0 00 033417 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6031	033417	324 00 0 00 033420 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6032									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6033									;IN THE SUBTEST) TO LOOP ON ERROR^
  6034
  6035					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6036					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6037					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6038					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6039
  6040					;**********
  6041
  6042					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6043					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6044					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6045					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6046					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6047			007404		SN=SN+1
  6048			000010			ZZ=ZZ+ZZ
  6049						IFE	ZZ,<ZZ=1>
  6050	033420	200 00 0 00 035077 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6051	033421	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6052									;RESULT IN C(AC) NON-ZERO
  6053	033422	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6054						STOP^
  6055	033423	254 04 0 00 033424 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6056	033424	324 00 0 00 033425 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6057									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6058									;IN THE SUBTEST) TO LOOP ON ERROR^
  6059
  6060					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6061					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6062					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6063					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6064
  6065					;**********
  6066
  6067					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6068					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6069					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6070					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6071					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6072			007405		SN=SN+1
  6073			000020			ZZ=ZZ+ZZ
  6074						IFE	ZZ,<ZZ=1>
  6075	033425	200 00 0 00 035100 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6076	033426	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6077									;RESULT IN C(AC) NON-ZERO
  6078	033427	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6079						STOP^
  6080	033430	254 04 0 00 033431 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6081	033431	324 00 0 00 033432 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-16
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0133

  6082									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6083									;IN THE SUBTEST) TO LOOP ON ERROR^
  6084
  6085					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6086					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6087					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6088					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6089
  6090					;**********
  6091
  6092					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6093					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6094					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6095					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6096					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6097			007406		SN=SN+1
  6098			000040			ZZ=ZZ+ZZ
  6099						IFE	ZZ,<ZZ=1>
  6100	033432	200 00 0 00 035101 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6101	033433	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6102									;RESULT IN C(AC) NON-ZERO
  6103	033434	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6104						STOP^
  6105	033435	254 04 0 00 033436 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6106	033436	324 00 0 00 033437 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6107									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6108									;IN THE SUBTEST) TO LOOP ON ERROR^
  6109
  6110					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6111					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6112					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6113					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6114
  6115					;**********
  6116
  6117					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6118					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6119					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6120					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6121					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6122			007407		SN=SN+1
  6123			000100			ZZ=ZZ+ZZ
  6124						IFE	ZZ,<ZZ=1>
  6125	033437	200 00 0 00 035102 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6126	033440	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6127									;RESULT IN C(AC) NON-ZERO
  6128	033441	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6129						STOP^
  6130	033442	254 04 0 00 033443 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6131	033443	324 00 0 00 033444 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6132									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6133									;IN THE SUBTEST) TO LOOP ON ERROR^
  6134
  6135					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6136					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-17
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0134

  6137					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6138					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6139
  6140					;**********
  6141
  6142					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6143					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6144					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6145					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6146					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6147			007410		SN=SN+1
  6148			000200			ZZ=ZZ+ZZ
  6149						IFE	ZZ,<ZZ=1>
  6150	033444	200 00 0 00 035103 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6151	033445	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6152									;RESULT IN C(AC) NON-ZERO
  6153	033446	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6154						STOP^
  6155	033447	254 04 0 00 033450 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6156	033450	324 00 0 00 033451 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6157									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6158									;IN THE SUBTEST) TO LOOP ON ERROR^
  6159
  6160					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6161					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6162					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6163					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6164
  6165					;**********
  6166
  6167					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6168					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6169					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6170					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6171					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6172			007411		SN=SN+1
  6173			000400			ZZ=ZZ+ZZ
  6174						IFE	ZZ,<ZZ=1>
  6175	033451	200 00 0 00 035104 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6176	033452	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6177									;RESULT IN C(AC) NON-ZERO
  6178	033453	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6179						STOP^
  6180	033454	254 04 0 00 033455 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6181	033455	324 00 0 00 033456 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6182									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6183									;IN THE SUBTEST) TO LOOP ON ERROR^
  6184
  6185					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6186					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6187					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6188					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6189
  6190					;**********
  6191
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-18
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0135

  6192					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6193					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6194					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6195					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6196					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6197			007412		SN=SN+1
  6198			001000			ZZ=ZZ+ZZ
  6199						IFE	ZZ,<ZZ=1>
  6200	033456	200 00 0 00 035105 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6201	033457	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6202									;RESULT IN C(AC) NON-ZERO
  6203	033460	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6204						STOP^
  6205	033461	254 04 0 00 033462 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6206	033462	324 00 0 00 033463 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6207									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6208									;IN THE SUBTEST) TO LOOP ON ERROR^
  6209
  6210					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6211					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6212					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6213					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6214
  6215					;**********
  6216
  6217					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6218					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6219					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6220					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6221					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6222			007413		SN=SN+1
  6223			002000			ZZ=ZZ+ZZ
  6224						IFE	ZZ,<ZZ=1>
  6225	033463	200 00 0 00 035106 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6226	033464	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6227									;RESULT IN C(AC) NON-ZERO
  6228	033465	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6229						STOP^
  6230	033466	254 04 0 00 033467 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6231	033467	324 00 0 00 033470 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6232									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6233									;IN THE SUBTEST) TO LOOP ON ERROR^
  6234
  6235					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6236					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6237					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6238					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6239
  6240					;**********
  6241
  6242					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6243					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6244					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6245					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6246					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-19
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0136

  6247			007414		SN=SN+1
  6248			004000			ZZ=ZZ+ZZ
  6249						IFE	ZZ,<ZZ=1>
  6250	033470	200 00 0 00 035107 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6251	033471	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6252									;RESULT IN C(AC) NON-ZERO
  6253	033472	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6254						STOP^
  6255	033473	254 04 0 00 033474 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6256	033474	324 00 0 00 033475 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6257									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6258									;IN THE SUBTEST) TO LOOP ON ERROR^
  6259
  6260					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6261					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6262					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6263					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6264
  6265					;**********
  6266
  6267					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6268					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6269					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6270					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6271					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6272			007415		SN=SN+1
  6273			010000			ZZ=ZZ+ZZ
  6274						IFE	ZZ,<ZZ=1>
  6275	033475	200 00 0 00 035110 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6276	033476	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6277									;RESULT IN C(AC) NON-ZERO
  6278	033477	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6279						STOP^
  6280	033500	254 04 0 00 033501 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6281	033501	324 00 0 00 033502 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6282									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6283									;IN THE SUBTEST) TO LOOP ON ERROR^
  6284
  6285					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6286					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6287					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6288					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6289
  6290					;**********
  6291
  6292					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6293					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6294					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6295					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6296					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6297			007416		SN=SN+1
  6298			020000			ZZ=ZZ+ZZ
  6299						IFE	ZZ,<ZZ=1>
  6300	033502	200 00 0 00 035111 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6301	033503	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-20
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0137

  6302									;RESULT IN C(AC) NON-ZERO
  6303	033504	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6304						STOP^
  6305	033505	254 04 0 00 033506 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6306	033506	324 00 0 00 033507 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6307									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6308									;IN THE SUBTEST) TO LOOP ON ERROR^
  6309
  6310					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6311					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6312					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6313					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6314
  6315					;**********
  6316
  6317					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6318					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6319					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6320					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6321					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6322			007417		SN=SN+1
  6323			040000			ZZ=ZZ+ZZ
  6324						IFE	ZZ,<ZZ=1>
  6325	033507	200 00 0 00 035112 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6326	033510	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6327									;RESULT IN C(AC) NON-ZERO
  6328	033511	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6329						STOP^
  6330	033512	254 04 0 00 033513 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6331	033513	324 00 0 00 033514 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6332									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6333									;IN THE SUBTEST) TO LOOP ON ERROR^
  6334
  6335					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6336					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6337					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6338					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6339
  6340					;**********
  6341
  6342					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6343					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6344					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6345					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6346					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6347			007420		SN=SN+1
  6348			100000			ZZ=ZZ+ZZ
  6349						IFE	ZZ,<ZZ=1>
  6350	033514	200 00 0 00 035113 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6351	033515	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6352									;RESULT IN C(AC) NON-ZERO
  6353	033516	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6354						STOP^
  6355	033517	254 04 0 00 033520 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6356	033520	324 00 0 00 033521 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-21
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0138

  6357									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6358									;IN THE SUBTEST) TO LOOP ON ERROR^
  6359
  6360					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6361					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6362					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6363					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6364
  6365					;**********
  6366
  6367					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6368					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6369					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6370					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6371					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6372			007421		SN=SN+1
  6373			200000			ZZ=ZZ+ZZ
  6374						IFE	ZZ,<ZZ=1>
  6375	033521	200 00 0 00 035114 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6376	033522	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6377									;RESULT IN C(AC) NON-ZERO
  6378	033523	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6379						STOP^
  6380	033524	254 04 0 00 033525 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6381	033525	324 00 0 00 033526 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6382									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6383									;IN THE SUBTEST) TO LOOP ON ERROR^
  6384
  6385					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6386					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6387					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6388					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6389
  6390					;**********
  6391
  6392					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6393					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6394					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6395					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6396					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6397			007422		SN=SN+1
  6398			400000			ZZ=ZZ+ZZ
  6399						IFE	ZZ,<ZZ=1>
  6400	033526	200 00 0 00 035115 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6401	033527	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6402									;RESULT IN C(AC) NON-ZERO
  6403	033530	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6404						STOP^
  6405	033531	254 04 0 00 033532 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6406	033532	324 00 0 00 033533 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6407									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6408									;IN THE SUBTEST) TO LOOP ON ERROR^
  6409
  6410					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6411					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-22
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0139

  6412					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6413					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6414
  6415					;**********
  6416
  6417					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6418					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6419					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6420					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6421					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6422			007423		SN=SN+1
  6423		000001	000000			ZZ=ZZ+ZZ
  6424						IFE	ZZ,<ZZ=1>
  6425	033533	200 00 0 00 035116 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6426	033534	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6427									;RESULT IN C(AC) NON-ZERO
  6428	033535	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6429						STOP^
  6430	033536	254 04 0 00 033537 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6431	033537	324 00 0 00 033540 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6432									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6433									;IN THE SUBTEST) TO LOOP ON ERROR^
  6434
  6435					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6436					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6437					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6438					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6439
  6440					;**********
  6441
  6442					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6443					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6444					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6445					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6446					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6447			007424		SN=SN+1
  6448		000002	000000			ZZ=ZZ+ZZ
  6449						IFE	ZZ,<ZZ=1>
  6450	033540	200 00 0 00 035117 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6451	033541	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6452									;RESULT IN C(AC) NON-ZERO
  6453	033542	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6454						STOP^
  6455	033543	254 04 0 00 033544 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6456	033544	324 00 0 00 033545 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6457									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6458									;IN THE SUBTEST) TO LOOP ON ERROR^
  6459
  6460					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6461					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6462					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6463					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6464
  6465					;**********
  6466
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-23
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0140

  6467					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6468					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6469					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6470					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6471					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6472			007425		SN=SN+1
  6473		000004	000000			ZZ=ZZ+ZZ
  6474						IFE	ZZ,<ZZ=1>
  6475	033545	200 00 0 00 035120 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6476	033546	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6477									;RESULT IN C(AC) NON-ZERO
  6478	033547	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6479						STOP^
  6480	033550	254 04 0 00 033551 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6481	033551	324 00 0 00 033552 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6482									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6483									;IN THE SUBTEST) TO LOOP ON ERROR^
  6484
  6485					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6486					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6487					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6488					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6489
  6490					;**********
  6491
  6492					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6493					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6494					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6495					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6496					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6497			007426		SN=SN+1
  6498		000010	000000			ZZ=ZZ+ZZ
  6499						IFE	ZZ,<ZZ=1>
  6500	033552	200 00 0 00 035121 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6501	033553	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6502									;RESULT IN C(AC) NON-ZERO
  6503	033554	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6504						STOP^
  6505	033555	254 04 0 00 033556 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6506	033556	324 00 0 00 033557 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6507									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6508									;IN THE SUBTEST) TO LOOP ON ERROR^
  6509
  6510					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6511					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6512					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6513					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6514
  6515					;**********
  6516
  6517					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6518					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6519					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6520					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6521					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-24
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0141

  6522			007427		SN=SN+1
  6523		000020	000000			ZZ=ZZ+ZZ
  6524						IFE	ZZ,<ZZ=1>
  6525	033557	200 00 0 00 035122 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6526	033560	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6527									;RESULT IN C(AC) NON-ZERO
  6528	033561	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6529						STOP^
  6530	033562	254 04 0 00 033563 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6531	033563	324 00 0 00 033564 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6532									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6533									;IN THE SUBTEST) TO LOOP ON ERROR^
  6534
  6535					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6536					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6537					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6538					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6539
  6540					;**********
  6541
  6542					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6543					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6544					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6545					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6546					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6547			007430		SN=SN+1
  6548		000040	000000			ZZ=ZZ+ZZ
  6549						IFE	ZZ,<ZZ=1>
  6550	033564	200 00 0 00 035123 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6551	033565	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6552									;RESULT IN C(AC) NON-ZERO
  6553	033566	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6554						STOP^
  6555	033567	254 04 0 00 033570 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6556	033570	324 00 0 00 033571 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6557									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6558									;IN THE SUBTEST) TO LOOP ON ERROR^
  6559
  6560					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6561					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6562					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6563					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6564
  6565					;**********
  6566
  6567					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6568					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6569					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6570					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6571					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6572			007431		SN=SN+1
  6573		000100	000000			ZZ=ZZ+ZZ
  6574						IFE	ZZ,<ZZ=1>
  6575	033571	200 00 0 00 035124 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6576	033572	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-25
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0142

  6577									;RESULT IN C(AC) NON-ZERO
  6578	033573	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6579						STOP^
  6580	033574	254 04 0 00 033575 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6581	033575	324 00 0 00 033576 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6582									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6583									;IN THE SUBTEST) TO LOOP ON ERROR^
  6584
  6585					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6586					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6587					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6588					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6589
  6590					;**********
  6591
  6592					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6593					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6594					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6595					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6596					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6597			007432		SN=SN+1
  6598		000200	000000			ZZ=ZZ+ZZ
  6599						IFE	ZZ,<ZZ=1>
  6600	033576	200 00 0 00 035125 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6601	033577	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6602									;RESULT IN C(AC) NON-ZERO
  6603	033600	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6604						STOP^
  6605	033601	254 04 0 00 033602 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6606	033602	324 00 0 00 033603 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6607									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6608									;IN THE SUBTEST) TO LOOP ON ERROR^
  6609
  6610					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6611					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6612					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6613					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6614
  6615					;**********
  6616
  6617					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6618					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6619					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6620					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6621					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6622			007433		SN=SN+1
  6623		000400	000000			ZZ=ZZ+ZZ
  6624						IFE	ZZ,<ZZ=1>
  6625	033603	200 00 0 00 035073 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6626	033604	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6627									;RESULT IN C(AC) NON-ZERO
  6628	033605	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6629						STOP^
  6630	033606	254 04 0 00 033607 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6631	033607	324 00 0 00 033610 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-26
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0143

  6632									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6633									;IN THE SUBTEST) TO LOOP ON ERROR^
  6634
  6635					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6636					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6637					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6638					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6639
  6640					;**********
  6641
  6642					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6643					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6644					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6645					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6646					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6647			007434		SN=SN+1
  6648		001000	000000			ZZ=ZZ+ZZ
  6649						IFE	ZZ,<ZZ=1>
  6650	033610	200 00 0 00 035126 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6651	033611	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6652									;RESULT IN C(AC) NON-ZERO
  6653	033612	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6654						STOP^
  6655	033613	254 04 0 00 033614 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6656	033614	324 00 0 00 033615 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6657									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6658									;IN THE SUBTEST) TO LOOP ON ERROR^
  6659
  6660					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6661					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6662					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6663					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6664
  6665					;**********
  6666
  6667					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6668					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6669					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6670					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6671					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6672			007435		SN=SN+1
  6673		002000	000000			ZZ=ZZ+ZZ
  6674						IFE	ZZ,<ZZ=1>
  6675	033615	200 00 0 00 035127 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6676	033616	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6677									;RESULT IN C(AC) NON-ZERO
  6678	033617	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6679						STOP^
  6680	033620	254 04 0 00 033621 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6681	033621	324 00 0 00 033622 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6682									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6683									;IN THE SUBTEST) TO LOOP ON ERROR^
  6684
  6685					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6686					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-27
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0144

  6687					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6688					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6689
  6690					;**********
  6691
  6692					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6693					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6694					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6695					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6696					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6697			007436		SN=SN+1
  6698		004000	000000			ZZ=ZZ+ZZ
  6699						IFE	ZZ,<ZZ=1>
  6700	033622	200 00 0 00 035130 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6701	033623	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6702									;RESULT IN C(AC) NON-ZERO
  6703	033624	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6704						STOP^
  6705	033625	254 04 0 00 033626 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6706	033626	324 00 0 00 033627 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6707									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6708									;IN THE SUBTEST) TO LOOP ON ERROR^
  6709
  6710					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6711					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6712					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6713					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6714
  6715					;**********
  6716
  6717					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6718					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6719					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6720					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6721					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6722			007437		SN=SN+1
  6723		010000	000000			ZZ=ZZ+ZZ
  6724						IFE	ZZ,<ZZ=1>
  6725	033627	200 00 0 00 035131 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6726	033630	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6727									;RESULT IN C(AC) NON-ZERO
  6728	033631	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6729						STOP^
  6730	033632	254 04 0 00 033633 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6731	033633	324 00 0 00 033634 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6732									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6733									;IN THE SUBTEST) TO LOOP ON ERROR^
  6734
  6735					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6736					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6737					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6738					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6739
  6740					;**********
  6741
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-28
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0145

  6742					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6743					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6744					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6745					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6746					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6747			007440		SN=SN+1
  6748		020000	000000			ZZ=ZZ+ZZ
  6749						IFE	ZZ,<ZZ=1>
  6750	033634	200 00 0 00 035132 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6751	033635	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6752									;RESULT IN C(AC) NON-ZERO
  6753	033636	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6754						STOP^
  6755	033637	254 04 0 00 033640 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6756	033640	324 00 0 00 033641 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6757									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6758									;IN THE SUBTEST) TO LOOP ON ERROR^
  6759
  6760					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6761					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6762					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6763					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6764
  6765					;**********
  6766
  6767					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6768					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6769					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6770					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6771					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6772			007441		SN=SN+1
  6773		040000	000000			ZZ=ZZ+ZZ
  6774						IFE	ZZ,<ZZ=1>
  6775	033641	200 00 0 00 035133 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6776	033642	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6777									;RESULT IN C(AC) NON-ZERO
  6778	033643	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6779						STOP^
  6780	033644	254 04 0 00 033645 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6781	033645	324 00 0 00 033646 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6782									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6783									;IN THE SUBTEST) TO LOOP ON ERROR^
  6784
  6785					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6786					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6787					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6788					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6789
  6790					;**********
  6791
  6792					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6793					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6794					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6795					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6796					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-29
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0146

  6797			007442		SN=SN+1
  6798		100000	000000			ZZ=ZZ+ZZ
  6799						IFE	ZZ,<ZZ=1>
  6800	033646	200 00 0 00 035134 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6801	033647	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6802									;RESULT IN C(AC) NON-ZERO
  6803	033650	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6804						STOP^
  6805	033651	254 04 0 00 033652 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6806	033652	324 00 0 00 033653 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6807									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6808									;IN THE SUBTEST) TO LOOP ON ERROR^
  6809
  6810					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6811					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6812					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6813					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6814
  6815					;**********
  6816
  6817					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6818					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6819					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6820					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6821					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6822			007443		SN=SN+1
  6823		200000	000000			ZZ=ZZ+ZZ
  6824						IFE	ZZ,<ZZ=1>
  6825	033653	200 00 0 00 035135 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6826	033654	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6827									;RESULT IN C(AC) NON-ZERO
  6828	033655	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6829						STOP^
  6830	033656	254 04 0 00 033657 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6831	033657	324 00 0 00 033660 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6832									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6833									;IN THE SUBTEST) TO LOOP ON ERROR^
  6834
  6835					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6836					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6837					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6838					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6839
  6840					;**********
  6841
  6842					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6843					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6844					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6845					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6846					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6847			007444		SN=SN+1
  6848		400000	000000			ZZ=ZZ+ZZ
  6849						IFE	ZZ,<ZZ=1>
  6850	033660	200 00 0 00 035065 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6851	033661	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 27-30
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0147

  6852									;RESULT IN C(AC) NON-ZERO
  6853	033662	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6854						STOP^
  6855	033663	254 04 0 00 033664 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6856	033664	324 00 0 00 033665 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6857									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6858									;IN THE SUBTEST) TO LOOP ON ERROR^
  6859
  6860					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6861					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6862					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6863					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6864
  6865					;**********
  6866
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 28
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0148

  6867			007500		SN=7500
  6868			000000			ZZ=0
  6869
  6870					A7500:	REPEAT ^D36,
  6871					<;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6872					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6873					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6874					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6875					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6876					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6877					;INDICATE AN ILLEGAL CARRY GENERATION.
  6878					SN=SN+1
  6879						ZZ=ZZ+ZZ
  6880						IFE	ZZ,<ZZ=1>
  6881						MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6882						XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6883						SKIPE			;PASS TEST IF C(AC)=0
  6884						STOP
  6885					
  6886					;**********
  6887					>
  6888					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6889					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6890					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6891					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6892					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6893					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6894					;INDICATE AN ILLEGAL CARRY GENERATION.
  6895			007501		SN=SN+1
  6896			000000			ZZ=ZZ+ZZ
  6897			000001			IFE	ZZ,<ZZ=1>
  6898	033665	200 00 0 00 035074 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6899	033666	430 00 0 00 035074 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6900	033667	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6901						STOP^
  6902	033670	254 04 0 00 033671 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6903	033671	324 00 0 00 033672 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6904									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6905									;IN THE SUBTEST) TO LOOP ON ERROR^
  6906
  6907					;**********
  6908
  6909					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6910					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6911					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6912					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6913					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6914					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6915					;INDICATE AN ILLEGAL CARRY GENERATION.
  6916			007502		SN=SN+1
  6917			000002			ZZ=ZZ+ZZ
  6918						IFE	ZZ,<ZZ=1>
  6919	033672	200 00 0 00 035075 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6920	033673	430 00 0 00 035075 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6921	033674	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 28-1
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0149

  6922						STOP^
  6923	033675	254 04 0 00 033676 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6924	033676	324 00 0 00 033677 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6925									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6926									;IN THE SUBTEST) TO LOOP ON ERROR^
  6927
  6928					;**********
  6929
  6930					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6931					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6932					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6933					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6934					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6935					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6936					;INDICATE AN ILLEGAL CARRY GENERATION.
  6937			007503		SN=SN+1
  6938			000004			ZZ=ZZ+ZZ
  6939						IFE	ZZ,<ZZ=1>
  6940	033677	200 00 0 00 035076 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6941	033700	430 00 0 00 035076 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6942	033701	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6943						STOP^
  6944	033702	254 04 0 00 033703 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6945	033703	324 00 0 00 033704 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6946									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6947									;IN THE SUBTEST) TO LOOP ON ERROR^
  6948
  6949					;**********
  6950
  6951					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6952					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6953					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6954					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6955					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6956					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6957					;INDICATE AN ILLEGAL CARRY GENERATION.
  6958			007504		SN=SN+1
  6959			000010			ZZ=ZZ+ZZ
  6960						IFE	ZZ,<ZZ=1>
  6961	033704	200 00 0 00 035077 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6962	033705	430 00 0 00 035077 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6963	033706	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6964						STOP^
  6965	033707	254 04 0 00 033710 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6966	033710	324 00 0 00 033711 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6967									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6968									;IN THE SUBTEST) TO LOOP ON ERROR^
  6969
  6970					;**********
  6971
  6972					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6973					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6974					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6975					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6976					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 28-2
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0150

  6977					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6978					;INDICATE AN ILLEGAL CARRY GENERATION.
  6979			007505		SN=SN+1
  6980			000020			ZZ=ZZ+ZZ
  6981						IFE	ZZ,<ZZ=1>
  6982	033711	200 00 0 00 035100 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6983	033712	430 00 0 00 035100 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6984	033713	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6985						STOP^
  6986	033714	254 04 0 00 033715 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6987	033715	324 00 0 00 033716 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6988									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6989									;IN THE SUBTEST) TO LOOP ON ERROR^
  6990
  6991					;**********
  6992
  6993					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6994					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6995					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6996					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6997					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6998					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6999					;INDICATE AN ILLEGAL CARRY GENERATION.
  7000			007506		SN=SN+1
  7001			000040			ZZ=ZZ+ZZ
  7002						IFE	ZZ,<ZZ=1>
  7003	033716	200 00 0 00 035101 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7004	033717	430 00 0 00 035101 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7005	033720	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7006						STOP^
  7007	033721	254 04 0 00 033722 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7008	033722	324 00 0 00 033723 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7009									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7010									;IN THE SUBTEST) TO LOOP ON ERROR^
  7011
  7012					;**********
  7013
  7014					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7015					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7016					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7017					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7018					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7019					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7020					;INDICATE AN ILLEGAL CARRY GENERATION.
  7021			007507		SN=SN+1
  7022			000100			ZZ=ZZ+ZZ
  7023						IFE	ZZ,<ZZ=1>
  7024	033723	200 00 0 00 035102 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7025	033724	430 00 0 00 035102 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7026	033725	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7027						STOP^
  7028	033726	254 04 0 00 033727 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7029	033727	324 00 0 00 033730 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7030									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7031									;IN THE SUBTEST) TO LOOP ON ERROR^
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 28-3
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0151

  7032
  7033					;**********
  7034
  7035					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7036					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7037					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7038					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7039					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7040					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7041					;INDICATE AN ILLEGAL CARRY GENERATION.
  7042			007510		SN=SN+1
  7043			000200			ZZ=ZZ+ZZ
  7044						IFE	ZZ,<ZZ=1>
  7045	033730	200 00 0 00 035103 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7046	033731	430 00 0 00 035103 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7047	033732	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7048						STOP^
  7049	033733	254 04 0 00 033734 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7050	033734	324 00 0 00 033735 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7051									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7052									;IN THE SUBTEST) TO LOOP ON ERROR^
  7053
  7054					;**********
  7055
  7056					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7057					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7058					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7059					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7060					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7061					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7062					;INDICATE AN ILLEGAL CARRY GENERATION.
  7063			007511		SN=SN+1
  7064			000400			ZZ=ZZ+ZZ
  7065						IFE	ZZ,<ZZ=1>
  7066	033735	200 00 0 00 035104 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7067	033736	430 00 0 00 035104 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7068	033737	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7069						STOP^
  7070	033740	254 04 0 00 033741 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7071	033741	324 00 0 00 033742 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7072									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7073									;IN THE SUBTEST) TO LOOP ON ERROR^
  7074
  7075					;**********
  7076
  7077					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7078					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7079					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7080					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7081					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7082					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7083					;INDICATE AN ILLEGAL CARRY GENERATION.
  7084			007512		SN=SN+1
  7085			001000			ZZ=ZZ+ZZ
  7086						IFE	ZZ,<ZZ=1>
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 28-4
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0152

  7087	033742	200 00 0 00 035105 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7088	033743	430 00 0 00 035105 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7089	033744	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7090						STOP^
  7091	033745	254 04 0 00 033746 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7092	033746	324 00 0 00 033747 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7093									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7094									;IN THE SUBTEST) TO LOOP ON ERROR^
  7095
  7096					;**********
  7097
  7098					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7099					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7100					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7101					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7102					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7103					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7104					;INDICATE AN ILLEGAL CARRY GENERATION.
  7105			007513		SN=SN+1
  7106			002000			ZZ=ZZ+ZZ
  7107						IFE	ZZ,<ZZ=1>
  7108	033747	200 00 0 00 035106 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7109	033750	430 00 0 00 035106 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7110	033751	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7111						STOP^
  7112	033752	254 04 0 00 033753 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7113	033753	324 00 0 00 033754 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7114									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7115									;IN THE SUBTEST) TO LOOP ON ERROR^
  7116
  7117					;**********
  7118
  7119					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7120					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7121					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7122					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7123					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7124					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7125					;INDICATE AN ILLEGAL CARRY GENERATION.
  7126			007514		SN=SN+1
  7127			004000			ZZ=ZZ+ZZ
  7128						IFE	ZZ,<ZZ=1>
  7129	033754	200 00 0 00 035107 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7130	033755	430 00 0 00 035107 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7131	033756	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7132						STOP^
  7133	033757	254 04 0 00 033760 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7134	033760	324 00 0 00 033761 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7135									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7136									;IN THE SUBTEST) TO LOOP ON ERROR^
  7137
  7138					;**********
  7139
  7140					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7141					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 28-5
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0153

  7142					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7143					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7144					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7145					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7146					;INDICATE AN ILLEGAL CARRY GENERATION.
  7147			007515		SN=SN+1
  7148			010000			ZZ=ZZ+ZZ
  7149						IFE	ZZ,<ZZ=1>
  7150	033761	200 00 0 00 035110 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7151	033762	430 00 0 00 035110 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7152	033763	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7153						STOP^
  7154	033764	254 04 0 00 033765 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7155	033765	324 00 0 00 033766 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7156									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7157									;IN THE SUBTEST) TO LOOP ON ERROR^
  7158
  7159					;**********
  7160
  7161					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7162					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7163					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7164					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7165					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7166					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7167					;INDICATE AN ILLEGAL CARRY GENERATION.
  7168			007516		SN=SN+1
  7169			020000			ZZ=ZZ+ZZ
  7170						IFE	ZZ,<ZZ=1>
  7171	033766	200 00 0 00 035111 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7172	033767	430 00 0 00 035111 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7173	033770	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7174						STOP^
  7175	033771	254 04 0 00 033772 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7176	033772	324 00 0 00 033773 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7177									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7178									;IN THE SUBTEST) TO LOOP ON ERROR^
  7179
  7180					;**********
  7181
  7182					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7183					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7184					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7185					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7186					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7187					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7188					;INDICATE AN ILLEGAL CARRY GENERATION.
  7189			007517		SN=SN+1
  7190			040000			ZZ=ZZ+ZZ
  7191						IFE	ZZ,<ZZ=1>
  7192	033773	200 00 0 00 035112 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7193	033774	430 00 0 00 035112 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7194	033775	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7195						STOP^
  7196	033776	254 04 0 00 033777 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 28-6
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0154

  7197	033777	324 00 0 00 034000 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7198									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7199									;IN THE SUBTEST) TO LOOP ON ERROR^
  7200
  7201					;**********
  7202
  7203					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7204					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7205					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7206					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7207					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7208					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7209					;INDICATE AN ILLEGAL CARRY GENERATION.
  7210			007520		SN=SN+1
  7211			100000			ZZ=ZZ+ZZ
  7212						IFE	ZZ,<ZZ=1>
  7213	034000	200 00 0 00 035113 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7214	034001	430 00 0 00 035113 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7215	034002	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7216						STOP^
  7217	034003	254 04 0 00 034004 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7218	034004	324 00 0 00 034005 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7219									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7220									;IN THE SUBTEST) TO LOOP ON ERROR^
  7221
  7222					;**********
  7223
  7224					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7225					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7226					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7227					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7228					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7229					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7230					;INDICATE AN ILLEGAL CARRY GENERATION.
  7231			007521		SN=SN+1
  7232			200000			ZZ=ZZ+ZZ
  7233						IFE	ZZ,<ZZ=1>
  7234	034005	200 00 0 00 035114 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7235	034006	430 00 0 00 035114 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7236	034007	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7237						STOP^
  7238	034010	254 04 0 00 034011 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7239	034011	324 00 0 00 034012 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7240									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7241									;IN THE SUBTEST) TO LOOP ON ERROR^
  7242
  7243					;**********
  7244
  7245					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7246					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7247					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7248					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7249					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7250					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7251					;INDICATE AN ILLEGAL CARRY GENERATION.
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 28-7
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0155

  7252			007522		SN=SN+1
  7253			400000			ZZ=ZZ+ZZ
  7254						IFE	ZZ,<ZZ=1>
  7255	034012	200 00 0 00 035115 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7256	034013	430 00 0 00 035115 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7257	034014	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7258						STOP^
  7259	034015	254 04 0 00 034016 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7260	034016	324 00 0 00 034017 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7261									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7262									;IN THE SUBTEST) TO LOOP ON ERROR^
  7263
  7264					;**********
  7265
  7266					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7267					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7268					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7269					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7270					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7271					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7272					;INDICATE AN ILLEGAL CARRY GENERATION.
  7273			007523		SN=SN+1
  7274		000001	000000			ZZ=ZZ+ZZ
  7275						IFE	ZZ,<ZZ=1>
  7276	034017	200 00 0 00 035116 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7277	034020	430 00 0 00 035116 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7278	034021	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7279						STOP^
  7280	034022	254 04 0 00 034023 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7281	034023	324 00 0 00 034024 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7282									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7283									;IN THE SUBTEST) TO LOOP ON ERROR^
  7284
  7285					;**********
  7286
  7287					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7288					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7289					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7290					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7291					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7292					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7293					;INDICATE AN ILLEGAL CARRY GENERATION.
  7294			007524		SN=SN+1
  7295		000002	000000			ZZ=ZZ+ZZ
  7296						IFE	ZZ,<ZZ=1>
  7297	034024	200 00 0 00 035117 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7298	034025	430 00 0 00 035117 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7299	034026	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7300						STOP^
  7301	034027	254 04 0 00 034030 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7302	034030	324 00 0 00 034031 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7303									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7304									;IN THE SUBTEST) TO LOOP ON ERROR^
  7305
  7306					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 28-8
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0156

  7307
  7308					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7309					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7310					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7311					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7312					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7313					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7314					;INDICATE AN ILLEGAL CARRY GENERATION.
  7315			007525		SN=SN+1
  7316		000004	000000			ZZ=ZZ+ZZ
  7317						IFE	ZZ,<ZZ=1>
  7318	034031	200 00 0 00 035120 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7319	034032	430 00 0 00 035120 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7320	034033	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7321						STOP^
  7322	034034	254 04 0 00 034035 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7323	034035	324 00 0 00 034036 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7324									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7325									;IN THE SUBTEST) TO LOOP ON ERROR^
  7326
  7327					;**********
  7328
  7329					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7330					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7331					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7332					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7333					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7334					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7335					;INDICATE AN ILLEGAL CARRY GENERATION.
  7336			007526		SN=SN+1
  7337		000010	000000			ZZ=ZZ+ZZ
  7338						IFE	ZZ,<ZZ=1>
  7339	034036	200 00 0 00 035121 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7340	034037	430 00 0 00 035121 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7341	034040	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7342						STOP^
  7343	034041	254 04 0 00 034042 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7344	034042	324 00 0 00 034043 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7345									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7346									;IN THE SUBTEST) TO LOOP ON ERROR^
  7347
  7348					;**********
  7349
  7350					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7351					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7352					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7353					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7354					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7355					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7356					;INDICATE AN ILLEGAL CARRY GENERATION.
  7357			007527		SN=SN+1
  7358		000020	000000			ZZ=ZZ+ZZ
  7359						IFE	ZZ,<ZZ=1>
  7360	034043	200 00 0 00 035122 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7361	034044	430 00 0 00 035122 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 28-9
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0157

  7362	034045	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7363						STOP^
  7364	034046	254 04 0 00 034047 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7365	034047	324 00 0 00 034050 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7366									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7367									;IN THE SUBTEST) TO LOOP ON ERROR^
  7368
  7369					;**********
  7370
  7371					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7372					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7373					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7374					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7375					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7376					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7377					;INDICATE AN ILLEGAL CARRY GENERATION.
  7378			007530		SN=SN+1
  7379		000040	000000			ZZ=ZZ+ZZ
  7380						IFE	ZZ,<ZZ=1>
  7381	034050	200 00 0 00 035123 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7382	034051	430 00 0 00 035123 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7383	034052	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7384						STOP^
  7385	034053	254 04 0 00 034054 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7386	034054	324 00 0 00 034055 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7387									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7388									;IN THE SUBTEST) TO LOOP ON ERROR^
  7389
  7390					;**********
  7391
  7392					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7393					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7394					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7395					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7396					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7397					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7398					;INDICATE AN ILLEGAL CARRY GENERATION.
  7399			007531		SN=SN+1
  7400		000100	000000			ZZ=ZZ+ZZ
  7401						IFE	ZZ,<ZZ=1>
  7402	034055	200 00 0 00 035124 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7403	034056	430 00 0 00 035124 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7404	034057	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7405						STOP^
  7406	034060	254 04 0 00 034061 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7407	034061	324 00 0 00 034062 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7408									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7409									;IN THE SUBTEST) TO LOOP ON ERROR^
  7410
  7411					;**********
  7412
  7413					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7414					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7415					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7416					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 28-10
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0158

  7417					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7418					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7419					;INDICATE AN ILLEGAL CARRY GENERATION.
  7420			007532		SN=SN+1
  7421		000200	000000			ZZ=ZZ+ZZ
  7422						IFE	ZZ,<ZZ=1>
  7423	034062	200 00 0 00 035125 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7424	034063	430 00 0 00 035125 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7425	034064	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7426						STOP^
  7427	034065	254 04 0 00 034066 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7428	034066	324 00 0 00 034067 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7429									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7430									;IN THE SUBTEST) TO LOOP ON ERROR^
  7431
  7432					;**********
  7433
  7434					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7435					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7436					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7437					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7438					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7439					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7440					;INDICATE AN ILLEGAL CARRY GENERATION.
  7441			007533		SN=SN+1
  7442		000400	000000			ZZ=ZZ+ZZ
  7443						IFE	ZZ,<ZZ=1>
  7444	034067	200 00 0 00 035073 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7445	034070	430 00 0 00 035073 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7446	034071	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7447						STOP^
  7448	034072	254 04 0 00 034073 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7449	034073	324 00 0 00 034074 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7450									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7451									;IN THE SUBTEST) TO LOOP ON ERROR^
  7452
  7453					;**********
  7454
  7455					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7456					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7457					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7458					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7459					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7460					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7461					;INDICATE AN ILLEGAL CARRY GENERATION.
  7462			007534		SN=SN+1
  7463		001000	000000			ZZ=ZZ+ZZ
  7464						IFE	ZZ,<ZZ=1>
  7465	034074	200 00 0 00 035126 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7466	034075	430 00 0 00 035126 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7467	034076	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7468						STOP^
  7469	034077	254 04 0 00 034100 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7470	034100	324 00 0 00 034101 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7471									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 28-11
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0159

  7472									;IN THE SUBTEST) TO LOOP ON ERROR^
  7473
  7474					;**********
  7475
  7476					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7477					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7478					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7479					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7480					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7481					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7482					;INDICATE AN ILLEGAL CARRY GENERATION.
  7483			007535		SN=SN+1
  7484		002000	000000			ZZ=ZZ+ZZ
  7485						IFE	ZZ,<ZZ=1>
  7486	034101	200 00 0 00 035127 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7487	034102	430 00 0 00 035127 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7488	034103	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7489						STOP^
  7490	034104	254 04 0 00 034105 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7491	034105	324 00 0 00 034106 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7492									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7493									;IN THE SUBTEST) TO LOOP ON ERROR^
  7494
  7495					;**********
  7496
  7497					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7498					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7499					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7500					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7501					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7502					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7503					;INDICATE AN ILLEGAL CARRY GENERATION.
  7504			007536		SN=SN+1
  7505		004000	000000			ZZ=ZZ+ZZ
  7506						IFE	ZZ,<ZZ=1>
  7507	034106	200 00 0 00 035130 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7508	034107	430 00 0 00 035130 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7509	034110	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7510						STOP^
  7511	034111	254 04 0 00 034112 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7512	034112	324 00 0 00 034113 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7513									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7514									;IN THE SUBTEST) TO LOOP ON ERROR^
  7515
  7516					;**********
  7517
  7518					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7519					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7520					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7521					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7522					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7523					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7524					;INDICATE AN ILLEGAL CARRY GENERATION.
  7525			007537		SN=SN+1
  7526		010000	000000			ZZ=ZZ+ZZ
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 28-12
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0160

  7527						IFE	ZZ,<ZZ=1>
  7528	034113	200 00 0 00 035131 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7529	034114	430 00 0 00 035131 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7530	034115	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7531						STOP^
  7532	034116	254 04 0 00 034117 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7533	034117	324 00 0 00 034120 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7534									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7535									;IN THE SUBTEST) TO LOOP ON ERROR^
  7536
  7537					;**********
  7538
  7539					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7540					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7541					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7542					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7543					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7544					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7545					;INDICATE AN ILLEGAL CARRY GENERATION.
  7546			007540		SN=SN+1
  7547		020000	000000			ZZ=ZZ+ZZ
  7548						IFE	ZZ,<ZZ=1>
  7549	034120	200 00 0 00 035132 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7550	034121	430 00 0 00 035132 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7551	034122	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7552						STOP^
  7553	034123	254 04 0 00 034124 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7554	034124	324 00 0 00 034125 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7555									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7556									;IN THE SUBTEST) TO LOOP ON ERROR^
  7557
  7558					;**********
  7559
  7560					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7561					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7562					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7563					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7564					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7565					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7566					;INDICATE AN ILLEGAL CARRY GENERATION.
  7567			007541		SN=SN+1
  7568		040000	000000			ZZ=ZZ+ZZ
  7569						IFE	ZZ,<ZZ=1>
  7570	034125	200 00 0 00 035133 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7571	034126	430 00 0 00 035133 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7572	034127	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7573						STOP^
  7574	034130	254 04 0 00 034131 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7575	034131	324 00 0 00 034132 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7576									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7577									;IN THE SUBTEST) TO LOOP ON ERROR^
  7578
  7579					;**********
  7580
  7581					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 28-13
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0161

  7582					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7583					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7584					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7585					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7586					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7587					;INDICATE AN ILLEGAL CARRY GENERATION.
  7588			007542		SN=SN+1
  7589		100000	000000			ZZ=ZZ+ZZ
  7590						IFE	ZZ,<ZZ=1>
  7591	034132	200 00 0 00 035134 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7592	034133	430 00 0 00 035134 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7593	034134	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7594						STOP^
  7595	034135	254 04 0 00 034136 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7596	034136	324 00 0 00 034137 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7597									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7598									;IN THE SUBTEST) TO LOOP ON ERROR^
  7599
  7600					;**********
  7601
  7602					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7603					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7604					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7605					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7606					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7607					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7608					;INDICATE AN ILLEGAL CARRY GENERATION.
  7609			007543		SN=SN+1
  7610		200000	000000			ZZ=ZZ+ZZ
  7611						IFE	ZZ,<ZZ=1>
  7612	034137	200 00 0 00 035135 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7613	034140	430 00 0 00 035135 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7614	034141	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7615						STOP^
  7616	034142	254 04 0 00 034143 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7617	034143	324 00 0 00 034144 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7618									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7619									;IN THE SUBTEST) TO LOOP ON ERROR^
  7620
  7621					;**********
  7622
  7623					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  7624					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  7625					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  7626					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  7627					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  7628					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  7629					;INDICATE AN ILLEGAL CARRY GENERATION.
  7630			007544		SN=SN+1
  7631		400000	000000			ZZ=ZZ+ZZ
  7632						IFE	ZZ,<ZZ=1>
  7633	034144	200 00 0 00 035065 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  7634	034145	430 00 0 00 035065 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  7635	034146	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7636						STOP^
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 28-14
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0162

  7637	034147	254 04 0 00 034150 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7638	034150	324 00 0 00 034151 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7639									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7640									;IN THE SUBTEST) TO LOOP ON ERROR^
  7641
  7642					;**********
  7643
  7644					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION WHERE
  7645					;C(AC)=C(E)=0 IS AN AC CONTAINING ALL ZEROS; FIRST THE AC IS CLEARED; THEN
  7646					;XOR IS EXECUTED WITH C(E)=0.  THE RESULT IN THE AC IS CHECKED FOR ALL ZEROS
  7647
  7648	034151	200 00 0 00 035062 	A7600:	MOVE	[0]		;INITIALIZE AC TO ALL ZEROS
  7649	034152	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(AC)=C(E)=0 SHOULD RESULT INC(AC)=0
  7650	034153	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7651						STOP^
  7652	034154	254 04 0 00 034155 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7653	034155	324 00 0 00 034156 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7654									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7655									;IN THE SUBTEST) TO LOOP ON ERROR^
  7656
  7657					;**********
  7658
  7659					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7660					;C(AC)=0 AND C(E) ALL ONES IS AN AC CONTAINING ALL ZEROS SINCE
  7661					;THE EQUIVALENCE FUNCTION SHOULD SET ONLY LIKE BITS.  FIRST, THE AC
  7662					;SHOULD BE CLEARED; THEN, EQV IS EXECUTED WITH E CONTAINING ALL ONES.
  7663					;THE AC IS THEN CHECKED FOR ALL ZEROS
  7664
  7665	034156	200 00 0 00 035062 	A7700:	MOVE	[0]		;CLEAR THE AC
  7666	034157	444 00 0 00 035063 		EQV	[-1]		;*EQV WITH C(AC)=0 AND C(E) ALL ONES SHOULD
  7667									;RESULT IN C(AC)=0
  7668	034160	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7669						STOP^
  7670	034161	254 04 0 00 034162 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7671	034162	324 00 0 00 034163 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7672									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7673									;IN THE SUBTEST) TO LOOP ON ERROR^
  7674
  7675					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 29
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0163

  7676			010000		SN=10000
  7677			000000			ZZ=0
  7678
  7679					A10000:	REPEAT	^D18,
  7680					<;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7681					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7682					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7683					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7684					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7685					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7686					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7687					SN=SN+1
  7688						ZZ=ZZ+ZZ+1
  7689						IFE	<ZZ-1>,<ZZ=-2>
  7690						MOVE	[0]		;PRESET AC TO ALL ZEROS
  7691						EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7692									;RESULT IN C(AC) NON-ZERO
  7693						SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7694						STOP
  7695					
  7696					;**********
  7697					>
  7698					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7699					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7700					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7701					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7702					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7703					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7704					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7705			010001		SN=SN+1
  7706			000001			ZZ=ZZ+ZZ+1
  7707		777777	777776			IFE	<ZZ-1>,<ZZ=-2>
  7708	034163	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7709	034164	444 00 0 00 035142 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7710									;RESULT IN C(AC) NON-ZERO
  7711	034165	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7712						STOP^
  7713	034166	254 04 0 00 034167 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7714	034167	324 00 0 00 034170 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7715									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7716									;IN THE SUBTEST) TO LOOP ON ERROR^
  7717
  7718					;**********
  7719
  7720					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7721					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7722					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7723					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7724					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7725					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7726					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7727			010002		SN=SN+1
  7728		777777	777775			ZZ=ZZ+ZZ+1
  7729						IFE	<ZZ-1>,<ZZ=-2>
  7730	034170	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 29-1
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0164

  7731	034171	444 00 0 00 035143 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7732									;RESULT IN C(AC) NON-ZERO
  7733	034172	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7734						STOP^
  7735	034173	254 04 0 00 034174 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7736	034174	324 00 0 00 034175 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7737									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7738									;IN THE SUBTEST) TO LOOP ON ERROR^
  7739
  7740					;**********
  7741
  7742					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7743					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7744					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7745					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7746					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7747					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7748					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7749			010003		SN=SN+1
  7750		777777	777773			ZZ=ZZ+ZZ+1
  7751						IFE	<ZZ-1>,<ZZ=-2>
  7752	034175	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7753	034176	444 00 0 00 035144 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7754									;RESULT IN C(AC) NON-ZERO
  7755	034177	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7756						STOP^
  7757	034200	254 04 0 00 034201 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7758	034201	324 00 0 00 034202 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7759									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7760									;IN THE SUBTEST) TO LOOP ON ERROR^
  7761
  7762					;**********
  7763
  7764					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7765					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7766					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7767					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7768					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7769					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7770					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7771			010004		SN=SN+1
  7772		777777	777767			ZZ=ZZ+ZZ+1
  7773						IFE	<ZZ-1>,<ZZ=-2>
  7774	034202	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7775	034203	444 00 0 00 035145 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7776									;RESULT IN C(AC) NON-ZERO
  7777	034204	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7778						STOP^
  7779	034205	254 04 0 00 034206 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7780	034206	324 00 0 00 034207 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7781									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7782									;IN THE SUBTEST) TO LOOP ON ERROR^
  7783
  7784					;**********
  7785
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 29-2
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0165

  7786					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7787					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7788					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7789					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7790					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7791					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7792					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7793			010005		SN=SN+1
  7794		777777	777757			ZZ=ZZ+ZZ+1
  7795						IFE	<ZZ-1>,<ZZ=-2>
  7796	034207	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7797	034210	444 00 0 00 035146 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7798									;RESULT IN C(AC) NON-ZERO
  7799	034211	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7800						STOP^
  7801	034212	254 04 0 00 034213 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7802	034213	324 00 0 00 034214 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7803									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7804									;IN THE SUBTEST) TO LOOP ON ERROR^
  7805
  7806					;**********
  7807
  7808					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7809					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7810					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7811					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7812					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7813					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7814					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7815			010006		SN=SN+1
  7816		777777	777737			ZZ=ZZ+ZZ+1
  7817						IFE	<ZZ-1>,<ZZ=-2>
  7818	034214	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7819	034215	444 00 0 00 035147 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7820									;RESULT IN C(AC) NON-ZERO
  7821	034216	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7822						STOP^
  7823	034217	254 04 0 00 034220 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7824	034220	324 00 0 00 034221 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7825									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7826									;IN THE SUBTEST) TO LOOP ON ERROR^
  7827
  7828					;**********
  7829
  7830					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7831					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7832					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7833					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7834					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7835					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7836					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7837			010007		SN=SN+1
  7838		777777	777677			ZZ=ZZ+ZZ+1
  7839						IFE	<ZZ-1>,<ZZ=-2>
  7840	034221	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 29-3
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0166

  7841	034222	444 00 0 00 035150 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7842									;RESULT IN C(AC) NON-ZERO
  7843	034223	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7844						STOP^
  7845	034224	254 04 0 00 034225 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7846	034225	324 00 0 00 034226 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7847									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7848									;IN THE SUBTEST) TO LOOP ON ERROR^
  7849
  7850					;**********
  7851
  7852					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7853					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7854					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7855					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7856					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7857					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7858					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7859			010010		SN=SN+1
  7860		777777	777577			ZZ=ZZ+ZZ+1
  7861						IFE	<ZZ-1>,<ZZ=-2>
  7862	034226	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7863	034227	444 00 0 00 035151 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7864									;RESULT IN C(AC) NON-ZERO
  7865	034230	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7866						STOP^
  7867	034231	254 04 0 00 034232 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7868	034232	324 00 0 00 034233 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7869									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7870									;IN THE SUBTEST) TO LOOP ON ERROR^
  7871
  7872					;**********
  7873
  7874					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7875					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7876					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7877					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7878					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7879					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7880					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7881			010011		SN=SN+1
  7882		777777	777377			ZZ=ZZ+ZZ+1
  7883						IFE	<ZZ-1>,<ZZ=-2>
  7884	034233	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7885	034234	444 00 0 00 035152 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7886									;RESULT IN C(AC) NON-ZERO
  7887	034235	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7888						STOP^
  7889	034236	254 04 0 00 034237 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7890	034237	324 00 0 00 034240 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7891									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7892									;IN THE SUBTEST) TO LOOP ON ERROR^
  7893
  7894					;**********
  7895
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 29-4
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0167

  7896					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7897					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7898					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7899					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7900					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7901					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7902					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7903			010012		SN=SN+1
  7904		777777	776777			ZZ=ZZ+ZZ+1
  7905						IFE	<ZZ-1>,<ZZ=-2>
  7906	034240	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7907	034241	444 00 0 00 035153 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7908									;RESULT IN C(AC) NON-ZERO
  7909	034242	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7910						STOP^
  7911	034243	254 04 0 00 034244 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7912	034244	324 00 0 00 034245 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7913									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7914									;IN THE SUBTEST) TO LOOP ON ERROR^
  7915
  7916					;**********
  7917
  7918					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7919					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7920					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7921					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7922					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7923					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7924					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7925			010013		SN=SN+1
  7926		777777	775777			ZZ=ZZ+ZZ+1
  7927						IFE	<ZZ-1>,<ZZ=-2>
  7928	034245	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7929	034246	444 00 0 00 035154 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7930									;RESULT IN C(AC) NON-ZERO
  7931	034247	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7932						STOP^
  7933	034250	254 04 0 00 034251 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7934	034251	324 00 0 00 034252 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7935									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7936									;IN THE SUBTEST) TO LOOP ON ERROR^
  7937
  7938					;**********
  7939
  7940					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7941					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7942					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7943					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7944					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7945					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7946					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7947			010014		SN=SN+1
  7948		777777	773777			ZZ=ZZ+ZZ+1
  7949						IFE	<ZZ-1>,<ZZ=-2>
  7950	034252	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 29-5
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0168

  7951	034253	444 00 0 00 035155 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7952									;RESULT IN C(AC) NON-ZERO
  7953	034254	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7954						STOP^
  7955	034255	254 04 0 00 034256 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7956	034256	324 00 0 00 034257 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7957									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7958									;IN THE SUBTEST) TO LOOP ON ERROR^
  7959
  7960					;**********
  7961
  7962					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7963					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7964					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7965					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7966					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7967					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7968					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7969			010015		SN=SN+1
  7970		777777	767777			ZZ=ZZ+ZZ+1
  7971						IFE	<ZZ-1>,<ZZ=-2>
  7972	034257	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7973	034260	444 00 0 00 035156 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7974									;RESULT IN C(AC) NON-ZERO
  7975	034261	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7976						STOP^
  7977	034262	254 04 0 00 034263 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7978	034263	324 00 0 00 034264 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7979									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7980									;IN THE SUBTEST) TO LOOP ON ERROR^
  7981
  7982					;**********
  7983
  7984					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7985					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7986					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7987					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7988					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7989					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7990					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7991			010016		SN=SN+1
  7992		777777	757777			ZZ=ZZ+ZZ+1
  7993						IFE	<ZZ-1>,<ZZ=-2>
  7994	034264	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7995	034265	444 00 0 00 035157 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7996									;RESULT IN C(AC) NON-ZERO
  7997	034266	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7998						STOP^
  7999	034267	254 04 0 00 034270 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8000	034270	324 00 0 00 034271 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8001									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8002									;IN THE SUBTEST) TO LOOP ON ERROR^
  8003
  8004					;**********
  8005
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 29-6
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0169

  8006					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8007					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8008					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8009					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8010					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8011					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8012					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8013			010017		SN=SN+1
  8014		777777	737777			ZZ=ZZ+ZZ+1
  8015						IFE	<ZZ-1>,<ZZ=-2>
  8016	034271	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  8017	034272	444 00 0 00 035160 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8018									;RESULT IN C(AC) NON-ZERO
  8019	034273	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8020						STOP^
  8021	034274	254 04 0 00 034275 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8022	034275	324 00 0 00 034276 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8023									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8024									;IN THE SUBTEST) TO LOOP ON ERROR^
  8025
  8026					;**********
  8027
  8028					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8029					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8030					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8031					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8032					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8033					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8034					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8035			010020		SN=SN+1
  8036		777777	677777			ZZ=ZZ+ZZ+1
  8037						IFE	<ZZ-1>,<ZZ=-2>
  8038	034276	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  8039	034277	444 00 0 00 035161 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8040									;RESULT IN C(AC) NON-ZERO
  8041	034300	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8042						STOP^
  8043	034301	254 04 0 00 034302 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8044	034302	324 00 0 00 034303 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8045									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8046									;IN THE SUBTEST) TO LOOP ON ERROR^
  8047
  8048					;**********
  8049
  8050					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8051					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8052					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8053					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8054					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8055					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8056					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8057			010021		SN=SN+1
  8058		777777	577777			ZZ=ZZ+ZZ+1
  8059						IFE	<ZZ-1>,<ZZ=-2>
  8060	034303	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 29-7
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0170

  8061	034304	444 00 0 00 035162 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8062									;RESULT IN C(AC) NON-ZERO
  8063	034305	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8064						STOP^
  8065	034306	254 04 0 00 034307 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8066	034307	324 00 0 00 034310 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8067									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8068									;IN THE SUBTEST) TO LOOP ON ERROR^
  8069
  8070					;**********
  8071
  8072					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8073					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8074					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8075					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8076					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8077					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8078					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8079			010022		SN=SN+1
  8080		777777	377777			ZZ=ZZ+ZZ+1
  8081						IFE	<ZZ-1>,<ZZ=-2>
  8082	034310	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  8083	034311	444 00 0 00 035163 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8084									;RESULT IN C(AC) NON-ZERO
  8085	034312	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8086						STOP^
  8087	034313	254 04 0 00 034314 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8088	034314	324 00 0 00 034315 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8089									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8090									;IN THE SUBTEST) TO LOOP ON ERROR^
  8091
  8092					;**********
  8093
  8094			010100		SN=10100
  8095			000000			ZZ=0
  8096
  8097					A10100:	REPEAT	^D18,
  8098					<;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8099					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8100					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8101					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8102					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8103					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8104					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8105					SN=SN+1
  8106						ZZ=ZZ+ZZ+1
  8107						IFE	<ZZ-1>,<ZZ=-2>
  8108						MOVE	[0]		;PRESET AC TO ALL ZEROS
  8109						EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8110									;RESULT IN C(AC) NON-ZERO
  8111						SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8112						STOP
  8113					
  8114					;**********
  8115					>
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 29-8
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0171

  8116					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8117					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8118					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8119					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8120					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8121					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8122					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8123			010101		SN=SN+1
  8124			000001			ZZ=ZZ+ZZ+1
  8125		777777	777776			IFE	<ZZ-1>,<ZZ=-2>
  8126	034315	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  8127	034316	444 00 0 00 035164 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8128									;RESULT IN C(AC) NON-ZERO
  8129	034317	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8130						STOP^
  8131	034320	254 04 0 00 034321 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8132	034321	324 00 0 00 034322 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8133									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8134									;IN THE SUBTEST) TO LOOP ON ERROR^
  8135
  8136					;**********
  8137
  8138					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8139					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8140					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8141					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8142					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8143					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8144					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8145			010102		SN=SN+1
  8146		777777	777775			ZZ=ZZ+ZZ+1
  8147						IFE	<ZZ-1>,<ZZ=-2>
  8148	034322	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  8149	034323	444 00 0 00 035165 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8150									;RESULT IN C(AC) NON-ZERO
  8151	034324	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8152						STOP^
  8153	034325	254 04 0 00 034326 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8154	034326	324 00 0 00 034327 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8155									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8156									;IN THE SUBTEST) TO LOOP ON ERROR^
  8157
  8158					;**********
  8159
  8160					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8161					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8162					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8163					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8164					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8165					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8166					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8167			010103		SN=SN+1
  8168		777777	777773			ZZ=ZZ+ZZ+1
  8169						IFE	<ZZ-1>,<ZZ=-2>
  8170	034327	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 29-9
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0172

  8171	034330	444 00 0 00 035166 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8172									;RESULT IN C(AC) NON-ZERO
  8173	034331	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8174						STOP^
  8175	034332	254 04 0 00 034333 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8176	034333	324 00 0 00 034334 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8177									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8178									;IN THE SUBTEST) TO LOOP ON ERROR^
  8179
  8180					;**********
  8181
  8182					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8183					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8184					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8185					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8186					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8187					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8188					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8189			010104		SN=SN+1
  8190		777777	777767			ZZ=ZZ+ZZ+1
  8191						IFE	<ZZ-1>,<ZZ=-2>
  8192	034334	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  8193	034335	444 00 0 00 035167 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8194									;RESULT IN C(AC) NON-ZERO
  8195	034336	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8196						STOP^
  8197	034337	254 04 0 00 034340 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8198	034340	324 00 0 00 034341 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8199									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8200									;IN THE SUBTEST) TO LOOP ON ERROR^
  8201
  8202					;**********
  8203
  8204					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8205					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8206					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8207					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8208					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8209					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8210					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8211			010105		SN=SN+1
  8212		777777	777757			ZZ=ZZ+ZZ+1
  8213						IFE	<ZZ-1>,<ZZ=-2>
  8214	034341	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  8215	034342	444 00 0 00 035170 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8216									;RESULT IN C(AC) NON-ZERO
  8217	034343	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8218						STOP^
  8219	034344	254 04 0 00 034345 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8220	034345	324 00 0 00 034346 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8221									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8222									;IN THE SUBTEST) TO LOOP ON ERROR^
  8223
  8224					;**********
  8225
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 29-10
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0173

  8226					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8227					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8228					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8229					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8230					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8231					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8232					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8233			010106		SN=SN+1
  8234		777777	777737			ZZ=ZZ+ZZ+1
  8235						IFE	<ZZ-1>,<ZZ=-2>
  8236	034346	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  8237	034347	444 00 0 00 035171 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8238									;RESULT IN C(AC) NON-ZERO
  8239	034350	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8240						STOP^
  8241	034351	254 04 0 00 034352 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8242	034352	324 00 0 00 034353 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8243									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8244									;IN THE SUBTEST) TO LOOP ON ERROR^
  8245
  8246					;**********
  8247
  8248					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8249					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8250					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8251					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8252					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8253					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8254					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8255			010107		SN=SN+1
  8256		777777	777677			ZZ=ZZ+ZZ+1
  8257						IFE	<ZZ-1>,<ZZ=-2>
  8258	034353	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  8259	034354	444 00 0 00 035172 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8260									;RESULT IN C(AC) NON-ZERO
  8261	034355	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8262						STOP^
  8263	034356	254 04 0 00 034357 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8264	034357	324 00 0 00 034360 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8265									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8266									;IN THE SUBTEST) TO LOOP ON ERROR^
  8267
  8268					;**********
  8269
  8270					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8271					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8272					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8273					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8274					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8275					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8276					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8277			010110		SN=SN+1
  8278		777777	777577			ZZ=ZZ+ZZ+1
  8279						IFE	<ZZ-1>,<ZZ=-2>
  8280	034360	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 29-11
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0174

  8281	034361	444 00 0 00 035173 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8282									;RESULT IN C(AC) NON-ZERO
  8283	034362	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8284						STOP^
  8285	034363	254 04 0 00 034364 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8286	034364	324 00 0 00 034365 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8287									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8288									;IN THE SUBTEST) TO LOOP ON ERROR^
  8289
  8290					;**********
  8291
  8292					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8293					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8294					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8295					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8296					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8297					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8298					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8299			010111		SN=SN+1
  8300		777777	777377			ZZ=ZZ+ZZ+1
  8301						IFE	<ZZ-1>,<ZZ=-2>
  8302	034365	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  8303	034366	444 00 0 00 035174 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8304									;RESULT IN C(AC) NON-ZERO
  8305	034367	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8306						STOP^
  8307	034370	254 04 0 00 034371 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8308	034371	324 00 0 00 034372 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8309									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8310									;IN THE SUBTEST) TO LOOP ON ERROR^
  8311
  8312					;**********
  8313
  8314					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8315					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8316					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8317					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8318					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8319					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8320					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8321			010112		SN=SN+1
  8322		777777	776777			ZZ=ZZ+ZZ+1
  8323						IFE	<ZZ-1>,<ZZ=-2>
  8324	034372	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  8325	034373	444 00 0 00 035175 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8326									;RESULT IN C(AC) NON-ZERO
  8327	034374	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8328						STOP^
  8329	034375	254 04 0 00 034376 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8330	034376	324 00 0 00 034377 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8331									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8332									;IN THE SUBTEST) TO LOOP ON ERROR^
  8333
  8334					;**********
  8335
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 29-12
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0175

  8336					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8337					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8338					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8339					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8340					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8341					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8342					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8343			010113		SN=SN+1
  8344		777777	775777			ZZ=ZZ+ZZ+1
  8345						IFE	<ZZ-1>,<ZZ=-2>
  8346	034377	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  8347	034400	444 00 0 00 035176 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8348									;RESULT IN C(AC) NON-ZERO
  8349	034401	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8350						STOP^
  8351	034402	254 04 0 00 034403 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8352	034403	324 00 0 00 034404 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8353									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8354									;IN THE SUBTEST) TO LOOP ON ERROR^
  8355
  8356					;**********
  8357
  8358					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8359					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8360					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8361					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8362					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8363					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8364					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8365			010114		SN=SN+1
  8366		777777	773777			ZZ=ZZ+ZZ+1
  8367						IFE	<ZZ-1>,<ZZ=-2>
  8368	034404	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  8369	034405	444 00 0 00 035177 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8370									;RESULT IN C(AC) NON-ZERO
  8371	034406	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8372						STOP^
  8373	034407	254 04 0 00 034410 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8374	034410	324 00 0 00 034411 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8375									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8376									;IN THE SUBTEST) TO LOOP ON ERROR^
  8377
  8378					;**********
  8379
  8380					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8381					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8382					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8383					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8384					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8385					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8386					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8387			010115		SN=SN+1
  8388		777777	767777			ZZ=ZZ+ZZ+1
  8389						IFE	<ZZ-1>,<ZZ=-2>
  8390	034411	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 29-13
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0176

  8391	034412	444 00 0 00 035200 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8392									;RESULT IN C(AC) NON-ZERO
  8393	034413	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8394						STOP^
  8395	034414	254 04 0 00 034415 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8396	034415	324 00 0 00 034416 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8397									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8398									;IN THE SUBTEST) TO LOOP ON ERROR^
  8399
  8400					;**********
  8401
  8402					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8403					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8404					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8405					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8406					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8407					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8408					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8409			010116		SN=SN+1
  8410		777777	757777			ZZ=ZZ+ZZ+1
  8411						IFE	<ZZ-1>,<ZZ=-2>
  8412	034416	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  8413	034417	444 00 0 00 035201 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8414									;RESULT IN C(AC) NON-ZERO
  8415	034420	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8416						STOP^
  8417	034421	254 04 0 00 034422 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8418	034422	324 00 0 00 034423 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8419									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8420									;IN THE SUBTEST) TO LOOP ON ERROR^
  8421
  8422					;**********
  8423
  8424					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8425					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8426					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8427					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8428					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8429					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8430					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8431			010117		SN=SN+1
  8432		777777	737777			ZZ=ZZ+ZZ+1
  8433						IFE	<ZZ-1>,<ZZ=-2>
  8434	034423	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  8435	034424	444 00 0 00 035202 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8436									;RESULT IN C(AC) NON-ZERO
  8437	034425	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8438						STOP^
  8439	034426	254 04 0 00 034427 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8440	034427	324 00 0 00 034430 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8441									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8442									;IN THE SUBTEST) TO LOOP ON ERROR^
  8443
  8444					;**********
  8445
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 29-14
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0177

  8446					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8447					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8448					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8449					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8450					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8451					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8452					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8453			010120		SN=SN+1
  8454		777777	677777			ZZ=ZZ+ZZ+1
  8455						IFE	<ZZ-1>,<ZZ=-2>
  8456	034430	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  8457	034431	444 00 0 00 035203 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8458									;RESULT IN C(AC) NON-ZERO
  8459	034432	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8460						STOP^
  8461	034433	254 04 0 00 034434 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8462	034434	324 00 0 00 034435 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8463									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8464									;IN THE SUBTEST) TO LOOP ON ERROR^
  8465
  8466					;**********
  8467
  8468					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8469					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8470					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8471					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8472					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8473					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8474					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8475			010121		SN=SN+1
  8476		777777	577777			ZZ=ZZ+ZZ+1
  8477						IFE	<ZZ-1>,<ZZ=-2>
  8478	034435	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  8479	034436	444 00 0 00 035204 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8480									;RESULT IN C(AC) NON-ZERO
  8481	034437	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8482						STOP^
  8483	034440	254 04 0 00 034441 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8484	034441	324 00 0 00 034442 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8485									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8486									;IN THE SUBTEST) TO LOOP ON ERROR^
  8487
  8488					;**********
  8489
  8490					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  8491					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  8492					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  8493					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  8494					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  8495					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  8496					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  8497			010122		SN=SN+1
  8498		777777	377777			ZZ=ZZ+ZZ+1
  8499						IFE	<ZZ-1>,<ZZ=-2>
  8500	034442	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 29-15
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0178

  8501	034443	444 00 0 00 035064 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  8502									;RESULT IN C(AC) NON-ZERO
  8503	034444	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  8504						STOP^
  8505	034445	254 04 0 00 034446 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8506	034446	324 00 0 00 034447 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8507									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8508									;IN THE SUBTEST) TO LOOP ON ERROR^
  8509
  8510					;**********
  8511
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 30
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0179

  8512					;THIS TEST VERIFIES THAT THE RESULT OF AN AC CONTAINING ALL ZEROS
  8513					;EQUIVALENCED WITH AN E CONTAINING ALL ZEROS IS AN AC CONTAINING ALL
  8514					;ONES; AND FUTHERMORE, IF THIS AC CONTAINING ALL ONES IS EQUIVALANCED
  8515					;WITH AN E CONTAINING ALL ZEROS, THE FINAL RESULT IN THE AC
  8516					;SHOULD BE ALL ZEROS.  FIRST, THE AC IS INITIALIZED TO ALL ZEROS, THEN,
  8517					;THIS AC IS EQUIVALENCED TWICE WITH AN E CONTAINING ALL ZEROS.  THE AC IS 
  8518					;THEN CHECKED FOR ALL ZEROS
  8519
  8520	034447	200 00 0 00 035062 	A10200:	MOVE	[0]		;CLEAR THE AC
  8521	034450	444 00 0 00 035062 		EQV	[0]		;*EQV SHOULD RESULT IN C(AC)=ALL ONES
  8522	034451	444 00 0 00 035062 		EQV	[0]		;*EQV SHOULD RESULT IN C(AC)=0
  8523	034452	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8524						STOP^
  8525	034453	254 04 0 00 034454 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8526	034454	324 00 0 00 034455 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8527									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8528									;IN THE SUBTEST) TO LOOP ON ERROR^
  8529
  8530					;**********
  8531
  8532					;THIS TEST VERIFIES THAT THE RESULT OF AN AC CONTAINING ALL ONES 
  8533					;EQUIVALENCED WITH AN E CONTAINING ALL ONES IS AN AC CONTAINING ALL ONES;
  8534					;AND FUTHERMORE, IF THIS AC CONTAINING ALL ONES ISEQUIVALENCED WITH AN E
  8535					;CONTAINING ALL ZEROS, THE FINAL RESULT IN THE AC SHOULD BE ALL ZEROS.
  8536					;FIRST, THE AC IS INITIALIZED TO ALL ONES; THEN, THIS AC IS 
  8537					;EQUIVALENCED WITH AN E OF ALL ONES.  NEXT, THIS SAME AC IS EQUIVALENCED
  8538					;WITH AN E OF ALL ZEROS.  THE AC IS THEN CHECKED FOR ALL ZEROS.
  8539
  8540	034455	200 00 0 00 035063 	A10300:	MOVE	[-1]		;SET C(AC) TO ALL ONES
  8541	034456	444 00 0 00 035063 		EQV	[-1]		;*EQV SHOULD RESULT IN C(AC) OF ALL ONES
  8542	034457	444 00 0 00 035062 		EQV	[0]		;*EQV SHOULD RESULT IN C(AC)=0
  8543	034460	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8544						STOP^
  8545	034461	254 04 0 00 034462 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8546	034462	324 00 0 00 034463 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8547									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8548									;IN THE SUBTEST) TO LOOP ON ERROR^
  8549
  8550					;**********
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 31
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0180

  8551			013000		SN=13000
  8552			000000			ZZ=0
  8553
  8554					A13000:	REPEAT	^D36,
  8555					<;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8556					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8557					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8558					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8559					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8560					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8561					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8562					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8563					SN=SN+1
  8564						ZZ=ZZ+ZZ
  8565						IFE	ZZ,<ZZ=1>
  8566						MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8567						AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8568						EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8569						EQV	[0]		;RESULTS IN C(AC)=0
  8570						SKIPE			;PASS TEST IF C(AC)=0
  8571						STOP
  8572					
  8573					;**********
  8574					>
  8575					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8576					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8577					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8578					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8579					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8580					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8581					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8582					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8583			013001		SN=SN+1
  8584			000000			ZZ=ZZ+ZZ
  8585			000001			IFE	ZZ,<ZZ=1>
  8586	034463	200 00 0 00 035074 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8587	034464	404 00 0 00 035074 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8588	034465	444 00 0 00 035074 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8589	034466	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8590	034467	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8591						STOP^
  8592	034470	254 04 0 00 034471 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8593	034471	324 00 0 00 034472 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8594									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8595									;IN THE SUBTEST) TO LOOP ON ERROR^
  8596
  8597					;**********
  8598
  8599					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8600					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8601					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8602					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8603					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8604					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8605					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 31-1
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0181

  8606					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8607			013002		SN=SN+1
  8608			000002			ZZ=ZZ+ZZ
  8609						IFE	ZZ,<ZZ=1>
  8610	034472	200 00 0 00 035075 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8611	034473	404 00 0 00 035075 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8612	034474	444 00 0 00 035075 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8613	034475	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8614	034476	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8615						STOP^
  8616	034477	254 04 0 00 034500 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8617	034500	324 00 0 00 034501 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8618									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8619									;IN THE SUBTEST) TO LOOP ON ERROR^
  8620
  8621					;**********
  8622
  8623					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8624					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8625					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8626					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8627					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8628					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8629					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8630					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8631			013003		SN=SN+1
  8632			000004			ZZ=ZZ+ZZ
  8633						IFE	ZZ,<ZZ=1>
  8634	034501	200 00 0 00 035076 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8635	034502	404 00 0 00 035076 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8636	034503	444 00 0 00 035076 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8637	034504	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8638	034505	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8639						STOP^
  8640	034506	254 04 0 00 034507 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8641	034507	324 00 0 00 034510 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8642									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8643									;IN THE SUBTEST) TO LOOP ON ERROR^
  8644
  8645					;**********
  8646
  8647					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8648					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8649					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8650					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8651					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8652					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8653					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8654					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8655			013004		SN=SN+1
  8656			000010			ZZ=ZZ+ZZ
  8657						IFE	ZZ,<ZZ=1>
  8658	034510	200 00 0 00 035077 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8659	034511	404 00 0 00 035077 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8660	034512	444 00 0 00 035077 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 31-2
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0182

  8661	034513	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8662	034514	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8663						STOP^
  8664	034515	254 04 0 00 034516 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8665	034516	324 00 0 00 034517 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8666									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8667									;IN THE SUBTEST) TO LOOP ON ERROR^
  8668
  8669					;**********
  8670
  8671					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8672					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8673					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8674					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8675					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8676					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8677					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8678					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8679			013005		SN=SN+1
  8680			000020			ZZ=ZZ+ZZ
  8681						IFE	ZZ,<ZZ=1>
  8682	034517	200 00 0 00 035100 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8683	034520	404 00 0 00 035100 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8684	034521	444 00 0 00 035100 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8685	034522	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8686	034523	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8687						STOP^
  8688	034524	254 04 0 00 034525 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8689	034525	324 00 0 00 034526 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8690									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8691									;IN THE SUBTEST) TO LOOP ON ERROR^
  8692
  8693					;**********
  8694
  8695					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8696					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8697					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8698					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8699					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8700					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8701					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8702					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8703			013006		SN=SN+1
  8704			000040			ZZ=ZZ+ZZ
  8705						IFE	ZZ,<ZZ=1>
  8706	034526	200 00 0 00 035101 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8707	034527	404 00 0 00 035101 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8708	034530	444 00 0 00 035101 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8709	034531	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8710	034532	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8711						STOP^
  8712	034533	254 04 0 00 034534 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8713	034534	324 00 0 00 034535 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8714									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8715									;IN THE SUBTEST) TO LOOP ON ERROR^
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 31-3
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0183

  8716
  8717					;**********
  8718
  8719					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8720					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8721					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8722					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8723					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8724					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8725					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8726					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8727			013007		SN=SN+1
  8728			000100			ZZ=ZZ+ZZ
  8729						IFE	ZZ,<ZZ=1>
  8730	034535	200 00 0 00 035102 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8731	034536	404 00 0 00 035102 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8732	034537	444 00 0 00 035102 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8733	034540	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8734	034541	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8735						STOP^
  8736	034542	254 04 0 00 034543 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8737	034543	324 00 0 00 034544 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8738									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8739									;IN THE SUBTEST) TO LOOP ON ERROR^
  8740
  8741					;**********
  8742
  8743					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8744					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8745					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8746					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8747					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8748					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8749					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8750					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8751			013010		SN=SN+1
  8752			000200			ZZ=ZZ+ZZ
  8753						IFE	ZZ,<ZZ=1>
  8754	034544	200 00 0 00 035103 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8755	034545	404 00 0 00 035103 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8756	034546	444 00 0 00 035103 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8757	034547	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8758	034550	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8759						STOP^
  8760	034551	254 04 0 00 034552 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8761	034552	324 00 0 00 034553 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8762									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8763									;IN THE SUBTEST) TO LOOP ON ERROR^
  8764
  8765					;**********
  8766
  8767					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8768					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8769					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8770					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 31-4
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0184

  8771					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8772					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8773					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8774					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8775			013011		SN=SN+1
  8776			000400			ZZ=ZZ+ZZ
  8777						IFE	ZZ,<ZZ=1>
  8778	034553	200 00 0 00 035104 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8779	034554	404 00 0 00 035104 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8780	034555	444 00 0 00 035104 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8781	034556	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8782	034557	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8783						STOP^
  8784	034560	254 04 0 00 034561 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8785	034561	324 00 0 00 034562 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8786									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8787									;IN THE SUBTEST) TO LOOP ON ERROR^
  8788
  8789					;**********
  8790
  8791					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8792					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8793					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8794					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8795					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8796					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8797					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8798					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8799			013012		SN=SN+1
  8800			001000			ZZ=ZZ+ZZ
  8801						IFE	ZZ,<ZZ=1>
  8802	034562	200 00 0 00 035105 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8803	034563	404 00 0 00 035105 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8804	034564	444 00 0 00 035105 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8805	034565	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8806	034566	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8807						STOP^
  8808	034567	254 04 0 00 034570 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8809	034570	324 00 0 00 034571 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8810									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8811									;IN THE SUBTEST) TO LOOP ON ERROR^
  8812
  8813					;**********
  8814
  8815					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8816					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8817					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8818					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8819					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8820					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8821					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8822					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8823			013013		SN=SN+1
  8824			002000			ZZ=ZZ+ZZ
  8825						IFE	ZZ,<ZZ=1>
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 31-5
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0185

  8826	034571	200 00 0 00 035106 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8827	034572	404 00 0 00 035106 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8828	034573	444 00 0 00 035106 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8829	034574	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8830	034575	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8831						STOP^
  8832	034576	254 04 0 00 034577 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8833	034577	324 00 0 00 034600 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8834									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8835									;IN THE SUBTEST) TO LOOP ON ERROR^
  8836
  8837					;**********
  8838
  8839					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8840					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8841					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8842					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8843					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8844					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8845					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8846					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8847			013014		SN=SN+1
  8848			004000			ZZ=ZZ+ZZ
  8849						IFE	ZZ,<ZZ=1>
  8850	034600	200 00 0 00 035107 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8851	034601	404 00 0 00 035107 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8852	034602	444 00 0 00 035107 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8853	034603	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8854	034604	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8855						STOP^
  8856	034605	254 04 0 00 034606 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8857	034606	324 00 0 00 034607 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8858									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8859									;IN THE SUBTEST) TO LOOP ON ERROR^
  8860
  8861					;**********
  8862
  8863					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8864					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8865					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8866					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8867					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8868					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8869					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8870					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8871			013015		SN=SN+1
  8872			010000			ZZ=ZZ+ZZ
  8873						IFE	ZZ,<ZZ=1>
  8874	034607	200 00 0 00 035110 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8875	034610	404 00 0 00 035110 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8876	034611	444 00 0 00 035110 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8877	034612	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8878	034613	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8879						STOP^
  8880	034614	254 04 0 00 034615 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 31-6
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0186

  8881	034615	324 00 0 00 034616 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8882									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8883									;IN THE SUBTEST) TO LOOP ON ERROR^
  8884
  8885					;**********
  8886
  8887					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8888					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8889					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8890					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8891					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8892					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8893					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8894					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8895			013016		SN=SN+1
  8896			020000			ZZ=ZZ+ZZ
  8897						IFE	ZZ,<ZZ=1>
  8898	034616	200 00 0 00 035111 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8899	034617	404 00 0 00 035111 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8900	034620	444 00 0 00 035111 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8901	034621	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8902	034622	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8903						STOP^
  8904	034623	254 04 0 00 034624 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8905	034624	324 00 0 00 034625 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8906									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8907									;IN THE SUBTEST) TO LOOP ON ERROR^
  8908
  8909					;**********
  8910
  8911					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8912					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8913					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8914					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8915					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8916					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8917					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8918					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8919			013017		SN=SN+1
  8920			040000			ZZ=ZZ+ZZ
  8921						IFE	ZZ,<ZZ=1>
  8922	034625	200 00 0 00 035112 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8923	034626	404 00 0 00 035112 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8924	034627	444 00 0 00 035112 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8925	034630	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8926	034631	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8927						STOP^
  8928	034632	254 04 0 00 034633 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8929	034633	324 00 0 00 034634 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8930									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8931									;IN THE SUBTEST) TO LOOP ON ERROR^
  8932
  8933					;**********
  8934
  8935					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 31-7
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0187

  8936					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8937					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8938					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8939					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8940					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8941					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8942					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8943			013020		SN=SN+1
  8944			100000			ZZ=ZZ+ZZ
  8945						IFE	ZZ,<ZZ=1>
  8946	034634	200 00 0 00 035113 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8947	034635	404 00 0 00 035113 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8948	034636	444 00 0 00 035113 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8949	034637	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8950	034640	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8951						STOP^
  8952	034641	254 04 0 00 034642 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8953	034642	324 00 0 00 034643 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8954									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8955									;IN THE SUBTEST) TO LOOP ON ERROR^
  8956
  8957					;**********
  8958
  8959					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8960					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8961					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8962					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8963					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8964					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8965					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8966					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8967			013021		SN=SN+1
  8968			200000			ZZ=ZZ+ZZ
  8969						IFE	ZZ,<ZZ=1>
  8970	034643	200 00 0 00 035114 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8971	034644	404 00 0 00 035114 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8972	034645	444 00 0 00 035114 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8973	034646	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8974	034647	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8975						STOP^
  8976	034650	254 04 0 00 034651 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8977	034651	324 00 0 00 034652 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8978									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8979									;IN THE SUBTEST) TO LOOP ON ERROR^
  8980
  8981					;**********
  8982
  8983					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8984					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8985					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8986					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8987					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8988					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8989					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8990					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 31-8
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0188

  8991			013022		SN=SN+1
  8992			400000			ZZ=ZZ+ZZ
  8993						IFE	ZZ,<ZZ=1>
  8994	034652	200 00 0 00 035115 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8995	034653	404 00 0 00 035115 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8996	034654	444 00 0 00 035115 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8997	034655	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8998	034656	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8999						STOP^
  9000	034657	254 04 0 00 034660 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9001	034660	324 00 0 00 034661 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9002									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9003									;IN THE SUBTEST) TO LOOP ON ERROR^
  9004
  9005					;**********
  9006
  9007					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  9008					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  9009					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  9010					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  9011					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  9012					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  9013					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  9014					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  9015			013023		SN=SN+1
  9016		000001	000000			ZZ=ZZ+ZZ
  9017						IFE	ZZ,<ZZ=1>
  9018	034661	200 00 0 00 035116 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  9019	034662	404 00 0 00 035116 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  9020	034663	444 00 0 00 035116 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  9021	034664	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  9022	034665	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  9023						STOP^
  9024	034666	254 04 0 00 034667 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9025	034667	324 00 0 00 034670 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9026									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9027									;IN THE SUBTEST) TO LOOP ON ERROR^
  9028
  9029					;**********
  9030
  9031					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  9032					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  9033					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  9034					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  9035					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  9036					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  9037					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  9038					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  9039			013024		SN=SN+1
  9040		000002	000000			ZZ=ZZ+ZZ
  9041						IFE	ZZ,<ZZ=1>
  9042	034670	200 00 0 00 035117 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  9043	034671	404 00 0 00 035117 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  9044	034672	444 00 0 00 035117 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  9045	034673	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 31-9
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0189

  9046	034674	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  9047						STOP^
  9048	034675	254 04 0 00 034676 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9049	034676	324 00 0 00 034677 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9050									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9051									;IN THE SUBTEST) TO LOOP ON ERROR^
  9052
  9053					;**********
  9054
  9055					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  9056					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  9057					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  9058					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  9059					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  9060					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  9061					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  9062					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  9063			013025		SN=SN+1
  9064		000004	000000			ZZ=ZZ+ZZ
  9065						IFE	ZZ,<ZZ=1>
  9066	034677	200 00 0 00 035120 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  9067	034700	404 00 0 00 035120 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  9068	034701	444 00 0 00 035120 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  9069	034702	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  9070	034703	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  9071						STOP^
  9072	034704	254 04 0 00 034705 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9073	034705	324 00 0 00 034706 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9074									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9075									;IN THE SUBTEST) TO LOOP ON ERROR^
  9076
  9077					;**********
  9078
  9079					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  9080					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  9081					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  9082					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  9083					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  9084					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  9085					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  9086					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  9087			013026		SN=SN+1
  9088		000010	000000			ZZ=ZZ+ZZ
  9089						IFE	ZZ,<ZZ=1>
  9090	034706	200 00 0 00 035121 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  9091	034707	404 00 0 00 035121 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  9092	034710	444 00 0 00 035121 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  9093	034711	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  9094	034712	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  9095						STOP^
  9096	034713	254 04 0 00 034714 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9097	034714	324 00 0 00 034715 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9098									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9099									;IN THE SUBTEST) TO LOOP ON ERROR^
  9100
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 31-10
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0190

  9101					;**********
  9102
  9103					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  9104					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  9105					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  9106					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  9107					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  9108					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  9109					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  9110					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  9111			013027		SN=SN+1
  9112		000020	000000			ZZ=ZZ+ZZ
  9113						IFE	ZZ,<ZZ=1>
  9114	034715	200 00 0 00 035122 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  9115	034716	404 00 0 00 035122 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  9116	034717	444 00 0 00 035122 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  9117	034720	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  9118	034721	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  9119						STOP^
  9120	034722	254 04 0 00 034723 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9121	034723	324 00 0 00 034724 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9122									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9123									;IN THE SUBTEST) TO LOOP ON ERROR^
  9124
  9125					;**********
  9126
  9127					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  9128					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  9129					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  9130					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  9131					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  9132					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  9133					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  9134					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  9135			013030		SN=SN+1
  9136		000040	000000			ZZ=ZZ+ZZ
  9137						IFE	ZZ,<ZZ=1>
  9138	034724	200 00 0 00 035123 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  9139	034725	404 00 0 00 035123 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  9140	034726	444 00 0 00 035123 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  9141	034727	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  9142	034730	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  9143						STOP^
  9144	034731	254 04 0 00 034732 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9145	034732	324 00 0 00 034733 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9146									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9147									;IN THE SUBTEST) TO LOOP ON ERROR^
  9148
  9149					;**********
  9150
  9151					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  9152					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  9153					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  9154					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  9155					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 31-11
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0191

  9156					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  9157					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  9158					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  9159			013031		SN=SN+1
  9160		000100	000000			ZZ=ZZ+ZZ
  9161						IFE	ZZ,<ZZ=1>
  9162	034733	200 00 0 00 035124 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  9163	034734	404 00 0 00 035124 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  9164	034735	444 00 0 00 035124 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  9165	034736	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  9166	034737	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  9167						STOP^
  9168	034740	254 04 0 00 034741 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9169	034741	324 00 0 00 034742 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9170									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9171									;IN THE SUBTEST) TO LOOP ON ERROR^
  9172
  9173					;**********
  9174
  9175					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  9176					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  9177					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  9178					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  9179					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  9180					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  9181					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  9182					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  9183			013032		SN=SN+1
  9184		000200	000000			ZZ=ZZ+ZZ
  9185						IFE	ZZ,<ZZ=1>
  9186	034742	200 00 0 00 035125 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  9187	034743	404 00 0 00 035125 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  9188	034744	444 00 0 00 035125 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  9189	034745	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  9190	034746	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  9191						STOP^
  9192	034747	254 04 0 00 034750 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9193	034750	324 00 0 00 034751 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9194									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9195									;IN THE SUBTEST) TO LOOP ON ERROR^
  9196
  9197					;**********
  9198
  9199					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  9200					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  9201					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  9202					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  9203					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  9204					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  9205					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  9206					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  9207			013033		SN=SN+1
  9208		000400	000000			ZZ=ZZ+ZZ
  9209						IFE	ZZ,<ZZ=1>
  9210	034751	200 00 0 00 035073 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 31-12
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0192

  9211	034752	404 00 0 00 035073 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  9212	034753	444 00 0 00 035073 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  9213	034754	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  9214	034755	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  9215						STOP^
  9216	034756	254 04 0 00 034757 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9217	034757	324 00 0 00 034760 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9218									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9219									;IN THE SUBTEST) TO LOOP ON ERROR^
  9220
  9221					;**********
  9222
  9223					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  9224					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  9225					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  9226					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  9227					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  9228					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  9229					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  9230					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  9231			013034		SN=SN+1
  9232		001000	000000			ZZ=ZZ+ZZ
  9233						IFE	ZZ,<ZZ=1>
  9234	034760	200 00 0 00 035126 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  9235	034761	404 00 0 00 035126 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  9236	034762	444 00 0 00 035126 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  9237	034763	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  9238	034764	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  9239						STOP^
  9240	034765	254 04 0 00 034766 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9241	034766	324 00 0 00 034767 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9242									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9243									;IN THE SUBTEST) TO LOOP ON ERROR^
  9244
  9245					;**********
  9246
  9247					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  9248					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  9249					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  9250					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  9251					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  9252					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  9253					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  9254					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  9255			013035		SN=SN+1
  9256		002000	000000			ZZ=ZZ+ZZ
  9257						IFE	ZZ,<ZZ=1>
  9258	034767	200 00 0 00 035127 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  9259	034770	404 00 0 00 035127 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  9260	034771	444 00 0 00 035127 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  9261	034772	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  9262	034773	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  9263						STOP^
  9264	034774	254 04 0 00 034775 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9265	034775	324 00 0 00 034776 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 31-13
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0193

  9266									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9267									;IN THE SUBTEST) TO LOOP ON ERROR^
  9268
  9269					;**********
  9270
  9271					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  9272					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  9273					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  9274					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  9275					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  9276					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  9277					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  9278					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  9279			013036		SN=SN+1
  9280		004000	000000			ZZ=ZZ+ZZ
  9281						IFE	ZZ,<ZZ=1>
  9282	034776	200 00 0 00 035130 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  9283	034777	404 00 0 00 035130 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  9284	035000	444 00 0 00 035130 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  9285	035001	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  9286	035002	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  9287						STOP^
  9288	035003	254 04 0 00 035004 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9289	035004	324 00 0 00 035005 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9290									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9291									;IN THE SUBTEST) TO LOOP ON ERROR^
  9292
  9293					;**********
  9294
  9295					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  9296					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  9297					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  9298					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  9299					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  9300					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  9301					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  9302					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  9303			013037		SN=SN+1
  9304		010000	000000			ZZ=ZZ+ZZ
  9305						IFE	ZZ,<ZZ=1>
  9306	035005	200 00 0 00 035131 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  9307	035006	404 00 0 00 035131 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  9308	035007	444 00 0 00 035131 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  9309	035010	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  9310	035011	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  9311						STOP^
  9312	035012	254 04 0 00 035013 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9313	035013	324 00 0 00 035014 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9314									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9315									;IN THE SUBTEST) TO LOOP ON ERROR^
  9316
  9317					;**********
  9318
  9319					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  9320					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 31-14
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0194

  9321					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  9322					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  9323					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  9324					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  9325					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  9326					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  9327			013040		SN=SN+1
  9328		020000	000000			ZZ=ZZ+ZZ
  9329						IFE	ZZ,<ZZ=1>
  9330	035014	200 00 0 00 035132 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  9331	035015	404 00 0 00 035132 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  9332	035016	444 00 0 00 035132 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  9333	035017	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  9334	035020	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  9335						STOP^
  9336	035021	254 04 0 00 035022 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9337	035022	324 00 0 00 035023 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9338									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9339									;IN THE SUBTEST) TO LOOP ON ERROR^
  9340
  9341					;**********
  9342
  9343					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  9344					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  9345					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  9346					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  9347					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  9348					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  9349					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  9350					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  9351			013041		SN=SN+1
  9352		040000	000000			ZZ=ZZ+ZZ
  9353						IFE	ZZ,<ZZ=1>
  9354	035023	200 00 0 00 035133 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  9355	035024	404 00 0 00 035133 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  9356	035025	444 00 0 00 035133 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  9357	035026	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  9358	035027	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  9359						STOP^
  9360	035030	254 04 0 00 035031 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9361	035031	324 00 0 00 035032 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9362									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9363									;IN THE SUBTEST) TO LOOP ON ERROR^
  9364
  9365					;**********
  9366
  9367					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  9368					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  9369					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  9370					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  9371					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  9372					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  9373					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  9374					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  9375			013042		SN=SN+1
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 31-15
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0195

  9376		100000	000000			ZZ=ZZ+ZZ
  9377						IFE	ZZ,<ZZ=1>
  9378	035032	200 00 0 00 035134 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  9379	035033	404 00 0 00 035134 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  9380	035034	444 00 0 00 035134 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  9381	035035	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  9382	035036	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  9383						STOP^
  9384	035037	254 04 0 00 035040 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9385	035040	324 00 0 00 035041 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9386									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9387									;IN THE SUBTEST) TO LOOP ON ERROR^
  9388
  9389					;**********
  9390
  9391					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  9392					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  9393					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  9394					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  9395					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  9396					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  9397					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  9398					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  9399			013043		SN=SN+1
  9400		200000	000000			ZZ=ZZ+ZZ
  9401						IFE	ZZ,<ZZ=1>
  9402	035041	200 00 0 00 035135 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  9403	035042	404 00 0 00 035135 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  9404	035043	444 00 0 00 035135 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  9405	035044	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  9406	035045	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  9407						STOP^
  9408	035046	254 04 0 00 035047 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9409	035047	324 00 0 00 035050 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9410									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9411									;IN THE SUBTEST) TO LOOP ON ERROR^
  9412
  9413					;**********
  9414
  9415					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  9416					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  9417					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  9418					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  9419					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  9420					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  9421					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  9422					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  9423			013044		SN=SN+1
  9424		400000	000000			ZZ=ZZ+ZZ
  9425						IFE	ZZ,<ZZ=1>
  9426	035050	200 00 0 00 035065 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  9427	035051	404 00 0 00 035065 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  9428	035052	444 00 0 00 035065 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  9429	035053	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  9430	035054	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 31-16
DAKAAM	MAC	19-JAN-77 13:42		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0196

  9431						STOP^
  9432	035055	254 04 0 00 035056 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9433	035056	324 00 0 00 035057 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9434									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9435									;IN THE SUBTEST) TO LOOP ON ERROR^
  9436
  9437					;**********
  9438
  9439	035057	254 00 0 00 030057 	ENDXX:	JRST	BEGEND		;LOOP PROGRAM
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 1
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0197

  9440					SUBTTL	*STOR* RESERVED STORAGE, JAN 18,1977
  9441
  9442					;PROGRAM LITERALS
  9443
  9444						XLIST
  9445					IFNDEF	$LPAPER,<LIST>
  9446	035060					LIT
  9447	035060	000001	000001
  9448	035061	254 00 0 00 030741 
  9449	035062	000000	000000
  9450	035063	777777	777777
  9451	035064	377777	777777
  9452	035065	400000	000000
  9453	035066	777000	000000
  9454	035067	000377	000000
  9455	035070	000000	177000
  9456	035071	000000	000777
  9457	035072	000000	600000
  9458	035073	000400	000000
  9459	035074	000000	000001
  9460	035075	000000	000002
  9461	035076	000000	000004
  9462	035077	000000	000010
  9463	035100	000000	000020
  9464	035101	000000	000040
  9465	035102	000000	000100
  9466	035103	000000	000200
  9467	035104	000000	000400
  9468	035105	000000	001000
  9469	035106	000000	002000
  9470	035107	000000	004000
  9471	035110	000000	010000
  9472	035111	000000	020000
  9473	035112	000000	040000
  9474	035113	000000	100000
  9475	035114	000000	200000
  9476	035115	000000	400000
  9477	035116	000001	000000
  9478	035117	000002	000000
  9479	035120	000004	000000
  9480	035121	000010	000000
  9481	035122	000020	000000
  9482	035123	000040	000000
  9483	035124	000100	000000
  9484	035125	000200	000000
  9485	035126	001000	000000
  9486	035127	002000	000000
  9487	035130	004000	000000
  9488	035131	010000	000000
  9489	035132	020000	000000
  9490	035133	040000	000000
  9491	035134	100000	000000
  9492	035135	200000	000000
  9493	035136	000000	001234
  9494	035137	000000	777777
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 1-1
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0198

  9495	035140	777777	000000
  9496	035141	707070	707070
  9497	035142	777777	777776
  9498	035143	777777	777775
  9499	035144	777777	777773
  9500	035145	777777	777767
  9501	035146	777777	777757
  9502	035147	777777	777737
  9503	035150	777777	777677
  9504	035151	777777	777577
  9505	035152	777777	777377
  9506	035153	777777	776777
  9507	035154	777777	775777
  9508	035155	777777	773777
  9509	035156	777777	767777
  9510	035157	777777	757777
  9511	035160	777777	737777
  9512	035161	777777	677777
  9513	035162	777777	577777
  9514	035163	777777	377777
  9515	035164	777776	777777
  9516	035165	777775	777777
  9517	035166	777773	777777
  9518	035167	777767	777777
  9519	035170	777757	777777
  9520	035171	777737	777777
  9521	035172	777677	777777
  9522	035173	777577	777777
  9523	035174	777377	777777
  9524	035175	776777	777777
  9525	035176	775777	777777
  9526	035177	773777	777777
  9527	035200	767777	777777
  9528	035201	757777	777777
  9529	035202	737777	777777
  9530	035203	677777	777777
  9531	035204	577777	777777
  9532						LIST
  9533	035205	000000	000000		ENDSLD:	0
  9534
  9535					IFDEF	DEBUG,<
  9536					PATCH:	BLOCK DEBUG		;PATCHING AREA
  9537					>
  9538
  9539					;PROGRAM VARIABLES
  9540	035206					VAR
  9541
  9542					IFDEF	PGMEND,<
  9543	035206	000000	000000		END:	0
  9544			030000			END	BEGIN	>

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
ABSLUTE BREAK IS 035207
DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2	MACRO %52(537) 13:54 19-JAN-77 PAGE 1-2
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0199

CPU TIME USED 00:40.863

11K CORE USED

A00	    54	    55	    56	    57	    58	    59	    60	    61	    62	    63	    64	   889#
A100	   944#                                                                                                            SEQ 0200
A1000	  1049#
A10000	  7679#
A10100	  8097#
A10200	  8520#
A10300	  8540#
A1100	  1064#
A1200	  1077#
A12500	   890#
A12600	   934#
A12700	   926#
A1300	  1091#
A13000	  8554#
A13100	  2021#
A1400	  1105#
A1500	  1119#
A15000	   905#
A15100	   916#
A1600	  1133#
A1700	  1147#
A200	   957#
A2000	  1161#
A2100	  1175#
A2200	  1188#
A2300	  1202#
A2400	  1216#
A2500	  1230#
A2600	  1243#
A2700	  1257#
A300	   971#
A3000	  1271#
A3100	  1283#
A3200	  1988#
A3300	  2006#
A3400	  2034#
A3500	  2059#
A3600	  2077#
A3700	  2095#
A400	   987#
A4000	  2146#
A4100	  2162#
A4200	  2307#
A4300	  2325#
A4400	  2343#
A4500	  2110#
A4600	  2125#
A4700	  2362#
A500	  1002#
A5000	  2378#
A5100	  2394#
A5200	  2409#
A5300	  2426#
A5400	  2446#
A5500	  2459#                                                                                                            SEQ 0201
A5600	  2819#
A5700	  3183#
A600	  1021#
A6000	  3199#
A6100	  3219#
A6200	  3237#
A6300	  3258#
A6400	  3271#
A6500	  4340#
A6600	  5120#
A6700	  5138#
A700	  1036#
A7000	  5158#
A7100	  5175#
A7200	  5191#
A7300	  5205#
A7400	  5945#
A7500	  6870#
A7600	  7648#
A7700	  7665#
AABCLR	   353#
AADRBK	   353#
AAPRC1	   353#
ABORT	    85#
AC	  2160#	  2193	  2193#	  2194	  2194#	  2196	  2197	  2198	  2222	  2222#	  2223	  2225	  2226	  2227
	  2251	  2251#	  2252	  2254	  2255	  2256	  2280	  2280#	  2281	  2283	  2284	  2285
AC0	   680#
AFOCLR	   353#
AFODIS	   353#
AFOENB	   353#
AFOV	   353#
ALTMGO	   439#
AMPCLR	   353#
AMPV	   353#
ANXCLR	   353#
ANXM	   353#
AOVCLR	   353#
AOVDIS	   353#
AOVENB	   353#
AOVFLO	   353#
APAREN	   353#
APARER	   353#
APDCLR	   353#
APDLOV	   353#
APR	   777	   778	   779
APWRFL	   353#
AROV	   353#
AROVU	   353#
AST	   554#
ATRPOS	   353#
ATSIN	   555#
AUSRIO	   353#
BEGEND	   435#	  9439                                                                                                     SEQ 0202
BEGIN	   299	   300	   366#	   723	   845	  9544
BEGIN1	   382#	   436
BELL	   558#
BIS	   353#
CCA	   353#
CHAIN	   105#
CHNOFF	   353#
CHNON	   353#
CLK	   353#
CLKCLR	   353#
CLKDIS	   353#
CLKENB	   353#
CLKU	   353#
CLOCKF	   421#
CNTLC	   438#
COMMA	   547#
CONSW	   422#
CPOPJ	   442#
CPOPJ1	   440#
CRLF	   234	   235	   542#
CRLF2	   238	   239	   544#
CRY0	   353#
CRY1	   353#
CSHFLG	   601#
CSHMEM	   602#
CYCL60	   595#
DCK	   353#
DDT	   682#
DDTLNK	   119#	   380
DDTSRT	   380#
DEBUG	  9535
DECVER	     5#	    11	    27	   401
DF22F	   506#
DIAGMN	   369#
DIAGNO	   681#
DIAMON	   683#
DING	    91#
DOLLAR	   561#
DONG11	   684#	   824	   840
DSKUPD	   406
DTE	   688#	   824	   826	   840	   842
DTE0	   689#
DTE1	   690#
DTE2	   691#
DTE3	   692#
END	  9543#
ENDFIX	   675#
ENDSLD	  9533#
ENDXX	  9439#
ERMORE	   455#
ERRPC	   426#
ERRTLS	   427#
ERSTOP	    94#                                                                                                            SEQ 0203
EXCASB	    33#	   404
EXIOT	   353#
FOV	   353#
FOVU	   353#
FRDLNK	   117#
FSELNK	   116#
FXU	   353#
HYPEN	   552#
INHCSH	   102#
INHPAG	    99#
INXM	   353#
IOCLR	   353#
ITERAT	    73#	   399
ITRCH1	   459#
ITRCNT	   399#	   769	   798	   802	   810	   811	   815
JOB41	   353#
JOBAPR	   353#
JOBCNI	   353#
JOBDDT	   353#
JOBFF	   353#
JOBOPC	   353#
JOBREL	   353#
JOBREN	   353#
JOBSA	   353#
JOBSYM	   353#
JOBTPC	   353#
JOBUSY	   353#
JOBUUO	   353#
JOBVER	   353#
KA10	    35#	   353
KAHZ50	   107#
KAIFLG	   416#
KI10	   353
KL10	   353
KLFLG	   417#	   771	   789	   808
KLOLD	   314
KLTYP	   633#	   770	   781	   823	   825	   839	   841
LDLNK	   118#	   369	   371
LFP	   556#
LOOPER	    93#
LUUO	   353#
LUUO1	   486	   487
LUUO10	   486	   491
LUUO11	   486	   491
LUUO12	   486	   492
LUUO13	   486	   492
LUUO14	   486	   493
LUUO15	   486	   493
LUUO16	   486	   494
LUUO17	   486	   494
LUUO2	   486	   488
LUUO20	   486	   495
LUUO21	   486	   495                                                                                                     SEQ 0204
LUUO22	   486	   496
LUUO23	   486	   496
LUUO24	   486	   497
LUUO25	   486	   497
LUUO26	   486	   498
LUUO27	   486	   498
LUUO3	   486	   488
LUUO30	   486	   499
LUUO31	   486	   499
LUUO32	   486	   500
LUUO33	   486	   500
LUUO4	   486	   489
LUUO5	   486	   489
LUUO6	   486	   490
LUUO7	   486	   490
LUUOI	   353#
MAPNEW	   507#
MARGIN	   429#
MCNVER	     6#	    11	    27	   401
MEMLOW	   509#
MEMMAP	   407
MEMSIZ	   510#
MEMTOT	   508#
MINUS	   551#
MODDVC	   101#
MODDVL	   299	   299#	   402
MODDVU	   300	   300#	   403
MODLNK	   120#	   366
MONCTL	   419#	   818	   856
MONFLG	   418#	   763	   852
MONTEN	   420#	   768	   804	   833
MPVU	   353#
NOPNT	    89#
NXMU	   353#
OPRSEL	   103#
OPTIME	   521#
P	   146	   147	   148	   149	   353#	   441
PAG	   353#
PALERS	    95#
PARCLR	   353#
PARDIS	   353#
PAREA0	    66#
PAREA1	    67#	   397
PAREA2	    68#	   398
PAREA3	    69#	   395
PAREA4	    70#	   396
PAREA5	    71#	   408
PAREA6	    72#	   409
PAREA7	   408#
PAREA8	   409#
PARENB	   353#
PARU	   353#
PASCNT	   423#	   797                                                                                                     SEQ 0205
PDISF	   518#
PDLOVU	   353#
PERIOD	   548#
PFSTRT	   375#
PGMEND	    74#	  9542
PGMNAM	   400	   857	   860#
PI	   810
PICHN1	   353#
PICHN2	   353#
PICHN3	   353#
PICHN4	   353#
PICHN5	   353#
PICHN6	   353#
PICHN7	   353#
PICHNA	   353#
PICLR	   353#
PIOFF	   353#
PION	   353#
PLIST	   587#	   587
PLISTE	   587	   589#	   673
PLISTS	   588#
PLUS	   553#
PNTENB	   517#
PNTEXT	   396#
PNTFLG	   516#
PNTINH	   519#
PNTLPT	    90#
PNTNAM	   395#
PNTSPC	   520#
PVPAGI	   614#
PWFCLR	   353#
QUEST	   559#
RADIX	   562#
RADLSC	   564#
RADLSP	   563#
RANDBS	   397#
REENTR	   377#
RELIAB	    97#
REPT	   353#
REPT1	   353#
REPTU	   475#
REQSET	   353#
RESRT1	   452#
RESRT2	   453#
RETURN	   384#	   806	   813	   834
RSTART	    86#
RTP	   557#
RUNFLG	   424#
SADR1	    54#	   373
SADR10	    63#	   389
SADR11	    64#	   390
SADR2	    55#	   375
SADR3	    56#	   377                                                                                                     SEQ 0206
SADR4	    57#
SADR5	    58#	   438
SADR6	    59#	   439
SADR7	    60#	   386
SADR8	    61#	   387
SADR9	    62#	   388
SBINIT	   159	   383#
SCOPE	   476#
SFSTRT	   373#
SLASH	   560#
SN	  1280#	  1305	  1305#	  1324	  1324#	  1343	  1343#	  1362	  1362#	  1381	  1381#	  1400	  1400#	  1419
	  1419#	  1438	  1438#	  1457	  1457#	  1476	  1476#	  1495	  1495#	  1514	  1514#	  1533	  1533#	  1552
	  1552#	  1571	  1571#	  1590	  1590#	  1609	  1609#	  1628	  1628#	  1647	  1647#	  1666	  1666#	  1685
	  1685#	  1704	  1704#	  1723	  1723#	  1742	  1742#	  1761	  1761#	  1780	  1780#	  1799	  1799#	  1818
	  1818#	  1837	  1837#	  1856	  1856#	  1875	  1875#	  1894	  1894#	  1913	  1913#	  1932	  1932#	  1951
	  1951#	  1970	  1970#	  2159#	  2192	  2192#	  2221	  2221#	  2250	  2250#	  2279	  2279#	  2456#	  2480
	  2480#	  2499	  2499#	  2518	  2518#	  2537	  2537#	  2556	  2556#	  2575	  2575#	  2594	  2594#	  2613
	  2613#	  2632	  2632#	  2651	  2651#	  2670	  2670#	  2689	  2689#	  2708	  2708#	  2727	  2727#	  2746
	  2746#	  2765	  2765#	  2784	  2784#	  2803	  2803#	  2817#	  2841	  2841#	  2860	  2860#	  2879	  2879#
	  2898	  2898#	  2917	  2917#	  2936	  2936#	  2955	  2955#	  2974	  2974#	  2993	  2993#	  3012	  3012#
	  3031	  3031#	  3050	  3050#	  3069	  3069#	  3088	  3088#	  3107	  3107#	  3126	  3126#	  3145	  3145#
	  3164	  3164#	  3268#	  3301	  3301#	  3330	  3330#	  3359	  3359#	  3388	  3388#	  3417	  3417#	  3446
	  3446#	  3475	  3475#	  3504	  3504#	  3533	  3533#	  3562	  3562#	  3591	  3591#	  3620	  3620#	  3649
	  3649#	  3678	  3678#	  3707	  3707#	  3736	  3736#	  3765	  3765#	  3794	  3794#	  3823	  3823#	  3852
	  3852#	  3881	  3881#	  3910	  3910#	  3939	  3939#	  3968	  3968#	  3997	  3997#	  4026	  4026#	  4055
	  4055#	  4084	  4084#	  4113	  4113#	  4142	  4142#	  4171	  4171#	  4200	  4200#	  4229	  4229#	  4258
	  4258#	  4287	  4287#	  4316	  4316#	  4337#	  4363	  4363#	  4384	  4384#	  4405	  4405#	  4426	  4426#
	  4447	  4447#	  4468	  4468#	  4489	  4489#	  4510	  4510#	  4531	  4531#	  4552	  4552#	  4573	  4573#
	  4594	  4594#	  4615	  4615#	  4636	  4636#	  4657	  4657#	  4678	  4678#	  4699	  4699#	  4720	  4720#
	  4741	  4741#	  4762	  4762#	  4783	  4783#	  4804	  4804#	  4825	  4825#	  4846	  4846#	  4867	  4867#
	  4888	  4888#	  4909	  4909#	  4930	  4930#	  4951	  4951#	  4972	  4972#	  4993	  4993#	  5014	  5014#
	  5035	  5035#	  5056	  5056#	  5077	  5077#	  5098	  5098#	  5202#	  5227	  5227#	  5247	  5247#	  5267
	  5267#	  5287	  5287#	  5307	  5307#	  5327	  5327#	  5347	  5347#	  5367	  5367#	  5387	  5387#	  5407
	  5407#	  5427	  5427#	  5447	  5447#	  5467	  5467#	  5487	  5487#	  5507	  5507#	  5527	  5527#	  5547
	  5547#	  5567	  5567#	  5587	  5587#	  5607	  5607#	  5627	  5627#	  5647	  5647#	  5667	  5667#	  5687
	  5687#	  5707	  5707#	  5727	  5727#	  5747	  5747#	  5767	  5767#	  5787	  5787#	  5807	  5807#	  5827
	  5827#	  5847	  5847#	  5867	  5867#	  5887	  5887#	  5907	  5907#	  5927	  5927#	  5942#	  5972	  5972#
	  5997	  5997#	  6022	  6022#	  6047	  6047#	  6072	  6072#	  6097	  6097#	  6122	  6122#	  6147	  6147#
	  6172	  6172#	  6197	  6197#	  6222	  6222#	  6247	  6247#	  6272	  6272#	  6297	  6297#	  6322	  6322#
	  6347	  6347#	  6372	  6372#	  6397	  6397#	  6422	  6422#	  6447	  6447#	  6472	  6472#	  6497	  6497#
	  6522	  6522#	  6547	  6547#	  6572	  6572#	  6597	  6597#	  6622	  6622#	  6647	  6647#	  6672	  6672#
	  6697	  6697#	  6722	  6722#	  6747	  6747#	  6772	  6772#	  6797	  6797#	  6822	  6822#	  6847	  6847#
	  6867#	  6895	  6895#	  6916	  6916#	  6937	  6937#	  6958	  6958#	  6979	  6979#	  7000	  7000#	  7021
	  7021#	  7042	  7042#	  7063	  7063#	  7084	  7084#	  7105	  7105#	  7126	  7126#	  7147	  7147#	  7168
	  7168#	  7189	  7189#	  7210	  7210#	  7231	  7231#	  7252	  7252#	  7273	  7273#	  7294	  7294#	  7315
	  7315#	  7336	  7336#	  7357	  7357#	  7378	  7378#	  7399	  7399#	  7420	  7420#	  7441	  7441#	  7462
	  7462#	  7483	  7483#	  7504	  7504#	  7525	  7525#	  7546	  7546#	  7567	  7567#	  7588	  7588#	  7609
	  7609#	  7630	  7630#	  7676#	  7705	  7705#	  7727	  7727#	  7749	  7749#	  7771	  7771#	  7793	  7793#
	  7815	  7815#	  7837	  7837#	  7859	  7859#	  7881	  7881#	  7903	  7903#	  7925	  7925#	  7947	  7947#
	  7969	  7969#	  7991	  7991#	  8013	  8013#	  8035	  8035#	  8057	  8057#	  8079	  8079#	  8094#	  8123
	  8123#	  8145	  8145#	  8167	  8167#	  8189	  8189#	  8211	  8211#	  8233	  8233#	  8255	  8255#	  8277
	  8277#	  8299	  8299#	  8321	  8321#	  8343	  8343#	  8365	  8365#	  8387	  8387#	  8409	  8409#	  8431
	  8431#	  8453	  8453#	  8475	  8475#	  8497	  8497#	  8551#	  8583	  8583#	  8607	  8607#	  8631	  8631#    SEQ 0207
	  8655	  8655#	  8679	  8679#	  8703	  8703#	  8727	  8727#	  8751	  8751#	  8775	  8775#	  8799	  8799#
	  8823	  8823#	  8847	  8847#	  8871	  8871#	  8895	  8895#	  8919	  8919#	  8943	  8943#	  8967	  8967#
	  8991	  8991#	  9015	  9015#	  9039	  9039#	  9063	  9063#	  9087	  9087#	  9111	  9111#	  9135	  9135#
	  9159	  9159#	  9183	  9183#	  9207	  9207#	  9231	  9231#	  9255	  9255#	  9279	  9279#	  9303	  9303#
	  9327	  9327#	  9351	  9351#	  9375	  9375#	  9399	  9399#	  9423	  9423#
SPACE	   549#
SRTDDT	   379#
START	   367	   766	   775	   790	   794	   848#
START1	   386#
START2	   387#
START3	   388#
START4	   389#
START5	   390#
STARTA	   382	   792	   803	   812	   819	   829	   855	   858	   880#
SUBLNK	   121#	   383
SWTEXR	   398#
SYSEXR	   371#
TAB	   550#
TESTPC	   425#
TICKS	   428#
TOTALS	    87#
TTNBRF	   608#
TTYFIL	   524#
TTYSPD	   525#
TXTINH	    98#
USER	   415#	   759	   762	   764	   765	   799	   848#	   848	   851	   853	   854
USERF	    38#	   353#	   761	   850
USRASB	    34#	   405
USRCRF	   534#
USRLFF	   533#
UUODIS	   487#
UUOEXT	   443#
UUORTN	   444#
UUOSKP	   441#
ZZ	  1281#	  1306	  1306#	  1307	  1307#	  1308	  1325	  1325#	  1326	  1327	  1344	  1344#	  1345	  1346
	  1363	  1363#	  1364	  1365	  1382	  1382#	  1383	  1384	  1401	  1401#	  1402	  1403	  1420	  1420#
	  1421	  1422	  1439	  1439#	  1440	  1441	  1458	  1458#	  1459	  1460	  1477	  1477#	  1478	  1479
	  1496	  1496#	  1497	  1498	  1515	  1515#	  1516	  1517	  1534	  1534#	  1535	  1536	  1553	  1553#
	  1554	  1555	  1572	  1572#	  1573	  1574	  1591	  1591#	  1592	  1593	  1610	  1610#	  1611	  1612
	  1629	  1629#	  1630	  1631	  1648	  1648#	  1649	  1650	  1667	  1667#	  1668	  1669	  1686	  1686#
	  1687	  1688	  1705	  1705#	  1706	  1707	  1724	  1724#	  1725	  1726	  1743	  1743#	  1744	  1745
	  1762	  1762#	  1763	  1764	  1781	  1781#	  1782	  1783	  1800	  1800#	  1801	  1802	  1819	  1819#
	  1820	  1821	  1838	  1838#	  1839	  1840	  1857	  1857#	  1858	  1859	  1876	  1876#	  1877	  1878
	  1895	  1895#	  1896	  1897	  1914	  1914#	  1915	  1916	  1933	  1933#	  1934	  1935	  1952	  1952#
	  1953	  1954	  1971	  1971#	  1972	  1973	  2457#	  2481	  2481#	  2482	  2482#	  2484	  2500	  2500#
	  2501	  2503	  2519	  2519#	  2520	  2522	  2538	  2538#	  2539	  2541	  2557	  2557#	  2558	  2560
	  2576	  2576#	  2577	  2579	  2595	  2595#	  2596	  2598	  2614	  2614#	  2615	  2617	  2633	  2633#
	  2634	  2636	  2652	  2652#	  2653	  2655	  2671	  2671#	  2672	  2674	  2690	  2690#	  2691	  2693
	  2709	  2709#	  2710	  2712	  2728	  2728#	  2729	  2731	  2747	  2747#	  2748	  2750	  2766	  2766#
	  2767	  2769	  2785	  2785#	  2786	  2788	  2804	  2804#	  2805	  2807	  2842	  2842#	  2844	  2861
	  2861#	  2863	  2880	  2880#	  2882	  2899	  2899#	  2901	  2918	  2918#	  2920	  2937	  2937#	  2939
	  2956	  2956#	  2958	  2975	  2975#	  2977	  2994	  2994#	  2996	  3013	  3013#	  3015	  3032	  3032#
	  3034	  3051	  3051#	  3053	  3070	  3070#	  3072	  3089	  3089#	  3091	  3108	  3108#	  3110	  3127     SEQ 0208
	  3127#	  3129	  3146	  3146#	  3148	  3165	  3165#	  3167	  3269#	  3302	  3302#	  3303	  3303#	  3305
	  3331	  3331#	  3332	  3334	  3360	  3360#	  3361	  3363	  3389	  3389#	  3390	  3392	  3418	  3418#
	  3419	  3421	  3447	  3447#	  3448	  3450	  3476	  3476#	  3477	  3479	  3505	  3505#	  3506	  3508
	  3534	  3534#	  3535	  3537	  3563	  3563#	  3564	  3566	  3592	  3592#	  3593	  3595	  3621	  3621#
	  3622	  3624	  3650	  3650#	  3651	  3653	  3679	  3679#	  3680	  3682	  3708	  3708#	  3709	  3711
	  3737	  3737#	  3738	  3740	  3766	  3766#	  3767	  3769	  3795	  3795#	  3796	  3798	  3824	  3824#
	  3825	  3827	  3853	  3853#	  3854	  3856	  3882	  3882#	  3883	  3885	  3911	  3911#	  3912	  3914
	  3940	  3940#	  3941	  3943	  3969	  3969#	  3970	  3972	  3998	  3998#	  3999	  4001	  4027	  4027#
	  4028	  4030	  4056	  4056#	  4057	  4059	  4085	  4085#	  4086	  4088	  4114	  4114#	  4115	  4117
	  4143	  4143#	  4144	  4146	  4172	  4172#	  4173	  4175	  4201	  4201#	  4202	  4204	  4230	  4230#
	  4231	  4233	  4259	  4259#	  4260	  4262	  4288	  4288#	  4289	  4291	  4317	  4317#	  4318	  4320
	  4338#	  4364	  4364#	  4365	  4365#	  4366	  4385	  4385#	  4386	  4387	  4406	  4406#	  4407	  4408
	  4427	  4427#	  4428	  4429	  4448	  4448#	  4449	  4450	  4469	  4469#	  4470	  4471	  4490	  4490#
	  4491	  4492	  4511	  4511#	  4512	  4513	  4532	  4532#	  4533	  4534	  4553	  4553#	  4554	  4555
	  4574	  4574#	  4575	  4576	  4595	  4595#	  4596	  4597	  4616	  4616#	  4617	  4618	  4637	  4637#
	  4638	  4639	  4658	  4658#	  4659	  4660	  4679	  4679#	  4680	  4681	  4700	  4700#	  4701	  4702
	  4721	  4721#	  4722	  4723	  4742	  4742#	  4743	  4744	  4763	  4763#	  4764	  4765	  4784	  4784#
	  4785	  4786	  4805	  4805#	  4806	  4807	  4826	  4826#	  4827	  4828	  4847	  4847#	  4848	  4849
	  4868	  4868#	  4869	  4870	  4889	  4889#	  4890	  4891	  4910	  4910#	  4911	  4912	  4931	  4931#
	  4932	  4933	  4952	  4952#	  4953	  4954	  4973	  4973#	  4974	  4975	  4994	  4994#	  4995	  4996
	  5015	  5015#	  5016	  5017	  5036	  5036#	  5037	  5038	  5057	  5057#	  5058	  5059	  5078	  5078#
	  5079	  5080	  5099	  5099#	  5100	  5101	  5203#	  5228	  5228#	  5229	  5229#	  5231	  5248	  5248#
	  5249	  5251	  5268	  5268#	  5269	  5271	  5288	  5288#	  5289	  5291	  5308	  5308#	  5309	  5311
	  5328	  5328#	  5329	  5331	  5348	  5348#	  5349	  5351	  5368	  5368#	  5369	  5371	  5388	  5388#
	  5389	  5391	  5408	  5408#	  5409	  5411	  5428	  5428#	  5429	  5431	  5448	  5448#	  5449	  5451
	  5468	  5468#	  5469	  5471	  5488	  5488#	  5489	  5491	  5508	  5508#	  5509	  5511	  5528	  5528#
	  5529	  5531	  5548	  5548#	  5549	  5551	  5568	  5568#	  5569	  5571	  5588	  5588#	  5589	  5591
	  5608	  5608#	  5609	  5611	  5628	  5628#	  5629	  5631	  5648	  5648#	  5649	  5651	  5668	  5668#
	  5669	  5671	  5688	  5688#	  5689	  5691	  5708	  5708#	  5709	  5711	  5728	  5728#	  5729	  5731
	  5748	  5748#	  5749	  5751	  5768	  5768#	  5769	  5771	  5788	  5788#	  5789	  5791	  5808	  5808#
	  5809	  5811	  5828	  5828#	  5829	  5831	  5848	  5848#	  5849	  5851	  5868	  5868#	  5869	  5871
	  5888	  5888#	  5889	  5891	  5908	  5908#	  5909	  5911	  5928	  5928#	  5929	  5931	  5943#	  5973
	  5973#	  5974	  5974#	  5975	  5998	  5998#	  5999	  6000	  6023	  6023#	  6024	  6025	  6048	  6048#
	  6049	  6050	  6073	  6073#	  6074	  6075	  6098	  6098#	  6099	  6100	  6123	  6123#	  6124	  6125
	  6148	  6148#	  6149	  6150	  6173	  6173#	  6174	  6175	  6198	  6198#	  6199	  6200	  6223	  6223#
	  6224	  6225	  6248	  6248#	  6249	  6250	  6273	  6273#	  6274	  6275	  6298	  6298#	  6299	  6300
	  6323	  6323#	  6324	  6325	  6348	  6348#	  6349	  6350	  6373	  6373#	  6374	  6375	  6398	  6398#
	  6399	  6400	  6423	  6423#	  6424	  6425	  6448	  6448#	  6449	  6450	  6473	  6473#	  6474	  6475
	  6498	  6498#	  6499	  6500	  6523	  6523#	  6524	  6525	  6548	  6548#	  6549	  6550	  6573	  6573#
	  6574	  6575	  6598	  6598#	  6599	  6600	  6623	  6623#	  6624	  6625	  6648	  6648#	  6649	  6650
	  6673	  6673#	  6674	  6675	  6698	  6698#	  6699	  6700	  6723	  6723#	  6724	  6725	  6748	  6748#
	  6749	  6750	  6773	  6773#	  6774	  6775	  6798	  6798#	  6799	  6800	  6823	  6823#	  6824	  6825
	  6848	  6848#	  6849	  6850	  6868#	  6896	  6896#	  6897	  6897#	  6898	  6899	  6917	  6917#	  6918
	  6919	  6920	  6938	  6938#	  6939	  6940	  6941	  6959	  6959#	  6960	  6961	  6962	  6980	  6980#
	  6981	  6982	  6983	  7001	  7001#	  7002	  7003	  7004	  7022	  7022#	  7023	  7024	  7025	  7043
	  7043#	  7044	  7045	  7046	  7064	  7064#	  7065	  7066	  7067	  7085	  7085#	  7086	  7087	  7088
	  7106	  7106#	  7107	  7108	  7109	  7127	  7127#	  7128	  7129	  7130	  7148	  7148#	  7149	  7150
	  7151	  7169	  7169#	  7170	  7171	  7172	  7190	  7190#	  7191	  7192	  7193	  7211	  7211#	  7212
	  7213	  7214	  7232	  7232#	  7233	  7234	  7235	  7253	  7253#	  7254	  7255	  7256	  7274	  7274#
	  7275	  7276	  7277	  7295	  7295#	  7296	  7297	  7298	  7316	  7316#	  7317	  7318	  7319	  7337
	  7337#	  7338	  7339	  7340	  7358	  7358#	  7359	  7360	  7361	  7379	  7379#	  7380	  7381	  7382
	  7400	  7400#	  7401	  7402	  7403	  7421	  7421#	  7422	  7423	  7424	  7442	  7442#	  7443	  7444
	  7445	  7463	  7463#	  7464	  7465	  7466	  7484	  7484#	  7485	  7486	  7487	  7505	  7505#	  7506     SEQ 0209
	  7507	  7508	  7526	  7526#	  7527	  7528	  7529	  7547	  7547#	  7548	  7549	  7550	  7568	  7568#
	  7569	  7570	  7571	  7589	  7589#	  7590	  7591	  7592	  7610	  7610#	  7611	  7612	  7613	  7631
	  7631#	  7632	  7633	  7634	  7677#	  7706	  7706#	  7707	  7707#	  7709	  7728	  7728#	  7729	  7731
	  7750	  7750#	  7751	  7753	  7772	  7772#	  7773	  7775	  7794	  7794#	  7795	  7797	  7816	  7816#
	  7817	  7819	  7838	  7838#	  7839	  7841	  7860	  7860#	  7861	  7863	  7882	  7882#	  7883	  7885
	  7904	  7904#	  7905	  7907	  7926	  7926#	  7927	  7929	  7948	  7948#	  7949	  7951	  7970	  7970#
	  7971	  7973	  7992	  7992#	  7993	  7995	  8014	  8014#	  8015	  8017	  8036	  8036#	  8037	  8039
	  8058	  8058#	  8059	  8061	  8080	  8080#	  8081	  8083	  8095#	  8124	  8124#	  8125	  8125#	  8127
	  8146	  8146#	  8147	  8149	  8168	  8168#	  8169	  8171	  8190	  8190#	  8191	  8193	  8212	  8212#
	  8213	  8215	  8234	  8234#	  8235	  8237	  8256	  8256#	  8257	  8259	  8278	  8278#	  8279	  8281
	  8300	  8300#	  8301	  8303	  8322	  8322#	  8323	  8325	  8344	  8344#	  8345	  8347	  8366	  8366#
	  8367	  8369	  8388	  8388#	  8389	  8391	  8410	  8410#	  8411	  8413	  8432	  8432#	  8433	  8435
	  8454	  8454#	  8455	  8457	  8476	  8476#	  8477	  8479	  8498	  8498#	  8499	  8501	  8552#	  8584
	  8584#	  8585	  8585#	  8586	  8587	  8588	  8608	  8608#	  8609	  8610	  8611	  8612	  8632	  8632#
	  8633	  8634	  8635	  8636	  8656	  8656#	  8657	  8658	  8659	  8660	  8680	  8680#	  8681	  8682
	  8683	  8684	  8704	  8704#	  8705	  8706	  8707	  8708	  8728	  8728#	  8729	  8730	  8731	  8732
	  8752	  8752#	  8753	  8754	  8755	  8756	  8776	  8776#	  8777	  8778	  8779	  8780	  8800	  8800#
	  8801	  8802	  8803	  8804	  8824	  8824#	  8825	  8826	  8827	  8828	  8848	  8848#	  8849	  8850
	  8851	  8852	  8872	  8872#	  8873	  8874	  8875	  8876	  8896	  8896#	  8897	  8898	  8899	  8900
	  8920	  8920#	  8921	  8922	  8923	  8924	  8944	  8944#	  8945	  8946	  8947	  8948	  8968	  8968#
	  8969	  8970	  8971	  8972	  8992	  8992#	  8993	  8994	  8995	  8996	  9016	  9016#	  9017	  9018
	  9019	  9020	  9040	  9040#	  9041	  9042	  9043	  9044	  9064	  9064#	  9065	  9066	  9067	  9068
	  9088	  9088#	  9089	  9090	  9091	  9092	  9112	  9112#	  9113	  9114	  9115	  9116	  9136	  9136#
	  9137	  9138	  9139	  9140	  9160	  9160#	  9161	  9162	  9163	  9164	  9184	  9184#	  9185	  9186
	  9187	  9188	  9208	  9208#	  9209	  9210	  9211	  9212	  9232	  9232#	  9233	  9234	  9235	  9236
	  9256	  9256#	  9257	  9258	  9259	  9260	  9280	  9280#	  9281	  9282	  9283	  9284	  9304	  9304#
	  9305	  9306	  9307	  9308	  9328	  9328#	  9329	  9330	  9331	  9332	  9352	  9352#	  9353	  9354
	  9355	  9356	  9376	  9376#	  9377	  9378	  9379	  9380	  9400	  9400#	  9401	  9402	  9403	  9404
	  9424	  9424#	  9425	  9426	  9427	  9428
$$420	   733#
$$421	   734#
$$422	   735#
$$423	   736#
$$424	   737#
$$425	   738#
$$426	   739#
$$427	   740#
$$430	   741#
$$431	   742#
$$432	   743#
$$433	   744#
$$434	   745#
$$435	   746#
$$436	   747#
$$437	   748#
$$500	   751#
$$501	   752#
$$502	   753#
$$503	   754#
$$BEGI	   719#
$$DTE0	   785	   824#
$$DTE1	   786	   826#
$$DTE2	   787	   840#                                                                                                    SEQ 0210
$$DTE3	   788	   842#
$$LOC	   716#	   755
$$MUUO	   639#
$$OUTE	   645#
$$STAR	   719	   720	   759#
$$TAX1	   657#
$$TAX2	   658#
$$TOGG	   651#
$$UUO	   628#
$ACC0	   466#
$BEGEN	   728#
$BEND1	   436#
$BEND2	   437#
$CHRIN	   527#
$CRLF	   529#
$DDT	   697#
$DEVCH	   353#
$DSKUP	   406#
$DTCHR	   709#
$DTCI	   703#
$DTCLK	   702#	   783
$DTCMD	   706#	   821	   837
$DTF11	   705#
$DTFLG	   701#	   782	   822	   827	   838	   843
$DTMTD	   710#
$DTMTI	   711#
$DTOPR	   708#	   784
$DTSEQ	   707#
$DTSWR	   713#
$DTT11	   704#
$DVCH1	   353#
$DVOFF	   523#
$EMODE	   404#
$ENDFX	   673#	   674
$FFF	   531#
$IBUF	   579#
$INEXT	   581#
$INNM	   580#
$ITRHL	   447#
$ITRX1	   448#
$LPAPE	  9445
$MMAP	   407#
$MODVL	   402#
$MODVU	   403#
$OBUF	   570#
$ONETM	   430#
$OUTEX	   572#
$OUTNM	   571#
$PAPER	   353
$PARER	   454#
$PNAME	   400#
$PSHER	   458#
$PVER	   401#                                                                                                            SEQ 0211
$RSRTX	   450#
$RSRTY	   451#
$SPAG1	   470#
$SPB1	   793	   799#
$SPBEN	   728	   797#
$SPBEX	   800	   808#
$SPBKL	   809	   815#
$SPBUS	   802#
$SPEC	   725	   792#
$SPKLD	   816	   833#
$START	   367#
$STD	   696#	   723#
$STKIL	   768#
$STKL	   777#
$STL	   698#
$STM	   699#	   725#
$SVAPR	   468#
$SVPAG	   469#
$SVPI	   467#
$SVUPC	   473#
$SVUUO	   472#
$TABF	   530#
$TTCHR	   526#
$TWCNT	   522#
$TYPNB	   528#
$UMODE	   405#
$UORTX	   445#
$USRHL	   449#
$UUOER	   446#	   487
$VTF	   532#
%ACTFL	   479#
%ACTUL	   480#
%COREC	   478#
%CORFL	   477#
%DISCR	   481#
%ERHI1	   620#
%ERHI2	   621#
%ERHI3	   622#
.JB41	   353#
.JBAPR	   353#
.JBCNI	   353#
.JBDDT	   353#
.JBFF	   353#
.JBOPC	   353#
.JBREL	   353#
.JBREN	   353#
.JBSA	   353#
.JBSYM	   353#
.JBTPC	   353#
.JBUSY	   353#
.JBUUO	   353#
.JBVER	   353#
                                                                                                                           SEQ 0212
CFLUSH	   270#
CINVAL	   269#                                                                                                            SEQ 0213
CLOKOP	   264#
CWRTBI	   271#
DROPDV	   231#
ENDUUO	   277#	   435
EOPUUO	   278#	   437
ERLOOP	   322#
ERLP1	   323#
ERLP2	   324#
ERRHLT	   166#
ERROR	   331#
ERROR1	   343#
ERUUO	   321#
EXIT	   805
FATAL	   165#
FRD36	   306#
FRD8	   307#
FREAD	   305#
FSELEC	   304#
GET	   149#
GO	   146#
HALT	   151#	   456	   733	   735	   736	   740	   754	   845	   891	   907	   918	   928	   935	   947
	   960	   974	   991	  1006	  1025	  1039	  1053	  1067	  1081	  1095	  1108	  1122	  1137	  1151
	  1164	  1178	  1192	  1205	  1219	  1233	  1246	  1260	  1274	  1311	  1330	  1349	  1368	  1387
	  1406	  1425	  1444	  1463	  1482	  1501	  1520	  1539	  1558	  1577	  1596	  1615	  1634	  1653
	  1672	  1691	  1710	  1729	  1748	  1767	  1786	  1805	  1824	  1843	  1862	  1881	  1900	  1919
	  1938	  1957	  1976	  1991	  2009	  2024	  2040	  2065	  2083	  2101	  2114	  2128	  2153	  2200
	  2206	  2229	  2235	  2258	  2264	  2287	  2293	  2311	  2330	  2348	  2366	  2382	  2398	  2413
	  2430	  2450	  2487	  2506	  2525	  2544	  2563	  2582	  2601	  2620	  2639	  2658	  2677	  2696
	  2715	  2734	  2753	  2772	  2791	  2810	  2847	  2866	  2885	  2904	  2923	  2942	  2961	  2980
	  2999	  3018	  3037	  3056	  3075	  3094	  3113	  3132	  3151	  3170	  3187	  3203	  3223	  3241
	  3262	  3310	  3316	  3339	  3345	  3368	  3374	  3397	  3403	  3426	  3432	  3455	  3461	  3484
	  3490	  3513	  3519	  3542	  3548	  3571	  3577	  3600	  3606	  3629	  3635	  3658	  3664	  3687
	  3693	  3716	  3722	  3745	  3751	  3774	  3780	  3803	  3809	  3832	  3838	  3861	  3867	  3890
	  3896	  3919	  3925	  3948	  3954	  3977	  3983	  4006	  4012	  4035	  4041	  4064	  4070	  4093
	  4099	  4122	  4128	  4151	  4157	  4180	  4186	  4209	  4215	  4238	  4244	  4267	  4273	  4296
	  4302	  4325	  4331	  4372	  4393	  4414	  4435	  4456	  4477	  4498	  4519	  4540	  4561	  4582
	  4603	  4624	  4645	  4666	  4687	  4708	  4729	  4750	  4771	  4792	  4813	  4834	  4855	  4876
	  4897	  4918	  4939	  4960	  4981	  5002	  5023	  5044	  5065	  5086	  5107	  5125	  5142	  5162
	  5180	  5196	  5235	  5255	  5275	  5295	  5315	  5335	  5355	  5375	  5395	  5415	  5435	  5455
	  5475	  5495	  5515	  5535	  5555	  5575	  5595	  5615	  5635	  5655	  5675	  5695	  5715	  5735
	  5755	  5775	  5795	  5815	  5835	  5855	  5875	  5895	  5915	  5935	  5980	  6005	  6030	  6055
	  6080	  6105	  6130	  6155	  6180	  6205	  6230	  6255	  6280	  6305	  6330	  6355	  6380	  6405
	  6430	  6455	  6480	  6505	  6530	  6555	  6580	  6605	  6630	  6655	  6680	  6705	  6730	  6755
	  6780	  6805	  6830	  6855	  6902	  6923	  6944	  6965	  6986	  7007	  7028	  7049	  7070	  7091
	  7112	  7133	  7154	  7175	  7196	  7217	  7238	  7259	  7280	  7301	  7322	  7343	  7364	  7385
	  7406	  7427	  7448	  7469	  7490	  7511	  7532	  7553	  7574	  7595	  7616	  7637	  7652	  7670
	  7713	  7735	  7757	  7779	  7801	  7823	  7845	  7867	  7889	  7911	  7933	  7955	  7977	  7999
	  8021	  8043	  8065	  8087	  8131	  8153	  8175	  8197	  8219	  8241	  8263	  8285	  8307	  8329
	  8351	  8373	  8395	  8417	  8439	  8461	  8483	  8505	  8525	  8545	  8592	  8616	  8640	  8664
	  8688	  8712	  8736	  8760	  8784	  8808	  8832	  8856	  8880	  8904	  8928	  8952	  8976	  9000
	  9024	  9048	  9072	  9096	  9120	  9144	  9168	  9192	  9216	  9240	  9264	  9288	  9312	  9336
	  9360	  9384	  9408	  9432
JEN	   153#                                                                                                            SEQ 0214
JRSTF	   152#
MAPADR	   287#
MAPCNK	   288#
MAPMEM	   284#
MAPPNT	   290#
MAPSET	   289#
MEMSEG	   286#
MEMZRO	   285#
MODPCP	   297#
MODPCU	   296#
MTROP	   265#
NAME	     9#	    11
PBELL	   240#
PCRL	   234#
PCRL2	   238#
PCRL2F	   239#
PCRLF	   235#
PFORCE	   242#
PGMINT	   159#
PJRST	   150#
PMSG	   244#
PMSGF	   247#
PNT1	   200#
PNT11	   214#
PNT11F	   215#
PNT1F	   201#
PNT2	   202#
PNT2F	   203#
PNT3	   204#
PNT3F	   205#
PNT4	   206#
PNT4F	   207#
PNT5	   208#
PNT5F	   209#
PNT6	   210#
PNT6F	   211#
PNT7	   212#
PNT7F	   213#
PNTA	   186#
PNTADF	   217#
PNTADR	   216#
PNTAF	   187#
PNTAL	   188#
PNTALF	   189#
PNTCHF	   199#
PNTCHR	   198#
PNTCI	   196#
PNTCIF	   197#
PNTCW	   232#
PNTCWF	   233#
PNTDCF	   225#
PNTDEC	   224#
PNTDS	   226#                                                                                                            SEQ 0215
PNTDSF	   227#
PNTHW	   220#
PNTHWF	   221#
PNTMGN	   311#
PNTMSF	   193#
PNTMSG	   192#
PNTNM	   228#
PNTOCF	   223#
PNTOCS	   222#
PNTOCT	   218#
PNTOTF	   219#
PNTSIX	   229#
PNTSXF	   230#
PSIXL	   190#
PSIXLF	   191#
PSIXM	   194#
PSIXMF	   195#
PSP	   236#
PSPF	   237#
PUT	   148#
REPTUO	   325#
RTN	   147#	   443
S	    77#	    79	    83	   112	   114	   123	   126	   141	   142	   144	   155	   157	   161	   163
	   168	   172	   317	   319	   353	   358	   364	   391	   393	   411	   413	   431	   433	   462
	   464	   482	   484	   502	   504	   512	   514	   535	   540	   566	   568	   575	   577	   583
	   585	   591	   593	   597	   599	   604	   606	   610	   612	   616	   618	   624	   626	   629
	   631	   635	   637	   641	   643	   647	   649	   653	   655	   660	   665	   669	   671
SIXBTZ	   253#
STOP	    46#	   946	   959	   973	   990	  1005	  1024	  1038	  1052	  1066	  1080	  1094	  1107	  1121
	  1136	  1150	  1163	  1177	  1191	  1204	  1218	  1232	  1245	  1259	  1273	  1310	  1329	  1348
	  1367	  1386	  1405	  1424	  1443	  1462	  1481	  1500	  1519	  1538	  1557	  1576	  1595	  1614
	  1633	  1652	  1671	  1690	  1709	  1728	  1747	  1766	  1785	  1804	  1823	  1842	  1861	  1880
	  1899	  1918	  1937	  1956	  1975	  1990	  2008	  2023	  2039	  2064	  2082	  2100	  2113	  2127
	  2152	  2199	  2205	  2228	  2234	  2257	  2263	  2286	  2292	  2310	  2329	  2347	  2365	  2381
	  2397	  2412	  2429	  2449	  2486	  2505	  2524	  2543	  2562	  2581	  2600	  2619	  2638	  2657
	  2676	  2695	  2714	  2733	  2752	  2771	  2790	  2809	  2846	  2865	  2884	  2903	  2922	  2941
	  2960	  2979	  2998	  3017	  3036	  3055	  3074	  3093	  3112	  3131	  3150	  3169	  3186	  3202
	  3222	  3240	  3261	  3309	  3315	  3338	  3344	  3367	  3373	  3396	  3402	  3425	  3431	  3454
	  3460	  3483	  3489	  3512	  3518	  3541	  3547	  3570	  3576	  3599	  3605	  3628	  3634	  3657
	  3663	  3686	  3692	  3715	  3721	  3744	  3750	  3773	  3779	  3802	  3808	  3831	  3837	  3860
	  3866	  3889	  3895	  3918	  3924	  3947	  3953	  3976	  3982	  4005	  4011	  4034	  4040	  4063
	  4069	  4092	  4098	  4121	  4127	  4150	  4156	  4179	  4185	  4208	  4214	  4237	  4243	  4266
	  4272	  4295	  4301	  4324	  4330	  4371	  4392	  4413	  4434	  4455	  4476	  4497	  4518	  4539
	  4560	  4581	  4602	  4623	  4644	  4665	  4686	  4707	  4728	  4749	  4770	  4791	  4812	  4833
	  4854	  4875	  4896	  4917	  4938	  4959	  4980	  5001	  5022	  5043	  5064	  5085	  5106	  5124
	  5141	  5161	  5179	  5195	  5234	  5254	  5274	  5294	  5314	  5334	  5354	  5374	  5394	  5414
	  5434	  5454	  5474	  5494	  5514	  5534	  5554	  5574	  5594	  5614	  5634	  5654	  5674	  5694
	  5714	  5734	  5754	  5774	  5794	  5814	  5834	  5854	  5874	  5894	  5914	  5934	  5979	  6004
	  6029	  6054	  6079	  6104	  6129	  6154	  6179	  6204	  6229	  6254	  6279	  6304	  6329	  6354
	  6379	  6404	  6429	  6454	  6479	  6504	  6529	  6554	  6579	  6604	  6629	  6654	  6679	  6704
	  6729	  6754	  6779	  6804	  6829	  6854	  6901	  6922	  6943	  6964	  6985	  7006	  7027	  7048
	  7069	  7090	  7111	  7132	  7153	  7174	  7195	  7216	  7237	  7258	  7279	  7300	  7321	  7342
	  7363	  7384	  7405	  7426	  7447	  7468	  7489	  7510	  7531	  7552	  7573	  7594	  7615	  7636     SEQ 0216
	  7651	  7669	  7712	  7734	  7756	  7778	  7800	  7822	  7844	  7866	  7888	  7910	  7932	  7954
	  7976	  7998	  8020	  8042	  8064	  8086	  8130	  8152	  8174	  8196	  8218	  8240	  8262	  8284
	  8306	  8328	  8350	  8372	  8394	  8416	  8438	  8460	  8482	  8504	  8524	  8544	  8591	  8615
	  8639	  8663	  8687	  8711	  8735	  8759	  8783	  8807	  8831	  8855	  8879	  8903	  8927	  8951
	  8975	  8999	  9023	  9047	  9071	  9095	  9119	  9143	  9167	  9191	  9215	  9239	  9263	  9287
	  9311	  9335	  9359	  9383	  9407	  9431
SWITCH	   259#
TTALTM	   181#
TTICHR	   174#
TTICNV	   179#
TTIDEC	   178#
TTINO	   176#
TTIOCT	   177#
TTIYES	   175#
TTLOOK	   180#
TTSIXB	   182#
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 1
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0217


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

C(E)=402000 030037 

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


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

C(E)=000000 000000 

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


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

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

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


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

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


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

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


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

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

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


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

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


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

C(E)=000000 000000 

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

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,035060
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   200040035060 0            000001000001 
IT1	030614 0      0   0   200040035060 0            000001000001 
AT3	030614 0      0   0   000000035060 0            200040035060 
AT6	030614 035060 0   0   000000035060 0            200040035060 
FT0	030614 035060 0   0   000001000001 0            200040035060 
FT1A	030614 035060 0   0   000001000001 0            000001000001 
FT9	030615 035060 0   0   000001000001 0            000001000001 
ET0	030615 035060 0   0   000001000001 0            000001000001 
ST1	030615 035060 0   0   000001000001 0            000001000001 
ST2	030615 035060 0   0   000001000001 0            000001000001 
ST9	030615 035060 0   0   000001000001 0            000001000001 


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

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


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


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

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

C(E)=402000 030037 

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


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

C(E)=000000 000000 

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


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

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

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


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

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


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

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


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

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

C(E)=334000 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  19-JAN-77   PAGE 9
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0225

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 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	030742 030742 0   0   334000000000 0            000000030714 
IT1	030742 0      0   0   334000000000 0            000000030714 
AT3	030742 0      0   0   0            0            334000000000 
AT6	030742 0      0   0   0            0            334000000000 
FT0	030742 0      0   0   000000030714 0            334000000000 
FT1A	030742 0      0   0   000000030714 0            000000030714 
FT9	030743 0      0   0   000000030714 0            000000030714 
ET0	030744 0      0   0   000000030714 0            000000030714 
ST1A	030744 0      0   0   000000030714 0            000000030714 
ST9	030744 0      0   0   000000030714 0            000000030714 


*030744 JUMP 	0,030745
INITIAL
C(AC)=000000 030714 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030744 030744 0   0   320000030745 0            000000030745 
IT1	030744 0      0   0   320000030745 0            000000030745 
AT3	030744 0      0   0   000000030745 0            320000030745 
AT6	030744 030745 0   0   000000030745 0            320000030745 
FT1A	030744 030745 0   0   000000030745 0            000000030745 
FT2	030744 030745 0   0   0            0            000000030745 
FT2RQ	030744 030745 0   0   000000030714 0            000000030745 
FT3	030744 030745 0   0   000000030714 0            000000030745 
FT9	030745 030745 0   0   000000030714 0            000000030745 
ET0	030745 030745 0   0   000000030714 0            000000030745 
ST1A	030745 030745 0   0   000000030714 0            000000030745 
ST9	030745 030745 0   0   000000030714 0            000000030745 


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

*030745 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	030745 030745 0   0   334000000000 0            000000030714 
IT1	030745 0      0   0   334000000000 0            000000030714 
AT3	030745 0      0   0   0            0            334000000000 
AT6	030745 0      0   0   0            0            334000000000 
FT0	030745 0      0   0   000000030714 0            334000000000 
FT1A	030745 0      0   0   000000030714 0            000000030714 
FT9	030746 0      0   0   000000030714 0            000000030714 
ET0	030747 0      0   0   000000030714 0            000000030714 
ST1A	030747 0      0   0   000000030714 0            000000030714 
ST9	030747 0      0   0   000000030714 0            000000030714 


*030747 JUMP 	0,030751
INITIAL
C(AC)=000000 030714 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030747 030747 0   0   320000030751 0            000000030751 
IT1	030747 0      0   0   320000030751 0            000000030751 
AT3	030747 0      0   0   000000030751 0            320000030751 
AT6	030747 030751 0   0   000000030751 0            320000030751 
FT1A	030747 030751 0   0   000000030751 0            000000030751 
FT2	030747 030751 0   0   0            0            000000030751 
FT2RQ	030747 030751 0   0   000000030714 0            000000030751 
FT3	030747 030751 0   0   000000030714 0            000000030751 
FT9	030750 030751 0   0   000000030714 0            000000030751 
ET0	030750 030751 0   0   000000030714 0            000000030751 
ST1A	030750 030751 0   0   000000030714 0            000000030751 
ST9	030750 030751 0   0   000000030714 0            000000030751 


*030750 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	030750 030750 0   0   334000000000 0            000000030714 
IT1	030750 0      0   0   334000000000 0            000000030714 
AT3	030750 0      0   0   0            0            334000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 11
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0227

AT6	030750 0      0   0   0            0            334000000000 
FT0	030750 0      0   0   000000030714 0            334000000000 
FT1A	030750 0      0   0   000000030714 0            000000030714 
FT9	030751 0      0   0   000000030714 0            000000030714 
ET0	030752 0      0   0   000000030714 0            000000030714 
ST1A	030752 0      0   0   000000030714 0            000000030714 
ST9	030752 0      0   0   000000030714 0            000000030714 


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


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


*030753 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	030753 030753 0   0   334000000000 0            000000030714 
IT1	030753 0      0   0   334000000000 0            000000030714 
AT3	030753 0      0   0   0            0            334000000000 
AT6	030753 0      0   0   0            0            334000000000 
FT0	030753 0      0   0   000000030714 0            334000000000 
FT1A	030753 0      0   0   000000030714 0            000000030714 
FT9	030754 0      0   0   000000030714 0            000000030714 
ET0	030755 0      0   0   000000030714 0            000000030714 
ST1A	030755 0      0   0   000000030714 0            000000030714 
ST9	030755 0      0   0   000000030714 0            000000030714 


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

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


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


*030757 MOVE 	0,035062
INITIAL
C(AC)=000000 030714 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030757 030757 0   0   200000035062 0            0            
IT1	030757 0      0   0   200000035062 0            0            
AT3	030757 0      0   0   000000035062 0            200000035062 
AT6	030757 035062 0   0   000000035062 0            200000035062 
FT0	030757 035062 0   0   0            0            200000035062 
FT1A	030757 035062 0   0   0            0            0            
FT9	030760 035062 0   0   0            0            0            
ET0	030760 035062 0   0   0            0            0            
ST1	030760 035062 0   0   0            0            0            
ST2	030760 035062 0   0   0            0            0            
ST9	030760 035062 0   0   0            0            0            


*030760 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	030760 030760 0   0   334000000000 0            0            
IT1	030760 0      0   0   334000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 13
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0229

AT3	030760 0      0   0   0            0            334000000000 
AT6	030760 0      0   0   0            0            334000000000 
FT0	030760 0      0   0   0            0            334000000000 
FT1A	030760 0      0   0   0            0            0            
FT9	030761 0      0   0   0            0            0            
ET0	030762 0      0   0   0            0            0            
ST1A	030762 0      0   0   0            0            0            
ST9	030762 0      0   0   0            0            0            


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


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


*030763 MOVE 	0,035063
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030763 030763 0   0   200000035063 0            777777777777 
IT1	030763 0      0   0   200000035063 0            777777777777 
AT3	030763 0      0   0   000000035063 0            200000035063 
AT6	030763 035063 0   0   000000035063 0            200000035063 
FT0	030763 035063 0   0   777777777777 0            200000035063 
FT1A	030763 035063 0   0   777777777777 0            777777777777 
FT9	030764 035063 0   0   777777777777 0            777777777777 
ET0	030764 035063 0   0   777777777777 0            777777777777 
ST1	030764 035063 0   0   777777777777 0            777777777777 
ST2	030764 035063 0   0   777777777777 0            777777777777 
ST9	030764 035063 0   0   777777777777 0            777777777777 


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

*030764 SKIPA	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030764 030764 0   0   334000000000 0            777777777777 
IT1	030764 0      0   0   334000000000 0            777777777777 
AT3	030764 0      0   0   0            0            334000000000 
AT6	030764 0      0   0   0            0            334000000000 
FT0	030764 0      0   0   777777777777 0            334000000000 
FT1A	030764 0      0   0   777777777777 0            777777777777 
FT9	030765 0      0   0   777777777777 0            777777777777 
ET0	030766 0      0   0   777777777777 0            777777777777 
ST1A	030766 0      0   0   777777777777 0            777777777777 
ST9	030766 0      0   0   777777777777 0            777777777777 


*030766 JUMPA	0,030767
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030766 030766 0   0   324000030767 0            000000030767 
IT1	030766 0      0   0   324000030767 0            000000030767 
AT3	030766 0      0   0   000000030767 0            324000030767 
AT6	030766 030767 0   0   000000030767 0            324000030767 
FT1A	030766 030767 0   0   000000030767 0            000000030767 
FT2	030766 030767 0   0   0            0            000000030767 
FT2RQ	030766 030767 0   0   777777777777 0            000000030767 
FT3	030766 030767 0   0   777777777777 0            000000030767 
FT9	030767 030767 0   0   777777777777 0            000000030767 
ET0	030767 030767 0   0   777777777777 0            000000030767 
ST1A	030767 030767 0   0   777777777777 0            000000030767 
ST9	030767 030767 0   0   777777777777 0            000000030767 


*030767 MOVE 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030767 030767 0   0   200000035062 0            0            
IT1	030767 0      0   0   200000035062 0            0            
AT3	030767 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 15
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0231

AT6	030767 035062 0   0   000000035062 0            200000035062 
FT0	030767 035062 0   0   0            0            200000035062 
FT1A	030767 035062 0   0   0            0            0            
FT9	030770 035062 0   0   0            0            0            
ET0	030770 035062 0   0   0            0            0            
ST1	030770 035062 0   0   0            0            0            
ST2	030770 035062 0   0   0            0            0            
ST9	030770 035062 0   0   0            0            0            


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

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


*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 


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

*030773 MOVE 	0,035063
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030773 030773 0   0   200000035063 0            777777777777 
IT1	030773 0      0   0   200000035063 0            777777777777 
AT3	030773 0      0   0   000000035063 0            200000035063 
AT6	030773 035063 0   0   000000035063 0            200000035063 
FT0	030773 035063 0   0   777777777777 0            200000035063 
FT1A	030773 035063 0   0   777777777777 0            777777777777 
FT9	030774 035063 0   0   777777777777 0            777777777777 
ET0	030774 035063 0   0   777777777777 0            777777777777 
ST1	030774 035063 0   0   777777777777 0            777777777777 
ST2	030774 035063 0   0   777777777777 0            777777777777 
ST9	030774 035063 0   0   777777777777 0            777777777777 


*030774 SKIP 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030774 030774 0   0   330000000000 0            777777777777 
IT1	030774 0      0   0   330000000000 0            777777777777 
AT3	030774 0      0   0   0            0            330000000000 
AT6	030774 0      0   0   0            0            330000000000 
FT0	030774 0      0   0   777777777777 0            330000000000 
FT1A	030774 0      0   0   777777777777 0            777777777777 
FT9	030775 0      0   0   777777777777 0            777777777777 
ET0	030775 0      0   0   777777777777 0            777777777777 
ST1A	030775 0      0   0   777777777777 0            777777777777 
ST9	030775 0      0   0   777777777777 0            777777777777 


*030775 SKIPA	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030775 030775 0   0   334000000000 0            777777777777 
IT1	030775 0      0   0   334000000000 0            777777777777 
AT3	030775 0      0   0   0            0            334000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 17
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0233

AT6	030775 0      0   0   0            0            334000000000 
FT0	030775 0      0   0   777777777777 0            334000000000 
FT1A	030775 0      0   0   777777777777 0            777777777777 
FT9	030776 0      0   0   777777777777 0            777777777777 
ET0	030777 0      0   0   777777777777 0            777777777777 
ST1A	030777 0      0   0   777777777777 0            777777777777 
ST9	030777 0      0   0   777777777777 0            777777777777 


*030777 JUMPA	0,031000
INITIAL
C(AC)=777777 777777 
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   777777777777 0            000000031000 
FT3	030777 0      0   0   777777777777 0            000000031000 
FT9	0      0      0   0   777777777777 0            000000031000 
ET0	0      0      0   0   777777777777 0            000000031000 
ST1A	0      0      0   0   777777777777 0            000000031000 
ST9	0      0      0   0   777777777777 0            000000031000 


*031000 MOVE 	0,035063
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   200000035063 0            777777777777 
IT1	0      0      0   0   200000035063 0            777777777777 
AT3	0      0      0   0   000000035063 0            200000035063 
AT6	0      035063 0   0   000000035063 0            200000035063 
FT0	0      035063 0   0   777777777777 0            200000035063 
FT1A	0      035063 0   0   777777777777 0            777777777777 
FT9	031001 035063 0   0   777777777777 0            777777777777 
ET0	031001 035063 0   0   777777777777 0            777777777777 
ST1	031001 035063 0   0   777777777777 0            777777777777 
ST2	031001 035063 0   0   777777777777 0            777777777777 
ST9	031001 035063 0   0   777777777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 18
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0234

*031001 SKIPGE	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031001 031001 0   0   335000000000 0            777777777777 
IT1	031001 0      0   0   335000000000 0            777777777777 
AT3	031001 0      0   0   0            0            335000000000 
AT6	031001 0      0   0   0            0            335000000000 
FT0	031001 0      0   0   777777777777 0            335000000000 
FT1A	031001 0      0   0   777777777777 0            777777777777 
FT9	031002 0      0   0   777777777777 0            777777777777 
ET0	031002 0      0   0   777777777777 0            777777777777 
ST1A	031002 0      0   0   777777777777 0            777777777777 
ST9	031002 0      0   0   777777777777 0            777777777777 


*031002 SKIPA	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031002 031002 0   0   334000000000 0            777777777777 
IT1	031002 0      0   0   334000000000 0            777777777777 
AT3	031002 0      0   0   0            0            334000000000 
AT6	031002 0      0   0   0            0            334000000000 
FT0	031002 0      0   0   777777777777 0            334000000000 
FT1A	031002 0      0   0   777777777777 0            777777777777 
FT9	031003 0      0   0   777777777777 0            777777777777 
ET0	031004 0      0   0   777777777777 0            777777777777 
ST1A	031004 0      0   0   777777777777 0            777777777777 
ST9	031004 0      0   0   777777777777 0            777777777777 


*031004 JUMPA	0,031005
INITIAL
C(AC)=777777 777777 
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 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 19
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0235

FT2	031004 031005 0   0   0            0            000000031005 
FT2RQ	031004 031005 0   0   777777777777 0            000000031005 
FT3	031004 031005 0   0   777777777777 0            000000031005 
FT9	031005 031005 0   0   777777777777 0            000000031005 
ET0	031005 031005 0   0   777777777777 0            000000031005 
ST1A	031005 031005 0   0   777777777777 0            000000031005 
ST9	031005 031005 0   0   777777777777 0            000000031005 


*031005 MOVE 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031005 031005 0   0   200000035062 0            0            
IT1	031005 0      0   0   200000035062 0            0            
AT3	031005 0      0   0   000000035062 0            200000035062 
AT6	031005 035062 0   0   000000035062 0            200000035062 
FT0	031005 035062 0   0   0            0            200000035062 
FT1A	031005 035062 0   0   0            0            0            
FT9	031006 035062 0   0   0            0            0            
ET0	031006 035062 0   0   0            0            0            
ST1	031006 035062 0   0   0            0            0            
ST2	031006 035062 0   0   0            0            0            
ST9	031006 035062 0   0   0            0            0            


*031006 SKIPN	0,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   336000000000 0            0            
IT1	031006 0      0   0   336000000000 0            0            
AT3	031006 0      0   0   0            0            336000000000 
AT6	031006 0      0   0   0            0            336000000000 
FT0	031006 0      0   0   0            0            336000000000 
FT1A	031006 0      0   0   0            0            0            
FT9	031007 0      0   0   0            0            0            
ET0	031007 0      0   0   0            0            0            
ST1A	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  19-JAN-77   PAGE 20
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0236

*031007 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	031007 031007 0   0   334000000000 0            0            
IT1	031007 0      0   0   334000000000 0            0            
AT3	031007 0      0   0   0            0            334000000000 
AT6	031007 0      0   0   0            0            334000000000 
FT0	031007 0      0   0   0            0            334000000000 
FT1A	031007 0      0   0   0            0            0            
FT9	031010 0      0   0   0            0            0            
ET0	031011 0      0   0   0            0            0            
ST1A	031011 0      0   0   0            0            0            
ST9	031011 0      0   0   0            0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031011 031011 0   0   324000031012 0            000000031012 
IT1	031011 0      0   0   324000031012 0            000000031012 
AT3	031011 0      0   0   000000031012 0            324000031012 
AT6	031011 031012 0   0   000000031012 0            324000031012 
FT1A	031011 031012 0   0   000000031012 0            000000031012 
FT2	031011 031012 0   0   0            0            000000031012 
FT2RQ	031011 031012 0   0   0            0            000000031012 
FT3	031011 031012 0   0   0            0            000000031012 
FT9	031012 031012 0   0   0            0            000000031012 
ET0	031012 031012 0   0   0            0            000000031012 
ST1A	031012 031012 0   0   0            0            000000031012 
ST9	031012 031012 0   0   0            0            000000031012 


*031012 MOVE 	0,035063
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031012 031012 0   0   200000035063 0            777777777777 
IT1	031012 0      0   0   200000035063 0            777777777777 
AT3	031012 0      0   0   000000035063 0            200000035063 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 21
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0237

AT6	031012 035063 0   0   000000035063 0            200000035063 
FT0	031012 035063 0   0   777777777777 0            200000035063 
FT1A	031012 035063 0   0   777777777777 0            777777777777 
FT9	031013 035063 0   0   777777777777 0            777777777777 
ET0	031013 035063 0   0   777777777777 0            777777777777 
ST1	031013 035063 0   0   777777777777 0            777777777777 
ST2	031013 035063 0   0   777777777777 0            777777777777 
ST9	031013 035063 0   0   777777777777 0            777777777777 


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

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


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


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


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

*031016 MOVE 	0,035063
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031016 031016 0   0   200000035063 0            777777777777 
IT1	031016 0      0   0   200000035063 0            777777777777 
AT3	031016 0      0   0   000000035063 0            200000035063 
AT6	031016 035063 0   0   000000035063 0            200000035063 
FT0	031016 035063 0   0   777777777777 0            200000035063 
FT1A	031016 035063 0   0   777777777777 0            777777777777 
FT9	031017 035063 0   0   777777777777 0            777777777777 
ET0	031017 035063 0   0   777777777777 0            777777777777 
ST1	031017 035063 0   0   777777777777 0            777777777777 
ST2	031017 035063 0   0   777777777777 0            777777777777 
ST9	031017 035063 0   0   777777777777 0            777777777777 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031017 031017 0   0   332000000000 0            777777777777 
IT1	031017 0      0   0   332000000000 0            777777777777 
AT3	031017 0      0   0   0            0            332000000000 
AT6	031017 0      0   0   0            0            332000000000 
FT0	031017 0      0   0   777777777777 0            332000000000 
FT1A	031017 0      0   0   777777777777 0            777777777777 
FT9	031020 0      0   0   777777777777 0            777777777777 
ET0	031020 0      0   0   777777777777 0            777777777777 
ST1A	031020 0      0   0   777777777777 0            777777777777 
ST9	031020 0      0   0   777777777777 0            777777777777 


*031020 SKIPA	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031020 031020 0   0   334000000000 0            777777777777 
IT1	031020 0      0   0   334000000000 0            777777777777 
AT3	031020 0      0   0   0            0            334000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 23
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0239

AT6	031020 0      0   0   0            0            334000000000 
FT0	031020 0      0   0   777777777777 0            334000000000 
FT1A	031020 0      0   0   777777777777 0            777777777777 
FT9	031021 0      0   0   777777777777 0            777777777777 
ET0	031022 0      0   0   777777777777 0            777777777777 
ST1A	031022 0      0   0   777777777777 0            777777777777 
ST9	031022 0      0   0   777777777777 0            777777777777 


*031022 JUMPA	0,031023
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031022 031022 0   0   324000031023 0            000000031023 
IT1	031022 0      0   0   324000031023 0            000000031023 
AT3	031022 0      0   0   000000031023 0            324000031023 
AT6	031022 031023 0   0   000000031023 0            324000031023 
FT1A	031022 031023 0   0   000000031023 0            000000031023 
FT2	031022 031023 0   0   0            0            000000031023 
FT2RQ	031022 031023 0   0   777777777777 0            000000031023 
FT3	031022 031023 0   0   777777777777 0            000000031023 
FT9	031023 031023 0   0   777777777777 0            000000031023 
ET0	031023 031023 0   0   777777777777 0            000000031023 
ST1A	031023 031023 0   0   777777777777 0            000000031023 
ST9	031023 031023 0   0   777777777777 0            000000031023 


*031023 MOVE 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031023 031023 0   0   200000035062 0            0            
IT1	031023 0      0   0   200000035062 0            0            
AT3	031023 0      0   0   000000035062 0            200000035062 
AT6	031023 035062 0   0   000000035062 0            200000035062 
FT0	031023 035062 0   0   0            0            200000035062 
FT1A	031023 035062 0   0   0            0            0            
FT9	031024 035062 0   0   0            0            0            
ET0	031024 035062 0   0   0            0            0            
ST1	031024 035062 0   0   0            0            0            
ST2	031024 035062 0   0   0            0            0            
ST9	031024 035062 0   0   0            0            0            


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

*031024 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	031024 031024 0   0   332000000000 0            0            
IT1	031024 0      0   0   332000000000 0            0            
AT3	031024 0      0   0   0            0            332000000000 
AT6	031024 0      0   0   0            0            332000000000 
FT0	031024 0      0   0   0            0            332000000000 
FT1A	031024 0      0   0   0            0            0            
FT9	031025 0      0   0   0            0            0            
ET0	031026 0      0   0   0            0            0            
ST1A	031026 0      0   0   0            0            0            
ST9	031026 0      0   0   0            0            0            


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


*031027 MOVE 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031027 031027 0   0   200000035062 0            0            
IT1	031027 0      0   0   200000035062 0            0            
AT3	031027 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 25
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0241

AT6	031027 035062 0   0   000000035062 0            200000035062 
FT0	031027 035062 0   0   0            0            200000035062 
FT1A	031027 035062 0   0   0            0            0            
FT9	031030 035062 0   0   0            0            0            
ET0	031030 035062 0   0   0            0            0            
ST1	031030 035062 0   0   0            0            0            
ST2	031030 035062 0   0   0            0            0            
ST9	031030 035062 0   0   0            0            0            


*031030 SKIP 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

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


*031031 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	031031 031031 0   0   334000000000 0            0            
IT1	031031 0      0   0   334000000000 0            0            
AT3	031031 0      0   0   0            0            334000000000 
AT6	031031 0      0   0   0            0            334000000000 
FT0	031031 0      0   0   0            0            334000000000 
FT1A	031031 0      0   0   0            0            0            
FT9	031032 0      0   0   0            0            0            
ET0	031033 0      0   0   0            0            0            
ST1A	031033 0      0   0   0            0            0            
ST9	031033 0      0   0   0            0            0            


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

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


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


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031034 031034 0   0   200000035062 0            0            
IT1	031034 0      0   0   200000035062 0            0            
AT3	031034 0      0   0   000000035062 0            200000035062 
AT6	031034 035062 0   0   000000035062 0            200000035062 
FT0	031034 035062 0   0   0            0            200000035062 
FT1A	031034 035062 0   0   0            0            0            
FT9	031035 035062 0   0   0            0            0            
ET0	031035 035062 0   0   0            0            0            
ST1	031035 035062 0   0   0            0            0            
ST2	031035 035062 0   0   0            0            0            
ST9	031035 035062 0   0   0            0            0            


*031035 SKIPL	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031035 031035 0   0   331000000000 0            0            
IT1	031035 0      0   0   331000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 27
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0243

AT3	031035 0      0   0   0            0            331000000000 
AT6	031035 0      0   0   0            0            331000000000 
FT0	031035 0      0   0   0            0            331000000000 
FT1A	031035 0      0   0   0            0            0            
FT9	031036 0      0   0   0            0            0            
ET0	031036 0      0   0   0            0            0            
ST1A	031036 0      0   0   0            0            0            
ST9	031036 0      0   0   0            0            0            


*031036 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	031036 031036 0   0   334000000000 0            0            
IT1	031036 0      0   0   334000000000 0            0            
AT3	031036 0      0   0   0            0            334000000000 
AT6	031036 0      0   0   0            0            334000000000 
FT0	031036 0      0   0   0            0            334000000000 
FT1A	031036 0      0   0   0            0            0            
FT9	031037 0      0   0   0            0            0            
ET0	031040 0      0   0   0            0            0            
ST1A	031040 0      0   0   0            0            0            
ST9	031040 0      0   0   0            0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031040 031040 0   0   324000031041 0            000000031041 
IT1	031040 0      0   0   324000031041 0            000000031041 
AT3	031040 0      0   0   000000031041 0            324000031041 
AT6	031040 031041 0   0   000000031041 0            324000031041 
FT1A	031040 031041 0   0   000000031041 0            000000031041 
FT2	031040 031041 0   0   0            0            000000031041 
FT2RQ	031040 031041 0   0   0            0            000000031041 
FT3	031040 031041 0   0   0            0            000000031041 
FT9	031041 031041 0   0   0            0            000000031041 
ET0	031041 031041 0   0   0            0            000000031041 
ST1A	031041 031041 0   0   0            0            000000031041 
ST9	031041 031041 0   0   0            0            000000031041 


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

*031041 MOVE 	0,035063
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031041 031041 0   0   200000035063 0            777777777777 
IT1	031041 0      0   0   200000035063 0            777777777777 
AT3	031041 0      0   0   000000035063 0            200000035063 
AT6	031041 035063 0   0   000000035063 0            200000035063 
FT0	031041 035063 0   0   777777777777 0            200000035063 
FT1A	031041 035063 0   0   777777777777 0            777777777777 
FT9	031042 035063 0   0   777777777777 0            777777777777 
ET0	031042 035063 0   0   777777777777 0            777777777777 
ST1	031042 035063 0   0   777777777777 0            777777777777 
ST2	031042 035063 0   0   777777777777 0            777777777777 
ST9	031042 035063 0   0   777777777777 0            777777777777 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031042 031042 0   0   331000000000 0            777777777777 
IT1	031042 0      0   0   331000000000 0            777777777777 
AT3	031042 0      0   0   0            0            331000000000 
AT6	031042 0      0   0   0            0            331000000000 
FT0	031042 0      0   0   777777777777 0            331000000000 
FT1A	031042 0      0   0   777777777777 0            777777777777 
FT9	031043 0      0   0   777777777777 0            777777777777 
ET0	031044 0      0   0   777777777777 0            777777777777 
ST1A	031044 0      0   0   777777777777 0            777777777777 
ST9	031044 0      0   0   777777777777 0            777777777777 


*031044 JUMPA	0,031045
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031044 031044 0   0   324000031045 0            000000031045 
IT1	031044 0      0   0   324000031045 0            000000031045 
AT3	031044 0      0   0   000000031045 0            324000031045 
AT6	031044 031045 0   0   000000031045 0            324000031045 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 29
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0245

FT1A	031044 031045 0   0   000000031045 0            000000031045 
FT2	031044 031045 0   0   0            0            000000031045 
FT2RQ	031044 031045 0   0   777777777777 0            000000031045 
FT3	031044 031045 0   0   777777777777 0            000000031045 
FT9	031045 031045 0   0   777777777777 0            000000031045 
ET0	031045 031045 0   0   777777777777 0            000000031045 
ST1A	031045 031045 0   0   777777777777 0            000000031045 
ST9	031045 031045 0   0   777777777777 0            000000031045 


*031045 MOVE 	0,035064
INITIAL
C(AC)=777777 777777 
C(E)=377777 777777 
FINAL
C(AC)=377777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031045 031045 0   0   200000035064 0            377777777777 
IT1	031045 0      0   0   200000035064 0            377777777777 
AT3	031045 0      0   0   000000035064 0            200000035064 
AT6	031045 035064 0   0   000000035064 0            200000035064 
FT0	031045 035064 0   0   377777777777 0            200000035064 
FT1A	031045 035064 0   0   377777777777 0            377777777777 
FT9	031046 035064 0   0   377777777777 0            377777777777 
ET0	031046 035064 0   0   377777777777 0            377777777777 
ST1	031046 035064 0   0   377777777777 0            377777777777 
ST2	031046 035064 0   0   377777777777 0            377777777777 
ST9	031046 035064 0   0   377777777777 0            377777777777 


*031046 SKIPG	0,000000
INITIAL
C(AC)=377777 777777 
C(E)=377777 777777 
FINAL
C(AC)=377777 777777 

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


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

*031050 JUMPA	0,031051
INITIAL
C(AC)=377777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031050 031050 0   0   324000031051 0            000000031051 
IT1	031050 0      0   0   324000031051 0            000000031051 
AT3	031050 0      0   0   000000031051 0            324000031051 
AT6	031050 031051 0   0   000000031051 0            324000031051 
FT1A	031050 031051 0   0   000000031051 0            000000031051 
FT2	031050 031051 0   0   0            0            000000031051 
FT2RQ	031050 031051 0   0   377777777777 0            000000031051 
FT3	031050 031051 0   0   377777777777 0            000000031051 
FT9	031051 031051 0   0   377777777777 0            000000031051 
ET0	031051 031051 0   0   377777777777 0            000000031051 
ST1A	031051 031051 0   0   377777777777 0            000000031051 
ST9	031051 031051 0   0   377777777777 0            000000031051 


*031051 MOVE 	0,035063
INITIAL
C(AC)=377777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031051 031051 0   0   200000035063 0            777777777777 
IT1	031051 0      0   0   200000035063 0            777777777777 
AT3	031051 0      0   0   000000035063 0            200000035063 
AT6	031051 035063 0   0   000000035063 0            200000035063 
FT0	031051 035063 0   0   777777777777 0            200000035063 
FT1A	031051 035063 0   0   777777777777 0            777777777777 
FT9	031052 035063 0   0   777777777777 0            777777777777 
ET0	031052 035063 0   0   777777777777 0            777777777777 
ST1	031052 035063 0   0   777777777777 0            777777777777 
ST2	031052 035063 0   0   777777777777 0            777777777777 
ST9	031052 035063 0   0   777777777777 0            777777777777 


*031052 SKIPG	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031052 031052 0   0   337000000000 0            777777777777 
IT1	031052 0      0   0   337000000000 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 31
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0247

AT3	031052 0      0   0   0            0            337000000000 
AT6	031052 0      0   0   0            0            337000000000 
FT0	031052 0      0   0   777777777777 0            337000000000 
FT1A	031052 0      0   0   777777777777 0            777777777777 
FT9	031053 0      0   0   777777777777 0            777777777777 
ET0	031053 0      0   0   777777777777 0            777777777777 
ST1A	031053 0      0   0   777777777777 0            777777777777 
ST9	031053 0      0   0   777777777777 0            777777777777 


*031053 SKIPA	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031053 031053 0   0   334000000000 0            777777777777 
IT1	031053 0      0   0   334000000000 0            777777777777 
AT3	031053 0      0   0   0            0            334000000000 
AT6	031053 0      0   0   0            0            334000000000 
FT0	031053 0      0   0   777777777777 0            334000000000 
FT1A	031053 0      0   0   777777777777 0            777777777777 
FT9	031054 0      0   0   777777777777 0            777777777777 
ET0	031055 0      0   0   777777777777 0            777777777777 
ST1A	031055 0      0   0   777777777777 0            777777777777 
ST9	031055 0      0   0   777777777777 0            777777777777 


*031055 JUMPA	0,031056
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031055 031055 0   0   324000031056 0            000000031056 
IT1	031055 0      0   0   324000031056 0            000000031056 
AT3	031055 0      0   0   000000031056 0            324000031056 
AT6	031055 031056 0   0   000000031056 0            324000031056 
FT1A	031055 031056 0   0   000000031056 0            000000031056 
FT2	031055 031056 0   0   0            0            000000031056 
FT2RQ	031055 031056 0   0   777777777777 0            000000031056 
FT3	031055 031056 0   0   777777777777 0            000000031056 
FT9	031056 031056 0   0   777777777777 0            000000031056 
ET0	031056 031056 0   0   777777777777 0            000000031056 
ST1A	031056 031056 0   0   777777777777 0            000000031056 
ST9	031056 031056 0   0   777777777777 0            000000031056 


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

*031056 MOVE 	0,035064
INITIAL
C(AC)=777777 777777 
C(E)=377777 777777 
FINAL
C(AC)=377777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031056 031056 0   0   200000035064 0            377777777777 
IT1	031056 0      0   0   200000035064 0            377777777777 
AT3	031056 0      0   0   000000035064 0            200000035064 
AT6	031056 035064 0   0   000000035064 0            200000035064 
FT0	031056 035064 0   0   377777777777 0            200000035064 
FT1A	031056 035064 0   0   377777777777 0            377777777777 
FT9	031057 035064 0   0   377777777777 0            377777777777 
ET0	031057 035064 0   0   377777777777 0            377777777777 
ST1	031057 035064 0   0   377777777777 0            377777777777 
ST2	031057 035064 0   0   377777777777 0            377777777777 
ST9	031057 035064 0   0   377777777777 0            377777777777 


*031057 SKIPL	0,000000
INITIAL
C(AC)=377777 777777 
C(E)=377777 777777 
FINAL
C(AC)=377777 777777 

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


*031060 SKIPA	0,000000
INITIAL
C(AC)=377777 777777 
C(E)=377777 777777 
FINAL
C(AC)=377777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031060 031060 0   0   334000000000 0            377777777777 
IT1	031060 0      0   0   334000000000 0            377777777777 
AT3	031060 0      0   0   0            0            334000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 33
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0249

AT6	031060 0      0   0   0            0            334000000000 
FT0	031060 0      0   0   377777777777 0            334000000000 
FT1A	031060 0      0   0   377777777777 0            377777777777 
FT9	031061 0      0   0   377777777777 0            377777777777 
ET0	031062 0      0   0   377777777777 0            377777777777 
ST1A	031062 0      0   0   377777777777 0            377777777777 
ST9	031062 0      0   0   377777777777 0            377777777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031062 031062 0   0   324000031063 0            000000031063 
IT1	031062 0      0   0   324000031063 0            000000031063 
AT3	031062 0      0   0   000000031063 0            324000031063 
AT6	031062 031063 0   0   000000031063 0            324000031063 
FT1A	031062 031063 0   0   000000031063 0            000000031063 
FT2	031062 031063 0   0   0            0            000000031063 
FT2RQ	031062 031063 0   0   377777777777 0            000000031063 
FT3	031062 031063 0   0   377777777777 0            000000031063 
FT9	031063 031063 0   0   377777777777 0            000000031063 
ET0	031063 031063 0   0   377777777777 0            000000031063 
ST1A	031063 031063 0   0   377777777777 0            000000031063 
ST9	031063 031063 0   0   377777777777 0            000000031063 


*031063 MOVE 	0,035062
INITIAL
C(AC)=377777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031063 031063 0   0   200000035062 0            0            
IT1	031063 0      0   0   200000035062 0            0            
AT3	031063 0      0   0   000000035062 0            200000035062 
AT6	031063 035062 0   0   000000035062 0            200000035062 
FT0	031063 035062 0   0   0            0            200000035062 
FT1A	031063 035062 0   0   0            0            0            
FT9	031064 035062 0   0   0            0            0            
ET0	031064 035062 0   0   0            0            0            
ST1	031064 035062 0   0   0            0            0            
ST2	031064 035062 0   0   0            0            0            
ST9	031064 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 34
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0250

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

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


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


*031067 MOVE 	0,035065
INITIAL
C(AC)=000000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031067 031067 0   0   200000035065 0            400000000000 
IT1	031067 0      0   0   200000035065 0            400000000000 
AT3	031067 0      0   0   000000035065 0            200000035065 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 35
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0251

AT6	031067 035065 0   0   000000035065 0            200000035065 
FT0	031067 035065 0   0   400000000000 0            200000035065 
FT1A	031067 035065 0   0   400000000000 0            400000000000 
FT9	031070 035065 0   0   400000000000 0            400000000000 
ET0	031070 035065 0   0   400000000000 0            400000000000 
ST1	031070 035065 0   0   400000000000 0            400000000000 
ST2	031070 035065 0   0   400000000000 0            400000000000 
ST9	031070 035065 0   0   400000000000 0            400000000000 


*031070 SKIPLE	0,000000
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031070 031070 0   0   333000000000 0            400000000000 
IT1	031070 0      0   0   333000000000 0            400000000000 
AT3	031070 0      0   0   0            0            333000000000 
AT6	031070 0      0   0   0            0            333000000000 
FT0	031070 0      0   0   400000000000 0            333000000000 
FT1A	031070 0      0   0   400000000000 0            400000000000 
FT9	031071 0      0   0   400000000000 0            400000000000 
ET0	031072 0      0   0   400000000000 0            400000000000 
ST1A	031072 0      0   0   400000000000 0            400000000000 
ST9	031072 0      0   0   400000000000 0            400000000000 


*031072 JUMPA	0,031073
INITIAL
C(AC)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031072 031072 0   0   324000031073 0            000000031073 
IT1	031072 0      0   0   324000031073 0            000000031073 
AT3	031072 0      0   0   000000031073 0            324000031073 
AT6	031072 031073 0   0   000000031073 0            324000031073 
FT1A	031072 031073 0   0   000000031073 0            000000031073 
FT2	031072 031073 0   0   0            0            000000031073 
FT2RQ	031072 031073 0   0   400000000000 0            000000031073 
FT3	031072 031073 0   0   400000000000 0            000000031073 
FT9	031073 031073 0   0   400000000000 0            000000031073 
ET0	031073 031073 0   0   400000000000 0            000000031073 
ST1A	031073 031073 0   0   400000000000 0            000000031073 
ST9	031073 031073 0   0   400000000000 0            000000031073 


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

*031073 MOVE 	0,035064
INITIAL
C(AC)=400000 000000 
C(E)=377777 777777 
FINAL
C(AC)=377777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031073 031073 0   0   200000035064 0            377777777777 
IT1	031073 0      0   0   200000035064 0            377777777777 
AT3	031073 0      0   0   000000035064 0            200000035064 
AT6	031073 035064 0   0   000000035064 0            200000035064 
FT0	031073 035064 0   0   377777777777 0            200000035064 
FT1A	031073 035064 0   0   377777777777 0            377777777777 
FT9	031074 035064 0   0   377777777777 0            377777777777 
ET0	031074 035064 0   0   377777777777 0            377777777777 
ST1	031074 035064 0   0   377777777777 0            377777777777 
ST2	031074 035064 0   0   377777777777 0            377777777777 
ST9	031074 035064 0   0   377777777777 0            377777777777 


*031074 SKIPLE	0,000000
INITIAL
C(AC)=377777 777777 
C(E)=377777 777777 
FINAL
C(AC)=377777 777777 

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


*031075 SKIPA	0,000000
INITIAL
C(AC)=377777 777777 
C(E)=377777 777777 
FINAL
C(AC)=377777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031075 031075 0   0   334000000000 0            377777777777 
IT1	031075 0      0   0   334000000000 0            377777777777 
AT3	031075 0      0   0   0            0            334000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 37
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0253

AT6	031075 0      0   0   0            0            334000000000 
FT0	031075 0      0   0   377777777777 0            334000000000 
FT1A	031075 0      0   0   377777777777 0            377777777777 
FT9	031076 0      0   0   377777777777 0            377777777777 
ET0	031077 0      0   0   377777777777 0            377777777777 
ST1A	031077 0      0   0   377777777777 0            377777777777 
ST9	031077 0      0   0   377777777777 0            377777777777 


*031077 JUMPA	0,031100
INITIAL
C(AC)=377777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031077 031077 0   0   324000031100 0            000000031100 
IT1	031077 0      0   0   324000031100 0            000000031100 
AT3	031077 0      0   0   000000031100 0            324000031100 
AT6	031077 0      0   0   000000031100 0            324000031100 
FT1A	031077 0      0   0   000000031100 0            000000031100 
FT2	031077 0      0   0   0            0            000000031100 
FT2RQ	031077 0      0   0   377777777777 0            000000031100 
FT3	031077 0      0   0   377777777777 0            000000031100 
FT9	0      0      0   0   377777777777 0            000000031100 
ET0	0      0      0   0   377777777777 0            000000031100 
ST1A	0      0      0   0   377777777777 0            000000031100 
ST9	0      0      0   0   377777777777 0            000000031100 


*031100 MOVE 	0,035066
INITIAL
C(AC)=377777 777777 
C(E)=777000 000000 
FINAL
C(AC)=777000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   200000035066 0            777000000000 
IT1	0      0      0   0   200000035066 0            777000000000 
AT3	0      0      0   0   000000035066 0            200000035066 
AT6	0      035066 0   0   000000035066 0            200000035066 
FT0	0      035066 0   0   777000000000 0            200000035066 
FT1A	0      035066 0   0   777000000000 0            777000000000 
FT9	031101 035066 0   0   777000000000 0            777000000000 
ET0	031101 035066 0   0   777000000000 0            777000000000 
ST1	031101 035066 0   0   777000000000 0            777000000000 
ST2	031101 035066 0   0   777000000000 0            777000000000 
ST9	031101 035066 0   0   777000000000 0            777000000000 


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

*031101 SKIPN	0,000000
INITIAL
C(AC)=777000 000000 
C(E)=777000 000000 
FINAL
C(AC)=777000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031101 031101 0   0   336000000000 0            777000000000 
IT1	031101 0      0   0   336000000000 0            777000000000 
AT3	031101 0      0   0   0            0            336000000000 
AT6	031101 0      0   0   0            0            336000000000 
FT0	031101 0      0   0   777000000000 0            336000000000 
FT1A	031101 0      0   0   777000000000 0            777000000000 
FT9	031102 0      0   0   777000000000 0            777000000000 
ET0	031103 0      0   0   777000000000 0            777000000000 
ST1A	031103 0      0   0   777000000000 0            777000000000 
ST9	031103 0      0   0   777000000000 0            777000000000 


*031103 JUMPA	0,031104
INITIAL
C(AC)=777000 000000 
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   777000000000 0            000000031104 
FT3	031103 031104 0   0   777000000000 0            000000031104 
FT9	031104 031104 0   0   777000000000 0            000000031104 
ET0	031104 031104 0   0   777000000000 0            000000031104 
ST1A	031104 031104 0   0   777000000000 0            000000031104 
ST9	031104 031104 0   0   777000000000 0            000000031104 


*031104 MOVE 	0,035067
INITIAL
C(AC)=777000 000000 
C(E)=000377 000000 
FINAL
C(AC)=000377 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031104 031104 0   0   200000035067 0            000377000000 
IT1	031104 0      0   0   200000035067 0            000377000000 
AT3	031104 0      0   0   000000035067 0            200000035067 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 39
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0255

AT6	031104 035067 0   0   000000035067 0            200000035067 
FT0	031104 035067 0   0   000377000000 0            200000035067 
FT1A	031104 035067 0   0   000377000000 0            000377000000 
FT9	031105 035067 0   0   000377000000 0            000377000000 
ET0	031105 035067 0   0   000377000000 0            000377000000 
ST1	031105 035067 0   0   000377000000 0            000377000000 
ST2	031105 035067 0   0   000377000000 0            000377000000 
ST9	031105 035067 0   0   000377000000 0            000377000000 


*031105 SKIPN	0,000000
INITIAL
C(AC)=000377 000000 
C(E)=000377 000000 
FINAL
C(AC)=000377 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031105 031105 0   0   336000000000 0            000377000000 
IT1	031105 0      0   0   336000000000 0            000377000000 
AT3	031105 0      0   0   0            0            336000000000 
AT6	031105 0      0   0   0            0            336000000000 
FT0	031105 0      0   0   000377000000 0            336000000000 
FT1A	031105 0      0   0   000377000000 0            000377000000 
FT9	031106 0      0   0   000377000000 0            000377000000 
ET0	031107 0      0   0   000377000000 0            000377000000 
ST1A	031107 0      0   0   000377000000 0            000377000000 
ST9	031107 0      0   0   000377000000 0            000377000000 


*031107 JUMPA	0,031110
INITIAL
C(AC)=000377 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031107 031107 0   0   324000031110 0            000000031110 
IT1	031107 0      0   0   324000031110 0            000000031110 
AT3	031107 0      0   0   000000031110 0            324000031110 
AT6	031107 031110 0   0   000000031110 0            324000031110 
FT1A	031107 031110 0   0   000000031110 0            000000031110 
FT2	031107 031110 0   0   0            0            000000031110 
FT2RQ	031107 031110 0   0   000377000000 0            000000031110 
FT3	031107 031110 0   0   000377000000 0            000000031110 
FT9	031110 031110 0   0   000377000000 0            000000031110 
ET0	031110 031110 0   0   000377000000 0            000000031110 
ST1A	031110 031110 0   0   000377000000 0            000000031110 
ST9	031110 031110 0   0   000377000000 0            000000031110 


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

*031110 MOVE 	0,035070
INITIAL
C(AC)=000377 000000 
C(E)=000000 177000 
FINAL
C(AC)=000000 177000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031110 031110 0   0   200000035070 0            000000177000 
IT1	031110 0      0   0   200000035070 0            000000177000 
AT3	031110 0      0   0   000000035070 0            200000035070 
AT6	031110 035070 0   0   000000035070 0            200000035070 
FT0	031110 035070 0   0   000000177000 0            200000035070 
FT1A	031110 035070 0   0   000000177000 0            000000177000 
FT9	031111 035070 0   0   000000177000 0            000000177000 
ET0	031111 035070 0   0   000000177000 0            000000177000 
ST1	031111 035070 0   0   000000177000 0            000000177000 
ST2	031111 035070 0   0   000000177000 0            000000177000 
ST9	031111 035070 0   0   000000177000 0            000000177000 


*031111 SKIPN	0,000000
INITIAL
C(AC)=000000 177000 
C(E)=000000 177000 
FINAL
C(AC)=000000 177000 

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


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031113 031113 0   0   324000031114 0            000000031114 
IT1	031113 0      0   0   324000031114 0            000000031114 
AT3	031113 0      0   0   000000031114 0            324000031114 
AT6	031113 031114 0   0   000000031114 0            324000031114 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 41
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0257

FT1A	031113 031114 0   0   000000031114 0            000000031114 
FT2	031113 031114 0   0   0            0            000000031114 
FT2RQ	031113 031114 0   0   000000177000 0            000000031114 
FT3	031113 031114 0   0   000000177000 0            000000031114 
FT9	031114 031114 0   0   000000177000 0            000000031114 
ET0	031114 031114 0   0   000000177000 0            000000031114 
ST1A	031114 031114 0   0   000000177000 0            000000031114 
ST9	031114 031114 0   0   000000177000 0            000000031114 


*031114 MOVE 	0,035071
INITIAL
C(AC)=000000 177000 
C(E)=000000 000777 
FINAL
C(AC)=000000 000777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031114 031114 0   0   200000035071 0            000000000777 
IT1	031114 0      0   0   200000035071 0            000000000777 
AT3	031114 0      0   0   000000035071 0            200000035071 
AT6	031114 035071 0   0   000000035071 0            200000035071 
FT0	031114 035071 0   0   000000000777 0            200000035071 
FT1A	031114 035071 0   0   000000000777 0            000000000777 
FT9	031115 035071 0   0   000000000777 0            000000000777 
ET0	031115 035071 0   0   000000000777 0            000000000777 
ST1	031115 035071 0   0   000000000777 0            000000000777 
ST2	031115 035071 0   0   000000000777 0            000000000777 
ST9	031115 035071 0   0   000000000777 0            000000000777 


*031115 SKIPN	0,000000
INITIAL
C(AC)=000000 000777 
C(E)=000000 000777 
FINAL
C(AC)=000000 000777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031115 031115 0   0   336000000000 0            000000000777 
IT1	031115 0      0   0   336000000000 0            000000000777 
AT3	031115 0      0   0   0            0            336000000000 
AT6	031115 0      0   0   0            0            336000000000 
FT0	031115 0      0   0   000000000777 0            336000000000 
FT1A	031115 0      0   0   000000000777 0            000000000777 
FT9	031116 0      0   0   000000000777 0            000000000777 
ET0	031117 0      0   0   000000000777 0            000000000777 
ST1A	031117 0      0   0   000000000777 0            000000000777 
ST9	031117 0      0   0   000000000777 0            000000000777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 42
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0258

*031117 JUMPA	0,031120
INITIAL
C(AC)=000000 000777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031117 031117 0   0   324000031120 0            000000031120 
IT1	031117 0      0   0   324000031120 0            000000031120 
AT3	031117 0      0   0   000000031120 0            324000031120 
AT6	031117 031120 0   0   000000031120 0            324000031120 
FT1A	031117 031120 0   0   000000031120 0            000000031120 
FT2	031117 031120 0   0   0            0            000000031120 
FT2RQ	031117 031120 0   0   000000000777 0            000000031120 
FT3	031117 031120 0   0   000000000777 0            000000031120 
FT9	031120 031120 0   0   000000000777 0            000000031120 
ET0	031120 031120 0   0   000000000777 0            000000031120 
ST1A	031120 031120 0   0   000000000777 0            000000031120 
ST9	031120 031120 0   0   000000000777 0            000000031120 


*031120 MOVE 	0,035072
INITIAL
C(AC)=000000 000777 
C(E)=000000 600000 
FINAL
C(AC)=000000 600000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031120 031120 0   0   200000035072 0            000000600000 
IT1	031120 0      0   0   200000035072 0            000000600000 
AT3	031120 0      0   0   000000035072 0            200000035072 
AT6	031120 035072 0   0   000000035072 0            200000035072 
FT0	031120 035072 0   0   000000600000 0            200000035072 
FT1A	031120 035072 0   0   000000600000 0            000000600000 
FT9	031121 035072 0   0   000000600000 0            000000600000 
ET0	031121 035072 0   0   000000600000 0            000000600000 
ST1	031121 035072 0   0   000000600000 0            000000600000 
ST2	031121 035072 0   0   000000600000 0            000000600000 
ST9	031121 035072 0   0   000000600000 0            000000600000 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031121 031121 0   0   336000000000 0            000000600000 
IT1	031121 0      0   0   336000000000 0            000000600000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 43
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0259

AT3	031121 0      0   0   0            0            336000000000 
AT6	031121 0      0   0   0            0            336000000000 
FT0	031121 0      0   0   000000600000 0            336000000000 
FT1A	031121 0      0   0   000000600000 0            000000600000 
FT9	031122 0      0   0   000000600000 0            000000600000 
ET0	031123 0      0   0   000000600000 0            000000600000 
ST1A	031123 0      0   0   000000600000 0            000000600000 
ST9	031123 0      0   0   000000600000 0            000000600000 


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


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


*031124 MOVE 	0,035073
INITIAL
C(AC)=000000 600000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031124 031124 0   0   200000035073 0            000400000000 
IT1	031124 0      0   0   200000035073 0            000400000000 
AT3	031124 0      0   0   000000035073 0            200000035073 
AT6	031124 035073 0   0   000000035073 0            200000035073 
FT0	031124 035073 0   0   000400000000 0            200000035073 
FT1A	031124 035073 0   0   000400000000 0            000400000000 
FT9	031125 035073 0   0   000400000000 0            000400000000 
ET0	031125 035073 0   0   000400000000 0            000400000000 
ST1	031125 035073 0   0   000400000000 0            000400000000 
ST2	031125 035073 0   0   000400000000 0            000400000000 
ST9	031125 035073 0   0   000400000000 0            000400000000 


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

*031125 SKIPN	0,000000
INITIAL
C(AC)=000400 000000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031125 031125 0   0   336000000000 0            000400000000 
IT1	031125 0      0   0   336000000000 0            000400000000 
AT3	031125 0      0   0   0            0            336000000000 
AT6	031125 0      0   0   0            0            336000000000 
FT0	031125 0      0   0   000400000000 0            336000000000 
FT1A	031125 0      0   0   000400000000 0            000400000000 
FT9	031126 0      0   0   000400000000 0            000400000000 
ET0	031127 0      0   0   000400000000 0            000400000000 
ST1A	031127 0      0   0   000400000000 0            000400000000 
ST9	031127 0      0   0   000400000000 0            000400000000 


*031127 JUMPA	0,031130
INITIAL
C(AC)=000400 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031127 031127 0   0   324000031130 0            000000031130 
IT1	031127 0      0   0   324000031130 0            000000031130 
AT3	031127 0      0   0   000000031130 0            324000031130 
AT6	031127 031130 0   0   000000031130 0            324000031130 
FT1A	031127 031130 0   0   000000031130 0            000000031130 
FT2	031127 031130 0   0   0            0            000000031130 
FT2RQ	031127 031130 0   0   000400000000 0            000000031130 
FT3	031127 031130 0   0   000400000000 0            000000031130 
FT9	031130 031130 0   0   000400000000 0            000000031130 
ET0	031130 031130 0   0   000400000000 0            000000031130 
ST1A	031130 031130 0   0   000400000000 0            000000031130 
ST9	031130 031130 0   0   000400000000 0            000000031130 


*031130 MOVE 	0,035074
INITIAL
C(AC)=000400 000000 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031130 031130 0   0   200000035074 0            000000000001 
IT1	031130 0      0   0   200000035074 0            000000000001 
AT3	031130 0      0   0   000000035074 0            200000035074 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 45
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0261

AT6	031130 035074 0   0   000000035074 0            200000035074 
FT0	031130 035074 0   0   000000000001 0            200000035074 
FT1A	031130 035074 0   0   000000000001 0            000000000001 
FT9	031131 035074 0   0   000000000001 0            000000000001 
ET0	031131 035074 0   0   000000000001 0            000000000001 
ST1	031131 035074 0   0   000000000001 0            000000000001 
ST2	031131 035074 0   0   000000000001 0            000000000001 
ST9	031131 035074 0   0   000000000001 0            000000000001 


*031131 SKIPN	0,000000
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

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


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031133 031133 0   0   324000031134 0            000000031134 
IT1	031133 0      0   0   324000031134 0            000000031134 
AT3	031133 0      0   0   000000031134 0            324000031134 
AT6	031133 031134 0   0   000000031134 0            324000031134 
FT1A	031133 031134 0   0   000000031134 0            000000031134 
FT2	031133 031134 0   0   0            0            000000031134 
FT2RQ	031133 031134 0   0   000000000001 0            000000031134 
FT3	031133 031134 0   0   000000000001 0            000000031134 
FT9	031134 031134 0   0   000000000001 0            000000031134 
ET0	031134 031134 0   0   000000000001 0            000000031134 
ST1A	031134 031134 0   0   000000000001 0            000000031134 
ST9	031134 031134 0   0   000000000001 0            000000031134 


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

*031134 MOVE 	0,035075
INITIAL
C(AC)=000000 000001 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031134 031134 0   0   200000035075 0            000000000002 
IT1	031134 0      0   0   200000035075 0            000000000002 
AT3	031134 0      0   0   000000035075 0            200000035075 
AT6	031134 035075 0   0   000000035075 0            200000035075 
FT0	031134 035075 0   0   000000000002 0            200000035075 
FT1A	031134 035075 0   0   000000000002 0            000000000002 
FT9	031135 035075 0   0   000000000002 0            000000000002 
ET0	031135 035075 0   0   000000000002 0            000000000002 
ST1	031135 035075 0   0   000000000002 0            000000000002 
ST2	031135 035075 0   0   000000000002 0            000000000002 
ST9	031135 035075 0   0   000000000002 0            000000000002 


*031135 SKIPN	0,000000
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031135 031135 0   0   336000000000 0            000000000002 
IT1	031135 0      0   0   336000000000 0            000000000002 
AT3	031135 0      0   0   0            0            336000000000 
AT6	031135 0      0   0   0            0            336000000000 
FT0	031135 0      0   0   000000000002 0            336000000000 
FT1A	031135 0      0   0   000000000002 0            000000000002 
FT9	031136 0      0   0   000000000002 0            000000000002 
ET0	031137 0      0   0   000000000002 0            000000000002 
ST1A	031137 0      0   0   000000000002 0            000000000002 
ST9	031137 0      0   0   000000000002 0            000000000002 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031137 031137 0   0   324000031140 0            000000031140 
IT1	031137 0      0   0   324000031140 0            000000031140 
AT3	031137 0      0   0   000000031140 0            324000031140 
AT6	031137 031140 0   0   000000031140 0            324000031140 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 47
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0263

FT1A	031137 031140 0   0   000000031140 0            000000031140 
FT2	031137 031140 0   0   0            0            000000031140 
FT2RQ	031137 031140 0   0   000000000002 0            000000031140 
FT3	031137 031140 0   0   000000000002 0            000000031140 
FT9	031140 031140 0   0   000000000002 0            000000031140 
ET0	031140 031140 0   0   000000000002 0            000000031140 
ST1A	031140 031140 0   0   000000000002 0            000000031140 
ST9	031140 031140 0   0   000000000002 0            000000031140 


*031140 MOVE 	0,035076
INITIAL
C(AC)=000000 000002 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031140 031140 0   0   200000035076 0            000000000004 
IT1	031140 0      0   0   200000035076 0            000000000004 
AT3	031140 0      0   0   000000035076 0            200000035076 
AT6	031140 035076 0   0   000000035076 0            200000035076 
FT0	031140 035076 0   0   000000000004 0            200000035076 
FT1A	031140 035076 0   0   000000000004 0            000000000004 
FT9	031141 035076 0   0   000000000004 0            000000000004 
ET0	031141 035076 0   0   000000000004 0            000000000004 
ST1	031141 035076 0   0   000000000004 0            000000000004 
ST2	031141 035076 0   0   000000000004 0            000000000004 
ST9	031141 035076 0   0   000000000004 0            000000000004 


*031141 SKIPN	0,000000
INITIAL
C(AC)=000000 000004 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031141 031141 0   0   336000000000 0            000000000004 
IT1	031141 0      0   0   336000000000 0            000000000004 
AT3	031141 0      0   0   0            0            336000000000 
AT6	031141 0      0   0   0            0            336000000000 
FT0	031141 0      0   0   000000000004 0            336000000000 
FT1A	031141 0      0   0   000000000004 0            000000000004 
FT9	031142 0      0   0   000000000004 0            000000000004 
ET0	031143 0      0   0   000000000004 0            000000000004 
ST1A	031143 0      0   0   000000000004 0            000000000004 
ST9	031143 0      0   0   000000000004 0            000000000004 


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

*031143 JUMPA	0,031144
INITIAL
C(AC)=000000 000004 
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   000000000004 0            000000031144 
FT3	031143 031144 0   0   000000000004 0            000000031144 
FT9	031144 031144 0   0   000000000004 0            000000031144 
ET0	031144 031144 0   0   000000000004 0            000000031144 
ST1A	031144 031144 0   0   000000000004 0            000000031144 
ST9	031144 031144 0   0   000000000004 0            000000031144 


*031144 MOVE 	0,035077
INITIAL
C(AC)=000000 000004 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031144 031144 0   0   200000035077 0            000000000010 
IT1	031144 0      0   0   200000035077 0            000000000010 
AT3	031144 0      0   0   000000035077 0            200000035077 
AT6	031144 035077 0   0   000000035077 0            200000035077 
FT0	031144 035077 0   0   000000000010 0            200000035077 
FT1A	031144 035077 0   0   000000000010 0            000000000010 
FT9	031145 035077 0   0   000000000010 0            000000000010 
ET0	031145 035077 0   0   000000000010 0            000000000010 
ST1	031145 035077 0   0   000000000010 0            000000000010 
ST2	031145 035077 0   0   000000000010 0            000000000010 
ST9	031145 035077 0   0   000000000010 0            000000000010 


*031145 SKIPN	0,000000
INITIAL
C(AC)=000000 000010 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031145 031145 0   0   336000000000 0            000000000010 
IT1	031145 0      0   0   336000000000 0            000000000010 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 49
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0265

AT3	031145 0      0   0   0            0            336000000000 
AT6	031145 0      0   0   0            0            336000000000 
FT0	031145 0      0   0   000000000010 0            336000000000 
FT1A	031145 0      0   0   000000000010 0            000000000010 
FT9	031146 0      0   0   000000000010 0            000000000010 
ET0	031147 0      0   0   000000000010 0            000000000010 
ST1A	031147 0      0   0   000000000010 0            000000000010 
ST9	031147 0      0   0   000000000010 0            000000000010 


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


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


*031150 MOVE 	0,035100
INITIAL
C(AC)=000000 000010 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031150 031150 0   0   200000035100 0            000000000020 
IT1	031150 0      0   0   200000035100 0            000000000020 
AT3	031150 0      0   0   000000035100 0            200000035100 
AT6	031150 0      0   0   000000035100 0            200000035100 
FT0	031150 0      0   0   000000000020 0            200000035100 
FT1A	031150 0      0   0   000000000020 0            000000000020 
FT9	031151 0      0   0   000000000020 0            000000000020 
ET0	031151 0      0   0   000000000020 0            000000000020 
ST1	031151 0      0   0   000000000020 0            000000000020 
ST2	031151 0      0   0   000000000020 0            000000000020 
ST9	031151 0      0   0   000000000020 0            000000000020 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 50
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0266

*031151 SKIPN	0,000000
INITIAL
C(AC)=000000 000020 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031151 031151 0   0   336000000000 0            000000000020 
IT1	031151 0      0   0   336000000000 0            000000000020 
AT3	031151 0      0   0   0            0            336000000000 
AT6	031151 0      0   0   0            0            336000000000 
FT0	031151 0      0   0   000000000020 0            336000000000 
FT1A	031151 0      0   0   000000000020 0            000000000020 
FT9	031152 0      0   0   000000000020 0            000000000020 
ET0	031153 0      0   0   000000000020 0            000000000020 
ST1A	031153 0      0   0   000000000020 0            000000000020 
ST9	031153 0      0   0   000000000020 0            000000000020 


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


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


*031154 MOVE 	0,035101
INITIAL
C(AC)=000000 000020 
C(E)=000000 000040 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031154 031154 0   0   200000035101 0            000000000040 
IT1	031154 0      0   0   200000035101 0            000000000040 
AT3	031154 0      0   0   000000035101 0            200000035101 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 51
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0267

AT6	031154 035101 0   0   000000035101 0            200000035101 
FT0	031154 035101 0   0   000000000040 0            200000035101 
FT1A	031154 035101 0   0   000000000040 0            000000000040 
FT9	031155 035101 0   0   000000000040 0            000000000040 
ET0	031155 035101 0   0   000000000040 0            000000000040 
ST1	031155 035101 0   0   000000000040 0            000000000040 
ST2	031155 035101 0   0   000000000040 0            000000000040 
ST9	031155 035101 0   0   000000000040 0            000000000040 


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

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


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


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


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

*031160 MOVE 	0,035102
INITIAL
C(AC)=000000 000040 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031160 031160 0   0   200000035102 0            000000000100 
IT1	031160 0      0   0   200000035102 0            000000000100 
AT3	031160 0      0   0   000000035102 0            200000035102 
AT6	031160 035102 0   0   000000035102 0            200000035102 
FT0	031160 035102 0   0   000000000100 0            200000035102 
FT1A	031160 035102 0   0   000000000100 0            000000000100 
FT9	031161 035102 0   0   000000000100 0            000000000100 
ET0	031161 035102 0   0   000000000100 0            000000000100 
ST1	031161 035102 0   0   000000000100 0            000000000100 
ST2	031161 035102 0   0   000000000100 0            000000000100 
ST9	031161 035102 0   0   000000000100 0            000000000100 


*031161 SKIPN	0,000000
INITIAL
C(AC)=000000 000100 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031161 031161 0   0   336000000000 0            000000000100 
IT1	031161 0      0   0   336000000000 0            000000000100 
AT3	031161 0      0   0   0            0            336000000000 
AT6	031161 0      0   0   0            0            336000000000 
FT0	031161 0      0   0   000000000100 0            336000000000 
FT1A	031161 0      0   0   000000000100 0            000000000100 
FT9	031162 0      0   0   000000000100 0            000000000100 
ET0	031163 0      0   0   000000000100 0            000000000100 
ST1A	031163 0      0   0   000000000100 0            000000000100 
ST9	031163 0      0   0   000000000100 0            000000000100 


*031163 JUMPA	0,031164
INITIAL
C(AC)=000000 000100 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031163 031163 0   0   324000031164 0            000000031164 
IT1	031163 0      0   0   324000031164 0            000000031164 
AT3	031163 0      0   0   000000031164 0            324000031164 
AT6	031163 031164 0   0   000000031164 0            324000031164 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 53
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0269

FT1A	031163 031164 0   0   000000031164 0            000000031164 
FT2	031163 031164 0   0   0            0            000000031164 
FT2RQ	031163 031164 0   0   000000000100 0            000000031164 
FT3	031163 031164 0   0   000000000100 0            000000031164 
FT9	031164 031164 0   0   000000000100 0            000000031164 
ET0	031164 031164 0   0   000000000100 0            000000031164 
ST1A	031164 031164 0   0   000000000100 0            000000031164 
ST9	031164 031164 0   0   000000000100 0            000000031164 


*031164 MOVE 	0,035103
INITIAL
C(AC)=000000 000100 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031164 031164 0   0   200000035103 0            000000000200 
IT1	031164 0      0   0   200000035103 0            000000000200 
AT3	031164 0      0   0   000000035103 0            200000035103 
AT6	031164 035103 0   0   000000035103 0            200000035103 
FT0	031164 035103 0   0   000000000200 0            200000035103 
FT1A	031164 035103 0   0   000000000200 0            000000000200 
FT9	031165 035103 0   0   000000000200 0            000000000200 
ET0	031165 035103 0   0   000000000200 0            000000000200 
ST1	031165 035103 0   0   000000000200 0            000000000200 
ST2	031165 035103 0   0   000000000200 0            000000000200 
ST9	031165 035103 0   0   000000000200 0            000000000200 


*031165 SKIPN	0,000000
INITIAL
C(AC)=000000 000200 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

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


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

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


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


*031170 MOVE 	0,035104
INITIAL
C(AC)=000000 000200 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031170 031170 0   0   200000035104 0            000000000400 
IT1	031170 0      0   0   200000035104 0            000000000400 
AT3	031170 0      0   0   000000035104 0            200000035104 
AT6	031170 035104 0   0   000000035104 0            200000035104 
FT0	031170 035104 0   0   000000000400 0            200000035104 
FT1A	031170 035104 0   0   000000000400 0            000000000400 
FT9	031171 035104 0   0   000000000400 0            000000000400 
ET0	031171 035104 0   0   000000000400 0            000000000400 
ST1	031171 035104 0   0   000000000400 0            000000000400 
ST2	031171 035104 0   0   000000000400 0            000000000400 
ST9	031171 035104 0   0   000000000400 0            000000000400 


*031171 SKIPN	0,000000
INITIAL
C(AC)=000000 000400 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031171 031171 0   0   336000000000 0            000000000400 
IT1	031171 0      0   0   336000000000 0            000000000400 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 55
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0271

AT3	031171 0      0   0   0            0            336000000000 
AT6	031171 0      0   0   0            0            336000000000 
FT0	031171 0      0   0   000000000400 0            336000000000 
FT1A	031171 0      0   0   000000000400 0            000000000400 
FT9	031172 0      0   0   000000000400 0            000000000400 
ET0	031173 0      0   0   000000000400 0            000000000400 
ST1A	031173 0      0   0   000000000400 0            000000000400 
ST9	031173 0      0   0   000000000400 0            000000000400 


*031173 JUMPA	0,031174
INITIAL
C(AC)=000000 000400 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031173 031173 0   0   324000031174 0            000000031174 
IT1	031173 0      0   0   324000031174 0            000000031174 
AT3	031173 0      0   0   000000031174 0            324000031174 
AT6	031173 031174 0   0   000000031174 0            324000031174 
FT1A	031173 031174 0   0   000000031174 0            000000031174 
FT2	031173 031174 0   0   0            0            000000031174 
FT2RQ	031173 031174 0   0   000000000400 0            000000031174 
FT3	031173 031174 0   0   000000000400 0            000000031174 
FT9	031174 031174 0   0   000000000400 0            000000031174 
ET0	031174 031174 0   0   000000000400 0            000000031174 
ST1A	031174 031174 0   0   000000000400 0            000000031174 
ST9	031174 031174 0   0   000000000400 0            000000031174 


*031174 MOVE 	0,035105
INITIAL
C(AC)=000000 000400 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031174 031174 0   0   200000035105 0            000000001000 
IT1	031174 0      0   0   200000035105 0            000000001000 
AT3	031174 0      0   0   000000035105 0            200000035105 
AT6	031174 035105 0   0   000000035105 0            200000035105 
FT0	031174 035105 0   0   000000001000 0            200000035105 
FT1A	031174 035105 0   0   000000001000 0            000000001000 
FT9	031175 035105 0   0   000000001000 0            000000001000 
ET0	031175 035105 0   0   000000001000 0            000000001000 
ST1	031175 035105 0   0   000000001000 0            000000001000 
ST2	031175 035105 0   0   000000001000 0            000000001000 
ST9	031175 035105 0   0   000000001000 0            000000001000 


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

*031175 SKIPN	0,000000
INITIAL
C(AC)=000000 001000 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031175 031175 0   0   336000000000 0            000000001000 
IT1	031175 0      0   0   336000000000 0            000000001000 
AT3	031175 0      0   0   0            0            336000000000 
AT6	031175 0      0   0   0            0            336000000000 
FT0	031175 0      0   0   000000001000 0            336000000000 
FT1A	031175 0      0   0   000000001000 0            000000001000 
FT9	031176 0      0   0   000000001000 0            000000001000 
ET0	031177 0      0   0   000000001000 0            000000001000 
ST1A	031177 0      0   0   000000001000 0            000000001000 
ST9	031177 0      0   0   000000001000 0            000000001000 


*031177 JUMPA	0,031200
INITIAL
C(AC)=000000 001000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031177 031177 0   0   324000031200 0            000000031200 
IT1	031177 0      0   0   324000031200 0            000000031200 
AT3	031177 0      0   0   000000031200 0            324000031200 
AT6	031177 0      0   0   000000031200 0            324000031200 
FT1A	031177 0      0   0   000000031200 0            000000031200 
FT2	031177 0      0   0   0            0            000000031200 
FT2RQ	031177 0      0   0   000000001000 0            000000031200 
FT3	031177 0      0   0   000000001000 0            000000031200 
FT9	0      0      0   0   000000001000 0            000000031200 
ET0	0      0      0   0   000000001000 0            000000031200 
ST1A	0      0      0   0   000000001000 0            000000031200 
ST9	0      0      0   0   000000001000 0            000000031200 


*031200 MOVE 	0,035106
INITIAL
C(AC)=000000 001000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   200000035106 0            000000002000 
IT1	0      0      0   0   200000035106 0            000000002000 
AT3	0      0      0   0   000000035106 0            200000035106 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 57
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0273

AT6	0      035106 0   0   000000035106 0            200000035106 
FT0	0      035106 0   0   000000002000 0            200000035106 
FT1A	0      035106 0   0   000000002000 0            000000002000 
FT9	031201 035106 0   0   000000002000 0            000000002000 
ET0	031201 035106 0   0   000000002000 0            000000002000 
ST1	031201 035106 0   0   000000002000 0            000000002000 
ST2	031201 035106 0   0   000000002000 0            000000002000 
ST9	031201 035106 0   0   000000002000 0            000000002000 


*031201 SKIPN	0,000000
INITIAL
C(AC)=000000 002000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

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


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031203 031203 0   0   324000031204 0            000000031204 
IT1	031203 0      0   0   324000031204 0            000000031204 
AT3	031203 0      0   0   000000031204 0            324000031204 
AT6	031203 031204 0   0   000000031204 0            324000031204 
FT1A	031203 031204 0   0   000000031204 0            000000031204 
FT2	031203 031204 0   0   0            0            000000031204 
FT2RQ	031203 031204 0   0   000000002000 0            000000031204 
FT3	031203 031204 0   0   000000002000 0            000000031204 
FT9	031204 031204 0   0   000000002000 0            000000031204 
ET0	031204 031204 0   0   000000002000 0            000000031204 
ST1A	031204 031204 0   0   000000002000 0            000000031204 
ST9	031204 031204 0   0   000000002000 0            000000031204 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 58
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0274

*031204 MOVE 	0,035107
INITIAL
C(AC)=000000 002000 
C(E)=000000 004000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031204 031204 0   0   200000035107 0            000000004000 
IT1	031204 0      0   0   200000035107 0            000000004000 
AT3	031204 0      0   0   000000035107 0            200000035107 
AT6	031204 035107 0   0   000000035107 0            200000035107 
FT0	031204 035107 0   0   000000004000 0            200000035107 
FT1A	031204 035107 0   0   000000004000 0            000000004000 
FT9	031205 035107 0   0   000000004000 0            000000004000 
ET0	031205 035107 0   0   000000004000 0            000000004000 
ST1	031205 035107 0   0   000000004000 0            000000004000 
ST2	031205 035107 0   0   000000004000 0            000000004000 
ST9	031205 035107 0   0   000000004000 0            000000004000 


*031205 SKIPN	0,000000
INITIAL
C(AC)=000000 004000 
C(E)=000000 004000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031205 031205 0   0   336000000000 0            000000004000 
IT1	031205 0      0   0   336000000000 0            000000004000 
AT3	031205 0      0   0   0            0            336000000000 
AT6	031205 0      0   0   0            0            336000000000 
FT0	031205 0      0   0   000000004000 0            336000000000 
FT1A	031205 0      0   0   000000004000 0            000000004000 
FT9	031206 0      0   0   000000004000 0            000000004000 
ET0	031207 0      0   0   000000004000 0            000000004000 
ST1A	031207 0      0   0   000000004000 0            000000004000 
ST9	031207 0      0   0   000000004000 0            000000004000 


*031207 JUMPA	0,031210
INITIAL
C(AC)=000000 004000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031207 031207 0   0   324000031210 0            000000031210 
IT1	031207 0      0   0   324000031210 0            000000031210 
AT3	031207 0      0   0   000000031210 0            324000031210 
AT6	031207 031210 0   0   000000031210 0            324000031210 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 59
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0275

FT1A	031207 031210 0   0   000000031210 0            000000031210 
FT2	031207 031210 0   0   0            0            000000031210 
FT2RQ	031207 031210 0   0   000000004000 0            000000031210 
FT3	031207 031210 0   0   000000004000 0            000000031210 
FT9	031210 031210 0   0   000000004000 0            000000031210 
ET0	031210 031210 0   0   000000004000 0            000000031210 
ST1A	031210 031210 0   0   000000004000 0            000000031210 
ST9	031210 031210 0   0   000000004000 0            000000031210 


*031210 MOVE 	0,035110
INITIAL
C(AC)=000000 004000 
C(E)=000000 010000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031210 031210 0   0   200000035110 0            000000010000 
IT1	031210 0      0   0   200000035110 0            000000010000 
AT3	031210 0      0   0   000000035110 0            200000035110 
AT6	031210 035110 0   0   000000035110 0            200000035110 
FT0	031210 035110 0   0   000000010000 0            200000035110 
FT1A	031210 035110 0   0   000000010000 0            000000010000 
FT9	031211 035110 0   0   000000010000 0            000000010000 
ET0	031211 035110 0   0   000000010000 0            000000010000 
ST1	031211 035110 0   0   000000010000 0            000000010000 
ST2	031211 035110 0   0   000000010000 0            000000010000 
ST9	031211 035110 0   0   000000010000 0            000000010000 


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

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


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

*031213 JUMPA	0,031214
INITIAL
C(AC)=000000 010000 
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   000000010000 0            000000031214 
FT3	031213 031214 0   0   000000010000 0            000000031214 
FT9	031214 031214 0   0   000000010000 0            000000031214 
ET0	031214 031214 0   0   000000010000 0            000000031214 
ST1A	031214 031214 0   0   000000010000 0            000000031214 
ST9	031214 031214 0   0   000000010000 0            000000031214 


*031214 MOVE 	0,035111
INITIAL
C(AC)=000000 010000 
C(E)=000000 020000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031214 031214 0   0   200000035111 0            000000020000 
IT1	031214 0      0   0   200000035111 0            000000020000 
AT3	031214 0      0   0   000000035111 0            200000035111 
AT6	031214 035111 0   0   000000035111 0            200000035111 
FT0	031214 035111 0   0   000000020000 0            200000035111 
FT1A	031214 035111 0   0   000000020000 0            000000020000 
FT9	031215 035111 0   0   000000020000 0            000000020000 
ET0	031215 035111 0   0   000000020000 0            000000020000 
ST1	031215 035111 0   0   000000020000 0            000000020000 
ST2	031215 035111 0   0   000000020000 0            000000020000 
ST9	031215 035111 0   0   000000020000 0            000000020000 


*031215 SKIPN	0,000000
INITIAL
C(AC)=000000 020000 
C(E)=000000 020000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031215 031215 0   0   336000000000 0            000000020000 
IT1	031215 0      0   0   336000000000 0            000000020000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 61
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0277

AT3	031215 0      0   0   0            0            336000000000 
AT6	031215 0      0   0   0            0            336000000000 
FT0	031215 0      0   0   000000020000 0            336000000000 
FT1A	031215 0      0   0   000000020000 0            000000020000 
FT9	031216 0      0   0   000000020000 0            000000020000 
ET0	031217 0      0   0   000000020000 0            000000020000 
ST1A	031217 0      0   0   000000020000 0            000000020000 
ST9	031217 0      0   0   000000020000 0            000000020000 


*031217 JUMPA	0,031220
INITIAL
C(AC)=000000 020000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031217 031217 0   0   324000031220 0            000000031220 
IT1	031217 0      0   0   324000031220 0            000000031220 
AT3	031217 0      0   0   000000031220 0            324000031220 
AT6	031217 031220 0   0   000000031220 0            324000031220 
FT1A	031217 031220 0   0   000000031220 0            000000031220 
FT2	031217 031220 0   0   0            0            000000031220 
FT2RQ	031217 031220 0   0   000000020000 0            000000031220 
FT3	031217 031220 0   0   000000020000 0            000000031220 
FT9	031220 031220 0   0   000000020000 0            000000031220 
ET0	031220 031220 0   0   000000020000 0            000000031220 
ST1A	031220 031220 0   0   000000020000 0            000000031220 
ST9	031220 031220 0   0   000000020000 0            000000031220 


*031220 MOVE 	0,035112
INITIAL
C(AC)=000000 020000 
C(E)=000000 040000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031220 031220 0   0   200000035112 0            000000040000 
IT1	031220 0      0   0   200000035112 0            000000040000 
AT3	031220 0      0   0   000000035112 0            200000035112 
AT6	031220 035112 0   0   000000035112 0            200000035112 
FT0	031220 035112 0   0   000000040000 0            200000035112 
FT1A	031220 035112 0   0   000000040000 0            000000040000 
FT9	031221 035112 0   0   000000040000 0            000000040000 
ET0	031221 035112 0   0   000000040000 0            000000040000 
ST1	031221 035112 0   0   000000040000 0            000000040000 
ST2	031221 035112 0   0   000000040000 0            000000040000 
ST9	031221 035112 0   0   000000040000 0            000000040000 


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

*031221 SKIPN	0,000000
INITIAL
C(AC)=000000 040000 
C(E)=000000 040000 
FINAL
C(AC)=000000 040000 

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


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031223 031223 0   0   324000031224 0            000000031224 
IT1	031223 0      0   0   324000031224 0            000000031224 
AT3	031223 0      0   0   000000031224 0            324000031224 
AT6	031223 031224 0   0   000000031224 0            324000031224 
FT1A	031223 031224 0   0   000000031224 0            000000031224 
FT2	031223 031224 0   0   0            0            000000031224 
FT2RQ	031223 031224 0   0   000000040000 0            000000031224 
FT3	031223 031224 0   0   000000040000 0            000000031224 
FT9	031224 031224 0   0   000000040000 0            000000031224 
ET0	031224 031224 0   0   000000040000 0            000000031224 
ST1A	031224 031224 0   0   000000040000 0            000000031224 
ST9	031224 031224 0   0   000000040000 0            000000031224 


*031224 MOVE 	0,035113
INITIAL
C(AC)=000000 040000 
C(E)=000000 100000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031224 031224 0   0   200000035113 0            000000100000 
IT1	031224 0      0   0   200000035113 0            000000100000 
AT3	031224 0      0   0   000000035113 0            200000035113 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 63
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0279

AT6	031224 035113 0   0   000000035113 0            200000035113 
FT0	031224 035113 0   0   000000100000 0            200000035113 
FT1A	031224 035113 0   0   000000100000 0            000000100000 
FT9	031225 035113 0   0   000000100000 0            000000100000 
ET0	031225 035113 0   0   000000100000 0            000000100000 
ST1	031225 035113 0   0   000000100000 0            000000100000 
ST2	031225 035113 0   0   000000100000 0            000000100000 
ST9	031225 035113 0   0   000000100000 0            000000100000 


*031225 SKIPN	0,000000
INITIAL
C(AC)=000000 100000 
C(E)=000000 100000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031225 031225 0   0   336000000000 0            000000100000 
IT1	031225 0      0   0   336000000000 0            000000100000 
AT3	031225 0      0   0   0            0            336000000000 
AT6	031225 0      0   0   0            0            336000000000 
FT0	031225 0      0   0   000000100000 0            336000000000 
FT1A	031225 0      0   0   000000100000 0            000000100000 
FT9	031226 0      0   0   000000100000 0            000000100000 
ET0	031227 0      0   0   000000100000 0            000000100000 
ST1A	031227 0      0   0   000000100000 0            000000100000 
ST9	031227 0      0   0   000000100000 0            000000100000 


*031227 JUMPA	0,031230
INITIAL
C(AC)=000000 100000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031227 031227 0   0   324000031230 0            000000031230 
IT1	031227 0      0   0   324000031230 0            000000031230 
AT3	031227 0      0   0   000000031230 0            324000031230 
AT6	031227 031230 0   0   000000031230 0            324000031230 
FT1A	031227 031230 0   0   000000031230 0            000000031230 
FT2	031227 031230 0   0   0            0            000000031230 
FT2RQ	031227 031230 0   0   000000100000 0            000000031230 
FT3	031227 031230 0   0   000000100000 0            000000031230 
FT9	031230 031230 0   0   000000100000 0            000000031230 
ET0	031230 031230 0   0   000000100000 0            000000031230 
ST1A	031230 031230 0   0   000000100000 0            000000031230 
ST9	031230 031230 0   0   000000100000 0            000000031230 


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

*031230 MOVE 	0,035114
INITIAL
C(AC)=000000 100000 
C(E)=000000 200000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031230 031230 0   0   200000035114 0            000000200000 
IT1	031230 0      0   0   200000035114 0            000000200000 
AT3	031230 0      0   0   000000035114 0            200000035114 
AT6	031230 035114 0   0   000000035114 0            200000035114 
FT0	031230 035114 0   0   000000200000 0            200000035114 
FT1A	031230 035114 0   0   000000200000 0            000000200000 
FT9	031231 035114 0   0   000000200000 0            000000200000 
ET0	031231 035114 0   0   000000200000 0            000000200000 
ST1	031231 035114 0   0   000000200000 0            000000200000 
ST2	031231 035114 0   0   000000200000 0            000000200000 
ST9	031231 035114 0   0   000000200000 0            000000200000 


*031231 SKIPN	0,000000
INITIAL
C(AC)=000000 200000 
C(E)=000000 200000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031231 031231 0   0   336000000000 0            000000200000 
IT1	031231 0      0   0   336000000000 0            000000200000 
AT3	031231 0      0   0   0            0            336000000000 
AT6	031231 0      0   0   0            0            336000000000 
FT0	031231 0      0   0   000000200000 0            336000000000 
FT1A	031231 0      0   0   000000200000 0            000000200000 
FT9	031232 0      0   0   000000200000 0            000000200000 
ET0	031233 0      0   0   000000200000 0            000000200000 
ST1A	031233 0      0   0   000000200000 0            000000200000 
ST9	031233 0      0   0   000000200000 0            000000200000 


*031233 JUMPA	0,031234
INITIAL
C(AC)=000000 200000 
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 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 65
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0281

FT1A	031233 031234 0   0   000000031234 0            000000031234 
FT2	031233 031234 0   0   0            0            000000031234 
FT2RQ	031233 031234 0   0   000000200000 0            000000031234 
FT3	031233 031234 0   0   000000200000 0            000000031234 
FT9	031234 031234 0   0   000000200000 0            000000031234 
ET0	031234 031234 0   0   000000200000 0            000000031234 
ST1A	031234 031234 0   0   000000200000 0            000000031234 
ST9	031234 031234 0   0   000000200000 0            000000031234 


*031234 MOVE 	0,035115
INITIAL
C(AC)=000000 200000 
C(E)=000000 400000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031234 031234 0   0   200000035115 0            000000400000 
IT1	031234 0      0   0   200000035115 0            000000400000 
AT3	031234 0      0   0   000000035115 0            200000035115 
AT6	031234 035115 0   0   000000035115 0            200000035115 
FT0	031234 035115 0   0   000000400000 0            200000035115 
FT1A	031234 035115 0   0   000000400000 0            000000400000 
FT9	031235 035115 0   0   000000400000 0            000000400000 
ET0	031235 035115 0   0   000000400000 0            000000400000 
ST1	031235 035115 0   0   000000400000 0            000000400000 
ST2	031235 035115 0   0   000000400000 0            000000400000 
ST9	031235 035115 0   0   000000400000 0            000000400000 


*031235 SKIPN	0,000000
INITIAL
C(AC)=000000 400000 
C(E)=000000 400000 
FINAL
C(AC)=000000 400000 

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


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

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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031237 031237 0   0   324000031240 0            000000031240 
IT1	031237 0      0   0   324000031240 0            000000031240 
AT3	031237 0      0   0   000000031240 0            324000031240 
AT6	031237 031240 0   0   000000031240 0            324000031240 
FT1A	031237 031240 0   0   000000031240 0            000000031240 
FT2	031237 031240 0   0   0            0            000000031240 
FT2RQ	031237 031240 0   0   000000400000 0            000000031240 
FT3	031237 031240 0   0   000000400000 0            000000031240 
FT9	031240 031240 0   0   000000400000 0            000000031240 
ET0	031240 031240 0   0   000000400000 0            000000031240 
ST1A	031240 031240 0   0   000000400000 0            000000031240 
ST9	031240 031240 0   0   000000400000 0            000000031240 


*031240 MOVE 	0,035116
INITIAL
C(AC)=000000 400000 
C(E)=000001 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031240 031240 0   0   200000035116 0            000001000000 
IT1	031240 0      0   0   200000035116 0            000001000000 
AT3	031240 0      0   0   000000035116 0            200000035116 
AT6	031240 035116 0   0   000000035116 0            200000035116 
FT0	031240 035116 0   0   000001000000 0            200000035116 
FT1A	031240 035116 0   0   000001000000 0            000001000000 
FT9	031241 035116 0   0   000001000000 0            000001000000 
ET0	031241 035116 0   0   000001000000 0            000001000000 
ST1	031241 035116 0   0   000001000000 0            000001000000 
ST2	031241 035116 0   0   000001000000 0            000001000000 
ST9	031241 035116 0   0   000001000000 0            000001000000 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031241 031241 0   0   336000000000 0            000001000000 
IT1	031241 0      0   0   336000000000 0            000001000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 67
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0283

AT3	031241 0      0   0   0            0            336000000000 
AT6	031241 0      0   0   0            0            336000000000 
FT0	031241 0      0   0   000001000000 0            336000000000 
FT1A	031241 0      0   0   000001000000 0            000001000000 
FT9	031242 0      0   0   000001000000 0            000001000000 
ET0	031243 0      0   0   000001000000 0            000001000000 
ST1A	031243 0      0   0   000001000000 0            000001000000 
ST9	031243 0      0   0   000001000000 0            000001000000 


*031243 JUMPA	0,031244
INITIAL
C(AC)=000001 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031243 031243 0   0   324000031244 0            000000031244 
IT1	031243 0      0   0   324000031244 0            000000031244 
AT3	031243 0      0   0   000000031244 0            324000031244 
AT6	031243 031244 0   0   000000031244 0            324000031244 
FT1A	031243 031244 0   0   000000031244 0            000000031244 
FT2	031243 031244 0   0   0            0            000000031244 
FT2RQ	031243 031244 0   0   000001000000 0            000000031244 
FT3	031243 031244 0   0   000001000000 0            000000031244 
FT9	031244 031244 0   0   000001000000 0            000000031244 
ET0	031244 031244 0   0   000001000000 0            000000031244 
ST1A	031244 031244 0   0   000001000000 0            000000031244 
ST9	031244 031244 0   0   000001000000 0            000000031244 


*031244 MOVE 	0,035117
INITIAL
C(AC)=000001 000000 
C(E)=000002 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031244 031244 0   0   200000035117 0            000002000000 
IT1	031244 0      0   0   200000035117 0            000002000000 
AT3	031244 0      0   0   000000035117 0            200000035117 
AT6	031244 035117 0   0   000000035117 0            200000035117 
FT0	031244 035117 0   0   000002000000 0            200000035117 
FT1A	031244 035117 0   0   000002000000 0            000002000000 
FT9	031245 035117 0   0   000002000000 0            000002000000 
ET0	031245 035117 0   0   000002000000 0            000002000000 
ST1	031245 035117 0   0   000002000000 0            000002000000 
ST2	031245 035117 0   0   000002000000 0            000002000000 
ST9	031245 035117 0   0   000002000000 0            000002000000 


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

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

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


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


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


*031250 MOVE 	0,035120
INITIAL
C(AC)=000002 000000 
C(E)=000004 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031250 031250 0   0   200000035120 0            000004000000 
IT1	031250 0      0   0   200000035120 0            000004000000 
AT3	031250 0      0   0   000000035120 0            200000035120 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 69
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0285

AT6	031250 035120 0   0   000000035120 0            200000035120 
FT0	031250 035120 0   0   000004000000 0            200000035120 
FT1A	031250 035120 0   0   000004000000 0            000004000000 
FT9	031251 035120 0   0   000004000000 0            000004000000 
ET0	031251 035120 0   0   000004000000 0            000004000000 
ST1	031251 035120 0   0   000004000000 0            000004000000 
ST2	031251 035120 0   0   000004000000 0            000004000000 
ST9	031251 035120 0   0   000004000000 0            000004000000 


*031251 SKIPN	0,000000
INITIAL
C(AC)=000004 000000 
C(E)=000004 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031251 031251 0   0   336000000000 0            000004000000 
IT1	031251 0      0   0   336000000000 0            000004000000 
AT3	031251 0      0   0   0            0            336000000000 
AT6	031251 0      0   0   0            0            336000000000 
FT0	031251 0      0   0   000004000000 0            336000000000 
FT1A	031251 0      0   0   000004000000 0            000004000000 
FT9	031252 0      0   0   000004000000 0            000004000000 
ET0	031253 0      0   0   000004000000 0            000004000000 
ST1A	031253 0      0   0   000004000000 0            000004000000 
ST9	031253 0      0   0   000004000000 0            000004000000 


*031253 JUMPA	0,031254
INITIAL
C(AC)=000004 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   000004000000 0            000000031254 
FT3	031253 031254 0   0   000004000000 0            000000031254 
FT9	031254 031254 0   0   000004000000 0            000000031254 
ET0	031254 031254 0   0   000004000000 0            000000031254 
ST1A	031254 031254 0   0   000004000000 0            000000031254 
ST9	031254 031254 0   0   000004000000 0            000000031254 


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

*031254 MOVE 	0,035121
INITIAL
C(AC)=000004 000000 
C(E)=000010 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031254 031254 0   0   200000035121 0            000010000000 
IT1	031254 0      0   0   200000035121 0            000010000000 
AT3	031254 0      0   0   000000035121 0            200000035121 
AT6	031254 035121 0   0   000000035121 0            200000035121 
FT0	031254 035121 0   0   000010000000 0            200000035121 
FT1A	031254 035121 0   0   000010000000 0            000010000000 
FT9	031255 035121 0   0   000010000000 0            000010000000 
ET0	031255 035121 0   0   000010000000 0            000010000000 
ST1	031255 035121 0   0   000010000000 0            000010000000 
ST2	031255 035121 0   0   000010000000 0            000010000000 
ST9	031255 035121 0   0   000010000000 0            000010000000 


*031255 SKIPN	0,000000
INITIAL
C(AC)=000010 000000 
C(E)=000010 000000 
FINAL
C(AC)=000010 000000 

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


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031257 031257 0   0   324000031260 0            000000031260 
IT1	031257 0      0   0   324000031260 0            000000031260 
AT3	031257 0      0   0   000000031260 0            324000031260 
AT6	031257 031260 0   0   000000031260 0            324000031260 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 71
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0287

FT1A	031257 031260 0   0   000000031260 0            000000031260 
FT2	031257 031260 0   0   0            0            000000031260 
FT2RQ	031257 031260 0   0   000010000000 0            000000031260 
FT3	031257 031260 0   0   000010000000 0            000000031260 
FT9	031260 031260 0   0   000010000000 0            000000031260 
ET0	031260 031260 0   0   000010000000 0            000000031260 
ST1A	031260 031260 0   0   000010000000 0            000000031260 
ST9	031260 031260 0   0   000010000000 0            000000031260 


*031260 MOVE 	0,035122
INITIAL
C(AC)=000010 000000 
C(E)=000020 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031260 031260 0   0   200000035122 0            000020000000 
IT1	031260 0      0   0   200000035122 0            000020000000 
AT3	031260 0      0   0   000000035122 0            200000035122 
AT6	031260 035122 0   0   000000035122 0            200000035122 
FT0	031260 035122 0   0   000020000000 0            200000035122 
FT1A	031260 035122 0   0   000020000000 0            000020000000 
FT9	031261 035122 0   0   000020000000 0            000020000000 
ET0	031261 035122 0   0   000020000000 0            000020000000 
ST1	031261 035122 0   0   000020000000 0            000020000000 
ST2	031261 035122 0   0   000020000000 0            000020000000 
ST9	031261 035122 0   0   000020000000 0            000020000000 


*031261 SKIPN	0,000000
INITIAL
C(AC)=000020 000000 
C(E)=000020 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031261 031261 0   0   336000000000 0            000020000000 
IT1	031261 0      0   0   336000000000 0            000020000000 
AT3	031261 0      0   0   0            0            336000000000 
AT6	031261 0      0   0   0            0            336000000000 
FT0	031261 0      0   0   000020000000 0            336000000000 
FT1A	031261 0      0   0   000020000000 0            000020000000 
FT9	031262 0      0   0   000020000000 0            000020000000 
ET0	031263 0      0   0   000020000000 0            000020000000 
ST1A	031263 0      0   0   000020000000 0            000020000000 
ST9	031263 0      0   0   000020000000 0            000020000000 


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

*031263 JUMPA	0,031264
INITIAL
C(AC)=000020 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031263 031263 0   0   324000031264 0            000000031264 
IT1	031263 0      0   0   324000031264 0            000000031264 
AT3	031263 0      0   0   000000031264 0            324000031264 
AT6	031263 031264 0   0   000000031264 0            324000031264 
FT1A	031263 031264 0   0   000000031264 0            000000031264 
FT2	031263 031264 0   0   0            0            000000031264 
FT2RQ	031263 031264 0   0   000020000000 0            000000031264 
FT3	031263 031264 0   0   000020000000 0            000000031264 
FT9	031264 031264 0   0   000020000000 0            000000031264 
ET0	031264 031264 0   0   000020000000 0            000000031264 
ST1A	031264 031264 0   0   000020000000 0            000000031264 
ST9	031264 031264 0   0   000020000000 0            000000031264 


*031264 MOVE 	0,035123
INITIAL
C(AC)=000020 000000 
C(E)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031264 031264 0   0   200000035123 0            000040000000 
IT1	031264 0      0   0   200000035123 0            000040000000 
AT3	031264 0      0   0   000000035123 0            200000035123 
AT6	031264 035123 0   0   000000035123 0            200000035123 
FT0	031264 035123 0   0   000040000000 0            200000035123 
FT1A	031264 035123 0   0   000040000000 0            000040000000 
FT9	031265 035123 0   0   000040000000 0            000040000000 
ET0	031265 035123 0   0   000040000000 0            000040000000 
ST1	031265 035123 0   0   000040000000 0            000040000000 
ST2	031265 035123 0   0   000040000000 0            000040000000 
ST9	031265 035123 0   0   000040000000 0            000040000000 


*031265 SKIPN	0,000000
INITIAL
C(AC)=000040 000000 
C(E)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031265 031265 0   0   336000000000 0            000040000000 
IT1	031265 0      0   0   336000000000 0            000040000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 73
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0289

AT3	031265 0      0   0   0            0            336000000000 
AT6	031265 0      0   0   0            0            336000000000 
FT0	031265 0      0   0   000040000000 0            336000000000 
FT1A	031265 0      0   0   000040000000 0            000040000000 
FT9	031266 0      0   0   000040000000 0            000040000000 
ET0	031267 0      0   0   000040000000 0            000040000000 
ST1A	031267 0      0   0   000040000000 0            000040000000 
ST9	031267 0      0   0   000040000000 0            000040000000 


*031267 JUMPA	0,031270
INITIAL
C(AC)=000040 000000 
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   000040000000 0            000000031270 
FT3	031267 031270 0   0   000040000000 0            000000031270 
FT9	031270 031270 0   0   000040000000 0            000000031270 
ET0	031270 031270 0   0   000040000000 0            000000031270 
ST1A	031270 031270 0   0   000040000000 0            000000031270 
ST9	031270 031270 0   0   000040000000 0            000000031270 


*031270 MOVE 	0,035124
INITIAL
C(AC)=000040 000000 
C(E)=000100 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031270 031270 0   0   200000035124 0            000100000000 
IT1	031270 0      0   0   200000035124 0            000100000000 
AT3	031270 0      0   0   000000035124 0            200000035124 
AT6	031270 035124 0   0   000000035124 0            200000035124 
FT0	031270 035124 0   0   000100000000 0            200000035124 
FT1A	031270 035124 0   0   000100000000 0            000100000000 
FT9	031271 035124 0   0   000100000000 0            000100000000 
ET0	031271 035124 0   0   000100000000 0            000100000000 
ST1	031271 035124 0   0   000100000000 0            000100000000 
ST2	031271 035124 0   0   000100000000 0            000100000000 
ST9	031271 035124 0   0   000100000000 0            000100000000 


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

*031271 SKIPN	0,000000
INITIAL
C(AC)=000100 000000 
C(E)=000100 000000 
FINAL
C(AC)=000100 000000 

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


*031273 JUMPA	0,031274
INITIAL
C(AC)=000100 000000 
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   000100000000 0            000000031274 
FT3	031273 031274 0   0   000100000000 0            000000031274 
FT9	031274 031274 0   0   000100000000 0            000000031274 
ET0	031274 031274 0   0   000100000000 0            000000031274 
ST1A	031274 031274 0   0   000100000000 0            000000031274 
ST9	031274 031274 0   0   000100000000 0            000000031274 


*031274 MOVE 	0,035125
INITIAL
C(AC)=000100 000000 
C(E)=000200 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031274 031274 0   0   200000035125 0            000200000000 
IT1	031274 0      0   0   200000035125 0            000200000000 
AT3	031274 0      0   0   000000035125 0            200000035125 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 75
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0291

AT6	031274 035125 0   0   000000035125 0            200000035125 
FT0	031274 035125 0   0   000200000000 0            200000035125 
FT1A	031274 035125 0   0   000200000000 0            000200000000 
FT9	031275 035125 0   0   000200000000 0            000200000000 
ET0	031275 035125 0   0   000200000000 0            000200000000 
ST1	031275 035125 0   0   000200000000 0            000200000000 
ST2	031275 035125 0   0   000200000000 0            000200000000 
ST9	031275 035125 0   0   000200000000 0            000200000000 


*031275 SKIPN	0,000000
INITIAL
C(AC)=000200 000000 
C(E)=000200 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031275 031275 0   0   336000000000 0            000200000000 
IT1	031275 0      0   0   336000000000 0            000200000000 
AT3	031275 0      0   0   0            0            336000000000 
AT6	031275 0      0   0   0            0            336000000000 
FT0	031275 0      0   0   000200000000 0            336000000000 
FT1A	031275 0      0   0   000200000000 0            000200000000 
FT9	031276 0      0   0   000200000000 0            000200000000 
ET0	031277 0      0   0   000200000000 0            000200000000 
ST1A	031277 0      0   0   000200000000 0            000200000000 
ST9	031277 0      0   0   000200000000 0            000200000000 


*031277 JUMPA	0,031300
INITIAL
C(AC)=000200 000000 
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 
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   000200000000 0            000000031300 
FT3	031277 0      0   0   000200000000 0            000000031300 
FT9	0      0      0   0   000200000000 0            000000031300 
ET0	0      0      0   0   000200000000 0            000000031300 
ST1A	0      0      0   0   000200000000 0            000000031300 
ST9	0      0      0   0   000200000000 0            000000031300 


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

*031300 MOVE 	0,035073
INITIAL
C(AC)=000200 000000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   200000035073 0            000400000000 
IT1	0      0      0   0   200000035073 0            000400000000 
AT3	0      0      0   0   000000035073 0            200000035073 
AT6	0      035073 0   0   000000035073 0            200000035073 
FT0	0      035073 0   0   000400000000 0            200000035073 
FT1A	0      035073 0   0   000400000000 0            000400000000 
FT9	031301 035073 0   0   000400000000 0            000400000000 
ET0	031301 035073 0   0   000400000000 0            000400000000 
ST1	031301 035073 0   0   000400000000 0            000400000000 
ST2	031301 035073 0   0   000400000000 0            000400000000 
ST9	031301 035073 0   0   000400000000 0            000400000000 


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

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


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031303 031303 0   0   324000031304 0            000000031304 
IT1	031303 0      0   0   324000031304 0            000000031304 
AT3	031303 0      0   0   000000031304 0            324000031304 
AT6	031303 031304 0   0   000000031304 0            324000031304 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 77
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0293

FT1A	031303 031304 0   0   000000031304 0            000000031304 
FT2	031303 031304 0   0   0            0            000000031304 
FT2RQ	031303 031304 0   0   000400000000 0            000000031304 
FT3	031303 031304 0   0   000400000000 0            000000031304 
FT9	031304 031304 0   0   000400000000 0            000000031304 
ET0	031304 031304 0   0   000400000000 0            000000031304 
ST1A	031304 031304 0   0   000400000000 0            000000031304 
ST9	031304 031304 0   0   000400000000 0            000000031304 


*031304 MOVE 	0,035126
INITIAL
C(AC)=000400 000000 
C(E)=001000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031304 031304 0   0   200000035126 0            001000000000 
IT1	031304 0      0   0   200000035126 0            001000000000 
AT3	031304 0      0   0   000000035126 0            200000035126 
AT6	031304 035126 0   0   000000035126 0            200000035126 
FT0	031304 035126 0   0   001000000000 0            200000035126 
FT1A	031304 035126 0   0   001000000000 0            001000000000 
FT9	031305 035126 0   0   001000000000 0            001000000000 
ET0	031305 035126 0   0   001000000000 0            001000000000 
ST1	031305 035126 0   0   001000000000 0            001000000000 
ST2	031305 035126 0   0   001000000000 0            001000000000 
ST9	031305 035126 0   0   001000000000 0            001000000000 


*031305 SKIPN	0,000000
INITIAL
C(AC)=001000 000000 
C(E)=001000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031305 031305 0   0   336000000000 0            001000000000 
IT1	031305 0      0   0   336000000000 0            001000000000 
AT3	031305 0      0   0   0            0            336000000000 
AT6	031305 0      0   0   0            0            336000000000 
FT0	031305 0      0   0   001000000000 0            336000000000 
FT1A	031305 0      0   0   001000000000 0            001000000000 
FT9	031306 0      0   0   001000000000 0            001000000000 
ET0	031307 0      0   0   001000000000 0            001000000000 
ST1A	031307 0      0   0   001000000000 0            001000000000 
ST9	031307 0      0   0   001000000000 0            001000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 78
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0294

*031307 JUMPA	0,031310
INITIAL
C(AC)=001000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031307 031307 0   0   324000031310 0            000000031310 
IT1	031307 0      0   0   324000031310 0            000000031310 
AT3	031307 0      0   0   000000031310 0            324000031310 
AT6	031307 031310 0   0   000000031310 0            324000031310 
FT1A	031307 031310 0   0   000000031310 0            000000031310 
FT2	031307 031310 0   0   0            0            000000031310 
FT2RQ	031307 031310 0   0   001000000000 0            000000031310 
FT3	031307 031310 0   0   001000000000 0            000000031310 
FT9	031310 031310 0   0   001000000000 0            000000031310 
ET0	031310 031310 0   0   001000000000 0            000000031310 
ST1A	031310 031310 0   0   001000000000 0            000000031310 
ST9	031310 031310 0   0   001000000000 0            000000031310 


*031310 MOVE 	0,035127
INITIAL
C(AC)=001000 000000 
C(E)=002000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031310 031310 0   0   200000035127 0            002000000000 
IT1	031310 0      0   0   200000035127 0            002000000000 
AT3	031310 0      0   0   000000035127 0            200000035127 
AT6	031310 035127 0   0   000000035127 0            200000035127 
FT0	031310 035127 0   0   002000000000 0            200000035127 
FT1A	031310 035127 0   0   002000000000 0            002000000000 
FT9	031311 035127 0   0   002000000000 0            002000000000 
ET0	031311 035127 0   0   002000000000 0            002000000000 
ST1	031311 035127 0   0   002000000000 0            002000000000 
ST2	031311 035127 0   0   002000000000 0            002000000000 
ST9	031311 035127 0   0   002000000000 0            002000000000 


*031311 SKIPN	0,000000
INITIAL
C(AC)=002000 000000 
C(E)=002000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031311 031311 0   0   336000000000 0            002000000000 
IT1	031311 0      0   0   336000000000 0            002000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 79
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0295

AT3	031311 0      0   0   0            0            336000000000 
AT6	031311 0      0   0   0            0            336000000000 
FT0	031311 0      0   0   002000000000 0            336000000000 
FT1A	031311 0      0   0   002000000000 0            002000000000 
FT9	031312 0      0   0   002000000000 0            002000000000 
ET0	031313 0      0   0   002000000000 0            002000000000 
ST1A	031313 0      0   0   002000000000 0            002000000000 
ST9	031313 0      0   0   002000000000 0            002000000000 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031313 031313 0   0   324000031314 0            000000031314 
IT1	031313 0      0   0   324000031314 0            000000031314 
AT3	031313 0      0   0   000000031314 0            324000031314 
AT6	031313 031314 0   0   000000031314 0            324000031314 
FT1A	031313 031314 0   0   000000031314 0            000000031314 
FT2	031313 031314 0   0   0            0            000000031314 
FT2RQ	031313 031314 0   0   002000000000 0            000000031314 
FT3	031313 031314 0   0   002000000000 0            000000031314 
FT9	031314 031314 0   0   002000000000 0            000000031314 
ET0	031314 031314 0   0   002000000000 0            000000031314 
ST1A	031314 031314 0   0   002000000000 0            000000031314 
ST9	031314 031314 0   0   002000000000 0            000000031314 


*031314 MOVE 	0,035130
INITIAL
C(AC)=002000 000000 
C(E)=004000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031314 031314 0   0   200000035130 0            004000000000 
IT1	031314 0      0   0   200000035130 0            004000000000 
AT3	031314 0      0   0   000000035130 0            200000035130 
AT6	031314 035130 0   0   000000035130 0            200000035130 
FT0	031314 035130 0   0   004000000000 0            200000035130 
FT1A	031314 035130 0   0   004000000000 0            004000000000 
FT9	031315 035130 0   0   004000000000 0            004000000000 
ET0	031315 035130 0   0   004000000000 0            004000000000 
ST1	031315 035130 0   0   004000000000 0            004000000000 
ST2	031315 035130 0   0   004000000000 0            004000000000 
ST9	031315 035130 0   0   004000000000 0            004000000000 


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

*031315 SKIPN	0,000000
INITIAL
C(AC)=004000 000000 
C(E)=004000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031315 031315 0   0   336000000000 0            004000000000 
IT1	031315 0      0   0   336000000000 0            004000000000 
AT3	031315 0      0   0   0            0            336000000000 
AT6	031315 0      0   0   0            0            336000000000 
FT0	031315 0      0   0   004000000000 0            336000000000 
FT1A	031315 0      0   0   004000000000 0            004000000000 
FT9	031316 0      0   0   004000000000 0            004000000000 
ET0	031317 0      0   0   004000000000 0            004000000000 
ST1A	031317 0      0   0   004000000000 0            004000000000 
ST9	031317 0      0   0   004000000000 0            004000000000 


*031317 JUMPA	0,031320
INITIAL
C(AC)=004000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031317 031317 0   0   324000031320 0            000000031320 
IT1	031317 0      0   0   324000031320 0            000000031320 
AT3	031317 0      0   0   000000031320 0            324000031320 
AT6	031317 031320 0   0   000000031320 0            324000031320 
FT1A	031317 031320 0   0   000000031320 0            000000031320 
FT2	031317 031320 0   0   0            0            000000031320 
FT2RQ	031317 031320 0   0   004000000000 0            000000031320 
FT3	031317 031320 0   0   004000000000 0            000000031320 
FT9	031320 031320 0   0   004000000000 0            000000031320 
ET0	031320 031320 0   0   004000000000 0            000000031320 
ST1A	031320 031320 0   0   004000000000 0            000000031320 
ST9	031320 031320 0   0   004000000000 0            000000031320 


*031320 MOVE 	0,035131
INITIAL
C(AC)=004000 000000 
C(E)=010000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031320 031320 0   0   200000035131 0            010000000000 
IT1	031320 0      0   0   200000035131 0            010000000000 
AT3	031320 0      0   0   000000035131 0            200000035131 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 81
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0297

AT6	031320 035131 0   0   000000035131 0            200000035131 
FT0	031320 035131 0   0   010000000000 0            200000035131 
FT1A	031320 035131 0   0   010000000000 0            010000000000 
FT9	031321 035131 0   0   010000000000 0            010000000000 
ET0	031321 035131 0   0   010000000000 0            010000000000 
ST1	031321 035131 0   0   010000000000 0            010000000000 
ST2	031321 035131 0   0   010000000000 0            010000000000 
ST9	031321 035131 0   0   010000000000 0            010000000000 


*031321 SKIPN	0,000000
INITIAL
C(AC)=010000 000000 
C(E)=010000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031321 031321 0   0   336000000000 0            010000000000 
IT1	031321 0      0   0   336000000000 0            010000000000 
AT3	031321 0      0   0   0            0            336000000000 
AT6	031321 0      0   0   0            0            336000000000 
FT0	031321 0      0   0   010000000000 0            336000000000 
FT1A	031321 0      0   0   010000000000 0            010000000000 
FT9	031322 0      0   0   010000000000 0            010000000000 
ET0	031323 0      0   0   010000000000 0            010000000000 
ST1A	031323 0      0   0   010000000000 0            010000000000 
ST9	031323 0      0   0   010000000000 0            010000000000 


*031323 JUMPA	0,031324
INITIAL
C(AC)=010000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031323 031323 0   0   324000031324 0            000000031324 
IT1	031323 0      0   0   324000031324 0            000000031324 
AT3	031323 0      0   0   000000031324 0            324000031324 
AT6	031323 031324 0   0   000000031324 0            324000031324 
FT1A	031323 031324 0   0   000000031324 0            000000031324 
FT2	031323 031324 0   0   0            0            000000031324 
FT2RQ	031323 031324 0   0   010000000000 0            000000031324 
FT3	031323 031324 0   0   010000000000 0            000000031324 
FT9	031324 031324 0   0   010000000000 0            000000031324 
ET0	031324 031324 0   0   010000000000 0            000000031324 
ST1A	031324 031324 0   0   010000000000 0            000000031324 
ST9	031324 031324 0   0   010000000000 0            000000031324 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 82
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0298

*031324 MOVE 	0,035132
INITIAL
C(AC)=010000 000000 
C(E)=020000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031324 031324 0   0   200000035132 0            020000000000 
IT1	031324 0      0   0   200000035132 0            020000000000 
AT3	031324 0      0   0   000000035132 0            200000035132 
AT6	031324 035132 0   0   000000035132 0            200000035132 
FT0	031324 035132 0   0   020000000000 0            200000035132 
FT1A	031324 035132 0   0   020000000000 0            020000000000 
FT9	031325 035132 0   0   020000000000 0            020000000000 
ET0	031325 035132 0   0   020000000000 0            020000000000 
ST1	031325 035132 0   0   020000000000 0            020000000000 
ST2	031325 035132 0   0   020000000000 0            020000000000 
ST9	031325 035132 0   0   020000000000 0            020000000000 


*031325 SKIPN	0,000000
INITIAL
C(AC)=020000 000000 
C(E)=020000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031325 031325 0   0   336000000000 0            020000000000 
IT1	031325 0      0   0   336000000000 0            020000000000 
AT3	031325 0      0   0   0            0            336000000000 
AT6	031325 0      0   0   0            0            336000000000 
FT0	031325 0      0   0   020000000000 0            336000000000 
FT1A	031325 0      0   0   020000000000 0            020000000000 
FT9	031326 0      0   0   020000000000 0            020000000000 
ET0	031327 0      0   0   020000000000 0            020000000000 
ST1A	031327 0      0   0   020000000000 0            020000000000 
ST9	031327 0      0   0   020000000000 0            020000000000 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031327 031327 0   0   324000031330 0            000000031330 
IT1	031327 0      0   0   324000031330 0            000000031330 
AT3	031327 0      0   0   000000031330 0            324000031330 
AT6	031327 031330 0   0   000000031330 0            324000031330 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 83
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0299

FT1A	031327 031330 0   0   000000031330 0            000000031330 
FT2	031327 031330 0   0   0            0            000000031330 
FT2RQ	031327 031330 0   0   020000000000 0            000000031330 
FT3	031327 031330 0   0   020000000000 0            000000031330 
FT9	031330 031330 0   0   020000000000 0            000000031330 
ET0	031330 031330 0   0   020000000000 0            000000031330 
ST1A	031330 031330 0   0   020000000000 0            000000031330 
ST9	031330 031330 0   0   020000000000 0            000000031330 


*031330 MOVE 	0,035133
INITIAL
C(AC)=020000 000000 
C(E)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031330 031330 0   0   200000035133 0            040000000000 
IT1	031330 0      0   0   200000035133 0            040000000000 
AT3	031330 0      0   0   000000035133 0            200000035133 
AT6	031330 035133 0   0   000000035133 0            200000035133 
FT0	031330 035133 0   0   040000000000 0            200000035133 
FT1A	031330 035133 0   0   040000000000 0            040000000000 
FT9	031331 035133 0   0   040000000000 0            040000000000 
ET0	031331 035133 0   0   040000000000 0            040000000000 
ST1	031331 035133 0   0   040000000000 0            040000000000 
ST2	031331 035133 0   0   040000000000 0            040000000000 
ST9	031331 035133 0   0   040000000000 0            040000000000 


*031331 SKIPN	0,000000
INITIAL
C(AC)=040000 000000 
C(E)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031331 031331 0   0   336000000000 0            040000000000 
IT1	031331 0      0   0   336000000000 0            040000000000 
AT3	031331 0      0   0   0            0            336000000000 
AT6	031331 0      0   0   0            0            336000000000 
FT0	031331 0      0   0   040000000000 0            336000000000 
FT1A	031331 0      0   0   040000000000 0            040000000000 
FT9	031332 0      0   0   040000000000 0            040000000000 
ET0	031333 0      0   0   040000000000 0            040000000000 
ST1A	031333 0      0   0   040000000000 0            040000000000 
ST9	031333 0      0   0   040000000000 0            040000000000 


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

*031333 JUMPA	0,031334
INITIAL
C(AC)=040000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031333 031333 0   0   324000031334 0            000000031334 
IT1	031333 0      0   0   324000031334 0            000000031334 
AT3	031333 0      0   0   000000031334 0            324000031334 
AT6	031333 031334 0   0   000000031334 0            324000031334 
FT1A	031333 031334 0   0   000000031334 0            000000031334 
FT2	031333 031334 0   0   0            0            000000031334 
FT2RQ	031333 031334 0   0   040000000000 0            000000031334 
FT3	031333 031334 0   0   040000000000 0            000000031334 
FT9	031334 031334 0   0   040000000000 0            000000031334 
ET0	031334 031334 0   0   040000000000 0            000000031334 
ST1A	031334 031334 0   0   040000000000 0            000000031334 
ST9	031334 031334 0   0   040000000000 0            000000031334 


*031334 MOVE 	0,035134
INITIAL
C(AC)=040000 000000 
C(E)=100000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031334 031334 0   0   200000035134 0            100000000000 
IT1	031334 0      0   0   200000035134 0            100000000000 
AT3	031334 0      0   0   000000035134 0            200000035134 
AT6	031334 035134 0   0   000000035134 0            200000035134 
FT0	031334 035134 0   0   100000000000 0            200000035134 
FT1A	031334 035134 0   0   100000000000 0            100000000000 
FT9	031335 035134 0   0   100000000000 0            100000000000 
ET0	031335 035134 0   0   100000000000 0            100000000000 
ST1	031335 035134 0   0   100000000000 0            100000000000 
ST2	031335 035134 0   0   100000000000 0            100000000000 
ST9	031335 035134 0   0   100000000000 0            100000000000 


*031335 SKIPN	0,000000
INITIAL
C(AC)=100000 000000 
C(E)=100000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031335 031335 0   0   336000000000 0            100000000000 
IT1	031335 0      0   0   336000000000 0            100000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 85
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0301

AT3	031335 0      0   0   0            0            336000000000 
AT6	031335 0      0   0   0            0            336000000000 
FT0	031335 0      0   0   100000000000 0            336000000000 
FT1A	031335 0      0   0   100000000000 0            100000000000 
FT9	031336 0      0   0   100000000000 0            100000000000 
ET0	031337 0      0   0   100000000000 0            100000000000 
ST1A	031337 0      0   0   100000000000 0            100000000000 
ST9	031337 0      0   0   100000000000 0            100000000000 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031337 031337 0   0   324000031340 0            000000031340 
IT1	031337 0      0   0   324000031340 0            000000031340 
AT3	031337 0      0   0   000000031340 0            324000031340 
AT6	031337 031340 0   0   000000031340 0            324000031340 
FT1A	031337 031340 0   0   000000031340 0            000000031340 
FT2	031337 031340 0   0   0            0            000000031340 
FT2RQ	031337 031340 0   0   100000000000 0            000000031340 
FT3	031337 031340 0   0   100000000000 0            000000031340 
FT9	031340 031340 0   0   100000000000 0            000000031340 
ET0	031340 031340 0   0   100000000000 0            000000031340 
ST1A	031340 031340 0   0   100000000000 0            000000031340 
ST9	031340 031340 0   0   100000000000 0            000000031340 


*031340 MOVE 	0,035135
INITIAL
C(AC)=100000 000000 
C(E)=200000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031340 031340 0   0   200000035135 0            200000000000 
IT1	031340 0      0   0   200000035135 0            200000000000 
AT3	031340 0      0   0   000000035135 0            200000035135 
AT6	031340 035135 0   0   000000035135 0            200000035135 
FT0	031340 035135 0   0   200000000000 0            200000035135 
FT1A	031340 035135 0   0   200000000000 0            200000000000 
FT9	031341 035135 0   0   200000000000 0            200000000000 
ET0	031341 035135 0   0   200000000000 0            200000000000 
ST1	031341 035135 0   0   200000000000 0            200000000000 
ST2	031341 035135 0   0   200000000000 0            200000000000 
ST9	031341 035135 0   0   200000000000 0            200000000000 


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

*031341 SKIPN	0,000000
INITIAL
C(AC)=200000 000000 
C(E)=200000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031341 031341 0   0   336000000000 0            200000000000 
IT1	031341 0      0   0   336000000000 0            200000000000 
AT3	031341 0      0   0   0            0            336000000000 
AT6	031341 0      0   0   0            0            336000000000 
FT0	031341 0      0   0   200000000000 0            336000000000 
FT1A	031341 0      0   0   200000000000 0            200000000000 
FT9	031342 0      0   0   200000000000 0            200000000000 
ET0	031343 0      0   0   200000000000 0            200000000000 
ST1A	031343 0      0   0   200000000000 0            200000000000 
ST9	031343 0      0   0   200000000000 0            200000000000 


*031343 JUMPA	0,031344
INITIAL
C(AC)=200000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031343 031343 0   0   324000031344 0            000000031344 
IT1	031343 0      0   0   324000031344 0            000000031344 
AT3	031343 0      0   0   000000031344 0            324000031344 
AT6	031343 031344 0   0   000000031344 0            324000031344 
FT1A	031343 031344 0   0   000000031344 0            000000031344 
FT2	031343 031344 0   0   0            0            000000031344 
FT2RQ	031343 031344 0   0   200000000000 0            000000031344 
FT3	031343 031344 0   0   200000000000 0            000000031344 
FT9	031344 031344 0   0   200000000000 0            000000031344 
ET0	031344 031344 0   0   200000000000 0            000000031344 
ST1A	031344 031344 0   0   200000000000 0            000000031344 
ST9	031344 031344 0   0   200000000000 0            000000031344 


*031344 MOVE 	0,035065
INITIAL
C(AC)=200000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031344 031344 0   0   200000035065 0            400000000000 
IT1	031344 0      0   0   200000035065 0            400000000000 
AT3	031344 0      0   0   000000035065 0            200000035065 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 87
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0303

AT6	031344 035065 0   0   000000035065 0            200000035065 
FT0	031344 035065 0   0   400000000000 0            200000035065 
FT1A	031344 035065 0   0   400000000000 0            400000000000 
FT9	031345 035065 0   0   400000000000 0            400000000000 
ET0	031345 035065 0   0   400000000000 0            400000000000 
ST1	031345 035065 0   0   400000000000 0            400000000000 
ST2	031345 035065 0   0   400000000000 0            400000000000 
ST9	031345 035065 0   0   400000000000 0            400000000000 


*031345 SKIPN	0,000000
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031345 031345 0   0   336000000000 0            400000000000 
IT1	031345 0      0   0   336000000000 0            400000000000 
AT3	031345 0      0   0   0            0            336000000000 
AT6	031345 0      0   0   0            0            336000000000 
FT0	031345 0      0   0   400000000000 0            336000000000 
FT1A	031345 0      0   0   400000000000 0            400000000000 
FT9	031346 0      0   0   400000000000 0            400000000000 
ET0	031347 0      0   0   400000000000 0            400000000000 
ST1A	031347 0      0   0   400000000000 0            400000000000 
ST9	031347 0      0   0   400000000000 0            400000000000 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031347 031347 0   0   324000031350 0            000000031350 
IT1	031347 0      0   0   324000031350 0            000000031350 
AT3	031347 0      0   0   000000031350 0            324000031350 
AT6	031347 031350 0   0   000000031350 0            324000031350 
FT1A	031347 031350 0   0   000000031350 0            000000031350 
FT2	031347 031350 0   0   0            0            000000031350 
FT2RQ	031347 031350 0   0   400000000000 0            000000031350 
FT3	031347 031350 0   0   400000000000 0            000000031350 
FT9	031350 031350 0   0   400000000000 0            000000031350 
ET0	031350 031350 0   0   400000000000 0            000000031350 
ST1A	031350 031350 0   0   400000000000 0            000000031350 
ST9	031350 031350 0   0   400000000000 0            000000031350 


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

*031350 MOVEI	0,035063
INITIAL
C(AC)=400000 000000 
FINAL
C(AC)=000000 035063 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031350 031350 0   0   201000035063 0            000000035063 
IT1	031350 0      0   0   201000035063 0            000000035063 
AT3	031350 0      0   0   000000035063 0            201000035063 
AT6	031350 035063 0   0   000000035063 0            201000035063 
FT1A	031350 035063 0   0   000000035063 0            000000035063 
FT9	031351 035063 0   0   000000035063 0            000000035063 
ET0	031351 035063 0   0   000000035063 0            000000035063 
ST1	031351 035063 0   0   000000035063 0            000000035063 
ST2	031351 035063 0   0   000000035063 0            000000035063 
ST9	031351 035063 0   0   000000035063 0            000000035063 


*031351 SKIPG	0,000000
INITIAL
C(AC)=000000 035063 
C(E)=000000 035063 
FINAL
C(AC)=000000 035063 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031351 031351 0   0   337000000000 0            000000035063 
IT1	031351 0      0   0   337000000000 0            000000035063 
AT3	031351 0      0   0   0            0            337000000000 
AT6	031351 0      0   0   0            0            337000000000 
FT0	031351 0      0   0   000000035063 0            337000000000 
FT1A	031351 0      0   0   000000035063 0            000000035063 
FT9	031352 0      0   0   000000035063 0            000000035063 
ET0	031353 0      0   0   000000035063 0            000000035063 
ST1A	031353 0      0   0   000000035063 0            000000035063 
ST9	031353 0      0   0   000000035063 0            000000035063 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031353 031353 0   0   324000031354 0            000000031354 
IT1	031353 0      0   0   324000031354 0            000000031354 
AT3	031353 0      0   0   000000031354 0            324000031354 
AT6	031353 031354 0   0   000000031354 0            324000031354 
FT1A	031353 031354 0   0   000000031354 0            000000031354 
FT2	031353 031354 0   0   0            0            000000031354 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 89
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0305

FT2RQ	031353 031354 0   0   000000035063 0            000000031354 
FT3	031353 031354 0   0   000000035063 0            000000031354 
FT9	031354 031354 0   0   000000035063 0            000000031354 
ET0	031354 031354 0   0   000000035063 0            000000031354 
ST1A	031354 031354 0   0   000000035063 0            000000031354 
ST9	031354 031354 0   0   000000035063 0            000000031354 


*031354 MOVE 	0,035062
INITIAL
C(AC)=000000 035063 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031354 031354 0   0   200000035062 0            0            
IT1	031354 0      0   0   200000035062 0            0            
AT3	031354 0      0   0   000000035062 0            200000035062 
AT6	031354 035062 0   0   000000035062 0            200000035062 
FT0	031354 035062 0   0   0            0            200000035062 
FT1A	031354 035062 0   0   0            0            0            
FT9	031355 035062 0   0   0            0            0            
ET0	031355 035062 0   0   0            0            0            
ST1	031355 035062 0   0   0            0            0            
ST2	031355 035062 0   0   0            0            0            
ST9	031355 035062 0   0   0            0            0            


*031355 SKIPL	0,035063
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031355 031355 0   0   331000035063 0            777777777777 
IT1	031355 0      0   0   331000035063 0            777777777777 
AT3	031355 0      0   0   000000035063 0            331000035063 
AT6	031355 035063 0   0   000000035063 0            331000035063 
FT0	031355 035063 0   0   777777777777 0            331000035063 
FT1A	031355 035063 0   0   777777777777 0            777777777777 
FT9	031356 035063 0   0   777777777777 0            777777777777 
ET0	031357 035063 0   0   777777777777 0            777777777777 
ST1A	031357 035063 0   0   777777777777 0            777777777777 
ST9	031357 035063 0   0   777777777777 0            777777777777 


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

*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 


*031360 MOVE 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031360 031360 0   0   200000035062 0            0            
IT1	031360 0      0   0   200000035062 0            0            
AT3	031360 0      0   0   000000035062 0            200000035062 
AT6	031360 035062 0   0   000000035062 0            200000035062 
FT0	031360 035062 0   0   0            0            200000035062 
FT1A	031360 035062 0   0   0            0            0            
FT9	031361 035062 0   0   0            0            0            
ET0	031361 035062 0   0   0            0            0            
ST1	031361 035062 0   0   0            0            0            
ST2	031361 035062 0   0   0            0            0            
ST9	031361 035062 0   0   0            0            0            


*031361 SKIPL	0,035065
INITIAL
C(AC)=000000 000000 
C(E)=400000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031361 031361 0   0   331000035065 0            400000000000 
IT1	031361 0      0   0   331000035065 0            400000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 91
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0307

AT3	031361 0      0   0   000000035065 0            331000035065 
AT6	031361 035065 0   0   000000035065 0            331000035065 
FT0	031361 035065 0   0   400000000000 0            331000035065 
FT1A	031361 035065 0   0   400000000000 0            400000000000 
FT9	031362 035065 0   0   400000000000 0            400000000000 
ET0	031363 035065 0   0   400000000000 0            400000000000 
ST1A	031363 035065 0   0   400000000000 0            400000000000 
ST9	031363 035065 0   0   400000000000 0            400000000000 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031363 031363 0   0   324000031364 0            000000031364 
IT1	031363 0      0   0   324000031364 0            000000031364 
AT3	031363 0      0   0   000000031364 0            324000031364 
AT6	031363 031364 0   0   000000031364 0            324000031364 
FT1A	031363 031364 0   0   000000031364 0            000000031364 
FT2	031363 031364 0   0   0            0            000000031364 
FT2RQ	031363 031364 0   0   0            0            000000031364 
FT3	031363 031364 0   0   0            0            000000031364 
FT9	031364 031364 0   0   0            0            000000031364 
ET0	031364 031364 0   0   0            0            000000031364 
ST1A	031364 031364 0   0   0            0            000000031364 
ST9	031364 031364 0   0   0            0            000000031364 


*031364 MOVE 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031364 031364 0   0   200000035062 0            0            
IT1	031364 0      0   0   200000035062 0            0            
AT3	031364 0      0   0   000000035062 0            200000035062 
AT6	031364 035062 0   0   000000035062 0            200000035062 
FT0	031364 035062 0   0   0            0            200000035062 
FT1A	031364 035062 0   0   0            0            0            
FT9	031365 035062 0   0   0            0            0            
ET0	031365 035062 0   0   0            0            0            
ST1	031365 035062 0   0   0            0            0            
ST2	031365 035062 0   0   0            0            0            
ST9	031365 035062 0   0   0            0            0            


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

*031365 CAM 	0,035136
INITIAL
C(AC)=000000 000000 
C(E)=000000 001234 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031365 031365 0   0   310000035136 0            000000001234 
IT1	031365 0      0   0   310000035136 0            000000001234 
AT3	031365 0      0   0   000000035136 0            310000035136 
AT6	031365 035136 0   0   000000035136 0            310000035136 
FT0	031365 035136 0   0   000000001234 0            310000035136 
FT1A	031365 035136 0   0   000000001234 0            000000001234 
FT2	031365 035136 0   0   0            0            000000001234 
FT2RQ	031365 035136 0   0   0            0            000000001234 
FT3	031365 035136 0   0   0            0            000000001234 
FT9	031366 035136 0   0   0            0            000000001234 
ET0	031366 035136 0   0   777777776544 0            000000001234 
ST1A	031366 035136 0   0   777777776544 0            000000001234 
ST9	031366 035136 0   0   777777776544 0            000000001234 


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

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


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

*031367 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	031367 031367 0   0   332000000000 0            0            
IT1	031367 0      0   0   332000000000 0            0            
AT3	031367 0      0   0   0            0            332000000000 
AT6	031367 0      0   0   0            0            332000000000 
FT0	031367 0      0   0   0            0            332000000000 
FT1A	031367 0      0   0   0            0            0            
FT9	031370 0      0   0   0            0            0            
ET0	031371 0      0   0   0            0            0            
ST1A	031371 0      0   0   0            0            0            
ST9	031371 0      0   0   0            0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031371 031371 0   0   324000031372 0            000000031372 
IT1	031371 0      0   0   324000031372 0            000000031372 
AT3	031371 0      0   0   000000031372 0            324000031372 
AT6	031371 031372 0   0   000000031372 0            324000031372 
FT1A	031371 031372 0   0   000000031372 0            000000031372 
FT2	031371 031372 0   0   0            0            000000031372 
FT2RQ	031371 031372 0   0   0            0            000000031372 
FT3	031371 031372 0   0   0            0            000000031372 
FT9	031372 031372 0   0   0            0            000000031372 
ET0	031372 031372 0   0   0            0            000000031372 
ST1A	031372 031372 0   0   0            0            000000031372 
ST9	031372 031372 0   0   0            0            000000031372 


*031372 MOVE 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031372 031372 0   0   200000035062 0            0            
IT1	031372 0      0   0   200000035062 0            0            
AT3	031372 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 94
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0310

AT6	031372 035062 0   0   000000035062 0            200000035062 
FT0	031372 035062 0   0   0            0            200000035062 
FT1A	031372 035062 0   0   0            0            0            
FT9	031373 035062 0   0   0            0            0            
ET0	031373 035062 0   0   0            0            0            
ST1	031373 035062 0   0   0            0            0            
ST2	031373 035062 0   0   0            0            0            
ST9	031373 035062 0   0   0            0            0            


*031373 CAI 	0,035136
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031373 031373 0   0   300000035136 0            000000035136 
IT1	031373 0      0   0   300000035136 0            000000035136 
AT3	031373 0      0   0   000000035136 0            300000035136 
AT6	031373 035136 0   0   000000035136 0            300000035136 
FT1A	031373 035136 0   0   000000035136 0            000000035136 
FT2	031373 035136 0   0   0            0            000000035136 
FT2RQ	031373 035136 0   0   0            0            000000035136 
FT3	031373 035136 0   0   0            0            000000035136 
FT9	031374 035136 0   0   0            0            000000035136 
ET0	031374 035136 0   0   777777742642 0            000000035136 
ST1A	031374 035136 0   0   777777742642 0            000000035136 
ST9	031374 035136 0   0   777777742642 0            000000035136 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031374 031374 0   0   200000000000 0            0            
IT1	031374 0      0   0   200000000000 0            0            
AT3	031374 0      0   0   0            0            200000000000 
AT6	031374 0      0   0   0            0            200000000000 
FT0	031374 0      0   0   0            0            200000000000 
FT1A	031374 0      0   0   0            0            0            
FT9	031375 0      0   0   0            0            0            
ET0	031375 0      0   0   0            0            0            
ST1	031375 0      0   0   0            0            0            
ST2	031375 0      0   0   0            0            0            
ST9	031375 0      0   0   0            0            0            


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

*031375 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	031375 031375 0   0   332000000000 0            0            
IT1	031375 0      0   0   332000000000 0            0            
AT3	031375 0      0   0   0            0            332000000000 
AT6	031375 0      0   0   0            0            332000000000 
FT0	031375 0      0   0   0            0            332000000000 
FT1A	031375 0      0   0   0            0            0            
FT9	031376 0      0   0   0            0            0            
ET0	031377 0      0   0   0            0            0            
ST1A	031377 0      0   0   0            0            0            
ST9	031377 0      0   0   0            0            0            


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


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


*031400 MOVE 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   200000035062 0            0            
IT1	0      0      0   0   200000035062 0            0            
AT3	0      0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 96
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0312

AT6	0      035062 0   0   000000035062 0            200000035062 
FT0	0      035062 0   0   0            0            200000035062 
FT1A	0      035062 0   0   0            0            0            
FT9	031401 035062 0   0   0            0            0            
ET0	031401 035062 0   0   0            0            0            
ST1	031401 035062 0   0   0            0            0            
ST2	031401 035062 0   0   0            0            0            
ST9	031401 035062 0   0   0            0            0            


*031401 CAI 	17,035136
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031401 031401 0   0   300740035136 0            000000035136 
IT1	031401 0      0   0   300740035136 0            000000035136 
AT3	031401 0      0   0   000000035136 0            300740035136 
AT6	031401 035136 0   0   000000035136 0            300740035136 
FT1A	031401 035136 0   0   000000035136 0            000000035136 
FT2	031401 035136 0   0   0            0            000000035136 
FT2RQ	031401 035136 0   0   0            0            000000035136 
FT3	031401 035136 0   0   0            0            000000035136 
FT9	031402 035136 0   0   0            0            000000035136 
ET0	031402 035136 0   0   777777742642 0            000000035136 
ST1A	031402 035136 0   0   777777742642 0            000000035136 
ST9	031402 035136 0   0   777777742642 0            000000035136 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031402 031402 0   0   200000000000 0            0            
IT1	031402 0      0   0   200000000000 0            0            
AT3	031402 0      0   0   0            0            200000000000 
AT6	031402 0      0   0   0            0            200000000000 
FT0	031402 0      0   0   0            0            200000000000 
FT1A	031402 0      0   0   0            0            0            
FT9	031403 0      0   0   0            0            0            
ET0	031403 0      0   0   0            0            0            
ST1	031403 0      0   0   0            0            0            
ST2	031403 0      0   0   0            0            0            
ST9	031403 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 97
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0313

*031403 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	031403 031403 0   0   332000000000 0            0            
IT1	031403 0      0   0   332000000000 0            0            
AT3	031403 0      0   0   0            0            332000000000 
AT6	031403 0      0   0   0            0            332000000000 
FT0	031403 0      0   0   0            0            332000000000 
FT1A	031403 0      0   0   0            0            0            
FT9	031404 0      0   0   0            0            0            
ET0	031405 0      0   0   0            0            0            
ST1A	031405 0      0   0   0            0            0            
ST9	031405 0      0   0   0            0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031405 031405 0   0   324000031406 0            000000031406 
IT1	031405 0      0   0   324000031406 0            000000031406 
AT3	031405 0      0   0   000000031406 0            324000031406 
AT6	031405 031406 0   0   000000031406 0            324000031406 
FT1A	031405 031406 0   0   000000031406 0            000000031406 
FT2	031405 031406 0   0   0            0            000000031406 
FT2RQ	031405 031406 0   0   0            0            000000031406 
FT3	031405 031406 0   0   0            0            000000031406 
FT9	031406 031406 0   0   0            0            000000031406 
ET0	031406 031406 0   0   0            0            000000031406 
ST1A	031406 031406 0   0   0            0            000000031406 
ST9	031406 031406 0   0   0            0            000000031406 


*031406 MOVE 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031406 031406 0   0   200000035062 0            0            
IT1	031406 0      0   0   200000035062 0            0            
AT3	031406 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 98
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0314

AT6	031406 035062 0   0   000000035062 0            200000035062 
FT0	031406 035062 0   0   0            0            200000035062 
FT1A	031406 035062 0   0   0            0            0            
FT9	031407 035062 0   0   0            0            0            
ET0	031407 035062 0   0   0            0            0            
ST1	031407 035062 0   0   0            0            0            
ST2	031407 035062 0   0   0            0            0            
ST9	031407 035062 0   0   0            0            0            


*031407 CAM 	17,035136
INITIAL
C(AC)=000000 000000 
C(E)=000000 001234 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031407 031407 0   0   310740035136 0            000000001234 
IT1	031407 0      0   0   310740035136 0            000000001234 
AT3	031407 0      0   0   000000035136 0            310740035136 
AT6	031407 035136 0   0   000000035136 0            310740035136 
FT0	031407 035136 0   0   000000001234 0            310740035136 
FT1A	031407 035136 0   0   000000001234 0            000000001234 
FT2	031407 035136 0   0   0            0            000000001234 
FT2RQ	031407 035136 0   0   0            0            000000001234 
FT3	031407 035136 0   0   0            0            000000001234 
FT9	031410 035136 0   0   0            0            000000001234 
ET0	031410 035136 0   0   777777776544 0            000000001234 
ST1A	031410 035136 0   0   777777776544 0            000000001234 
ST9	031410 035136 0   0   777777776544 0            000000001234 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031410 031410 0   0   200000000000 0            0            
IT1	031410 0      0   0   200000000000 0            0            
AT3	031410 0      0   0   0            0            200000000000 
AT6	031410 0      0   0   0            0            200000000000 
FT0	031410 0      0   0   0            0            200000000000 
FT1A	031410 0      0   0   0            0            0            
FT9	031411 0      0   0   0            0            0            
ET0	031411 0      0   0   0            0            0            
ST1	031411 0      0   0   0            0            0            
ST2	031411 0      0   0   0            0            0            
ST9	031411 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 99
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0315



*031411 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	031411 031411 0   0   332000000000 0            0            
IT1	031411 0      0   0   332000000000 0            0            
AT3	031411 0      0   0   0            0            332000000000 
AT6	031411 0      0   0   0            0            332000000000 
FT0	031411 0      0   0   0            0            332000000000 
FT1A	031411 0      0   0   0            0            0            
FT9	031412 0      0   0   0            0            0            
ET0	031413 0      0   0   0            0            0            
ST1A	031413 0      0   0   0            0            0            
ST9	031413 0      0   0   0            0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031413 031413 0   0   324000031414 0            000000031414 
IT1	031413 0      0   0   324000031414 0            000000031414 
AT3	031413 0      0   0   000000031414 0            324000031414 
AT6	031413 031414 0   0   000000031414 0            324000031414 
FT1A	031413 031414 0   0   000000031414 0            000000031414 
FT2	031413 031414 0   0   0            0            000000031414 
FT2RQ	031413 031414 0   0   0            0            000000031414 
FT3	031413 031414 0   0   0            0            000000031414 
FT9	031414 031414 0   0   0            0            000000031414 
ET0	031414 031414 0   0   0            0            000000031414 
ST1A	031414 031414 0   0   0            0            000000031414 
ST9	031414 031414 0   0   0            0            000000031414 


*031414 MOVE 	1,035062
INITIAL
C(AC)=000001 000001 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031414 031414 0   0   200040035062 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 100
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0316

IT1	031414 0      0   0   200040035062 0            0            
AT3	031414 0      0   0   000000035062 0            200040035062 
AT6	031414 035062 0   0   000000035062 0            200040035062 
FT0	031414 035062 0   0   0            0            200040035062 
FT1A	031414 035062 0   0   0            0            0            
FT9	031415 035062 0   0   0            0            0            
ET0	031415 035062 0   0   0            0            0            
ST1	031415 035062 0   0   0            0            0            
ST2	031415 035062 0   0   0            0            0            
ST9	031415 035062 0   0   0            0            0            


*031415 MOVE 	1,035063
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031415 031415 0   0   200040035063 0            777777777777 
IT1	031415 0      0   0   200040035063 0            777777777777 
AT3	031415 0      0   0   000000035063 0            200040035063 
AT6	031415 035063 0   0   000000035063 0            200040035063 
FT0	031415 035063 0   0   777777777777 0            200040035063 
FT1A	031415 035063 0   0   777777777777 0            777777777777 
FT9	031416 035063 0   0   777777777777 0            777777777777 
ET0	031416 035063 0   0   777777777777 0            777777777777 
ST1	031416 035063 0   0   777777777777 0            777777777777 
ST2	031416 035063 0   0   777777777777 0            777777777777 
ST9	031416 035063 0   0   777777777777 0            777777777777 


*031416 SKIPN	0,000001
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031416 031416 0   0   336000000001 0            777777777777 
IT1	031416 0      0   0   336000000001 0            777777777777 
AT3	031416 0      0   0   000000000001 0            336000000001 
AT6	031416 000001 0   0   000000000001 0            336000000001 
FT0	031416 000001 0   0   777777777777 0            336000000001 
FT1A	031416 000001 0   0   777777777777 0            777777777777 
FT9	031417 000001 0   0   777777777777 0            777777777777 
ET0	031420 000001 0   0   777777777777 0            777777777777 
ST1A	031420 000001 0   0   777777777777 0            777777777777 
ST9	031420 000001 0   0   777777777777 0            777777777777 

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


*031420 JUMPA	0,031421
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031420 031420 0   0   324000031421 0            000000031421 
IT1	031420 0      0   0   324000031421 0            000000031421 
AT3	031420 0      0   0   000000031421 0            324000031421 
AT6	031420 031421 0   0   000000031421 0            324000031421 
FT1A	031420 031421 0   0   000000031421 0            000000031421 
FT2	031420 031421 0   0   0            0            000000031421 
FT2RQ	031420 031421 0   0   0            0            000000031421 
FT3	031420 031421 0   0   0            0            000000031421 
FT9	031421 031421 0   0   0            0            000000031421 
ET0	031421 031421 0   0   0            0            000000031421 
ST1A	031421 031421 0   0   0            0            000000031421 
ST9	031421 031421 0   0   0            0            000000031421 


*031421 MOVE 	1,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031421 031421 0   0   200040035062 0            0            
IT1	031421 0      0   0   200040035062 0            0            
AT3	031421 0      0   0   000000035062 0            200040035062 
AT6	031421 035062 0   0   000000035062 0            200040035062 
FT0	031421 035062 0   0   0            0            200040035062 
FT1A	031421 035062 0   0   0            0            0            
FT9	031422 035062 0   0   0            0            0            
ET0	031422 035062 0   0   0            0            0            
ST1	031422 035062 0   0   0            0            0            
ST2	031422 035062 0   0   0            0            0            
ST9	031422 035062 0   0   0            0            0            


*031422 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	031422 031422 0   0   332000000001 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 102
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0318

IT1	031422 0      0   0   332000000001 0            0            
AT3	031422 0      0   0   000000000001 0            332000000001 
AT6	031422 000001 0   0   000000000001 0            332000000001 
FT0	031422 000001 0   0   0            0            332000000001 
FT1A	031422 000001 0   0   0            0            0            
FT9	031423 000001 0   0   0            0            0            
ET0	031424 000001 0   0   0            0            0            
ST1A	031424 000001 0   0   0            0            0            
ST9	031424 000001 0   0   0            0            0            


*031424 JUMPA	0,031425
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031424 031424 0   0   324000031425 0            000000031425 
IT1	031424 0      0   0   324000031425 0            000000031425 
AT3	031424 0      0   0   000000031425 0            324000031425 
AT6	031424 031425 0   0   000000031425 0            324000031425 
FT1A	031424 031425 0   0   000000031425 0            000000031425 
FT2	031424 031425 0   0   0            0            000000031425 
FT2RQ	031424 031425 0   0   0            0            000000031425 
FT3	031424 031425 0   0   0            0            000000031425 
FT9	031425 031425 0   0   0            0            000000031425 
ET0	031425 031425 0   0   0            0            000000031425 
ST1A	031425 031425 0   0   0            0            000000031425 
ST9	031425 031425 0   0   0            0            000000031425 


*031425 MOVE 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031425 031425 0   0   200000035062 0            0            
IT1	031425 0      0   0   200000035062 0            0            
AT3	031425 0      0   0   000000035062 0            200000035062 
AT6	031425 035062 0   0   000000035062 0            200000035062 
FT0	031425 035062 0   0   0            0            200000035062 
FT1A	031425 035062 0   0   0            0            0            
FT9	031426 035062 0   0   0            0            0            
ET0	031426 035062 0   0   0            0            0            
ST1	031426 035062 0   0   0            0            0            
ST2	031426 035062 0   0   0            0            0            
ST9	031426 035062 0   0   0            0            0            

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


*031426 MOVE 	7,035136
INITIAL
C(AC)=000000 000000 
C(E)=000000 001234 
FINAL
C(AC)=000000 001234 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031426 031426 0   0   200340035136 0            000000001234 
IT1	031426 0      0   0   200340035136 0            000000001234 
AT3	031426 0      0   0   000000035136 0            200340035136 
AT6	031426 035136 0   0   000000035136 0            200340035136 
FT0	031426 035136 0   0   000000001234 0            200340035136 
FT1A	031426 035136 0   0   000000001234 0            000000001234 
FT9	031427 035136 0   0   000000001234 0            000000001234 
ET0	031427 035136 0   0   000000001234 0            000000001234 
ST1	031427 035136 0   0   000000001234 0            000000001234 
ST2	031427 035136 0   0   000000001234 0            000000001234 
ST9	031427 035136 0   0   000000001234 0            000000001234 


*031427 SOS 	0,000007
INITIAL
C(AC)=000000 000000 
C(E)=000000 001234 
FINAL
C(AC)=000000 000000 
C(E)=000000 001234 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031427 031427 0   0   370000000007 0            000000001234 
IT1	031427 0      0   0   370000000007 0            000000001234 
AT3	031427 0      0   0   000000000007 0            370000000007 
AT6	031427 000007 0   0   000000000007 0            370000000007 
FT0	031427 000007 0   0   000000001234 0            370000000007 
FT1A	031427 000007 0   0   000000001234 0            000000001234 
FT9	031430 000007 0   0   000000001234 0            000000001234 
ET0	031430 000007 0   0   000000001233 0            000000001234 
ST5	031430 000007 0   0   000000001233 0            000000001234 
ST6A	031430 000007 0   0   000000001233 0            000000001234 
ST9	031430 000007 0   0   000000001233 0            000000001234 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 104
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0320

*031430 MOVE 	0,000000
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   200000000000 0            0            
IT1	031430 0      0   0   200000000000 0            0            
AT3	031430 0      0   0   0            0            200000000000 
AT6	031430 0      0   0   0            0            200000000000 
FT0	031430 0      0   0   0            0            200000000000 
FT1A	031430 0      0   0   0            0            0            
FT9	031431 0      0   0   0            0            0            
ET0	031431 0      0   0   0            0            0            
ST1	031431 0      0   0   0            0            0            
ST2	031431 0      0   0   0            0            0            
ST9	031431 0      0   0   0            0            0            


*031431 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	031431 031431 0   0   332000000000 0            0            
IT1	031431 0      0   0   332000000000 0            0            
AT3	031431 0      0   0   0            0            332000000000 
AT6	031431 0      0   0   0            0            332000000000 
FT0	031431 0      0   0   0            0            332000000000 
FT1A	031431 0      0   0   0            0            0            
FT9	031432 0      0   0   0            0            0            
ET0	031433 0      0   0   0            0            0            
ST1A	031433 0      0   0   0            0            0            
ST9	031433 0      0   0   0            0            0            


*031433 JUMPA	0,031434
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031433 031433 0   0   324000031434 0            000000031434 
IT1	031433 0      0   0   324000031434 0            000000031434 
AT3	031433 0      0   0   000000031434 0            324000031434 
AT6	031433 031434 0   0   000000031434 0            324000031434 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 105
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0321

FT1A	031433 031434 0   0   000000031434 0            000000031434 
FT2	031433 031434 0   0   0            0            000000031434 
FT2RQ	031433 031434 0   0   0            0            000000031434 
FT3	031433 031434 0   0   0            0            000000031434 
FT9	031434 031434 0   0   0            0            000000031434 
ET0	031434 031434 0   0   0            0            000000031434 
ST1A	031434 031434 0   0   0            0            000000031434 
ST9	031434 031434 0   0   0            0            000000031434 


*031434 MOVE 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031434 031434 0   0   200000035062 0            0            
IT1	031434 0      0   0   200000035062 0            0            
AT3	031434 0      0   0   000000035062 0            200000035062 
AT6	031434 035062 0   0   000000035062 0            200000035062 
FT0	031434 035062 0   0   0            0            200000035062 
FT1A	031434 035062 0   0   0            0            0            
FT9	031435 035062 0   0   0            0            0            
ET0	031435 035062 0   0   0            0            0            
ST1	031435 035062 0   0   0            0            0            
ST2	031435 035062 0   0   0            0            0            
ST9	031435 035062 0   0   0            0            0            


*031435 MOVE 	1,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031435 031435 0   0   200040035062 0            0            
IT1	031435 0      0   0   200040035062 0            0            
AT3	031435 0      0   0   000000035062 0            200040035062 
AT6	031435 035062 0   0   000000035062 0            200040035062 
FT0	031435 035062 0   0   0            0            200040035062 
FT1A	031435 035062 0   0   0            0            0            
FT9	031436 035062 0   0   0            0            0            
ET0	031436 035062 0   0   0            0            0            
ST1	031436 035062 0   0   0            0            0            
ST2	031436 035062 0   0   0            0            0            
ST9	031436 035062 0   0   0            0            0            


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

*031436 SKIP 	1,035063
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031436 031436 0   0   330040035063 0            777777777777 
IT1	031436 0      0   0   330040035063 0            777777777777 
AT3	031436 0      0   0   000000035063 0            330040035063 
AT6	031436 035063 0   0   000000035063 0            330040035063 
FT0	031436 035063 0   0   777777777777 0            330040035063 
FT1A	031436 035063 0   0   777777777777 0            777777777777 
FT9	031437 035063 0   0   777777777777 0            777777777777 
ET0	031437 035063 0   0   777777777777 0            777777777777 
ST1	031437 035063 0   0   777777777777 0            777777777777 
ST2	031437 035063 0   0   777777777777 0            777777777777 
ST9	031437 035063 0   0   777777777777 0            777777777777 


*031437 SKIPN	0,000001
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031437 031437 0   0   336000000001 0            777777777777 
IT1	031437 0      0   0   336000000001 0            777777777777 
AT3	031437 0      0   0   000000000001 0            336000000001 
AT6	031437 000001 0   0   000000000001 0            336000000001 
FT0	031437 000001 0   0   777777777777 0            336000000001 
FT1A	031437 000001 0   0   777777777777 0            777777777777 
FT9	031440 000001 0   0   777777777777 0            777777777777 
ET0	031441 000001 0   0   777777777777 0            777777777777 
ST1A	031441 000001 0   0   777777777777 0            777777777777 
ST9	031441 000001 0   0   777777777777 0            777777777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031441 031441 0   0   324000031442 0            000000031442 
IT1	031441 0      0   0   324000031442 0            000000031442 
AT3	031441 0      0   0   000000031442 0            324000031442 
AT6	031441 031442 0   0   000000031442 0            324000031442 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 107
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0323

FT1A	031441 031442 0   0   000000031442 0            000000031442 
FT2	031441 031442 0   0   0            0            000000031442 
FT2RQ	031441 031442 0   0   0            0            000000031442 
FT3	031441 031442 0   0   0            0            000000031442 
FT9	031442 031442 0   0   0            0            000000031442 
ET0	031442 031442 0   0   0            0            000000031442 
ST1A	031442 031442 0   0   0            0            000000031442 
ST9	031442 031442 0   0   0            0            000000031442 


*031442 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	031442 031442 0   0   332000000000 0            0            
IT1	031442 0      0   0   332000000000 0            0            
AT3	031442 0      0   0   0            0            332000000000 
AT6	031442 0      0   0   0            0            332000000000 
FT0	031442 0      0   0   0            0            332000000000 
FT1A	031442 0      0   0   0            0            0            
FT9	031443 0      0   0   0            0            0            
ET0	031444 0      0   0   0            0            0            
ST1A	031444 0      0   0   0            0            0            
ST9	031444 0      0   0   0            0            0            


*031444 JUMPA	0,031445
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031444 031444 0   0   324000031445 0            000000031445 
IT1	031444 0      0   0   324000031445 0            000000031445 
AT3	031444 0      0   0   000000031445 0            324000031445 
AT6	031444 031445 0   0   000000031445 0            324000031445 
FT1A	031444 031445 0   0   000000031445 0            000000031445 
FT2	031444 031445 0   0   0            0            000000031445 
FT2RQ	031444 031445 0   0   0            0            000000031445 
FT3	031444 031445 0   0   0            0            000000031445 
FT9	031445 031445 0   0   0            0            000000031445 
ET0	031445 031445 0   0   0            0            000000031445 
ST1A	031445 031445 0   0   0            0            000000031445 
ST9	031445 031445 0   0   0            0            000000031445 


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

*031445 MOVE 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031445 031445 0   0   200000035062 0            0            
IT1	031445 0      0   0   200000035062 0            0            
AT3	031445 0      0   0   000000035062 0            200000035062 
AT6	031445 035062 0   0   000000035062 0            200000035062 
FT0	031445 035062 0   0   0            0            200000035062 
FT1A	031445 035062 0   0   0            0            0            
FT9	031446 035062 0   0   0            0            0            
ET0	031446 035062 0   0   0            0            0            
ST1	031446 035062 0   0   0            0            0            
ST2	031446 035062 0   0   0            0            0            
ST9	031446 035062 0   0   0            0            0            


*031446 MOVE 	2,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031446 031446 0   0   200100035062 0            0            
IT1	031446 0      0   0   200100035062 0            0            
AT3	031446 0      0   0   000000035062 0            200100035062 
AT6	031446 035062 0   0   000000035062 0            200100035062 
FT0	031446 035062 0   0   0            0            200100035062 
FT1A	031446 035062 0   0   0            0            0            
FT9	031447 035062 0   0   0            0            0            
ET0	031447 035062 0   0   0            0            0            
ST1	031447 035062 0   0   0            0            0            
ST2	031447 035062 0   0   0            0            0            
ST9	031447 035062 0   0   0            0            0            


*031447 SKIP 	2,035063
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031447 031447 0   0   330100035063 0            777777777777 
IT1	031447 0      0   0   330100035063 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 109
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0325

AT3	031447 0      0   0   000000035063 0            330100035063 
AT6	031447 035063 0   0   000000035063 0            330100035063 
FT0	031447 035063 0   0   777777777777 0            330100035063 
FT1A	031447 035063 0   0   777777777777 0            777777777777 
FT9	031450 035063 0   0   777777777777 0            777777777777 
ET0	031450 035063 0   0   777777777777 0            777777777777 
ST1	031450 035063 0   0   777777777777 0            777777777777 
ST2	031450 035063 0   0   777777777777 0            777777777777 
ST9	031450 035063 0   0   777777777777 0            777777777777 


*031450 SKIPN	0,000002
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031450 031450 0   0   336000000002 0            777777777777 
IT1	031450 0      0   0   336000000002 0            777777777777 
AT3	031450 0      0   0   000000000002 0            336000000002 
AT6	031450 000002 0   0   000000000002 0            336000000002 
FT0	031450 000002 0   0   777777777777 0            336000000002 
FT1A	031450 000002 0   0   777777777777 0            777777777777 
FT9	031451 000002 0   0   777777777777 0            777777777777 
ET0	031452 000002 0   0   777777777777 0            777777777777 
ST1A	031452 000002 0   0   777777777777 0            777777777777 
ST9	031452 000002 0   0   777777777777 0            777777777777 


*031452 JUMPA	0,031453
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031452 031452 0   0   324000031453 0            000000031453 
IT1	031452 0      0   0   324000031453 0            000000031453 
AT3	031452 0      0   0   000000031453 0            324000031453 
AT6	031452 031453 0   0   000000031453 0            324000031453 
FT1A	031452 031453 0   0   000000031453 0            000000031453 
FT2	031452 031453 0   0   0            0            000000031453 
FT2RQ	031452 031453 0   0   0            0            000000031453 
FT3	031452 031453 0   0   0            0            000000031453 
FT9	031453 031453 0   0   0            0            000000031453 
ET0	031453 031453 0   0   0            0            000000031453 
ST1A	031453 031453 0   0   0            0            000000031453 
ST9	031453 031453 0   0   0            0            000000031453 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 110
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0326

*031453 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	031453 031453 0   0   332000000000 0            0            
IT1	031453 0      0   0   332000000000 0            0            
AT3	031453 0      0   0   0            0            332000000000 
AT6	031453 0      0   0   0            0            332000000000 
FT0	031453 0      0   0   0            0            332000000000 
FT1A	031453 0      0   0   0            0            0            
FT9	031454 0      0   0   0            0            0            
ET0	031455 0      0   0   0            0            0            
ST1A	031455 0      0   0   0            0            0            
ST9	031455 0      0   0   0            0            0            


*031455 JUMPA	0,031456
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031455 031455 0   0   324000031456 0            000000031456 
IT1	031455 0      0   0   324000031456 0            000000031456 
AT3	031455 0      0   0   000000031456 0            324000031456 
AT6	031455 031456 0   0   000000031456 0            324000031456 
FT1A	031455 031456 0   0   000000031456 0            000000031456 
FT2	031455 031456 0   0   0            0            000000031456 
FT2RQ	031455 031456 0   0   0            0            000000031456 
FT3	031455 031456 0   0   0            0            000000031456 
FT9	031456 031456 0   0   0            0            000000031456 
ET0	031456 031456 0   0   0            0            000000031456 
ST1A	031456 031456 0   0   0            0            000000031456 
ST9	031456 031456 0   0   0            0            000000031456 


*031456 MOVE 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031456 031456 0   0   200000035062 0            0            
IT1	031456 0      0   0   200000035062 0            0            
AT3	031456 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 111
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0327

AT6	031456 035062 0   0   000000035062 0            200000035062 
FT0	031456 035062 0   0   0            0            200000035062 
FT1A	031456 035062 0   0   0            0            0            
FT9	031457 035062 0   0   0            0            0            
ET0	031457 035062 0   0   0            0            0            
ST1	031457 035062 0   0   0            0            0            
ST2	031457 035062 0   0   0            0            0            
ST9	031457 035062 0   0   0            0            0            


*031457 MOVE 	4,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031457 031457 0   0   200200035062 0            0            
IT1	031457 0      0   0   200200035062 0            0            
AT3	031457 0      0   0   000000035062 0            200200035062 
AT6	031457 035062 0   0   000000035062 0            200200035062 
FT0	031457 035062 0   0   0            0            200200035062 
FT1A	031457 035062 0   0   0            0            0            
FT9	031460 035062 0   0   0            0            0            
ET0	031460 035062 0   0   0            0            0            
ST1	031460 035062 0   0   0            0            0            
ST2	031460 035062 0   0   0            0            0            
ST9	031460 035062 0   0   0            0            0            


*031460 SKIP 	4,035063
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031460 031460 0   0   330200035063 0            777777777777 
IT1	031460 0      0   0   330200035063 0            777777777777 
AT3	031460 0      0   0   000000035063 0            330200035063 
AT6	031460 035063 0   0   000000035063 0            330200035063 
FT0	031460 035063 0   0   777777777777 0            330200035063 
FT1A	031460 035063 0   0   777777777777 0            777777777777 
FT9	031461 035063 0   0   777777777777 0            777777777777 
ET0	031461 035063 0   0   777777777777 0            777777777777 
ST1	031461 035063 0   0   777777777777 0            777777777777 
ST2	031461 035063 0   0   777777777777 0            777777777777 
ST9	031461 035063 0   0   777777777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 112
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0328

*031461 SKIPN	0,000004
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031461 031461 0   0   336000000004 0            777777777777 
IT1	031461 0      0   0   336000000004 0            777777777777 
AT3	031461 0      0   0   000000000004 0            336000000004 
AT6	031461 000004 0   0   000000000004 0            336000000004 
FT0	031461 000004 0   0   777777777777 0            336000000004 
FT1A	031461 000004 0   0   777777777777 0            777777777777 
FT9	031462 000004 0   0   777777777777 0            777777777777 
ET0	031463 000004 0   0   777777777777 0            777777777777 
ST1A	031463 000004 0   0   777777777777 0            777777777777 
ST9	031463 000004 0   0   777777777777 0            777777777777 


*031463 JUMPA	0,031464
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031463 031463 0   0   324000031464 0            000000031464 
IT1	031463 0      0   0   324000031464 0            000000031464 
AT3	031463 0      0   0   000000031464 0            324000031464 
AT6	031463 031464 0   0   000000031464 0            324000031464 
FT1A	031463 031464 0   0   000000031464 0            000000031464 
FT2	031463 031464 0   0   0            0            000000031464 
FT2RQ	031463 031464 0   0   0            0            000000031464 
FT3	031463 031464 0   0   0            0            000000031464 
FT9	031464 031464 0   0   0            0            000000031464 
ET0	031464 031464 0   0   0            0            000000031464 
ST1A	031464 031464 0   0   0            0            000000031464 
ST9	031464 031464 0   0   0            0            000000031464 


*031464 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	031464 031464 0   0   332000000000 0            0            
IT1	031464 0      0   0   332000000000 0            0            
AT3	031464 0      0   0   0            0            332000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 113
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0329

AT6	031464 0      0   0   0            0            332000000000 
FT0	031464 0      0   0   0            0            332000000000 
FT1A	031464 0      0   0   0            0            0            
FT9	031465 0      0   0   0            0            0            
ET0	031466 0      0   0   0            0            0            
ST1A	031466 0      0   0   0            0            0            
ST9	031466 0      0   0   0            0            0            


*031466 JUMPA	0,031467
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031466 031466 0   0   324000031467 0            000000031467 
IT1	031466 0      0   0   324000031467 0            000000031467 
AT3	031466 0      0   0   000000031467 0            324000031467 
AT6	031466 031467 0   0   000000031467 0            324000031467 
FT1A	031466 031467 0   0   000000031467 0            000000031467 
FT2	031466 031467 0   0   0            0            000000031467 
FT2RQ	031466 031467 0   0   0            0            000000031467 
FT3	031466 031467 0   0   0            0            000000031467 
FT9	031467 031467 0   0   0            0            000000031467 
ET0	031467 031467 0   0   0            0            000000031467 
ST1A	031467 031467 0   0   0            0            000000031467 
ST9	031467 031467 0   0   0            0            000000031467 


*031467 MOVE 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031467 031467 0   0   200000035062 0            0            
IT1	031467 0      0   0   200000035062 0            0            
AT3	031467 0      0   0   000000035062 0            200000035062 
AT6	031467 035062 0   0   000000035062 0            200000035062 
FT0	031467 035062 0   0   0            0            200000035062 
FT1A	031467 035062 0   0   0            0            0            
FT9	031470 035062 0   0   0            0            0            
ET0	031470 035062 0   0   0            0            0            
ST1	031470 035062 0   0   0            0            0            
ST2	031470 035062 0   0   0            0            0            
ST9	031470 035062 0   0   0            0            0            


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

*031470 MOVE 	10,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031470 031470 0   0   200400035062 0            0            
IT1	031470 0      0   0   200400035062 0            0            
AT3	031470 0      0   0   000000035062 0            200400035062 
AT6	031470 035062 0   0   000000035062 0            200400035062 
FT0	031470 035062 0   0   0            0            200400035062 
FT1A	031470 035062 0   0   0            0            0            
FT9	031471 035062 0   0   0            0            0            
ET0	031471 035062 0   0   0            0            0            
ST1	031471 035062 0   0   0            0            0            
ST2	031471 035062 0   0   0            0            0            
ST9	031471 035062 0   0   0            0            0            


*031471 SKIP 	10,035063
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031471 031471 0   0   330400035063 0            777777777777 
IT1	031471 0      0   0   330400035063 0            777777777777 
AT3	031471 0      0   0   000000035063 0            330400035063 
AT6	031471 035063 0   0   000000035063 0            330400035063 
FT0	031471 035063 0   0   777777777777 0            330400035063 
FT1A	031471 035063 0   0   777777777777 0            777777777777 
FT9	031472 035063 0   0   777777777777 0            777777777777 
ET0	031472 035063 0   0   777777777777 0            777777777777 
ST1	031472 035063 0   0   777777777777 0            777777777777 
ST2	031472 035063 0   0   777777777777 0            777777777777 
ST9	031472 035063 0   0   777777777777 0            777777777777 


*031472 SKIPN	0,000010
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031472 031472 0   0   336000000010 0            777777777777 
IT1	031472 0      0   0   336000000010 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 115
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0331

AT3	031472 0      0   0   000000000010 0            336000000010 
AT6	031472 000010 0   0   000000000010 0            336000000010 
FT0	031472 000010 0   0   777777777777 0            336000000010 
FT1A	031472 000010 0   0   777777777777 0            777777777777 
FT9	031473 000010 0   0   777777777777 0            777777777777 
ET0	031474 000010 0   0   777777777777 0            777777777777 
ST1A	031474 000010 0   0   777777777777 0            777777777777 
ST9	031474 000010 0   0   777777777777 0            777777777777 


*031474 JUMPA	0,031475
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031474 031474 0   0   324000031475 0            000000031475 
IT1	031474 0      0   0   324000031475 0            000000031475 
AT3	031474 0      0   0   000000031475 0            324000031475 
AT6	031474 031475 0   0   000000031475 0            324000031475 
FT1A	031474 031475 0   0   000000031475 0            000000031475 
FT2	031474 031475 0   0   0            0            000000031475 
FT2RQ	031474 031475 0   0   0            0            000000031475 
FT3	031474 031475 0   0   0            0            000000031475 
FT9	031475 031475 0   0   0            0            000000031475 
ET0	031475 031475 0   0   0            0            000000031475 
ST1A	031475 031475 0   0   0            0            000000031475 
ST9	031475 031475 0   0   0            0            000000031475 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031475 031475 0   0   332000000000 0            0            
IT1	031475 0      0   0   332000000000 0            0            
AT3	031475 0      0   0   0            0            332000000000 
AT6	031475 0      0   0   0            0            332000000000 
FT0	031475 0      0   0   0            0            332000000000 
FT1A	031475 0      0   0   0            0            0            
FT9	031476 0      0   0   0            0            0            
ET0	031477 0      0   0   0            0            0            
ST1A	031477 0      0   0   0            0            0            
ST9	031477 0      0   0   0            0            0            


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

*031477 JUMPA	0,031500
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031477 031477 0   0   324000031500 0            000000031500 
IT1	031477 0      0   0   324000031500 0            000000031500 
AT3	031477 0      0   0   000000031500 0            324000031500 
AT6	031477 0      0   0   000000031500 0            324000031500 
FT1A	031477 0      0   0   000000031500 0            000000031500 
FT2	031477 0      0   0   0            0            000000031500 
FT2RQ	031477 0      0   0   0            0            000000031500 
FT3	031477 0      0   0   0            0            000000031500 
FT9	0      0      0   0   0            0            000000031500 
ET0	0      0      0   0   0            0            000000031500 
ST1A	0      0      0   0   0            0            000000031500 
ST9	0      0      0   0   0            0            000000031500 


*031500 MOVE 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   200000035062 0            0            
IT1	0      0      0   0   200000035062 0            0            
AT3	0      0      0   0   000000035062 0            200000035062 
AT6	0      035062 0   0   000000035062 0            200000035062 
FT0	0      035062 0   0   0            0            200000035062 
FT1A	0      035062 0   0   0            0            0            
FT9	031501 035062 0   0   0            0            0            
ET0	031501 035062 0   0   0            0            0            
ST1	031501 035062 0   0   0            0            0            
ST2	031501 035062 0   0   0            0            0            
ST9	031501 035062 0   0   0            0            0            


*031501 SKIP 	0,035063
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031501 031501 0   0   330000035063 0            777777777777 
IT1	031501 0      0   0   330000035063 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 117
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0333

AT3	031501 0      0   0   000000035063 0            330000035063 
AT6	031501 035063 0   0   000000035063 0            330000035063 
FT0	031501 035063 0   0   777777777777 0            330000035063 
FT1A	031501 035063 0   0   777777777777 0            777777777777 
FT9	031502 035063 0   0   777777777777 0            777777777777 
ET0	031502 035063 0   0   777777777777 0            777777777777 
ST1A	031502 035063 0   0   777777777777 0            777777777777 
ST9	031502 035063 0   0   777777777777 0            777777777777 


*031502 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	031502 031502 0   0   332000000000 0            0            
IT1	031502 0      0   0   332000000000 0            0            
AT3	031502 0      0   0   0            0            332000000000 
AT6	031502 0      0   0   0            0            332000000000 
FT0	031502 0      0   0   0            0            332000000000 
FT1A	031502 0      0   0   0            0            0            
FT9	031503 0      0   0   0            0            0            
ET0	031504 0      0   0   0            0            0            
ST1A	031504 0      0   0   0            0            0            
ST9	031504 0      0   0   0            0            0            


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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 118
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0334

*031505 MOVE 	7,035063
INITIAL
C(AC)=000000 001233 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031505 031505 0   0   200340035063 0            777777777777 
IT1	031505 0      0   0   200340035063 0            777777777777 
AT3	031505 0      0   0   000000035063 0            200340035063 
AT6	031505 035063 0   0   000000035063 0            200340035063 
FT0	031505 035063 0   0   777777777777 0            200340035063 
FT1A	031505 035063 0   0   777777777777 0            777777777777 
FT9	031506 035063 0   0   777777777777 0            777777777777 
ET0	031506 035063 0   0   777777777777 0            777777777777 
ST1	031506 035063 0   0   777777777777 0            777777777777 
ST2	031506 035063 0   0   777777777777 0            777777777777 
ST9	031506 035063 0   0   777777777777 0            777777777777 


*031506 MOVE 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031506 031506 0   0   200000035062 0            0            
IT1	031506 0      0   0   200000035062 0            0            
AT3	031506 0      0   0   000000035062 0            200000035062 
AT6	031506 035062 0   0   000000035062 0            200000035062 
FT0	031506 035062 0   0   0            0            200000035062 
FT1A	031506 035062 0   0   0            0            0            
FT9	031507 035062 0   0   0            0            0            
ET0	031507 035062 0   0   0            0            0            
ST1	031507 035062 0   0   0            0            0            
ST2	031507 035062 0   0   0            0            0            
ST9	031507 035062 0   0   0            0            0            


*031507 MOVSS	0,000007
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 
C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031507 031507 0   0   207000000007 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 119
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0335

IT1	031507 0      0   0   207000000007 0            777777777777 
AT3	031507 0      0   0   000000000007 0            207000000007 
AT6	031507 000007 0   0   000000000007 0            207000000007 
FT0	031507 000007 0   0   777777777777 0            207000000007 
FT1A	031507 000007 0   0   777777777777 0            777777777777 
FT9	031510 000007 0   0   777777777777 0            777777777777 
ET0	031510 000007 0   0   777777777777 0            777777777777 
ST5	031510 000007 0   0   777777777777 0            777777777777 
ST6A	031510 000007 0   0   777777777777 0            777777777777 
ST9	031510 000007 0   0   777777777777 0            777777777777 


*031510 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	031510 031510 0   0   332000000000 0            0            
IT1	031510 0      0   0   332000000000 0            0            
AT3	031510 0      0   0   0            0            332000000000 
AT6	031510 0      0   0   0            0            332000000000 
FT0	031510 0      0   0   0            0            332000000000 
FT1A	031510 0      0   0   0            0            0            
FT9	031511 0      0   0   0            0            0            
ET0	031512 0      0   0   0            0            0            
ST1A	031512 0      0   0   0            0            0            
ST9	031512 0      0   0   0            0            0            


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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 120
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0336


*031513 MOVE 	7,035063
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031513 031513 0   0   200340035063 0            777777777777 
IT1	031513 0      0   0   200340035063 0            777777777777 
AT3	031513 0      0   0   000000035063 0            200340035063 
AT6	031513 035063 0   0   000000035063 0            200340035063 
FT0	031513 035063 0   0   777777777777 0            200340035063 
FT1A	031513 035063 0   0   777777777777 0            777777777777 
FT9	031514 035063 0   0   777777777777 0            777777777777 
ET0	031514 035063 0   0   777777777777 0            777777777777 
ST1	031514 035063 0   0   777777777777 0            777777777777 
ST2	031514 035063 0   0   777777777777 0            777777777777 
ST9	031514 035063 0   0   777777777777 0            777777777777 


*031514 MOVE 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031514 031514 0   0   200000035062 0            0            
IT1	031514 0      0   0   200000035062 0            0            
AT3	031514 0      0   0   000000035062 0            200000035062 
AT6	031514 035062 0   0   000000035062 0            200000035062 
FT0	031514 035062 0   0   0            0            200000035062 
FT1A	031514 035062 0   0   0            0            0            
FT9	031515 035062 0   0   0            0            0            
ET0	031515 035062 0   0   0            0            0            
ST1	031515 035062 0   0   0            0            0            
ST2	031515 035062 0   0   0            0            0            
ST9	031515 035062 0   0   0            0            0            


*031515 HRRS	0,000007
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL

C(E)=777777 777777 

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

IT0	031515 031515 0   0   543000000007 0            777777777777 
IT1	031515 0      0   0   543000000007 0            777777777777 
AT3	031515 0      0   0   000000000007 0            543000000007 
AT6	031515 000007 0   0   000000000007 0            543000000007 
FT0	031515 000007 0   0   777777777777 0            543000000007 
FT1A	031515 000007 0   0   777777777777 0            777777777777 
FT9	031516 000007 0   0   777777777777 0            777777777777 
ET0	031516 000007 0   0   777777777777 0            777777777777 
ST5	031516 000007 0   0   777777777777 0            777777777777 
ST6A	031516 000007 0   0   777777777777 0            777777777777 
ST9	031516 000007 0   0   777777777777 0            777777777777 


*031516 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	031516 031516 0   0   332000000000 0            0            
IT1	031516 0      0   0   332000000000 0            0            
AT3	031516 0      0   0   0            0            332000000000 
AT6	031516 0      0   0   0            0            332000000000 
FT0	031516 0      0   0   0            0            332000000000 
FT1A	031516 0      0   0   0            0            0            
FT9	031517 0      0   0   0            0            0            
ET0	031520 0      0   0   0            0            0            
ST1A	031520 0      0   0   0            0            0            
ST9	031520 0      0   0   0            0            0            


*031520 JUMPA	0,031521
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031520 031520 0   0   324000031521 0            000000031521 
IT1	031520 0      0   0   324000031521 0            000000031521 
AT3	031520 0      0   0   000000031521 0            324000031521 
AT6	031520 031521 0   0   000000031521 0            324000031521 
FT1A	031520 031521 0   0   000000031521 0            000000031521 
FT2	031520 031521 0   0   0            0            000000031521 
FT2RQ	031520 031521 0   0   0            0            000000031521 
FT3	031520 031521 0   0   0            0            000000031521 
FT9	031521 031521 0   0   0            0            000000031521 
ET0	031521 031521 0   0   0            0            000000031521 
ST1A	031521 031521 0   0   0            0            000000031521 
ST9	031521 031521 0   0   0            0            000000031521 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 122
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0338



*031521 MOVE 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031521 031521 0   0   200000035062 0            0            
IT1	031521 0      0   0   200000035062 0            0            
AT3	031521 0      0   0   000000035062 0            200000035062 
AT6	031521 035062 0   0   000000035062 0            200000035062 
FT0	031521 035062 0   0   0            0            200000035062 
FT1A	031521 035062 0   0   0            0            0            
FT9	031522 035062 0   0   0            0            0            
ET0	031522 035062 0   0   0            0            0            
ST1	031522 035062 0   0   0            0            0            
ST2	031522 035062 0   0   0            0            0            
ST9	031522 035062 0   0   0            0            0            


*031522 JUMP 	0,031523
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031522 031522 0   0   320000031523 0            000000031523 
IT1	031522 0      0   0   320000031523 0            000000031523 
AT3	031522 0      0   0   000000031523 0            320000031523 
AT6	031522 031523 0   0   000000031523 0            320000031523 
FT1A	031522 031523 0   0   000000031523 0            000000031523 
FT2	031522 031523 0   0   0            0            000000031523 
FT2RQ	031522 031523 0   0   0            0            000000031523 
FT3	031522 031523 0   0   0            0            000000031523 
FT9	031523 031523 0   0   0            0            000000031523 
ET0	031523 031523 0   0   0            0            000000031523 
ST1A	031523 031523 0   0   0            0            000000031523 
ST9	031523 031523 0   0   0            0            000000031523 


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

*031523 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	031523 031523 0   0   332000000000 0            0            
IT1	031523 0      0   0   332000000000 0            0            
AT3	031523 0      0   0   0            0            332000000000 
AT6	031523 0      0   0   0            0            332000000000 
FT0	031523 0      0   0   0            0            332000000000 
FT1A	031523 0      0   0   0            0            0            
FT9	031524 0      0   0   0            0            0            
ET0	031525 0      0   0   0            0            0            
ST1A	031525 0      0   0   0            0            0            
ST9	031525 0      0   0   0            0            0            


*031525 JUMPA	0,031526
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031525 031525 0   0   324000031526 0            000000031526 
IT1	031525 0      0   0   324000031526 0            000000031526 
AT3	031525 0      0   0   000000031526 0            324000031526 
AT6	031525 031526 0   0   000000031526 0            324000031526 
FT1A	031525 031526 0   0   000000031526 0            000000031526 
FT2	031525 031526 0   0   0            0            000000031526 
FT2RQ	031525 031526 0   0   0            0            000000031526 
FT3	031525 031526 0   0   0            0            000000031526 
FT9	031526 031526 0   0   0            0            000000031526 
ET0	031526 031526 0   0   0            0            000000031526 
ST1A	031526 031526 0   0   0            0            000000031526 
ST9	031526 031526 0   0   0            0            000000031526 


*031526 MOVE 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031526 031526 0   0   200000035062 0            0            
IT1	031526 0      0   0   200000035062 0            0            
AT3	031526 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 124
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0340

AT6	031526 035062 0   0   000000035062 0            200000035062 
FT0	031526 035062 0   0   0            0            200000035062 
FT1A	031526 035062 0   0   0            0            0            
FT9	031527 035062 0   0   0            0            0            
ET0	031527 035062 0   0   0            0            0            
ST1	031527 035062 0   0   0            0            0            
ST2	031527 035062 0   0   0            0            0            
ST9	031527 035062 0   0   0            0            0            


*031527 MOVS 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

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


*031530 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	031530 031530 0   0   332000000000 0            0            
IT1	031530 0      0   0   332000000000 0            0            
AT3	031530 0      0   0   0            0            332000000000 
AT6	031530 0      0   0   0            0            332000000000 
FT0	031530 0      0   0   0            0            332000000000 
FT1A	031530 0      0   0   0            0            0            
FT9	031531 0      0   0   0            0            0            
ET0	031532 0      0   0   0            0            0            
ST1A	031532 0      0   0   0            0            0            
ST9	031532 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 125
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0341

*031532 JUMPA	0,031533
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031532 031532 0   0   324000031533 0            000000031533 
IT1	031532 0      0   0   324000031533 0            000000031533 
AT3	031532 0      0   0   000000031533 0            324000031533 
AT6	031532 031533 0   0   000000031533 0            324000031533 
FT1A	031532 031533 0   0   000000031533 0            000000031533 
FT2	031532 031533 0   0   0            0            000000031533 
FT2RQ	031532 031533 0   0   0            0            000000031533 
FT3	031532 031533 0   0   0            0            000000031533 
FT9	031533 031533 0   0   0            0            000000031533 
ET0	031533 031533 0   0   0            0            000000031533 
ST1A	031533 031533 0   0   0            0            000000031533 
ST9	031533 031533 0   0   0            0            000000031533 


*031533 MOVE 	0,035137
INITIAL
C(AC)=000000 000000 
C(E)=000000 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031533 031533 0   0   200000035137 0            000000777777 
IT1	031533 0      0   0   200000035137 0            000000777777 
AT3	031533 0      0   0   000000035137 0            200000035137 
AT6	031533 035137 0   0   000000035137 0            200000035137 
FT0	031533 035137 0   0   000000777777 0            200000035137 
FT1A	031533 035137 0   0   000000777777 0            000000777777 
FT9	031534 035137 0   0   000000777777 0            000000777777 
ET0	031534 035137 0   0   000000777777 0            000000777777 
ST1	031534 035137 0   0   000000777777 0            000000777777 
ST2	031534 035137 0   0   000000777777 0            000000777777 
ST9	031534 035137 0   0   000000777777 0            000000777777 


*031534 MOVS 	0,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031534 031534 0   0   204000000000 0            000000777777 
IT1	031534 0      0   0   204000000000 0            000000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 126
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0342

AT3	031534 0      0   0   0            0            204000000000 
AT6	031534 0      0   0   0            0            204000000000 
FT0	031534 0      0   0   000000777777 0            204000000000 
FT1A	031534 0      0   0   000000777777 0            000000777777 
FT9	031535 0      0   0   000000777777 0            000000777777 
ET0	031535 0      0   0   777777000000 0            000000777777 
ST1	031535 0      0   0   777777000000 0            000000777777 
ST2	031535 0      0   0   777777000000 0            000000777777 
ST9	031535 0      0   0   777777000000 0            000000777777 


*031535 SKIPN	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031535 031535 0   0   336000000000 0            777777000000 
IT1	031535 0      0   0   336000000000 0            777777000000 
AT3	031535 0      0   0   0            0            336000000000 
AT6	031535 0      0   0   0            0            336000000000 
FT0	031535 0      0   0   777777000000 0            336000000000 
FT1A	031535 0      0   0   777777000000 0            777777000000 
FT9	031536 0      0   0   777777000000 0            777777000000 
ET0	031537 0      0   0   777777000000 0            777777000000 
ST1A	031537 0      0   0   777777000000 0            777777000000 
ST9	031537 0      0   0   777777000000 0            777777000000 


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


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

*031540 MOVE 	0,035140
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031540 031540 0   0   200000035140 0            777777000000 
IT1	031540 0      0   0   200000035140 0            777777000000 
AT3	031540 0      0   0   000000035140 0            200000035140 
AT6	031540 035140 0   0   000000035140 0            200000035140 
FT0	031540 035140 0   0   777777000000 0            200000035140 
FT1A	031540 035140 0   0   777777000000 0            777777000000 
FT9	031541 035140 0   0   777777000000 0            777777000000 
ET0	031541 035140 0   0   777777000000 0            777777000000 
ST1	031541 035140 0   0   777777000000 0            777777000000 
ST2	031541 035140 0   0   777777000000 0            777777000000 
ST9	031541 035140 0   0   777777000000 0            777777000000 


*031541 MOVS 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031541 031541 0   0   204000000000 0            777777000000 
IT1	031541 0      0   0   204000000000 0            777777000000 
AT3	031541 0      0   0   0            0            204000000000 
AT6	031541 0      0   0   0            0            204000000000 
FT0	031541 0      0   0   777777000000 0            204000000000 
FT1A	031541 0      0   0   777777000000 0            777777000000 
FT9	031542 0      0   0   777777000000 0            777777000000 
ET0	031542 0      0   0   000000777777 0            777777000000 
ST1	031542 0      0   0   000000777777 0            777777000000 
ST2	031542 0      0   0   000000777777 0            777777000000 
ST9	031542 0      0   0   000000777777 0            777777000000 


*031542 SKIPN	0,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031542 031542 0   0   336000000000 0            000000777777 
IT1	031542 0      0   0   336000000000 0            000000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 128
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0344

AT3	031542 0      0   0   0            0            336000000000 
AT6	031542 0      0   0   0            0            336000000000 
FT0	031542 0      0   0   000000777777 0            336000000000 
FT1A	031542 0      0   0   000000777777 0            000000777777 
FT9	031543 0      0   0   000000777777 0            000000777777 
ET0	031544 0      0   0   000000777777 0            000000777777 
ST1A	031544 0      0   0   000000777777 0            000000777777 
ST9	031544 0      0   0   000000777777 0            000000777777 


*031544 JUMPA	0,031545
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031544 031544 0   0   324000031545 0            000000031545 
IT1	031544 0      0   0   324000031545 0            000000031545 
AT3	031544 0      0   0   000000031545 0            324000031545 
AT6	031544 031545 0   0   000000031545 0            324000031545 
FT1A	031544 031545 0   0   000000031545 0            000000031545 
FT2	031544 031545 0   0   0            0            000000031545 
FT2RQ	031544 031545 0   0   000000777777 0            000000031545 
FT3	031544 031545 0   0   000000777777 0            000000031545 
FT9	031545 031545 0   0   000000777777 0            000000031545 
ET0	031545 031545 0   0   000000777777 0            000000031545 
ST1A	031545 031545 0   0   000000777777 0            000000031545 
ST9	031545 031545 0   0   000000777777 0            000000031545 


*031545 MOVE 	0,035140
INITIAL
C(AC)=000000 777777 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031545 031545 0   0   200000035140 0            777777000000 
IT1	031545 0      0   0   200000035140 0            777777000000 
AT3	031545 0      0   0   000000035140 0            200000035140 
AT6	031545 035140 0   0   000000035140 0            200000035140 
FT0	031545 035140 0   0   777777000000 0            200000035140 
FT1A	031545 035140 0   0   777777000000 0            777777000000 
FT9	031546 035140 0   0   777777000000 0            777777000000 
ET0	031546 035140 0   0   777777000000 0            777777000000 
ST1	031546 035140 0   0   777777000000 0            777777000000 
ST2	031546 035140 0   0   777777000000 0            777777000000 
ST9	031546 035140 0   0   777777000000 0            777777000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 129
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0345

*031546 MOVS 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031546 031546 0   0   204000000000 0            777777000000 
IT1	031546 0      0   0   204000000000 0            777777000000 
AT3	031546 0      0   0   0            0            204000000000 
AT6	031546 0      0   0   0            0            204000000000 
FT0	031546 0      0   0   777777000000 0            204000000000 
FT1A	031546 0      0   0   777777000000 0            777777000000 
FT9	031547 0      0   0   777777000000 0            777777000000 
ET0	031547 0      0   0   000000777777 0            777777000000 
ST1	031547 0      0   0   000000777777 0            777777000000 
ST2	031547 0      0   0   000000777777 0            777777000000 
ST9	031547 0      0   0   000000777777 0            777777000000 


*031547 SKIPG	0,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031547 031547 0   0   337000000000 0            000000777777 
IT1	031547 0      0   0   337000000000 0            000000777777 
AT3	031547 0      0   0   0            0            337000000000 
AT6	031547 0      0   0   0            0            337000000000 
FT0	031547 0      0   0   000000777777 0            337000000000 
FT1A	031547 0      0   0   000000777777 0            000000777777 
FT9	031550 0      0   0   000000777777 0            000000777777 
ET0	031551 0      0   0   000000777777 0            000000777777 
ST1A	031551 0      0   0   000000777777 0            000000777777 
ST9	031551 0      0   0   000000777777 0            000000777777 


*031551 JUMPA	0,031552
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031551 031551 0   0   324000031552 0            000000031552 
IT1	031551 0      0   0   324000031552 0            000000031552 
AT3	031551 0      0   0   000000031552 0            324000031552 
AT6	031551 031552 0   0   000000031552 0            324000031552 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 130
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0346

FT1A	031551 031552 0   0   000000031552 0            000000031552 
FT2	031551 031552 0   0   0            0            000000031552 
FT2RQ	031551 031552 0   0   000000777777 0            000000031552 
FT3	031551 031552 0   0   000000777777 0            000000031552 
FT9	031552 031552 0   0   000000777777 0            000000031552 
ET0	031552 031552 0   0   000000777777 0            000000031552 
ST1A	031552 031552 0   0   000000777777 0            000000031552 
ST9	031552 031552 0   0   000000777777 0            000000031552 


*031552 MOVE 	0,035137
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031552 031552 0   0   200000035137 0            000000777777 
IT1	031552 0      0   0   200000035137 0            000000777777 
AT3	031552 0      0   0   000000035137 0            200000035137 
AT6	031552 035137 0   0   000000035137 0            200000035137 
FT0	031552 035137 0   0   000000777777 0            200000035137 
FT1A	031552 035137 0   0   000000777777 0            000000777777 
FT9	031553 035137 0   0   000000777777 0            000000777777 
ET0	031553 035137 0   0   000000777777 0            000000777777 
ST1	031553 035137 0   0   000000777777 0            000000777777 
ST2	031553 035137 0   0   000000777777 0            000000777777 
ST9	031553 035137 0   0   000000777777 0            000000777777 


*031553 MOVS 	0,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031553 031553 0   0   204000000000 0            000000777777 
IT1	031553 0      0   0   204000000000 0            000000777777 
AT3	031553 0      0   0   0            0            204000000000 
AT6	031553 0      0   0   0            0            204000000000 
FT0	031553 0      0   0   000000777777 0            204000000000 
FT1A	031553 0      0   0   000000777777 0            000000777777 
FT9	031554 0      0   0   000000777777 0            000000777777 
ET0	031554 0      0   0   777777000000 0            000000777777 
ST1	031554 0      0   0   777777000000 0            000000777777 
ST2	031554 0      0   0   777777000000 0            000000777777 
ST9	031554 0      0   0   777777000000 0            000000777777 


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

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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031554 031554 0   0   331000000000 0            777777000000 
IT1	031554 0      0   0   331000000000 0            777777000000 
AT3	031554 0      0   0   0            0            331000000000 
AT6	031554 0      0   0   0            0            331000000000 
FT0	031554 0      0   0   777777000000 0            331000000000 
FT1A	031554 0      0   0   777777000000 0            777777000000 
FT9	031555 0      0   0   777777000000 0            777777000000 
ET0	031556 0      0   0   777777000000 0            777777000000 
ST1A	031556 0      0   0   777777000000 0            777777000000 
ST9	031556 0      0   0   777777000000 0            777777000000 


*031556 JUMPA	0,031557
INITIAL
C(AC)=777777 000000 
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   777777000000 0            000000031557 
FT3	031556 031557 0   0   777777000000 0            000000031557 
FT9	031557 031557 0   0   777777000000 0            000000031557 
ET0	031557 031557 0   0   777777000000 0            000000031557 
ST1A	031557 031557 0   0   777777000000 0            000000031557 
ST9	031557 031557 0   0   777777000000 0            000000031557 


*031557 MOVE 	0,035062
INITIAL
C(AC)=777777 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031557 031557 0   0   200000035062 0            0            
IT1	031557 0      0   0   200000035062 0            0            
AT3	031557 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 132
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0348

AT6	031557 035062 0   0   000000035062 0            200000035062 
FT0	031557 035062 0   0   0            0            200000035062 
FT1A	031557 035062 0   0   0            0            0            
FT9	031560 035062 0   0   0            0            0            
ET0	031560 035062 0   0   0            0            0            
ST1	031560 035062 0   0   0            0            0            
ST2	031560 035062 0   0   0            0            0            
ST9	031560 035062 0   0   0            0            0            


*031560 MOVS 	0,035074
INITIAL
C(AC)=000000 000000 
C(E)=000000 000001 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031560 031560 0   0   204000035074 0            000000000001 
IT1	031560 0      0   0   204000035074 0            000000000001 
AT3	031560 0      0   0   000000035074 0            204000035074 
AT6	031560 035074 0   0   000000035074 0            204000035074 
FT0	031560 035074 0   0   000000000001 0            204000035074 
FT1A	031560 035074 0   0   000000000001 0            000000000001 
FT9	031561 035074 0   0   000000000001 0            000000000001 
ET0	031561 035074 0   0   000001000000 0            000000000001 
ST1	031561 035074 0   0   000001000000 0            000000000001 
ST2	031561 035074 0   0   000001000000 0            000000000001 
ST9	031561 035074 0   0   000001000000 0            000000000001 


*031561 SKIPN	0,000000
INITIAL
C(AC)=000001 000000 
C(E)=000001 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031561 031561 0   0   336000000000 0            000001000000 
IT1	031561 0      0   0   336000000000 0            000001000000 
AT3	031561 0      0   0   0            0            336000000000 
AT6	031561 0      0   0   0            0            336000000000 
FT0	031561 0      0   0   000001000000 0            336000000000 
FT1A	031561 0      0   0   000001000000 0            000001000000 
FT9	031562 0      0   0   000001000000 0            000001000000 
ET0	031563 0      0   0   000001000000 0            000001000000 
ST1A	031563 0      0   0   000001000000 0            000001000000 
ST9	031563 0      0   0   000001000000 0            000001000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 133
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0349

*031563 JUMPA	0,031564
INITIAL
C(AC)=000001 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031563 031563 0   0   324000031564 0            000000031564 
IT1	031563 0      0   0   324000031564 0            000000031564 
AT3	031563 0      0   0   000000031564 0            324000031564 
AT6	031563 031564 0   0   000000031564 0            324000031564 
FT1A	031563 031564 0   0   000000031564 0            000000031564 
FT2	031563 031564 0   0   0            0            000000031564 
FT2RQ	031563 031564 0   0   000001000000 0            000000031564 
FT3	031563 031564 0   0   000001000000 0            000000031564 
FT9	031564 031564 0   0   000001000000 0            000000031564 
ET0	031564 031564 0   0   000001000000 0            000000031564 
ST1A	031564 031564 0   0   000001000000 0            000000031564 
ST9	031564 031564 0   0   000001000000 0            000000031564 


*031564 MOVE 	0,035062
INITIAL
C(AC)=000001 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031564 031564 0   0   200000035062 0            0            
IT1	031564 0      0   0   200000035062 0            0            
AT3	031564 0      0   0   000000035062 0            200000035062 
AT6	031564 035062 0   0   000000035062 0            200000035062 
FT0	031564 035062 0   0   0            0            200000035062 
FT1A	031564 035062 0   0   0            0            0            
FT9	031565 035062 0   0   0            0            0            
ET0	031565 035062 0   0   0            0            0            
ST1	031565 035062 0   0   0            0            0            
ST2	031565 035062 0   0   0            0            0            
ST9	031565 035062 0   0   0            0            0            


*031565 MOVS 	0,035075
INITIAL
C(AC)=000000 000000 
C(E)=000000 000002 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031565 031565 0   0   204000035075 0            000000000002 
IT1	031565 0      0   0   204000035075 0            000000000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 134
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0350

AT3	031565 0      0   0   000000035075 0            204000035075 
AT6	031565 035075 0   0   000000035075 0            204000035075 
FT0	031565 035075 0   0   000000000002 0            204000035075 
FT1A	031565 035075 0   0   000000000002 0            000000000002 
FT9	031566 035075 0   0   000000000002 0            000000000002 
ET0	031566 035075 0   0   000002000000 0            000000000002 
ST1	031566 035075 0   0   000002000000 0            000000000002 
ST2	031566 035075 0   0   000002000000 0            000000000002 
ST9	031566 035075 0   0   000002000000 0            000000000002 


*031566 SKIPN	0,000000
INITIAL
C(AC)=000002 000000 
C(E)=000002 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031566 031566 0   0   336000000000 0            000002000000 
IT1	031566 0      0   0   336000000000 0            000002000000 
AT3	031566 0      0   0   0            0            336000000000 
AT6	031566 0      0   0   0            0            336000000000 
FT0	031566 0      0   0   000002000000 0            336000000000 
FT1A	031566 0      0   0   000002000000 0            000002000000 
FT9	031567 0      0   0   000002000000 0            000002000000 
ET0	031570 0      0   0   000002000000 0            000002000000 
ST1A	031570 0      0   0   000002000000 0            000002000000 
ST9	031570 0      0   0   000002000000 0            000002000000 


*031570 JUMPA	0,031571
INITIAL
C(AC)=000002 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031570 031570 0   0   324000031571 0            000000031571 
IT1	031570 0      0   0   324000031571 0            000000031571 
AT3	031570 0      0   0   000000031571 0            324000031571 
AT6	031570 031571 0   0   000000031571 0            324000031571 
FT1A	031570 031571 0   0   000000031571 0            000000031571 
FT2	031570 031571 0   0   0            0            000000031571 
FT2RQ	031570 031571 0   0   000002000000 0            000000031571 
FT3	031570 031571 0   0   000002000000 0            000000031571 
FT9	031571 031571 0   0   000002000000 0            000000031571 
ET0	031571 031571 0   0   000002000000 0            000000031571 
ST1A	031571 031571 0   0   000002000000 0            000000031571 
ST9	031571 031571 0   0   000002000000 0            000000031571 


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

*031571 MOVE 	0,035062
INITIAL
C(AC)=000002 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031571 031571 0   0   200000035062 0            0            
IT1	031571 0      0   0   200000035062 0            0            
AT3	031571 0      0   0   000000035062 0            200000035062 
AT6	031571 035062 0   0   000000035062 0            200000035062 
FT0	031571 035062 0   0   0            0            200000035062 
FT1A	031571 035062 0   0   0            0            0            
FT9	031572 035062 0   0   0            0            0            
ET0	031572 035062 0   0   0            0            0            
ST1	031572 035062 0   0   0            0            0            
ST2	031572 035062 0   0   0            0            0            
ST9	031572 035062 0   0   0            0            0            


*031572 MOVS 	0,035076
INITIAL
C(AC)=000000 000000 
C(E)=000000 000004 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031572 031572 0   0   204000035076 0            000000000004 
IT1	031572 0      0   0   204000035076 0            000000000004 
AT3	031572 0      0   0   000000035076 0            204000035076 
AT6	031572 035076 0   0   000000035076 0            204000035076 
FT0	031572 035076 0   0   000000000004 0            204000035076 
FT1A	031572 035076 0   0   000000000004 0            000000000004 
FT9	031573 035076 0   0   000000000004 0            000000000004 
ET0	031573 035076 0   0   000004000000 0            000000000004 
ST1	031573 035076 0   0   000004000000 0            000000000004 
ST2	031573 035076 0   0   000004000000 0            000000000004 
ST9	031573 035076 0   0   000004000000 0            000000000004 


*031573 SKIPN	0,000000
INITIAL
C(AC)=000004 000000 
C(E)=000004 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031573 031573 0   0   336000000000 0            000004000000 
IT1	031573 0      0   0   336000000000 0            000004000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 136
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0352

AT3	031573 0      0   0   0            0            336000000000 
AT6	031573 0      0   0   0            0            336000000000 
FT0	031573 0      0   0   000004000000 0            336000000000 
FT1A	031573 0      0   0   000004000000 0            000004000000 
FT9	031574 0      0   0   000004000000 0            000004000000 
ET0	031575 0      0   0   000004000000 0            000004000000 
ST1A	031575 0      0   0   000004000000 0            000004000000 
ST9	031575 0      0   0   000004000000 0            000004000000 


*031575 JUMPA	0,031576
INITIAL
C(AC)=000004 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031575 031575 0   0   324000031576 0            000000031576 
IT1	031575 0      0   0   324000031576 0            000000031576 
AT3	031575 0      0   0   000000031576 0            324000031576 
AT6	031575 031576 0   0   000000031576 0            324000031576 
FT1A	031575 031576 0   0   000000031576 0            000000031576 
FT2	031575 031576 0   0   0            0            000000031576 
FT2RQ	031575 031576 0   0   000004000000 0            000000031576 
FT3	031575 031576 0   0   000004000000 0            000000031576 
FT9	031576 031576 0   0   000004000000 0            000000031576 
ET0	031576 031576 0   0   000004000000 0            000000031576 
ST1A	031576 031576 0   0   000004000000 0            000000031576 
ST9	031576 031576 0   0   000004000000 0            000000031576 


*031576 MOVE 	0,035062
INITIAL
C(AC)=000004 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031576 031576 0   0   200000035062 0            0            
IT1	031576 0      0   0   200000035062 0            0            
AT3	031576 0      0   0   000000035062 0            200000035062 
AT6	031576 035062 0   0   000000035062 0            200000035062 
FT0	031576 035062 0   0   0            0            200000035062 
FT1A	031576 035062 0   0   0            0            0            
FT9	031577 035062 0   0   0            0            0            
ET0	031577 035062 0   0   0            0            0            
ST1	031577 035062 0   0   0            0            0            
ST2	031577 035062 0   0   0            0            0            
ST9	031577 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 137
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0353

*031577 MOVS 	0,035077
INITIAL
C(AC)=000000 000000 
C(E)=000000 000010 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031577 031577 0   0   204000035077 0            000000000010 
IT1	031577 0      0   0   204000035077 0            000000000010 
AT3	031577 0      0   0   000000035077 0            204000035077 
AT6	031577 035077 0   0   000000035077 0            204000035077 
FT0	031577 035077 0   0   000000000010 0            204000035077 
FT1A	031577 035077 0   0   000000000010 0            000000000010 
FT9	0      035077 0   0   000000000010 0            000000000010 
ET0	0      035077 0   0   000010000000 0            000000000010 
ST1	0      035077 0   0   000010000000 0            000000000010 
ST2	0      035077 0   0   000010000000 0            000000000010 
ST9	0      035077 0   0   000010000000 0            000000000010 


*031600 SKIPN	0,000000
INITIAL
C(AC)=000010 000000 
C(E)=000010 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   336000000000 0            000010000000 
IT1	0      0      0   0   336000000000 0            000010000000 
AT3	0      0      0   0   0            0            336000000000 
AT6	0      0      0   0   0            0            336000000000 
FT0	0      0      0   0   000010000000 0            336000000000 
FT1A	0      0      0   0   000010000000 0            000010000000 
FT9	031601 0      0   0   000010000000 0            000010000000 
ET0	031602 0      0   0   000010000000 0            000010000000 
ST1A	031602 0      0   0   000010000000 0            000010000000 
ST9	031602 0      0   0   000010000000 0            000010000000 


*031602 JUMPA	0,031603
INITIAL
C(AC)=000010 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031602 031602 0   0   324000031603 0            000000031603 
IT1	031602 0      0   0   324000031603 0            000000031603 
AT3	031602 0      0   0   000000031603 0            324000031603 
AT6	031602 031603 0   0   000000031603 0            324000031603 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 138
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0354

FT1A	031602 031603 0   0   000000031603 0            000000031603 
FT2	031602 031603 0   0   0            0            000000031603 
FT2RQ	031602 031603 0   0   000010000000 0            000000031603 
FT3	031602 031603 0   0   000010000000 0            000000031603 
FT9	031603 031603 0   0   000010000000 0            000000031603 
ET0	031603 031603 0   0   000010000000 0            000000031603 
ST1A	031603 031603 0   0   000010000000 0            000000031603 
ST9	031603 031603 0   0   000010000000 0            000000031603 


*031603 MOVE 	0,035062
INITIAL
C(AC)=000010 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031603 031603 0   0   200000035062 0            0            
IT1	031603 0      0   0   200000035062 0            0            
AT3	031603 0      0   0   000000035062 0            200000035062 
AT6	031603 035062 0   0   000000035062 0            200000035062 
FT0	031603 035062 0   0   0            0            200000035062 
FT1A	031603 035062 0   0   0            0            0            
FT9	031604 035062 0   0   0            0            0            
ET0	031604 035062 0   0   0            0            0            
ST1	031604 035062 0   0   0            0            0            
ST2	031604 035062 0   0   0            0            0            
ST9	031604 035062 0   0   0            0            0            


*031604 MOVS 	0,035100
INITIAL
C(AC)=000000 000000 
C(E)=000000 000020 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031604 031604 0   0   204000035100 0            000000000020 
IT1	031604 0      0   0   204000035100 0            000000000020 
AT3	031604 0      0   0   000000035100 0            204000035100 
AT6	031604 0      0   0   000000035100 0            204000035100 
FT0	031604 0      0   0   000000000020 0            204000035100 
FT1A	031604 0      0   0   000000000020 0            000000000020 
FT9	031605 0      0   0   000000000020 0            000000000020 
ET0	031605 0      0   0   000020000000 0            000000000020 
ST1	031605 0      0   0   000020000000 0            000000000020 
ST2	031605 0      0   0   000020000000 0            000000000020 
ST9	031605 0      0   0   000020000000 0            000000000020 


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

*031605 SKIPN	0,000000
INITIAL
C(AC)=000020 000000 
C(E)=000020 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031605 031605 0   0   336000000000 0            000020000000 
IT1	031605 0      0   0   336000000000 0            000020000000 
AT3	031605 0      0   0   0            0            336000000000 
AT6	031605 0      0   0   0            0            336000000000 
FT0	031605 0      0   0   000020000000 0            336000000000 
FT1A	031605 0      0   0   000020000000 0            000020000000 
FT9	031606 0      0   0   000020000000 0            000020000000 
ET0	031607 0      0   0   000020000000 0            000020000000 
ST1A	031607 0      0   0   000020000000 0            000020000000 
ST9	031607 0      0   0   000020000000 0            000020000000 


*031607 JUMPA	0,031610
INITIAL
C(AC)=000020 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031607 031607 0   0   324000031610 0            000000031610 
IT1	031607 0      0   0   324000031610 0            000000031610 
AT3	031607 0      0   0   000000031610 0            324000031610 
AT6	031607 031610 0   0   000000031610 0            324000031610 
FT1A	031607 031610 0   0   000000031610 0            000000031610 
FT2	031607 031610 0   0   0            0            000000031610 
FT2RQ	031607 031610 0   0   000020000000 0            000000031610 
FT3	031607 031610 0   0   000020000000 0            000000031610 
FT9	031610 031610 0   0   000020000000 0            000000031610 
ET0	031610 031610 0   0   000020000000 0            000000031610 
ST1A	031610 031610 0   0   000020000000 0            000000031610 
ST9	031610 031610 0   0   000020000000 0            000000031610 


*031610 MOVE 	0,035062
INITIAL
C(AC)=000020 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031610 031610 0   0   200000035062 0            0            
IT1	031610 0      0   0   200000035062 0            0            
AT3	031610 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 140
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0356

AT6	031610 035062 0   0   000000035062 0            200000035062 
FT0	031610 035062 0   0   0            0            200000035062 
FT1A	031610 035062 0   0   0            0            0            
FT9	031611 035062 0   0   0            0            0            
ET0	031611 035062 0   0   0            0            0            
ST1	031611 035062 0   0   0            0            0            
ST2	031611 035062 0   0   0            0            0            
ST9	031611 035062 0   0   0            0            0            


*031611 MOVS 	0,035101
INITIAL
C(AC)=000000 000000 
C(E)=000000 000040 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031611 031611 0   0   204000035101 0            000000000040 
IT1	031611 0      0   0   204000035101 0            000000000040 
AT3	031611 0      0   0   000000035101 0            204000035101 
AT6	031611 035101 0   0   000000035101 0            204000035101 
FT0	031611 035101 0   0   000000000040 0            204000035101 
FT1A	031611 035101 0   0   000000000040 0            000000000040 
FT9	031612 035101 0   0   000000000040 0            000000000040 
ET0	031612 035101 0   0   000040000000 0            000000000040 
ST1	031612 035101 0   0   000040000000 0            000000000040 
ST2	031612 035101 0   0   000040000000 0            000000000040 
ST9	031612 035101 0   0   000040000000 0            000000000040 


*031612 SKIPN	0,000000
INITIAL
C(AC)=000040 000000 
C(E)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031612 031612 0   0   336000000000 0            000040000000 
IT1	031612 0      0   0   336000000000 0            000040000000 
AT3	031612 0      0   0   0            0            336000000000 
AT6	031612 0      0   0   0            0            336000000000 
FT0	031612 0      0   0   000040000000 0            336000000000 
FT1A	031612 0      0   0   000040000000 0            000040000000 
FT9	031613 0      0   0   000040000000 0            000040000000 
ET0	031614 0      0   0   000040000000 0            000040000000 
ST1A	031614 0      0   0   000040000000 0            000040000000 
ST9	031614 0      0   0   000040000000 0            000040000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 141
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0357

*031614 JUMPA	0,031615
INITIAL
C(AC)=000040 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   000040000000 0            000000031615 
FT3	031614 031615 0   0   000040000000 0            000000031615 
FT9	031615 031615 0   0   000040000000 0            000000031615 
ET0	031615 031615 0   0   000040000000 0            000000031615 
ST1A	031615 031615 0   0   000040000000 0            000000031615 
ST9	031615 031615 0   0   000040000000 0            000000031615 


*031615 MOVE 	0,035062
INITIAL
C(AC)=000040 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031615 031615 0   0   200000035062 0            0            
IT1	031615 0      0   0   200000035062 0            0            
AT3	031615 0      0   0   000000035062 0            200000035062 
AT6	031615 035062 0   0   000000035062 0            200000035062 
FT0	031615 035062 0   0   0            0            200000035062 
FT1A	031615 035062 0   0   0            0            0            
FT9	031616 035062 0   0   0            0            0            
ET0	031616 035062 0   0   0            0            0            
ST1	031616 035062 0   0   0            0            0            
ST2	031616 035062 0   0   0            0            0            
ST9	031616 035062 0   0   0            0            0            


*031616 MOVS 	0,035102
INITIAL
C(AC)=000000 000000 
C(E)=000000 000100 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031616 031616 0   0   204000035102 0            000000000100 
IT1	031616 0      0   0   204000035102 0            000000000100 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 142
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0358

AT3	031616 0      0   0   000000035102 0            204000035102 
AT6	031616 035102 0   0   000000035102 0            204000035102 
FT0	031616 035102 0   0   000000000100 0            204000035102 
FT1A	031616 035102 0   0   000000000100 0            000000000100 
FT9	031617 035102 0   0   000000000100 0            000000000100 
ET0	031617 035102 0   0   000100000000 0            000000000100 
ST1	031617 035102 0   0   000100000000 0            000000000100 
ST2	031617 035102 0   0   000100000000 0            000000000100 
ST9	031617 035102 0   0   000100000000 0            000000000100 


*031617 SKIPN	0,000000
INITIAL
C(AC)=000100 000000 
C(E)=000100 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031617 031617 0   0   336000000000 0            000100000000 
IT1	031617 0      0   0   336000000000 0            000100000000 
AT3	031617 0      0   0   0            0            336000000000 
AT6	031617 0      0   0   0            0            336000000000 
FT0	031617 0      0   0   000100000000 0            336000000000 
FT1A	031617 0      0   0   000100000000 0            000100000000 
FT9	031620 0      0   0   000100000000 0            000100000000 
ET0	031621 0      0   0   000100000000 0            000100000000 
ST1A	031621 0      0   0   000100000000 0            000100000000 
ST9	031621 0      0   0   000100000000 0            000100000000 


*031621 JUMPA	0,031622
INITIAL
C(AC)=000100 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031621 031621 0   0   324000031622 0            000000031622 
IT1	031621 0      0   0   324000031622 0            000000031622 
AT3	031621 0      0   0   000000031622 0            324000031622 
AT6	031621 031622 0   0   000000031622 0            324000031622 
FT1A	031621 031622 0   0   000000031622 0            000000031622 
FT2	031621 031622 0   0   0            0            000000031622 
FT2RQ	031621 031622 0   0   000100000000 0            000000031622 
FT3	031621 031622 0   0   000100000000 0            000000031622 
FT9	031622 031622 0   0   000100000000 0            000000031622 
ET0	031622 031622 0   0   000100000000 0            000000031622 
ST1A	031622 031622 0   0   000100000000 0            000000031622 
ST9	031622 031622 0   0   000100000000 0            000000031622 


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

*031622 MOVE 	0,035062
INITIAL
C(AC)=000100 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031622 031622 0   0   200000035062 0            0            
IT1	031622 0      0   0   200000035062 0            0            
AT3	031622 0      0   0   000000035062 0            200000035062 
AT6	031622 035062 0   0   000000035062 0            200000035062 
FT0	031622 035062 0   0   0            0            200000035062 
FT1A	031622 035062 0   0   0            0            0            
FT9	031623 035062 0   0   0            0            0            
ET0	031623 035062 0   0   0            0            0            
ST1	031623 035062 0   0   0            0            0            
ST2	031623 035062 0   0   0            0            0            
ST9	031623 035062 0   0   0            0            0            


*031623 MOVS 	0,035103
INITIAL
C(AC)=000000 000000 
C(E)=000000 000200 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031623 031623 0   0   204000035103 0            000000000200 
IT1	031623 0      0   0   204000035103 0            000000000200 
AT3	031623 0      0   0   000000035103 0            204000035103 
AT6	031623 035103 0   0   000000035103 0            204000035103 
FT0	031623 035103 0   0   000000000200 0            204000035103 
FT1A	031623 035103 0   0   000000000200 0            000000000200 
FT9	031624 035103 0   0   000000000200 0            000000000200 
ET0	031624 035103 0   0   000200000000 0            000000000200 
ST1	031624 035103 0   0   000200000000 0            000000000200 
ST2	031624 035103 0   0   000200000000 0            000000000200 
ST9	031624 035103 0   0   000200000000 0            000000000200 


*031624 SKIPN	0,000000
INITIAL
C(AC)=000200 000000 
C(E)=000200 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031624 031624 0   0   336000000000 0            000200000000 
IT1	031624 0      0   0   336000000000 0            000200000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 144
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0360

AT3	031624 0      0   0   0            0            336000000000 
AT6	031624 0      0   0   0            0            336000000000 
FT0	031624 0      0   0   000200000000 0            336000000000 
FT1A	031624 0      0   0   000200000000 0            000200000000 
FT9	031625 0      0   0   000200000000 0            000200000000 
ET0	031626 0      0   0   000200000000 0            000200000000 
ST1A	031626 0      0   0   000200000000 0            000200000000 
ST9	031626 0      0   0   000200000000 0            000200000000 


*031626 JUMPA	0,031627
INITIAL
C(AC)=000200 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031626 031626 0   0   324000031627 0            000000031627 
IT1	031626 0      0   0   324000031627 0            000000031627 
AT3	031626 0      0   0   000000031627 0            324000031627 
AT6	031626 031627 0   0   000000031627 0            324000031627 
FT1A	031626 031627 0   0   000000031627 0            000000031627 
FT2	031626 031627 0   0   0            0            000000031627 
FT2RQ	031626 031627 0   0   000200000000 0            000000031627 
FT3	031626 031627 0   0   000200000000 0            000000031627 
FT9	031627 031627 0   0   000200000000 0            000000031627 
ET0	031627 031627 0   0   000200000000 0            000000031627 
ST1A	031627 031627 0   0   000200000000 0            000000031627 
ST9	031627 031627 0   0   000200000000 0            000000031627 


*031627 MOVE 	0,035062
INITIAL
C(AC)=000200 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031627 031627 0   0   200000035062 0            0            
IT1	031627 0      0   0   200000035062 0            0            
AT3	031627 0      0   0   000000035062 0            200000035062 
AT6	031627 035062 0   0   000000035062 0            200000035062 
FT0	031627 035062 0   0   0            0            200000035062 
FT1A	031627 035062 0   0   0            0            0            
FT9	031630 035062 0   0   0            0            0            
ET0	031630 035062 0   0   0            0            0            
ST1	031630 035062 0   0   0            0            0            
ST2	031630 035062 0   0   0            0            0            
ST9	031630 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 145
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0361

*031630 MOVS 	0,035104
INITIAL
C(AC)=000000 000000 
C(E)=000000 000400 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031630 031630 0   0   204000035104 0            000000000400 
IT1	031630 0      0   0   204000035104 0            000000000400 
AT3	031630 0      0   0   000000035104 0            204000035104 
AT6	031630 035104 0   0   000000035104 0            204000035104 
FT0	031630 035104 0   0   000000000400 0            204000035104 
FT1A	031630 035104 0   0   000000000400 0            000000000400 
FT9	031631 035104 0   0   000000000400 0            000000000400 
ET0	031631 035104 0   0   000400000000 0            000000000400 
ST1	031631 035104 0   0   000400000000 0            000000000400 
ST2	031631 035104 0   0   000400000000 0            000000000400 
ST9	031631 035104 0   0   000400000000 0            000000000400 


*031631 SKIPN	0,000000
INITIAL
C(AC)=000400 000000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031631 031631 0   0   336000000000 0            000400000000 
IT1	031631 0      0   0   336000000000 0            000400000000 
AT3	031631 0      0   0   0            0            336000000000 
AT6	031631 0      0   0   0            0            336000000000 
FT0	031631 0      0   0   000400000000 0            336000000000 
FT1A	031631 0      0   0   000400000000 0            000400000000 
FT9	031632 0      0   0   000400000000 0            000400000000 
ET0	031633 0      0   0   000400000000 0            000400000000 
ST1A	031633 0      0   0   000400000000 0            000400000000 
ST9	031633 0      0   0   000400000000 0            000400000000 


*031633 JUMPA	0,031634
INITIAL
C(AC)=000400 000000 
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 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 146
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0362

FT1A	031633 031634 0   0   000000031634 0            000000031634 
FT2	031633 031634 0   0   0            0            000000031634 
FT2RQ	031633 031634 0   0   000400000000 0            000000031634 
FT3	031633 031634 0   0   000400000000 0            000000031634 
FT9	031634 031634 0   0   000400000000 0            000000031634 
ET0	031634 031634 0   0   000400000000 0            000000031634 
ST1A	031634 031634 0   0   000400000000 0            000000031634 
ST9	031634 031634 0   0   000400000000 0            000000031634 


*031634 MOVE 	0,035062
INITIAL
C(AC)=000400 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031634 031634 0   0   200000035062 0            0            
IT1	031634 0      0   0   200000035062 0            0            
AT3	031634 0      0   0   000000035062 0            200000035062 
AT6	031634 035062 0   0   000000035062 0            200000035062 
FT0	031634 035062 0   0   0            0            200000035062 
FT1A	031634 035062 0   0   0            0            0            
FT9	031635 035062 0   0   0            0            0            
ET0	031635 035062 0   0   0            0            0            
ST1	031635 035062 0   0   0            0            0            
ST2	031635 035062 0   0   0            0            0            
ST9	031635 035062 0   0   0            0            0            


*031635 MOVS 	0,035105
INITIAL
C(AC)=000000 000000 
C(E)=000000 001000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031635 031635 0   0   204000035105 0            000000001000 
IT1	031635 0      0   0   204000035105 0            000000001000 
AT3	031635 0      0   0   000000035105 0            204000035105 
AT6	031635 035105 0   0   000000035105 0            204000035105 
FT0	031635 035105 0   0   000000001000 0            204000035105 
FT1A	031635 035105 0   0   000000001000 0            000000001000 
FT9	031636 035105 0   0   000000001000 0            000000001000 
ET0	031636 035105 0   0   001000000000 0            000000001000 
ST1	031636 035105 0   0   001000000000 0            000000001000 
ST2	031636 035105 0   0   001000000000 0            000000001000 
ST9	031636 035105 0   0   001000000000 0            000000001000 


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

*031636 SKIPN	0,000000
INITIAL
C(AC)=001000 000000 
C(E)=001000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031636 031636 0   0   336000000000 0            001000000000 
IT1	031636 0      0   0   336000000000 0            001000000000 
AT3	031636 0      0   0   0            0            336000000000 
AT6	031636 0      0   0   0            0            336000000000 
FT0	031636 0      0   0   001000000000 0            336000000000 
FT1A	031636 0      0   0   001000000000 0            001000000000 
FT9	031637 0      0   0   001000000000 0            001000000000 
ET0	031640 0      0   0   001000000000 0            001000000000 
ST1A	031640 0      0   0   001000000000 0            001000000000 
ST9	031640 0      0   0   001000000000 0            001000000000 


*031640 JUMPA	0,031641
INITIAL
C(AC)=001000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031640 031640 0   0   324000031641 0            000000031641 
IT1	031640 0      0   0   324000031641 0            000000031641 
AT3	031640 0      0   0   000000031641 0            324000031641 
AT6	031640 031641 0   0   000000031641 0            324000031641 
FT1A	031640 031641 0   0   000000031641 0            000000031641 
FT2	031640 031641 0   0   0            0            000000031641 
FT2RQ	031640 031641 0   0   001000000000 0            000000031641 
FT3	031640 031641 0   0   001000000000 0            000000031641 
FT9	031641 031641 0   0   001000000000 0            000000031641 
ET0	031641 031641 0   0   001000000000 0            000000031641 
ST1A	031641 031641 0   0   001000000000 0            000000031641 
ST9	031641 031641 0   0   001000000000 0            000000031641 


*031641 MOVE 	0,035062
INITIAL
C(AC)=001000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031641 031641 0   0   200000035062 0            0            
IT1	031641 0      0   0   200000035062 0            0            
AT3	031641 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 148
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0364

AT6	031641 035062 0   0   000000035062 0            200000035062 
FT0	031641 035062 0   0   0            0            200000035062 
FT1A	031641 035062 0   0   0            0            0            
FT9	031642 035062 0   0   0            0            0            
ET0	031642 035062 0   0   0            0            0            
ST1	031642 035062 0   0   0            0            0            
ST2	031642 035062 0   0   0            0            0            
ST9	031642 035062 0   0   0            0            0            


*031642 MOVS 	0,035106
INITIAL
C(AC)=000000 000000 
C(E)=000000 002000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031642 031642 0   0   204000035106 0            000000002000 
IT1	031642 0      0   0   204000035106 0            000000002000 
AT3	031642 0      0   0   000000035106 0            204000035106 
AT6	031642 035106 0   0   000000035106 0            204000035106 
FT0	031642 035106 0   0   000000002000 0            204000035106 
FT1A	031642 035106 0   0   000000002000 0            000000002000 
FT9	031643 035106 0   0   000000002000 0            000000002000 
ET0	031643 035106 0   0   002000000000 0            000000002000 
ST1	031643 035106 0   0   002000000000 0            000000002000 
ST2	031643 035106 0   0   002000000000 0            000000002000 
ST9	031643 035106 0   0   002000000000 0            000000002000 


*031643 SKIPN	0,000000
INITIAL
C(AC)=002000 000000 
C(E)=002000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031643 031643 0   0   336000000000 0            002000000000 
IT1	031643 0      0   0   336000000000 0            002000000000 
AT3	031643 0      0   0   0            0            336000000000 
AT6	031643 0      0   0   0            0            336000000000 
FT0	031643 0      0   0   002000000000 0            336000000000 
FT1A	031643 0      0   0   002000000000 0            002000000000 
FT9	031644 0      0   0   002000000000 0            002000000000 
ET0	031645 0      0   0   002000000000 0            002000000000 
ST1A	031645 0      0   0   002000000000 0            002000000000 
ST9	031645 0      0   0   002000000000 0            002000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 149
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0365

*031645 JUMPA	0,031646
INITIAL
C(AC)=002000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031645 031645 0   0   324000031646 0            000000031646 
IT1	031645 0      0   0   324000031646 0            000000031646 
AT3	031645 0      0   0   000000031646 0            324000031646 
AT6	031645 031646 0   0   000000031646 0            324000031646 
FT1A	031645 031646 0   0   000000031646 0            000000031646 
FT2	031645 031646 0   0   0            0            000000031646 
FT2RQ	031645 031646 0   0   002000000000 0            000000031646 
FT3	031645 031646 0   0   002000000000 0            000000031646 
FT9	031646 031646 0   0   002000000000 0            000000031646 
ET0	031646 031646 0   0   002000000000 0            000000031646 
ST1A	031646 031646 0   0   002000000000 0            000000031646 
ST9	031646 031646 0   0   002000000000 0            000000031646 


*031646 MOVE 	0,035062
INITIAL
C(AC)=002000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031646 031646 0   0   200000035062 0            0            
IT1	031646 0      0   0   200000035062 0            0            
AT3	031646 0      0   0   000000035062 0            200000035062 
AT6	031646 035062 0   0   000000035062 0            200000035062 
FT0	031646 035062 0   0   0            0            200000035062 
FT1A	031646 035062 0   0   0            0            0            
FT9	031647 035062 0   0   0            0            0            
ET0	031647 035062 0   0   0            0            0            
ST1	031647 035062 0   0   0            0            0            
ST2	031647 035062 0   0   0            0            0            
ST9	031647 035062 0   0   0            0            0            


*031647 MOVS 	0,035107
INITIAL
C(AC)=000000 000000 
C(E)=000000 004000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031647 031647 0   0   204000035107 0            000000004000 
IT1	031647 0      0   0   204000035107 0            000000004000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 150
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0366

AT3	031647 0      0   0   000000035107 0            204000035107 
AT6	031647 035107 0   0   000000035107 0            204000035107 
FT0	031647 035107 0   0   000000004000 0            204000035107 
FT1A	031647 035107 0   0   000000004000 0            000000004000 
FT9	031650 035107 0   0   000000004000 0            000000004000 
ET0	031650 035107 0   0   004000000000 0            000000004000 
ST1	031650 035107 0   0   004000000000 0            000000004000 
ST2	031650 035107 0   0   004000000000 0            000000004000 
ST9	031650 035107 0   0   004000000000 0            000000004000 


*031650 SKIPN	0,000000
INITIAL
C(AC)=004000 000000 
C(E)=004000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031650 031650 0   0   336000000000 0            004000000000 
IT1	031650 0      0   0   336000000000 0            004000000000 
AT3	031650 0      0   0   0            0            336000000000 
AT6	031650 0      0   0   0            0            336000000000 
FT0	031650 0      0   0   004000000000 0            336000000000 
FT1A	031650 0      0   0   004000000000 0            004000000000 
FT9	031651 0      0   0   004000000000 0            004000000000 
ET0	031652 0      0   0   004000000000 0            004000000000 
ST1A	031652 0      0   0   004000000000 0            004000000000 
ST9	031652 0      0   0   004000000000 0            004000000000 


*031652 JUMPA	0,031653
INITIAL
C(AC)=004000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031652 031652 0   0   324000031653 0            000000031653 
IT1	031652 0      0   0   324000031653 0            000000031653 
AT3	031652 0      0   0   000000031653 0            324000031653 
AT6	031652 031653 0   0   000000031653 0            324000031653 
FT1A	031652 031653 0   0   000000031653 0            000000031653 
FT2	031652 031653 0   0   0            0            000000031653 
FT2RQ	031652 031653 0   0   004000000000 0            000000031653 
FT3	031652 031653 0   0   004000000000 0            000000031653 
FT9	031653 031653 0   0   004000000000 0            000000031653 
ET0	031653 031653 0   0   004000000000 0            000000031653 
ST1A	031653 031653 0   0   004000000000 0            000000031653 
ST9	031653 031653 0   0   004000000000 0            000000031653 


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

*031653 MOVE 	0,035062
INITIAL
C(AC)=004000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031653 031653 0   0   200000035062 0            0            
IT1	031653 0      0   0   200000035062 0            0            
AT3	031653 0      0   0   000000035062 0            200000035062 
AT6	031653 035062 0   0   000000035062 0            200000035062 
FT0	031653 035062 0   0   0            0            200000035062 
FT1A	031653 035062 0   0   0            0            0            
FT9	031654 035062 0   0   0            0            0            
ET0	031654 035062 0   0   0            0            0            
ST1	031654 035062 0   0   0            0            0            
ST2	031654 035062 0   0   0            0            0            
ST9	031654 035062 0   0   0            0            0            


*031654 MOVS 	0,035110
INITIAL
C(AC)=000000 000000 
C(E)=000000 010000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031654 031654 0   0   204000035110 0            000000010000 
IT1	031654 0      0   0   204000035110 0            000000010000 
AT3	031654 0      0   0   000000035110 0            204000035110 
AT6	031654 035110 0   0   000000035110 0            204000035110 
FT0	031654 035110 0   0   000000010000 0            204000035110 
FT1A	031654 035110 0   0   000000010000 0            000000010000 
FT9	031655 035110 0   0   000000010000 0            000000010000 
ET0	031655 035110 0   0   010000000000 0            000000010000 
ST1	031655 035110 0   0   010000000000 0            000000010000 
ST2	031655 035110 0   0   010000000000 0            000000010000 
ST9	031655 035110 0   0   010000000000 0            000000010000 


*031655 SKIPN	0,000000
INITIAL
C(AC)=010000 000000 
C(E)=010000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031655 031655 0   0   336000000000 0            010000000000 
IT1	031655 0      0   0   336000000000 0            010000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 152
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0368

AT3	031655 0      0   0   0            0            336000000000 
AT6	031655 0      0   0   0            0            336000000000 
FT0	031655 0      0   0   010000000000 0            336000000000 
FT1A	031655 0      0   0   010000000000 0            010000000000 
FT9	031656 0      0   0   010000000000 0            010000000000 
ET0	031657 0      0   0   010000000000 0            010000000000 
ST1A	031657 0      0   0   010000000000 0            010000000000 
ST9	031657 0      0   0   010000000000 0            010000000000 


*031657 JUMPA	0,031660
INITIAL
C(AC)=010000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031657 031657 0   0   324000031660 0            000000031660 
IT1	031657 0      0   0   324000031660 0            000000031660 
AT3	031657 0      0   0   000000031660 0            324000031660 
AT6	031657 031660 0   0   000000031660 0            324000031660 
FT1A	031657 031660 0   0   000000031660 0            000000031660 
FT2	031657 031660 0   0   0            0            000000031660 
FT2RQ	031657 031660 0   0   010000000000 0            000000031660 
FT3	031657 031660 0   0   010000000000 0            000000031660 
FT9	031660 031660 0   0   010000000000 0            000000031660 
ET0	031660 031660 0   0   010000000000 0            000000031660 
ST1A	031660 031660 0   0   010000000000 0            000000031660 
ST9	031660 031660 0   0   010000000000 0            000000031660 


*031660 MOVE 	0,035062
INITIAL
C(AC)=010000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031660 031660 0   0   200000035062 0            0            
IT1	031660 0      0   0   200000035062 0            0            
AT3	031660 0      0   0   000000035062 0            200000035062 
AT6	031660 035062 0   0   000000035062 0            200000035062 
FT0	031660 035062 0   0   0            0            200000035062 
FT1A	031660 035062 0   0   0            0            0            
FT9	031661 035062 0   0   0            0            0            
ET0	031661 035062 0   0   0            0            0            
ST1	031661 035062 0   0   0            0            0            
ST2	031661 035062 0   0   0            0            0            
ST9	031661 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 153
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0369

*031661 MOVS 	0,035111
INITIAL
C(AC)=000000 000000 
C(E)=000000 020000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031661 031661 0   0   204000035111 0            000000020000 
IT1	031661 0      0   0   204000035111 0            000000020000 
AT3	031661 0      0   0   000000035111 0            204000035111 
AT6	031661 035111 0   0   000000035111 0            204000035111 
FT0	031661 035111 0   0   000000020000 0            204000035111 
FT1A	031661 035111 0   0   000000020000 0            000000020000 
FT9	031662 035111 0   0   000000020000 0            000000020000 
ET0	031662 035111 0   0   020000000000 0            000000020000 
ST1	031662 035111 0   0   020000000000 0            000000020000 
ST2	031662 035111 0   0   020000000000 0            000000020000 
ST9	031662 035111 0   0   020000000000 0            000000020000 


*031662 SKIPN	0,000000
INITIAL
C(AC)=020000 000000 
C(E)=020000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031662 031662 0   0   336000000000 0            020000000000 
IT1	031662 0      0   0   336000000000 0            020000000000 
AT3	031662 0      0   0   0            0            336000000000 
AT6	031662 0      0   0   0            0            336000000000 
FT0	031662 0      0   0   020000000000 0            336000000000 
FT1A	031662 0      0   0   020000000000 0            020000000000 
FT9	031663 0      0   0   020000000000 0            020000000000 
ET0	031664 0      0   0   020000000000 0            020000000000 
ST1A	031664 0      0   0   020000000000 0            020000000000 
ST9	031664 0      0   0   020000000000 0            020000000000 


*031664 JUMPA	0,031665
INITIAL
C(AC)=020000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031664 031664 0   0   324000031665 0            000000031665 
IT1	031664 0      0   0   324000031665 0            000000031665 
AT3	031664 0      0   0   000000031665 0            324000031665 
AT6	031664 031665 0   0   000000031665 0            324000031665 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 154
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0370

FT1A	031664 031665 0   0   000000031665 0            000000031665 
FT2	031664 031665 0   0   0            0            000000031665 
FT2RQ	031664 031665 0   0   020000000000 0            000000031665 
FT3	031664 031665 0   0   020000000000 0            000000031665 
FT9	031665 031665 0   0   020000000000 0            000000031665 
ET0	031665 031665 0   0   020000000000 0            000000031665 
ST1A	031665 031665 0   0   020000000000 0            000000031665 
ST9	031665 031665 0   0   020000000000 0            000000031665 


*031665 MOVE 	0,035062
INITIAL
C(AC)=020000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031665 031665 0   0   200000035062 0            0            
IT1	031665 0      0   0   200000035062 0            0            
AT3	031665 0      0   0   000000035062 0            200000035062 
AT6	031665 035062 0   0   000000035062 0            200000035062 
FT0	031665 035062 0   0   0            0            200000035062 
FT1A	031665 035062 0   0   0            0            0            
FT9	031666 035062 0   0   0            0            0            
ET0	031666 035062 0   0   0            0            0            
ST1	031666 035062 0   0   0            0            0            
ST2	031666 035062 0   0   0            0            0            
ST9	031666 035062 0   0   0            0            0            


*031666 MOVS 	0,035112
INITIAL
C(AC)=000000 000000 
C(E)=000000 040000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031666 031666 0   0   204000035112 0            000000040000 
IT1	031666 0      0   0   204000035112 0            000000040000 
AT3	031666 0      0   0   000000035112 0            204000035112 
AT6	031666 035112 0   0   000000035112 0            204000035112 
FT0	031666 035112 0   0   000000040000 0            204000035112 
FT1A	031666 035112 0   0   000000040000 0            000000040000 
FT9	031667 035112 0   0   000000040000 0            000000040000 
ET0	031667 035112 0   0   040000000000 0            000000040000 
ST1	031667 035112 0   0   040000000000 0            000000040000 
ST2	031667 035112 0   0   040000000000 0            000000040000 
ST9	031667 035112 0   0   040000000000 0            000000040000 


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

*031667 SKIPN	0,000000
INITIAL
C(AC)=040000 000000 
C(E)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031667 031667 0   0   336000000000 0            040000000000 
IT1	031667 0      0   0   336000000000 0            040000000000 
AT3	031667 0      0   0   0            0            336000000000 
AT6	031667 0      0   0   0            0            336000000000 
FT0	031667 0      0   0   040000000000 0            336000000000 
FT1A	031667 0      0   0   040000000000 0            040000000000 
FT9	031670 0      0   0   040000000000 0            040000000000 
ET0	031671 0      0   0   040000000000 0            040000000000 
ST1A	031671 0      0   0   040000000000 0            040000000000 
ST9	031671 0      0   0   040000000000 0            040000000000 


*031671 JUMPA	0,031672
INITIAL
C(AC)=040000 000000 
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   040000000000 0            000000031672 
FT3	031671 031672 0   0   040000000000 0            000000031672 
FT9	031672 031672 0   0   040000000000 0            000000031672 
ET0	031672 031672 0   0   040000000000 0            000000031672 
ST1A	031672 031672 0   0   040000000000 0            000000031672 
ST9	031672 031672 0   0   040000000000 0            000000031672 


*031672 MOVE 	0,035062
INITIAL
C(AC)=040000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031672 031672 0   0   200000035062 0            0            
IT1	031672 0      0   0   200000035062 0            0            
AT3	031672 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 156
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0372

AT6	031672 035062 0   0   000000035062 0            200000035062 
FT0	031672 035062 0   0   0            0            200000035062 
FT1A	031672 035062 0   0   0            0            0            
FT9	031673 035062 0   0   0            0            0            
ET0	031673 035062 0   0   0            0            0            
ST1	031673 035062 0   0   0            0            0            
ST2	031673 035062 0   0   0            0            0            
ST9	031673 035062 0   0   0            0            0            


*031673 MOVS 	0,035113
INITIAL
C(AC)=000000 000000 
C(E)=000000 100000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031673 031673 0   0   204000035113 0            000000100000 
IT1	031673 0      0   0   204000035113 0            000000100000 
AT3	031673 0      0   0   000000035113 0            204000035113 
AT6	031673 035113 0   0   000000035113 0            204000035113 
FT0	031673 035113 0   0   000000100000 0            204000035113 
FT1A	031673 035113 0   0   000000100000 0            000000100000 
FT9	031674 035113 0   0   000000100000 0            000000100000 
ET0	031674 035113 0   0   100000000000 0            000000100000 
ST1	031674 035113 0   0   100000000000 0            000000100000 
ST2	031674 035113 0   0   100000000000 0            000000100000 
ST9	031674 035113 0   0   100000000000 0            000000100000 


*031674 SKIPN	0,000000
INITIAL
C(AC)=100000 000000 
C(E)=100000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031674 031674 0   0   336000000000 0            100000000000 
IT1	031674 0      0   0   336000000000 0            100000000000 
AT3	031674 0      0   0   0            0            336000000000 
AT6	031674 0      0   0   0            0            336000000000 
FT0	031674 0      0   0   100000000000 0            336000000000 
FT1A	031674 0      0   0   100000000000 0            100000000000 
FT9	031675 0      0   0   100000000000 0            100000000000 
ET0	031676 0      0   0   100000000000 0            100000000000 
ST1A	031676 0      0   0   100000000000 0            100000000000 
ST9	031676 0      0   0   100000000000 0            100000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 157
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0373

*031676 JUMPA	0,031677
INITIAL
C(AC)=100000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031676 031676 0   0   324000031677 0            000000031677 
IT1	031676 0      0   0   324000031677 0            000000031677 
AT3	031676 0      0   0   000000031677 0            324000031677 
AT6	031676 031677 0   0   000000031677 0            324000031677 
FT1A	031676 031677 0   0   000000031677 0            000000031677 
FT2	031676 031677 0   0   0            0            000000031677 
FT2RQ	031676 031677 0   0   100000000000 0            000000031677 
FT3	031676 031677 0   0   100000000000 0            000000031677 
FT9	031677 031677 0   0   100000000000 0            000000031677 
ET0	031677 031677 0   0   100000000000 0            000000031677 
ST1A	031677 031677 0   0   100000000000 0            000000031677 
ST9	031677 031677 0   0   100000000000 0            000000031677 


*031677 MOVE 	0,035062
INITIAL
C(AC)=100000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031677 031677 0   0   200000035062 0            0            
IT1	031677 0      0   0   200000035062 0            0            
AT3	031677 0      0   0   000000035062 0            200000035062 
AT6	031677 035062 0   0   000000035062 0            200000035062 
FT0	031677 035062 0   0   0            0            200000035062 
FT1A	031677 035062 0   0   0            0            0            
FT9	0      035062 0   0   0            0            0            
ET0	0      035062 0   0   0            0            0            
ST1	0      035062 0   0   0            0            0            
ST2	0      035062 0   0   0            0            0            
ST9	0      035062 0   0   0            0            0            


*031700 MOVS 	0,035114
INITIAL
C(AC)=000000 000000 
C(E)=000000 200000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   204000035114 0            000000200000 
IT1	0      0      0   0   204000035114 0            000000200000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 158
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0374

AT3	0      0      0   0   000000035114 0            204000035114 
AT6	0      035114 0   0   000000035114 0            204000035114 
FT0	0      035114 0   0   000000200000 0            204000035114 
FT1A	0      035114 0   0   000000200000 0            000000200000 
FT9	031701 035114 0   0   000000200000 0            000000200000 
ET0	031701 035114 0   0   200000000000 0            000000200000 
ST1	031701 035114 0   0   200000000000 0            000000200000 
ST2	031701 035114 0   0   200000000000 0            000000200000 
ST9	031701 035114 0   0   200000000000 0            000000200000 


*031701 SKIPN	0,000000
INITIAL
C(AC)=200000 000000 
C(E)=200000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031701 031701 0   0   336000000000 0            200000000000 
IT1	031701 0      0   0   336000000000 0            200000000000 
AT3	031701 0      0   0   0            0            336000000000 
AT6	031701 0      0   0   0            0            336000000000 
FT0	031701 0      0   0   200000000000 0            336000000000 
FT1A	031701 0      0   0   200000000000 0            200000000000 
FT9	031702 0      0   0   200000000000 0            200000000000 
ET0	031703 0      0   0   200000000000 0            200000000000 
ST1A	031703 0      0   0   200000000000 0            200000000000 
ST9	031703 0      0   0   200000000000 0            200000000000 


*031703 JUMPA	0,031704
INITIAL
C(AC)=200000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031703 031703 0   0   324000031704 0            000000031704 
IT1	031703 0      0   0   324000031704 0            000000031704 
AT3	031703 0      0   0   000000031704 0            324000031704 
AT6	031703 031704 0   0   000000031704 0            324000031704 
FT1A	031703 031704 0   0   000000031704 0            000000031704 
FT2	031703 031704 0   0   0            0            000000031704 
FT2RQ	031703 031704 0   0   200000000000 0            000000031704 
FT3	031703 031704 0   0   200000000000 0            000000031704 
FT9	031704 031704 0   0   200000000000 0            000000031704 
ET0	031704 031704 0   0   200000000000 0            000000031704 
ST1A	031704 031704 0   0   200000000000 0            000000031704 
ST9	031704 031704 0   0   200000000000 0            000000031704 


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

*031704 MOVE 	0,035062
INITIAL
C(AC)=200000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031704 031704 0   0   200000035062 0            0            
IT1	031704 0      0   0   200000035062 0            0            
AT3	031704 0      0   0   000000035062 0            200000035062 
AT6	031704 035062 0   0   000000035062 0            200000035062 
FT0	031704 035062 0   0   0            0            200000035062 
FT1A	031704 035062 0   0   0            0            0            
FT9	031705 035062 0   0   0            0            0            
ET0	031705 035062 0   0   0            0            0            
ST1	031705 035062 0   0   0            0            0            
ST2	031705 035062 0   0   0            0            0            
ST9	031705 035062 0   0   0            0            0            


*031705 MOVS 	0,035115
INITIAL
C(AC)=000000 000000 
C(E)=000000 400000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031705 031705 0   0   204000035115 0            000000400000 
IT1	031705 0      0   0   204000035115 0            000000400000 
AT3	031705 0      0   0   000000035115 0            204000035115 
AT6	031705 035115 0   0   000000035115 0            204000035115 
FT0	031705 035115 0   0   000000400000 0            204000035115 
FT1A	031705 035115 0   0   000000400000 0            000000400000 
FT9	031706 035115 0   0   000000400000 0            000000400000 
ET0	031706 035115 0   0   400000000000 0            000000400000 
ST1	031706 035115 0   0   400000000000 0            000000400000 
ST2	031706 035115 0   0   400000000000 0            000000400000 
ST9	031706 035115 0   0   400000000000 0            000000400000 


*031706 SKIPN	0,000000
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031706 031706 0   0   336000000000 0            400000000000 
IT1	031706 0      0   0   336000000000 0            400000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 160
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0376

AT3	031706 0      0   0   0            0            336000000000 
AT6	031706 0      0   0   0            0            336000000000 
FT0	031706 0      0   0   400000000000 0            336000000000 
FT1A	031706 0      0   0   400000000000 0            400000000000 
FT9	031707 0      0   0   400000000000 0            400000000000 
ET0	031710 0      0   0   400000000000 0            400000000000 
ST1A	031710 0      0   0   400000000000 0            400000000000 
ST9	031710 0      0   0   400000000000 0            400000000000 


*031710 JUMPA	0,031711
INITIAL
C(AC)=400000 000000 
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   400000000000 0            000000031711 
FT3	031710 031711 0   0   400000000000 0            000000031711 
FT9	031711 031711 0   0   400000000000 0            000000031711 
ET0	031711 031711 0   0   400000000000 0            000000031711 
ST1A	031711 031711 0   0   400000000000 0            000000031711 
ST9	031711 031711 0   0   400000000000 0            000000031711 


*031711 MOVE 	0,035062
INITIAL
C(AC)=400000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031711 031711 0   0   200000035062 0            0            
IT1	031711 0      0   0   200000035062 0            0            
AT3	031711 0      0   0   000000035062 0            200000035062 
AT6	031711 035062 0   0   000000035062 0            200000035062 
FT0	031711 035062 0   0   0            0            200000035062 
FT1A	031711 035062 0   0   0            0            0            
FT9	031712 035062 0   0   0            0            0            
ET0	031712 035062 0   0   0            0            0            
ST1	031712 035062 0   0   0            0            0            
ST2	031712 035062 0   0   0            0            0            
ST9	031712 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 161
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0377

*031712 MOVS 	0,035116
INITIAL
C(AC)=000000 000000 
C(E)=000001 000000 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031712 031712 0   0   204000035116 0            000001000000 
IT1	031712 0      0   0   204000035116 0            000001000000 
AT3	031712 0      0   0   000000035116 0            204000035116 
AT6	031712 035116 0   0   000000035116 0            204000035116 
FT0	031712 035116 0   0   000001000000 0            204000035116 
FT1A	031712 035116 0   0   000001000000 0            000001000000 
FT9	031713 035116 0   0   000001000000 0            000001000000 
ET0	031713 035116 0   0   000000000001 0            000001000000 
ST1	031713 035116 0   0   000000000001 0            000001000000 
ST2	031713 035116 0   0   000000000001 0            000001000000 
ST9	031713 035116 0   0   000000000001 0            000001000000 


*031713 SKIPN	0,000000
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031713 031713 0   0   336000000000 0            000000000001 
IT1	031713 0      0   0   336000000000 0            000000000001 
AT3	031713 0      0   0   0            0            336000000000 
AT6	031713 0      0   0   0            0            336000000000 
FT0	031713 0      0   0   000000000001 0            336000000000 
FT1A	031713 0      0   0   000000000001 0            000000000001 
FT9	031714 0      0   0   000000000001 0            000000000001 
ET0	031715 0      0   0   000000000001 0            000000000001 
ST1A	031715 0      0   0   000000000001 0            000000000001 
ST9	031715 0      0   0   000000000001 0            000000000001 


*031715 JUMPA	0,031716
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031715 031715 0   0   324000031716 0            000000031716 
IT1	031715 0      0   0   324000031716 0            000000031716 
AT3	031715 0      0   0   000000031716 0            324000031716 
AT6	031715 031716 0   0   000000031716 0            324000031716 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 162
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0378

FT1A	031715 031716 0   0   000000031716 0            000000031716 
FT2	031715 031716 0   0   0            0            000000031716 
FT2RQ	031715 031716 0   0   000000000001 0            000000031716 
FT3	031715 031716 0   0   000000000001 0            000000031716 
FT9	031716 031716 0   0   000000000001 0            000000031716 
ET0	031716 031716 0   0   000000000001 0            000000031716 
ST1A	031716 031716 0   0   000000000001 0            000000031716 
ST9	031716 031716 0   0   000000000001 0            000000031716 


*031716 MOVE 	0,035062
INITIAL
C(AC)=000000 000001 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031716 031716 0   0   200000035062 0            0            
IT1	031716 0      0   0   200000035062 0            0            
AT3	031716 0      0   0   000000035062 0            200000035062 
AT6	031716 035062 0   0   000000035062 0            200000035062 
FT0	031716 035062 0   0   0            0            200000035062 
FT1A	031716 035062 0   0   0            0            0            
FT9	031717 035062 0   0   0            0            0            
ET0	031717 035062 0   0   0            0            0            
ST1	031717 035062 0   0   0            0            0            
ST2	031717 035062 0   0   0            0            0            
ST9	031717 035062 0   0   0            0            0            


*031717 MOVS 	0,035117
INITIAL
C(AC)=000000 000000 
C(E)=000002 000000 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031717 031717 0   0   204000035117 0            000002000000 
IT1	031717 0      0   0   204000035117 0            000002000000 
AT3	031717 0      0   0   000000035117 0            204000035117 
AT6	031717 035117 0   0   000000035117 0            204000035117 
FT0	031717 035117 0   0   000002000000 0            204000035117 
FT1A	031717 035117 0   0   000002000000 0            000002000000 
FT9	031720 035117 0   0   000002000000 0            000002000000 
ET0	031720 035117 0   0   000000000002 0            000002000000 
ST1	031720 035117 0   0   000000000002 0            000002000000 
ST2	031720 035117 0   0   000000000002 0            000002000000 
ST9	031720 035117 0   0   000000000002 0            000002000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 163
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0379

*031720 SKIPN	0,000000
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031720 031720 0   0   336000000000 0            000000000002 
IT1	031720 0      0   0   336000000000 0            000000000002 
AT3	031720 0      0   0   0            0            336000000000 
AT6	031720 0      0   0   0            0            336000000000 
FT0	031720 0      0   0   000000000002 0            336000000000 
FT1A	031720 0      0   0   000000000002 0            000000000002 
FT9	031721 0      0   0   000000000002 0            000000000002 
ET0	031722 0      0   0   000000000002 0            000000000002 
ST1A	031722 0      0   0   000000000002 0            000000000002 
ST9	031722 0      0   0   000000000002 0            000000000002 


*031722 JUMPA	0,031723
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031722 031722 0   0   324000031723 0            000000031723 
IT1	031722 0      0   0   324000031723 0            000000031723 
AT3	031722 0      0   0   000000031723 0            324000031723 
AT6	031722 031723 0   0   000000031723 0            324000031723 
FT1A	031722 031723 0   0   000000031723 0            000000031723 
FT2	031722 031723 0   0   0            0            000000031723 
FT2RQ	031722 031723 0   0   000000000002 0            000000031723 
FT3	031722 031723 0   0   000000000002 0            000000031723 
FT9	031723 031723 0   0   000000000002 0            000000031723 
ET0	031723 031723 0   0   000000000002 0            000000031723 
ST1A	031723 031723 0   0   000000000002 0            000000031723 
ST9	031723 031723 0   0   000000000002 0            000000031723 


*031723 MOVE 	0,035062
INITIAL
C(AC)=000000 000002 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031723 031723 0   0   200000035062 0            0            
IT1	031723 0      0   0   200000035062 0            0            
AT3	031723 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 164
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0380

AT6	031723 035062 0   0   000000035062 0            200000035062 
FT0	031723 035062 0   0   0            0            200000035062 
FT1A	031723 035062 0   0   0            0            0            
FT9	031724 035062 0   0   0            0            0            
ET0	031724 035062 0   0   0            0            0            
ST1	031724 035062 0   0   0            0            0            
ST2	031724 035062 0   0   0            0            0            
ST9	031724 035062 0   0   0            0            0            


*031724 MOVS 	0,035120
INITIAL
C(AC)=000000 000000 
C(E)=000004 000000 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031724 031724 0   0   204000035120 0            000004000000 
IT1	031724 0      0   0   204000035120 0            000004000000 
AT3	031724 0      0   0   000000035120 0            204000035120 
AT6	031724 035120 0   0   000000035120 0            204000035120 
FT0	031724 035120 0   0   000004000000 0            204000035120 
FT1A	031724 035120 0   0   000004000000 0            000004000000 
FT9	031725 035120 0   0   000004000000 0            000004000000 
ET0	031725 035120 0   0   000000000004 0            000004000000 
ST1	031725 035120 0   0   000000000004 0            000004000000 
ST2	031725 035120 0   0   000000000004 0            000004000000 
ST9	031725 035120 0   0   000000000004 0            000004000000 


*031725 SKIPN	0,000000
INITIAL
C(AC)=000000 000004 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031725 031725 0   0   336000000000 0            000000000004 
IT1	031725 0      0   0   336000000000 0            000000000004 
AT3	031725 0      0   0   0            0            336000000000 
AT6	031725 0      0   0   0            0            336000000000 
FT0	031725 0      0   0   000000000004 0            336000000000 
FT1A	031725 0      0   0   000000000004 0            000000000004 
FT9	031726 0      0   0   000000000004 0            000000000004 
ET0	031727 0      0   0   000000000004 0            000000000004 
ST1A	031727 0      0   0   000000000004 0            000000000004 
ST9	031727 0      0   0   000000000004 0            000000000004 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 165
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0381

*031727 JUMPA	0,031730
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031727 031727 0   0   324000031730 0            000000031730 
IT1	031727 0      0   0   324000031730 0            000000031730 
AT3	031727 0      0   0   000000031730 0            324000031730 
AT6	031727 031730 0   0   000000031730 0            324000031730 
FT1A	031727 031730 0   0   000000031730 0            000000031730 
FT2	031727 031730 0   0   0            0            000000031730 
FT2RQ	031727 031730 0   0   000000000004 0            000000031730 
FT3	031727 031730 0   0   000000000004 0            000000031730 
FT9	031730 031730 0   0   000000000004 0            000000031730 
ET0	031730 031730 0   0   000000000004 0            000000031730 
ST1A	031730 031730 0   0   000000000004 0            000000031730 
ST9	031730 031730 0   0   000000000004 0            000000031730 


*031730 MOVE 	0,035062
INITIAL
C(AC)=000000 000004 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031730 031730 0   0   200000035062 0            0            
IT1	031730 0      0   0   200000035062 0            0            
AT3	031730 0      0   0   000000035062 0            200000035062 
AT6	031730 035062 0   0   000000035062 0            200000035062 
FT0	031730 035062 0   0   0            0            200000035062 
FT1A	031730 035062 0   0   0            0            0            
FT9	031731 035062 0   0   0            0            0            
ET0	031731 035062 0   0   0            0            0            
ST1	031731 035062 0   0   0            0            0            
ST2	031731 035062 0   0   0            0            0            
ST9	031731 035062 0   0   0            0            0            


*031731 MOVS 	0,035121
INITIAL
C(AC)=000000 000000 
C(E)=000010 000000 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031731 031731 0   0   204000035121 0            000010000000 
IT1	031731 0      0   0   204000035121 0            000010000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 166
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0382

AT3	031731 0      0   0   000000035121 0            204000035121 
AT6	031731 035121 0   0   000000035121 0            204000035121 
FT0	031731 035121 0   0   000010000000 0            204000035121 
FT1A	031731 035121 0   0   000010000000 0            000010000000 
FT9	031732 035121 0   0   000010000000 0            000010000000 
ET0	031732 035121 0   0   000000000010 0            000010000000 
ST1	031732 035121 0   0   000000000010 0            000010000000 
ST2	031732 035121 0   0   000000000010 0            000010000000 
ST9	031732 035121 0   0   000000000010 0            000010000000 


*031732 SKIPN	0,000000
INITIAL
C(AC)=000000 000010 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031732 031732 0   0   336000000000 0            000000000010 
IT1	031732 0      0   0   336000000000 0            000000000010 
AT3	031732 0      0   0   0            0            336000000000 
AT6	031732 0      0   0   0            0            336000000000 
FT0	031732 0      0   0   000000000010 0            336000000000 
FT1A	031732 0      0   0   000000000010 0            000000000010 
FT9	031733 0      0   0   000000000010 0            000000000010 
ET0	031734 0      0   0   000000000010 0            000000000010 
ST1A	031734 0      0   0   000000000010 0            000000000010 
ST9	031734 0      0   0   000000000010 0            000000000010 


*031734 JUMPA	0,031735
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031734 031734 0   0   324000031735 0            000000031735 
IT1	031734 0      0   0   324000031735 0            000000031735 
AT3	031734 0      0   0   000000031735 0            324000031735 
AT6	031734 031735 0   0   000000031735 0            324000031735 
FT1A	031734 031735 0   0   000000031735 0            000000031735 
FT2	031734 031735 0   0   0            0            000000031735 
FT2RQ	031734 031735 0   0   000000000010 0            000000031735 
FT3	031734 031735 0   0   000000000010 0            000000031735 
FT9	031735 031735 0   0   000000000010 0            000000031735 
ET0	031735 031735 0   0   000000000010 0            000000031735 
ST1A	031735 031735 0   0   000000000010 0            000000031735 
ST9	031735 031735 0   0   000000000010 0            000000031735 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 167
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0383

*031735 MOVE 	0,035062
INITIAL
C(AC)=000000 000010 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031735 031735 0   0   200000035062 0            0            
IT1	031735 0      0   0   200000035062 0            0            
AT3	031735 0      0   0   000000035062 0            200000035062 
AT6	031735 035062 0   0   000000035062 0            200000035062 
FT0	031735 035062 0   0   0            0            200000035062 
FT1A	031735 035062 0   0   0            0            0            
FT9	031736 035062 0   0   0            0            0            
ET0	031736 035062 0   0   0            0            0            
ST1	031736 035062 0   0   0            0            0            
ST2	031736 035062 0   0   0            0            0            
ST9	031736 035062 0   0   0            0            0            


*031736 MOVS 	0,035122
INITIAL
C(AC)=000000 000000 
C(E)=000020 000000 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031736 031736 0   0   204000035122 0            000020000000 
IT1	031736 0      0   0   204000035122 0            000020000000 
AT3	031736 0      0   0   000000035122 0            204000035122 
AT6	031736 035122 0   0   000000035122 0            204000035122 
FT0	031736 035122 0   0   000020000000 0            204000035122 
FT1A	031736 035122 0   0   000020000000 0            000020000000 
FT9	031737 035122 0   0   000020000000 0            000020000000 
ET0	031737 035122 0   0   000000000020 0            000020000000 
ST1	031737 035122 0   0   000000000020 0            000020000000 
ST2	031737 035122 0   0   000000000020 0            000020000000 
ST9	031737 035122 0   0   000000000020 0            000020000000 


*031737 SKIPN	0,000000
INITIAL
C(AC)=000000 000020 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031737 031737 0   0   336000000000 0            000000000020 
IT1	031737 0      0   0   336000000000 0            000000000020 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 168
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0384

AT3	031737 0      0   0   0            0            336000000000 
AT6	031737 0      0   0   0            0            336000000000 
FT0	031737 0      0   0   000000000020 0            336000000000 
FT1A	031737 0      0   0   000000000020 0            000000000020 
FT9	031740 0      0   0   000000000020 0            000000000020 
ET0	031741 0      0   0   000000000020 0            000000000020 
ST1A	031741 0      0   0   000000000020 0            000000000020 
ST9	031741 0      0   0   000000000020 0            000000000020 


*031741 JUMPA	0,031742
INITIAL
C(AC)=000000 000020 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031741 031741 0   0   324000031742 0            000000031742 
IT1	031741 0      0   0   324000031742 0            000000031742 
AT3	031741 0      0   0   000000031742 0            324000031742 
AT6	031741 031742 0   0   000000031742 0            324000031742 
FT1A	031741 031742 0   0   000000031742 0            000000031742 
FT2	031741 031742 0   0   0            0            000000031742 
FT2RQ	031741 031742 0   0   000000000020 0            000000031742 
FT3	031741 031742 0   0   000000000020 0            000000031742 
FT9	031742 031742 0   0   000000000020 0            000000031742 
ET0	031742 031742 0   0   000000000020 0            000000031742 
ST1A	031742 031742 0   0   000000000020 0            000000031742 
ST9	031742 031742 0   0   000000000020 0            000000031742 


*031742 MOVE 	0,035062
INITIAL
C(AC)=000000 000020 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031742 031742 0   0   200000035062 0            0            
IT1	031742 0      0   0   200000035062 0            0            
AT3	031742 0      0   0   000000035062 0            200000035062 
AT6	031742 035062 0   0   000000035062 0            200000035062 
FT0	031742 035062 0   0   0            0            200000035062 
FT1A	031742 035062 0   0   0            0            0            
FT9	031743 035062 0   0   0            0            0            
ET0	031743 035062 0   0   0            0            0            
ST1	031743 035062 0   0   0            0            0            
ST2	031743 035062 0   0   0            0            0            
ST9	031743 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 169
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0385

*031743 MOVS 	0,035123
INITIAL
C(AC)=000000 000000 
C(E)=000040 000000 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031743 031743 0   0   204000035123 0            000040000000 
IT1	031743 0      0   0   204000035123 0            000040000000 
AT3	031743 0      0   0   000000035123 0            204000035123 
AT6	031743 035123 0   0   000000035123 0            204000035123 
FT0	031743 035123 0   0   000040000000 0            204000035123 
FT1A	031743 035123 0   0   000040000000 0            000040000000 
FT9	031744 035123 0   0   000040000000 0            000040000000 
ET0	031744 035123 0   0   000000000040 0            000040000000 
ST1	031744 035123 0   0   000000000040 0            000040000000 
ST2	031744 035123 0   0   000000000040 0            000040000000 
ST9	031744 035123 0   0   000000000040 0            000040000000 


*031744 SKIPN	0,000000
INITIAL
C(AC)=000000 000040 
C(E)=000000 000040 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031744 031744 0   0   336000000000 0            000000000040 
IT1	031744 0      0   0   336000000000 0            000000000040 
AT3	031744 0      0   0   0            0            336000000000 
AT6	031744 0      0   0   0            0            336000000000 
FT0	031744 0      0   0   000000000040 0            336000000000 
FT1A	031744 0      0   0   000000000040 0            000000000040 
FT9	031745 0      0   0   000000000040 0            000000000040 
ET0	031746 0      0   0   000000000040 0            000000000040 
ST1A	031746 0      0   0   000000000040 0            000000000040 
ST9	031746 0      0   0   000000000040 0            000000000040 


*031746 JUMPA	0,031747
INITIAL
C(AC)=000000 000040 
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 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 170
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0386

FT1A	031746 031747 0   0   000000031747 0            000000031747 
FT2	031746 031747 0   0   0            0            000000031747 
FT2RQ	031746 031747 0   0   000000000040 0            000000031747 
FT3	031746 031747 0   0   000000000040 0            000000031747 
FT9	031747 031747 0   0   000000000040 0            000000031747 
ET0	031747 031747 0   0   000000000040 0            000000031747 
ST1A	031747 031747 0   0   000000000040 0            000000031747 
ST9	031747 031747 0   0   000000000040 0            000000031747 


*031747 MOVE 	0,035062
INITIAL
C(AC)=000000 000040 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031747 031747 0   0   200000035062 0            0            
IT1	031747 0      0   0   200000035062 0            0            
AT3	031747 0      0   0   000000035062 0            200000035062 
AT6	031747 035062 0   0   000000035062 0            200000035062 
FT0	031747 035062 0   0   0            0            200000035062 
FT1A	031747 035062 0   0   0            0            0            
FT9	031750 035062 0   0   0            0            0            
ET0	031750 035062 0   0   0            0            0            
ST1	031750 035062 0   0   0            0            0            
ST2	031750 035062 0   0   0            0            0            
ST9	031750 035062 0   0   0            0            0            


*031750 MOVS 	0,035124
INITIAL
C(AC)=000000 000000 
C(E)=000100 000000 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031750 031750 0   0   204000035124 0            000100000000 
IT1	031750 0      0   0   204000035124 0            000100000000 
AT3	031750 0      0   0   000000035124 0            204000035124 
AT6	031750 035124 0   0   000000035124 0            204000035124 
FT0	031750 035124 0   0   000100000000 0            204000035124 
FT1A	031750 035124 0   0   000100000000 0            000100000000 
FT9	031751 035124 0   0   000100000000 0            000100000000 
ET0	031751 035124 0   0   000000000100 0            000100000000 
ST1	031751 035124 0   0   000000000100 0            000100000000 
ST2	031751 035124 0   0   000000000100 0            000100000000 
ST9	031751 035124 0   0   000000000100 0            000100000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 171
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0387

*031751 SKIPN	0,000000
INITIAL
C(AC)=000000 000100 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031751 031751 0   0   336000000000 0            000000000100 
IT1	031751 0      0   0   336000000000 0            000000000100 
AT3	031751 0      0   0   0            0            336000000000 
AT6	031751 0      0   0   0            0            336000000000 
FT0	031751 0      0   0   000000000100 0            336000000000 
FT1A	031751 0      0   0   000000000100 0            000000000100 
FT9	031752 0      0   0   000000000100 0            000000000100 
ET0	031753 0      0   0   000000000100 0            000000000100 
ST1A	031753 0      0   0   000000000100 0            000000000100 
ST9	031753 0      0   0   000000000100 0            000000000100 


*031753 JUMPA	0,031754
INITIAL
C(AC)=000000 000100 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031753 031753 0   0   324000031754 0            000000031754 
IT1	031753 0      0   0   324000031754 0            000000031754 
AT3	031753 0      0   0   000000031754 0            324000031754 
AT6	031753 031754 0   0   000000031754 0            324000031754 
FT1A	031753 031754 0   0   000000031754 0            000000031754 
FT2	031753 031754 0   0   0            0            000000031754 
FT2RQ	031753 031754 0   0   000000000100 0            000000031754 
FT3	031753 031754 0   0   000000000100 0            000000031754 
FT9	031754 031754 0   0   000000000100 0            000000031754 
ET0	031754 031754 0   0   000000000100 0            000000031754 
ST1A	031754 031754 0   0   000000000100 0            000000031754 
ST9	031754 031754 0   0   000000000100 0            000000031754 


*031754 MOVE 	0,035062
INITIAL
C(AC)=000000 000100 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031754 031754 0   0   200000035062 0            0            
IT1	031754 0      0   0   200000035062 0            0            
AT3	031754 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 172
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0388

AT6	031754 035062 0   0   000000035062 0            200000035062 
FT0	031754 035062 0   0   0            0            200000035062 
FT1A	031754 035062 0   0   0            0            0            
FT9	031755 035062 0   0   0            0            0            
ET0	031755 035062 0   0   0            0            0            
ST1	031755 035062 0   0   0            0            0            
ST2	031755 035062 0   0   0            0            0            
ST9	031755 035062 0   0   0            0            0            


*031755 MOVS 	0,035125
INITIAL
C(AC)=000000 000000 
C(E)=000200 000000 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031755 031755 0   0   204000035125 0            000200000000 
IT1	031755 0      0   0   204000035125 0            000200000000 
AT3	031755 0      0   0   000000035125 0            204000035125 
AT6	031755 035125 0   0   000000035125 0            204000035125 
FT0	031755 035125 0   0   000200000000 0            204000035125 
FT1A	031755 035125 0   0   000200000000 0            000200000000 
FT9	031756 035125 0   0   000200000000 0            000200000000 
ET0	031756 035125 0   0   000000000200 0            000200000000 
ST1	031756 035125 0   0   000000000200 0            000200000000 
ST2	031756 035125 0   0   000000000200 0            000200000000 
ST9	031756 035125 0   0   000000000200 0            000200000000 


*031756 SKIPN	0,000000
INITIAL
C(AC)=000000 000200 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031756 031756 0   0   336000000000 0            000000000200 
IT1	031756 0      0   0   336000000000 0            000000000200 
AT3	031756 0      0   0   0            0            336000000000 
AT6	031756 0      0   0   0            0            336000000000 
FT0	031756 0      0   0   000000000200 0            336000000000 
FT1A	031756 0      0   0   000000000200 0            000000000200 
FT9	031757 0      0   0   000000000200 0            000000000200 
ET0	031760 0      0   0   000000000200 0            000000000200 
ST1A	031760 0      0   0   000000000200 0            000000000200 
ST9	031760 0      0   0   000000000200 0            000000000200 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 173
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0389

*031760 JUMPA	0,031761
INITIAL
C(AC)=000000 000200 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031760 031760 0   0   324000031761 0            000000031761 
IT1	031760 0      0   0   324000031761 0            000000031761 
AT3	031760 0      0   0   000000031761 0            324000031761 
AT6	031760 031761 0   0   000000031761 0            324000031761 
FT1A	031760 031761 0   0   000000031761 0            000000031761 
FT2	031760 031761 0   0   0            0            000000031761 
FT2RQ	031760 031761 0   0   000000000200 0            000000031761 
FT3	031760 031761 0   0   000000000200 0            000000031761 
FT9	031761 031761 0   0   000000000200 0            000000031761 
ET0	031761 031761 0   0   000000000200 0            000000031761 
ST1A	031761 031761 0   0   000000000200 0            000000031761 
ST9	031761 031761 0   0   000000000200 0            000000031761 


*031761 MOVE 	0,035062
INITIAL
C(AC)=000000 000200 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031761 031761 0   0   200000035062 0            0            
IT1	031761 0      0   0   200000035062 0            0            
AT3	031761 0      0   0   000000035062 0            200000035062 
AT6	031761 035062 0   0   000000035062 0            200000035062 
FT0	031761 035062 0   0   0            0            200000035062 
FT1A	031761 035062 0   0   0            0            0            
FT9	031762 035062 0   0   0            0            0            
ET0	031762 035062 0   0   0            0            0            
ST1	031762 035062 0   0   0            0            0            
ST2	031762 035062 0   0   0            0            0            
ST9	031762 035062 0   0   0            0            0            


*031762 MOVS 	0,035073
INITIAL
C(AC)=000000 000000 
C(E)=000400 000000 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031762 031762 0   0   204000035073 0            000400000000 
IT1	031762 0      0   0   204000035073 0            000400000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 174
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0390

AT3	031762 0      0   0   000000035073 0            204000035073 
AT6	031762 035073 0   0   000000035073 0            204000035073 
FT0	031762 035073 0   0   000400000000 0            204000035073 
FT1A	031762 035073 0   0   000400000000 0            000400000000 
FT9	031763 035073 0   0   000400000000 0            000400000000 
ET0	031763 035073 0   0   000000000400 0            000400000000 
ST1	031763 035073 0   0   000000000400 0            000400000000 
ST2	031763 035073 0   0   000000000400 0            000400000000 
ST9	031763 035073 0   0   000000000400 0            000400000000 


*031763 SKIPN	0,000000
INITIAL
C(AC)=000000 000400 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031763 031763 0   0   336000000000 0            000000000400 
IT1	031763 0      0   0   336000000000 0            000000000400 
AT3	031763 0      0   0   0            0            336000000000 
AT6	031763 0      0   0   0            0            336000000000 
FT0	031763 0      0   0   000000000400 0            336000000000 
FT1A	031763 0      0   0   000000000400 0            000000000400 
FT9	031764 0      0   0   000000000400 0            000000000400 
ET0	031765 0      0   0   000000000400 0            000000000400 
ST1A	031765 0      0   0   000000000400 0            000000000400 
ST9	031765 0      0   0   000000000400 0            000000000400 


*031765 JUMPA	0,031766
INITIAL
C(AC)=000000 000400 
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   000000000400 0            000000031766 
FT3	031765 031766 0   0   000000000400 0            000000031766 
FT9	031766 031766 0   0   000000000400 0            000000031766 
ET0	031766 031766 0   0   000000000400 0            000000031766 
ST1A	031766 031766 0   0   000000000400 0            000000031766 
ST9	031766 031766 0   0   000000000400 0            000000031766 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 175
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0391

*031766 MOVE 	0,035062
INITIAL
C(AC)=000000 000400 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031766 031766 0   0   200000035062 0            0            
IT1	031766 0      0   0   200000035062 0            0            
AT3	031766 0      0   0   000000035062 0            200000035062 
AT6	031766 035062 0   0   000000035062 0            200000035062 
FT0	031766 035062 0   0   0            0            200000035062 
FT1A	031766 035062 0   0   0            0            0            
FT9	031767 035062 0   0   0            0            0            
ET0	031767 035062 0   0   0            0            0            
ST1	031767 035062 0   0   0            0            0            
ST2	031767 035062 0   0   0            0            0            
ST9	031767 035062 0   0   0            0            0            


*031767 MOVS 	0,035126
INITIAL
C(AC)=000000 000000 
C(E)=001000 000000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031767 031767 0   0   204000035126 0            001000000000 
IT1	031767 0      0   0   204000035126 0            001000000000 
AT3	031767 0      0   0   000000035126 0            204000035126 
AT6	031767 035126 0   0   000000035126 0            204000035126 
FT0	031767 035126 0   0   001000000000 0            204000035126 
FT1A	031767 035126 0   0   001000000000 0            001000000000 
FT9	031770 035126 0   0   001000000000 0            001000000000 
ET0	031770 035126 0   0   000000001000 0            001000000000 
ST1	031770 035126 0   0   000000001000 0            001000000000 
ST2	031770 035126 0   0   000000001000 0            001000000000 
ST9	031770 035126 0   0   000000001000 0            001000000000 


*031770 SKIPN	0,000000
INITIAL
C(AC)=000000 001000 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031770 031770 0   0   336000000000 0            000000001000 
IT1	031770 0      0   0   336000000000 0            000000001000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 176
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0392

AT3	031770 0      0   0   0            0            336000000000 
AT6	031770 0      0   0   0            0            336000000000 
FT0	031770 0      0   0   000000001000 0            336000000000 
FT1A	031770 0      0   0   000000001000 0            000000001000 
FT9	031771 0      0   0   000000001000 0            000000001000 
ET0	031772 0      0   0   000000001000 0            000000001000 
ST1A	031772 0      0   0   000000001000 0            000000001000 
ST9	031772 0      0   0   000000001000 0            000000001000 


*031772 JUMPA	0,031773
INITIAL
C(AC)=000000 001000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031772 031772 0   0   324000031773 0            000000031773 
IT1	031772 0      0   0   324000031773 0            000000031773 
AT3	031772 0      0   0   000000031773 0            324000031773 
AT6	031772 031773 0   0   000000031773 0            324000031773 
FT1A	031772 031773 0   0   000000031773 0            000000031773 
FT2	031772 031773 0   0   0            0            000000031773 
FT2RQ	031772 031773 0   0   000000001000 0            000000031773 
FT3	031772 031773 0   0   000000001000 0            000000031773 
FT9	031773 031773 0   0   000000001000 0            000000031773 
ET0	031773 031773 0   0   000000001000 0            000000031773 
ST1A	031773 031773 0   0   000000001000 0            000000031773 
ST9	031773 031773 0   0   000000001000 0            000000031773 


*031773 MOVE 	0,035062
INITIAL
C(AC)=000000 001000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031773 031773 0   0   200000035062 0            0            
IT1	031773 0      0   0   200000035062 0            0            
AT3	031773 0      0   0   000000035062 0            200000035062 
AT6	031773 035062 0   0   000000035062 0            200000035062 
FT0	031773 035062 0   0   0            0            200000035062 
FT1A	031773 035062 0   0   0            0            0            
FT9	031774 035062 0   0   0            0            0            
ET0	031774 035062 0   0   0            0            0            
ST1	031774 035062 0   0   0            0            0            
ST2	031774 035062 0   0   0            0            0            
ST9	031774 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 177
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0393

*031774 MOVS 	0,035127
INITIAL
C(AC)=000000 000000 
C(E)=002000 000000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031774 031774 0   0   204000035127 0            002000000000 
IT1	031774 0      0   0   204000035127 0            002000000000 
AT3	031774 0      0   0   000000035127 0            204000035127 
AT6	031774 035127 0   0   000000035127 0            204000035127 
FT0	031774 035127 0   0   002000000000 0            204000035127 
FT1A	031774 035127 0   0   002000000000 0            002000000000 
FT9	031775 035127 0   0   002000000000 0            002000000000 
ET0	031775 035127 0   0   000000002000 0            002000000000 
ST1	031775 035127 0   0   000000002000 0            002000000000 
ST2	031775 035127 0   0   000000002000 0            002000000000 
ST9	031775 035127 0   0   000000002000 0            002000000000 


*031775 SKIPN	0,000000
INITIAL
C(AC)=000000 002000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031775 031775 0   0   336000000000 0            000000002000 
IT1	031775 0      0   0   336000000000 0            000000002000 
AT3	031775 0      0   0   0            0            336000000000 
AT6	031775 0      0   0   0            0            336000000000 
FT0	031775 0      0   0   000000002000 0            336000000000 
FT1A	031775 0      0   0   000000002000 0            000000002000 
FT9	031776 0      0   0   000000002000 0            000000002000 
ET0	031777 0      0   0   000000002000 0            000000002000 
ST1A	031777 0      0   0   000000002000 0            000000002000 
ST9	031777 0      0   0   000000002000 0            000000002000 


*031777 JUMPA	0,032000
INITIAL
C(AC)=000000 002000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031777 031777 0   0   324000032000 0            000000032000 
IT1	031777 0      0   0   324000032000 0            000000032000 
AT3	031777 0      0   0   000000032000 0            324000032000 
AT6	031777 0      0   0   000000032000 0            324000032000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 178
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0394

FT1A	031777 0      0   0   000000032000 0            000000032000 
FT2	031777 0      0   0   0            0            000000032000 
FT2RQ	031777 0      0   0   000000002000 0            000000032000 
FT3	031777 0      0   0   000000002000 0            000000032000 
FT9	0      0      0   0   000000002000 0            000000032000 
ET0	0      0      0   0   000000002000 0            000000032000 
ST1A	0      0      0   0   000000002000 0            000000032000 
ST9	0      0      0   0   000000002000 0            000000032000 


*032000 MOVE 	0,035062
INITIAL
C(AC)=000000 002000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   200000035062 0            0            
IT1	0      0      0   0   200000035062 0            0            
AT3	0      0      0   0   000000035062 0            200000035062 
AT6	0      035062 0   0   000000035062 0            200000035062 
FT0	0      035062 0   0   0            0            200000035062 
FT1A	0      035062 0   0   0            0            0            
FT9	032001 035062 0   0   0            0            0            
ET0	032001 035062 0   0   0            0            0            
ST1	032001 035062 0   0   0            0            0            
ST2	032001 035062 0   0   0            0            0            
ST9	032001 035062 0   0   0            0            0            


*032001 MOVS 	0,035130
INITIAL
C(AC)=000000 000000 
C(E)=004000 000000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032001 032001 0   0   204000035130 0            004000000000 
IT1	032001 0      0   0   204000035130 0            004000000000 
AT3	032001 0      0   0   000000035130 0            204000035130 
AT6	032001 035130 0   0   000000035130 0            204000035130 
FT0	032001 035130 0   0   004000000000 0            204000035130 
FT1A	032001 035130 0   0   004000000000 0            004000000000 
FT9	032002 035130 0   0   004000000000 0            004000000000 
ET0	032002 035130 0   0   000000004000 0            004000000000 
ST1	032002 035130 0   0   000000004000 0            004000000000 
ST2	032002 035130 0   0   000000004000 0            004000000000 
ST9	032002 035130 0   0   000000004000 0            004000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 179
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0395

*032002 SKIPN	0,000000
INITIAL
C(AC)=000000 004000 
C(E)=000000 004000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032002 032002 0   0   336000000000 0            000000004000 
IT1	032002 0      0   0   336000000000 0            000000004000 
AT3	032002 0      0   0   0            0            336000000000 
AT6	032002 0      0   0   0            0            336000000000 
FT0	032002 0      0   0   000000004000 0            336000000000 
FT1A	032002 0      0   0   000000004000 0            000000004000 
FT9	032003 0      0   0   000000004000 0            000000004000 
ET0	032004 0      0   0   000000004000 0            000000004000 
ST1A	032004 0      0   0   000000004000 0            000000004000 
ST9	032004 0      0   0   000000004000 0            000000004000 


*032004 JUMPA	0,032005
INITIAL
C(AC)=000000 004000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032004 032004 0   0   324000032005 0            000000032005 
IT1	032004 0      0   0   324000032005 0            000000032005 
AT3	032004 0      0   0   000000032005 0            324000032005 
AT6	032004 032005 0   0   000000032005 0            324000032005 
FT1A	032004 032005 0   0   000000032005 0            000000032005 
FT2	032004 032005 0   0   0            0            000000032005 
FT2RQ	032004 032005 0   0   000000004000 0            000000032005 
FT3	032004 032005 0   0   000000004000 0            000000032005 
FT9	032005 032005 0   0   000000004000 0            000000032005 
ET0	032005 032005 0   0   000000004000 0            000000032005 
ST1A	032005 032005 0   0   000000004000 0            000000032005 
ST9	032005 032005 0   0   000000004000 0            000000032005 


*032005 MOVE 	0,035062
INITIAL
C(AC)=000000 004000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032005 032005 0   0   200000035062 0            0            
IT1	032005 0      0   0   200000035062 0            0            
AT3	032005 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 180
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0396

AT6	032005 035062 0   0   000000035062 0            200000035062 
FT0	032005 035062 0   0   0            0            200000035062 
FT1A	032005 035062 0   0   0            0            0            
FT9	032006 035062 0   0   0            0            0            
ET0	032006 035062 0   0   0            0            0            
ST1	032006 035062 0   0   0            0            0            
ST2	032006 035062 0   0   0            0            0            
ST9	032006 035062 0   0   0            0            0            


*032006 MOVS 	0,035131
INITIAL
C(AC)=000000 000000 
C(E)=010000 000000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032006 032006 0   0   204000035131 0            010000000000 
IT1	032006 0      0   0   204000035131 0            010000000000 
AT3	032006 0      0   0   000000035131 0            204000035131 
AT6	032006 035131 0   0   000000035131 0            204000035131 
FT0	032006 035131 0   0   010000000000 0            204000035131 
FT1A	032006 035131 0   0   010000000000 0            010000000000 
FT9	032007 035131 0   0   010000000000 0            010000000000 
ET0	032007 035131 0   0   000000010000 0            010000000000 
ST1	032007 035131 0   0   000000010000 0            010000000000 
ST2	032007 035131 0   0   000000010000 0            010000000000 
ST9	032007 035131 0   0   000000010000 0            010000000000 


*032007 SKIPN	0,000000
INITIAL
C(AC)=000000 010000 
C(E)=000000 010000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032007 032007 0   0   336000000000 0            000000010000 
IT1	032007 0      0   0   336000000000 0            000000010000 
AT3	032007 0      0   0   0            0            336000000000 
AT6	032007 0      0   0   0            0            336000000000 
FT0	032007 0      0   0   000000010000 0            336000000000 
FT1A	032007 0      0   0   000000010000 0            000000010000 
FT9	032010 0      0   0   000000010000 0            000000010000 
ET0	032011 0      0   0   000000010000 0            000000010000 
ST1A	032011 0      0   0   000000010000 0            000000010000 
ST9	032011 0      0   0   000000010000 0            000000010000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 181
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0397

*032011 JUMPA	0,032012
INITIAL
C(AC)=000000 010000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032011 032011 0   0   324000032012 0            000000032012 
IT1	032011 0      0   0   324000032012 0            000000032012 
AT3	032011 0      0   0   000000032012 0            324000032012 
AT6	032011 032012 0   0   000000032012 0            324000032012 
FT1A	032011 032012 0   0   000000032012 0            000000032012 
FT2	032011 032012 0   0   0            0            000000032012 
FT2RQ	032011 032012 0   0   000000010000 0            000000032012 
FT3	032011 032012 0   0   000000010000 0            000000032012 
FT9	032012 032012 0   0   000000010000 0            000000032012 
ET0	032012 032012 0   0   000000010000 0            000000032012 
ST1A	032012 032012 0   0   000000010000 0            000000032012 
ST9	032012 032012 0   0   000000010000 0            000000032012 


*032012 MOVE 	0,035062
INITIAL
C(AC)=000000 010000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032012 032012 0   0   200000035062 0            0            
IT1	032012 0      0   0   200000035062 0            0            
AT3	032012 0      0   0   000000035062 0            200000035062 
AT6	032012 035062 0   0   000000035062 0            200000035062 
FT0	032012 035062 0   0   0            0            200000035062 
FT1A	032012 035062 0   0   0            0            0            
FT9	032013 035062 0   0   0            0            0            
ET0	032013 035062 0   0   0            0            0            
ST1	032013 035062 0   0   0            0            0            
ST2	032013 035062 0   0   0            0            0            
ST9	032013 035062 0   0   0            0            0            


*032013 MOVS 	0,035132
INITIAL
C(AC)=000000 000000 
C(E)=020000 000000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032013 032013 0   0   204000035132 0            020000000000 
IT1	032013 0      0   0   204000035132 0            020000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 182
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0398

AT3	032013 0      0   0   000000035132 0            204000035132 
AT6	032013 035132 0   0   000000035132 0            204000035132 
FT0	032013 035132 0   0   020000000000 0            204000035132 
FT1A	032013 035132 0   0   020000000000 0            020000000000 
FT9	032014 035132 0   0   020000000000 0            020000000000 
ET0	032014 035132 0   0   000000020000 0            020000000000 
ST1	032014 035132 0   0   000000020000 0            020000000000 
ST2	032014 035132 0   0   000000020000 0            020000000000 
ST9	032014 035132 0   0   000000020000 0            020000000000 


*032014 SKIPN	0,000000
INITIAL
C(AC)=000000 020000 
C(E)=000000 020000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032014 032014 0   0   336000000000 0            000000020000 
IT1	032014 0      0   0   336000000000 0            000000020000 
AT3	032014 0      0   0   0            0            336000000000 
AT6	032014 0      0   0   0            0            336000000000 
FT0	032014 0      0   0   000000020000 0            336000000000 
FT1A	032014 0      0   0   000000020000 0            000000020000 
FT9	032015 0      0   0   000000020000 0            000000020000 
ET0	032016 0      0   0   000000020000 0            000000020000 
ST1A	032016 0      0   0   000000020000 0            000000020000 
ST9	032016 0      0   0   000000020000 0            000000020000 


*032016 JUMPA	0,032017
INITIAL
C(AC)=000000 020000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032016 032016 0   0   324000032017 0            000000032017 
IT1	032016 0      0   0   324000032017 0            000000032017 
AT3	032016 0      0   0   000000032017 0            324000032017 
AT6	032016 032017 0   0   000000032017 0            324000032017 
FT1A	032016 032017 0   0   000000032017 0            000000032017 
FT2	032016 032017 0   0   0            0            000000032017 
FT2RQ	032016 032017 0   0   000000020000 0            000000032017 
FT3	032016 032017 0   0   000000020000 0            000000032017 
FT9	032017 032017 0   0   000000020000 0            000000032017 
ET0	032017 032017 0   0   000000020000 0            000000032017 
ST1A	032017 032017 0   0   000000020000 0            000000032017 
ST9	032017 032017 0   0   000000020000 0            000000032017 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 183
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0399

*032017 MOVE 	0,035062
INITIAL
C(AC)=000000 020000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032017 032017 0   0   200000035062 0            0            
IT1	032017 0      0   0   200000035062 0            0            
AT3	032017 0      0   0   000000035062 0            200000035062 
AT6	032017 035062 0   0   000000035062 0            200000035062 
FT0	032017 035062 0   0   0            0            200000035062 
FT1A	032017 035062 0   0   0            0            0            
FT9	032020 035062 0   0   0            0            0            
ET0	032020 035062 0   0   0            0            0            
ST1	032020 035062 0   0   0            0            0            
ST2	032020 035062 0   0   0            0            0            
ST9	032020 035062 0   0   0            0            0            


*032020 MOVS 	0,035133
INITIAL
C(AC)=000000 000000 
C(E)=040000 000000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032020 032020 0   0   204000035133 0            040000000000 
IT1	032020 0      0   0   204000035133 0            040000000000 
AT3	032020 0      0   0   000000035133 0            204000035133 
AT6	032020 035133 0   0   000000035133 0            204000035133 
FT0	032020 035133 0   0   040000000000 0            204000035133 
FT1A	032020 035133 0   0   040000000000 0            040000000000 
FT9	032021 035133 0   0   040000000000 0            040000000000 
ET0	032021 035133 0   0   000000040000 0            040000000000 
ST1	032021 035133 0   0   000000040000 0            040000000000 
ST2	032021 035133 0   0   000000040000 0            040000000000 
ST9	032021 035133 0   0   000000040000 0            040000000000 


*032021 SKIPN	0,000000
INITIAL
C(AC)=000000 040000 
C(E)=000000 040000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032021 032021 0   0   336000000000 0            000000040000 
IT1	032021 0      0   0   336000000000 0            000000040000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 184
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0400

AT3	032021 0      0   0   0            0            336000000000 
AT6	032021 0      0   0   0            0            336000000000 
FT0	032021 0      0   0   000000040000 0            336000000000 
FT1A	032021 0      0   0   000000040000 0            000000040000 
FT9	032022 0      0   0   000000040000 0            000000040000 
ET0	032023 0      0   0   000000040000 0            000000040000 
ST1A	032023 0      0   0   000000040000 0            000000040000 
ST9	032023 0      0   0   000000040000 0            000000040000 


*032023 JUMPA	0,032024
INITIAL
C(AC)=000000 040000 
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   000000040000 0            000000032024 
FT3	032023 032024 0   0   000000040000 0            000000032024 
FT9	032024 032024 0   0   000000040000 0            000000032024 
ET0	032024 032024 0   0   000000040000 0            000000032024 
ST1A	032024 032024 0   0   000000040000 0            000000032024 
ST9	032024 032024 0   0   000000040000 0            000000032024 


*032024 MOVE 	0,035062
INITIAL
C(AC)=000000 040000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032024 032024 0   0   200000035062 0            0            
IT1	032024 0      0   0   200000035062 0            0            
AT3	032024 0      0   0   000000035062 0            200000035062 
AT6	032024 035062 0   0   000000035062 0            200000035062 
FT0	032024 035062 0   0   0            0            200000035062 
FT1A	032024 035062 0   0   0            0            0            
FT9	032025 035062 0   0   0            0            0            
ET0	032025 035062 0   0   0            0            0            
ST1	032025 035062 0   0   0            0            0            
ST2	032025 035062 0   0   0            0            0            
ST9	032025 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 185
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0401

*032025 MOVS 	0,035134
INITIAL
C(AC)=000000 000000 
C(E)=100000 000000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032025 032025 0   0   204000035134 0            100000000000 
IT1	032025 0      0   0   204000035134 0            100000000000 
AT3	032025 0      0   0   000000035134 0            204000035134 
AT6	032025 035134 0   0   000000035134 0            204000035134 
FT0	032025 035134 0   0   100000000000 0            204000035134 
FT1A	032025 035134 0   0   100000000000 0            100000000000 
FT9	032026 035134 0   0   100000000000 0            100000000000 
ET0	032026 035134 0   0   000000100000 0            100000000000 
ST1	032026 035134 0   0   000000100000 0            100000000000 
ST2	032026 035134 0   0   000000100000 0            100000000000 
ST9	032026 035134 0   0   000000100000 0            100000000000 


*032026 SKIPN	0,000000
INITIAL
C(AC)=000000 100000 
C(E)=000000 100000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032026 032026 0   0   336000000000 0            000000100000 
IT1	032026 0      0   0   336000000000 0            000000100000 
AT3	032026 0      0   0   0            0            336000000000 
AT6	032026 0      0   0   0            0            336000000000 
FT0	032026 0      0   0   000000100000 0            336000000000 
FT1A	032026 0      0   0   000000100000 0            000000100000 
FT9	032027 0      0   0   000000100000 0            000000100000 
ET0	032030 0      0   0   000000100000 0            000000100000 
ST1A	032030 0      0   0   000000100000 0            000000100000 
ST9	032030 0      0   0   000000100000 0            000000100000 


*032030 JUMPA	0,032031
INITIAL
C(AC)=000000 100000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032030 032030 0   0   324000032031 0            000000032031 
IT1	032030 0      0   0   324000032031 0            000000032031 
AT3	032030 0      0   0   000000032031 0            324000032031 
AT6	032030 032031 0   0   000000032031 0            324000032031 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 186
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0402

FT1A	032030 032031 0   0   000000032031 0            000000032031 
FT2	032030 032031 0   0   0            0            000000032031 
FT2RQ	032030 032031 0   0   000000100000 0            000000032031 
FT3	032030 032031 0   0   000000100000 0            000000032031 
FT9	032031 032031 0   0   000000100000 0            000000032031 
ET0	032031 032031 0   0   000000100000 0            000000032031 
ST1A	032031 032031 0   0   000000100000 0            000000032031 
ST9	032031 032031 0   0   000000100000 0            000000032031 


*032031 MOVE 	0,035062
INITIAL
C(AC)=000000 100000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032031 032031 0   0   200000035062 0            0            
IT1	032031 0      0   0   200000035062 0            0            
AT3	032031 0      0   0   000000035062 0            200000035062 
AT6	032031 035062 0   0   000000035062 0            200000035062 
FT0	032031 035062 0   0   0            0            200000035062 
FT1A	032031 035062 0   0   0            0            0            
FT9	032032 035062 0   0   0            0            0            
ET0	032032 035062 0   0   0            0            0            
ST1	032032 035062 0   0   0            0            0            
ST2	032032 035062 0   0   0            0            0            
ST9	032032 035062 0   0   0            0            0            


*032032 MOVS 	0,035135
INITIAL
C(AC)=000000 000000 
C(E)=200000 000000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032032 032032 0   0   204000035135 0            200000000000 
IT1	032032 0      0   0   204000035135 0            200000000000 
AT3	032032 0      0   0   000000035135 0            204000035135 
AT6	032032 035135 0   0   000000035135 0            204000035135 
FT0	032032 035135 0   0   200000000000 0            204000035135 
FT1A	032032 035135 0   0   200000000000 0            200000000000 
FT9	032033 035135 0   0   200000000000 0            200000000000 
ET0	032033 035135 0   0   000000200000 0            200000000000 
ST1	032033 035135 0   0   000000200000 0            200000000000 
ST2	032033 035135 0   0   000000200000 0            200000000000 
ST9	032033 035135 0   0   000000200000 0            200000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 187
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0403

*032033 SKIPN	0,000000
INITIAL
C(AC)=000000 200000 
C(E)=000000 200000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032033 032033 0   0   336000000000 0            000000200000 
IT1	032033 0      0   0   336000000000 0            000000200000 
AT3	032033 0      0   0   0            0            336000000000 
AT6	032033 0      0   0   0            0            336000000000 
FT0	032033 0      0   0   000000200000 0            336000000000 
FT1A	032033 0      0   0   000000200000 0            000000200000 
FT9	032034 0      0   0   000000200000 0            000000200000 
ET0	032035 0      0   0   000000200000 0            000000200000 
ST1A	032035 0      0   0   000000200000 0            000000200000 
ST9	032035 0      0   0   000000200000 0            000000200000 


*032035 JUMPA	0,032036
INITIAL
C(AC)=000000 200000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032035 032035 0   0   324000032036 0            000000032036 
IT1	032035 0      0   0   324000032036 0            000000032036 
AT3	032035 0      0   0   000000032036 0            324000032036 
AT6	032035 032036 0   0   000000032036 0            324000032036 
FT1A	032035 032036 0   0   000000032036 0            000000032036 
FT2	032035 032036 0   0   0            0            000000032036 
FT2RQ	032035 032036 0   0   000000200000 0            000000032036 
FT3	032035 032036 0   0   000000200000 0            000000032036 
FT9	032036 032036 0   0   000000200000 0            000000032036 
ET0	032036 032036 0   0   000000200000 0            000000032036 
ST1A	032036 032036 0   0   000000200000 0            000000032036 
ST9	032036 032036 0   0   000000200000 0            000000032036 


*032036 MOVE 	0,035062
INITIAL
C(AC)=000000 200000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032036 032036 0   0   200000035062 0            0            
IT1	032036 0      0   0   200000035062 0            0            
AT3	032036 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 188
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0404

AT6	032036 035062 0   0   000000035062 0            200000035062 
FT0	032036 035062 0   0   0            0            200000035062 
FT1A	032036 035062 0   0   0            0            0            
FT9	032037 035062 0   0   0            0            0            
ET0	032037 035062 0   0   0            0            0            
ST1	032037 035062 0   0   0            0            0            
ST2	032037 035062 0   0   0            0            0            
ST9	032037 035062 0   0   0            0            0            


*032037 MOVS 	0,035065
INITIAL
C(AC)=000000 000000 
C(E)=400000 000000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032037 032037 0   0   204000035065 0            400000000000 
IT1	032037 0      0   0   204000035065 0            400000000000 
AT3	032037 0      0   0   000000035065 0            204000035065 
AT6	032037 035065 0   0   000000035065 0            204000035065 
FT0	032037 035065 0   0   400000000000 0            204000035065 
FT1A	032037 035065 0   0   400000000000 0            400000000000 
FT9	032040 035065 0   0   400000000000 0            400000000000 
ET0	032040 035065 0   0   000000400000 0            400000000000 
ST1	032040 035065 0   0   000000400000 0            400000000000 
ST2	032040 035065 0   0   000000400000 0            400000000000 
ST9	032040 035065 0   0   000000400000 0            400000000000 


*032040 SKIPN	0,000000
INITIAL
C(AC)=000000 400000 
C(E)=000000 400000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032040 032040 0   0   336000000000 0            000000400000 
IT1	032040 0      0   0   336000000000 0            000000400000 
AT3	032040 0      0   0   0            0            336000000000 
AT6	032040 0      0   0   0            0            336000000000 
FT0	032040 0      0   0   000000400000 0            336000000000 
FT1A	032040 0      0   0   000000400000 0            000000400000 
FT9	032041 0      0   0   000000400000 0            000000400000 
ET0	032042 0      0   0   000000400000 0            000000400000 
ST1A	032042 0      0   0   000000400000 0            000000400000 
ST9	032042 0      0   0   000000400000 0            000000400000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 189
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0405

*032042 JUMPA	0,032043
INITIAL
C(AC)=000000 400000 
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   000000400000 0            000000032043 
FT3	032042 032043 0   0   000000400000 0            000000032043 
FT9	032043 032043 0   0   000000400000 0            000000032043 
ET0	032043 032043 0   0   000000400000 0            000000032043 
ST1A	032043 032043 0   0   000000400000 0            000000032043 
ST9	032043 032043 0   0   000000400000 0            000000032043 


*032043 MOVE 	0,035062
INITIAL
C(AC)=000000 400000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032043 032043 0   0   200000035062 0            0            
IT1	032043 0      0   0   200000035062 0            0            
AT3	032043 0      0   0   000000035062 0            200000035062 
AT6	032043 035062 0   0   000000035062 0            200000035062 
FT0	032043 035062 0   0   0            0            200000035062 
FT1A	032043 035062 0   0   0            0            0            
FT9	032044 035062 0   0   0            0            0            
ET0	032044 035062 0   0   0            0            0            
ST1	032044 035062 0   0   0            0            0            
ST2	032044 035062 0   0   0            0            0            
ST9	032044 035062 0   0   0            0            0            


*032044 SETM 	0,035063
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032044 032044 0   0   414000035063 0            777777777777 
IT1	032044 0      0   0   414000035063 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 190
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0406

AT3	032044 0      0   0   000000035063 0            414000035063 
AT6	032044 035063 0   0   000000035063 0            414000035063 
FT0	032044 035063 0   0   777777777777 0            414000035063 
FT1A	032044 035063 0   0   777777777777 0            777777777777 
FT9	032045 035063 0   0   777777777777 0            777777777777 
ET0	032045 035063 0   0   777777777777 0            777777777777 
ST1	032045 035063 0   0   777777777777 0            777777777777 
ST2	032045 035063 0   0   777777777777 0            777777777777 
ST9	032045 035063 0   0   777777777777 0            777777777777 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032045 032045 0   0   331000000000 0            777777777777 
IT1	032045 0      0   0   331000000000 0            777777777777 
AT3	032045 0      0   0   0            0            331000000000 
AT6	032045 0      0   0   0            0            331000000000 
FT0	032045 0      0   0   777777777777 0            331000000000 
FT1A	032045 0      0   0   777777777777 0            777777777777 
FT9	032046 0      0   0   777777777777 0            777777777777 
ET0	032047 0      0   0   777777777777 0            777777777777 
ST1A	032047 0      0   0   777777777777 0            777777777777 
ST9	032047 0      0   0   777777777777 0            777777777777 


*032047 JUMPA	0,032050
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032047 032047 0   0   324000032050 0            000000032050 
IT1	032047 0      0   0   324000032050 0            000000032050 
AT3	032047 0      0   0   000000032050 0            324000032050 
AT6	032047 032050 0   0   000000032050 0            324000032050 
FT1A	032047 032050 0   0   000000032050 0            000000032050 
FT2	032047 032050 0   0   0            0            000000032050 
FT2RQ	032047 032050 0   0   777777777777 0            000000032050 
FT3	032047 032050 0   0   777777777777 0            000000032050 
FT9	032050 032050 0   0   777777777777 0            000000032050 
ET0	032050 032050 0   0   777777777777 0            000000032050 
ST1A	032050 032050 0   0   777777777777 0            000000032050 
ST9	032050 032050 0   0   777777777777 0            000000032050 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 191
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0407

*032050 MOVE 	0,035063
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032050 032050 0   0   200000035063 0            777777777777 
IT1	032050 0      0   0   200000035063 0            777777777777 
AT3	032050 0      0   0   000000035063 0            200000035063 
AT6	032050 035063 0   0   000000035063 0            200000035063 
FT0	032050 035063 0   0   777777777777 0            200000035063 
FT1A	032050 035063 0   0   777777777777 0            777777777777 
FT9	032051 035063 0   0   777777777777 0            777777777777 
ET0	032051 035063 0   0   777777777777 0            777777777777 
ST1	032051 035063 0   0   777777777777 0            777777777777 
ST2	032051 035063 0   0   777777777777 0            777777777777 
ST9	032051 035063 0   0   777777777777 0            777777777777 


*032051 SETM 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032051 032051 0   0   414000035062 0            0            
IT1	032051 0      0   0   414000035062 0            0            
AT3	032051 0      0   0   000000035062 0            414000035062 
AT6	032051 035062 0   0   000000035062 0            414000035062 
FT0	032051 035062 0   0   0            0            414000035062 
FT1A	032051 035062 0   0   0            0            0            
FT9	032052 035062 0   0   0            0            0            
ET0	032052 035062 0   0   0            0            0            
ST1	032052 035062 0   0   0            0            0            
ST2	032052 035062 0   0   0            0            0            
ST9	032052 035062 0   0   0            0            0            


*032052 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	032052 032052 0   0   332000000000 0            0            
IT1	032052 0      0   0   332000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 192
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0408

AT3	032052 0      0   0   0            0            332000000000 
AT6	032052 0      0   0   0            0            332000000000 
FT0	032052 0      0   0   0            0            332000000000 
FT1A	032052 0      0   0   0            0            0            
FT9	032053 0      0   0   0            0            0            
ET0	032054 0      0   0   0            0            0            
ST1A	032054 0      0   0   0            0            0            
ST9	032054 0      0   0   0            0            0            


*032054 JUMPA	0,032055
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032054 032054 0   0   324000032055 0            000000032055 
IT1	032054 0      0   0   324000032055 0            000000032055 
AT3	032054 0      0   0   000000032055 0            324000032055 
AT6	032054 032055 0   0   000000032055 0            324000032055 
FT1A	032054 032055 0   0   000000032055 0            000000032055 
FT2	032054 032055 0   0   0            0            000000032055 
FT2RQ	032054 032055 0   0   0            0            000000032055 
FT3	032054 032055 0   0   0            0            000000032055 
FT9	032055 032055 0   0   0            0            000000032055 
ET0	032055 032055 0   0   0            0            000000032055 
ST1A	032055 032055 0   0   0            0            000000032055 
ST9	032055 032055 0   0   0            0            000000032055 


*032055 MOVE 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032055 032055 0   0   200000035062 0            0            
IT1	032055 0      0   0   200000035062 0            0            
AT3	032055 0      0   0   000000035062 0            200000035062 
AT6	032055 035062 0   0   000000035062 0            200000035062 
FT0	032055 035062 0   0   0            0            200000035062 
FT1A	032055 035062 0   0   0            0            0            
FT9	032056 035062 0   0   0            0            0            
ET0	032056 035062 0   0   0            0            0            
ST1	032056 035062 0   0   0            0            0            
ST2	032056 035062 0   0   0            0            0            
ST9	032056 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 193
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0409

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


*032057 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	032057 032057 0   0   332000000000 0            0            
IT1	032057 0      0   0   332000000000 0            0            
AT3	032057 0      0   0   0            0            332000000000 
AT6	032057 0      0   0   0            0            332000000000 
FT0	032057 0      0   0   0            0            332000000000 
FT1A	032057 0      0   0   0            0            0            
FT9	032060 0      0   0   0            0            0            
ET0	032061 0      0   0   0            0            0            
ST1A	032061 0      0   0   0            0            0            
ST9	032061 0      0   0   0            0            0            


*032061 JUMPA	0,032062
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032061 032061 0   0   324000032062 0            000000032062 
IT1	032061 0      0   0   324000032062 0            000000032062 
AT3	032061 0      0   0   000000032062 0            324000032062 
AT6	032061 032062 0   0   000000032062 0            324000032062 
FT1A	032061 032062 0   0   000000032062 0            000000032062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 194
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0410

FT2	032061 032062 0   0   0            0            000000032062 
FT2RQ	032061 032062 0   0   0            0            000000032062 
FT3	032061 032062 0   0   0            0            000000032062 
FT9	032062 032062 0   0   0            0            000000032062 
ET0	032062 032062 0   0   0            0            000000032062 
ST1A	032062 032062 0   0   0            0            000000032062 
ST9	032062 032062 0   0   0            0            000000032062 


*032062 MOVE 	0,035063
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032062 032062 0   0   200000035063 0            777777777777 
IT1	032062 0      0   0   200000035063 0            777777777777 
AT3	032062 0      0   0   000000035063 0            200000035063 
AT6	032062 035063 0   0   000000035063 0            200000035063 
FT0	032062 035063 0   0   777777777777 0            200000035063 
FT1A	032062 035063 0   0   777777777777 0            777777777777 
FT9	032063 035063 0   0   777777777777 0            777777777777 
ET0	032063 035063 0   0   777777777777 0            777777777777 
ST1	032063 035063 0   0   777777777777 0            777777777777 
ST2	032063 035063 0   0   777777777777 0            777777777777 
ST9	032063 035063 0   0   777777777777 0            777777777777 


*032063 SETZ 	0,032063
INITIAL
C(AC)=777777 777777 
C(E)=400000 032063 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032063 032063 0   0   400000032063 0            000000032063 
IT1	032063 0      0   0   400000032063 0            000000032063 
AT3	032063 0      0   0   000000032063 0            400000032063 
AT6	032063 032063 0   0   000000032063 0            400000032063 
FT1A	032063 032063 0   0   000000032063 0            000000032063 
FT9	032064 032063 0   0   000000032063 0            000000032063 
ET0	032064 032063 0   0   0            0            000000032063 
ST1	032064 032063 0   0   0            0            000000032063 
ST2	032064 032063 0   0   0            0            000000032063 
ST9	032064 032063 0   0   0            0            000000032063 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 195
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0411

*032064 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	032064 032064 0   0   332000000000 0            0            
IT1	032064 0      0   0   332000000000 0            0            
AT3	032064 0      0   0   0            0            332000000000 
AT6	032064 0      0   0   0            0            332000000000 
FT0	032064 0      0   0   0            0            332000000000 
FT1A	032064 0      0   0   0            0            0            
FT9	032065 0      0   0   0            0            0            
ET0	032066 0      0   0   0            0            0            
ST1A	032066 0      0   0   0            0            0            
ST9	032066 0      0   0   0            0            0            


*032066 JUMPA	0,032067
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032066 032066 0   0   324000032067 0            000000032067 
IT1	032066 0      0   0   324000032067 0            000000032067 
AT3	032066 0      0   0   000000032067 0            324000032067 
AT6	032066 032067 0   0   000000032067 0            324000032067 
FT1A	032066 032067 0   0   000000032067 0            000000032067 
FT2	032066 032067 0   0   0            0            000000032067 
FT2RQ	032066 032067 0   0   0            0            000000032067 
FT3	032066 032067 0   0   0            0            000000032067 
FT9	032067 032067 0   0   0            0            000000032067 
ET0	032067 032067 0   0   0            0            000000032067 
ST1A	032067 032067 0   0   0            0            000000032067 
ST9	032067 032067 0   0   0            0            000000032067 


*032067 MOVE 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032067 032067 0   0   200000035062 0            0            
IT1	032067 0      0   0   200000035062 0            0            
AT3	032067 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 196
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0412

AT6	032067 035062 0   0   000000035062 0            200000035062 
FT0	032067 035062 0   0   0            0            200000035062 
FT1A	032067 035062 0   0   0            0            0            
FT9	032070 035062 0   0   0            0            0            
ET0	032070 035062 0   0   0            0            0            
ST1	032070 035062 0   0   0            0            0            
ST2	032070 035062 0   0   0            0            0            
ST9	032070 035062 0   0   0            0            0            


*032070 AND 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032070 032070 0   0   404000000000 0            0            
IT1	032070 0      0   0   404000000000 0            0            
AT3	032070 0      0   0   0            0            404000000000 
AT6	032070 0      0   0   0            0            404000000000 
FT0	032070 0      0   0   0            0            404000000000 
FT1A	032070 0      0   0   0            0            0            
FT2	032070 0      0   0   0            0            0            
FT2RQ	032070 0      0   0   0            0            0            
FT3	032070 0      0   0   0            0            0            
FT9	032071 0      0   0   0            0            0            
ET0	032071 0      0   0   0            0            0            
ST1	032071 0      0   0   0            0            0            
ST2	032071 0      0   0   0            0            0            
ST9	032071 0      0   0   0            0            0            


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032071 032071 0   0   332000000000 0            0            
IT1	032071 0      0   0   332000000000 0            0            
AT3	032071 0      0   0   0            0            332000000000 
AT6	032071 0      0   0   0            0            332000000000 
FT0	032071 0      0   0   0            0            332000000000 
FT1A	032071 0      0   0   0            0            0            
FT9	032072 0      0   0   0            0            0            
ET0	032073 0      0   0   0            0            0            
ST1A	032073 0      0   0   0            0            0            
ST9	032073 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 197
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0413



*032073 JUMPA	0,032074
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032073 032073 0   0   324000032074 0            000000032074 
IT1	032073 0      0   0   324000032074 0            000000032074 
AT3	032073 0      0   0   000000032074 0            324000032074 
AT6	032073 032074 0   0   000000032074 0            324000032074 
FT1A	032073 032074 0   0   000000032074 0            000000032074 
FT2	032073 032074 0   0   0            0            000000032074 
FT2RQ	032073 032074 0   0   0            0            000000032074 
FT3	032073 032074 0   0   0            0            000000032074 
FT9	032074 032074 0   0   0            0            000000032074 
ET0	032074 032074 0   0   0            0            000000032074 
ST1A	032074 032074 0   0   0            0            000000032074 
ST9	032074 032074 0   0   0            0            000000032074 


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


*032075 MOVE 	1,035074
INITIAL
C(AC)=777777 777777 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032075 032075 0   0   200040035074 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 198
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0414

IT1	032075 0      0   0   200040035074 0            000000000001 
AT3	032075 0      0   0   000000035074 0            200040035074 
AT6	032075 035074 0   0   000000035074 0            200040035074 
FT0	032075 035074 0   0   000000000001 0            200040035074 
FT1A	032075 035074 0   0   000000000001 0            000000000001 
FT9	032076 035074 0   0   000000000001 0            000000000001 
ET0	032076 035074 0   0   000000000001 0            000000000001 
ST1	032076 035074 0   0   000000000001 0            000000000001 
ST2	032076 035074 0   0   000000000001 0            000000000001 
ST9	032076 035074 0   0   000000000001 0            000000000001 


*032076 AND 	1,000000
INITIAL
C(AC)=000000 000001 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032076 032076 0   0   404040000000 0            0            
IT1	032076 0      0   0   404040000000 0            0            
AT3	032076 0      0   0   0            0            404040000000 
AT6	032076 0      0   0   0            0            404040000000 
FT0	032076 0      0   0   0            0            404040000000 
FT1A	032076 0      0   0   0            0            0            
FT2	032076 0      0   0   0            0            0            
FT2RQ	032076 0      0   0   000000000001 0            0            
FT3	032076 0      0   0   000000000001 0            0            
FT9	032077 0      0   0   000000000001 0            0            
ET0	032077 0      0   0   0            0            0            
ST1	032077 0      0   0   0            0            0            
ST2	032077 0      0   0   0            0            0            
ST9	032077 0      0   0   0            0            0            


*032077 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	032077 032077 0   0   332000000001 0            0            
IT1	032077 0      0   0   332000000001 0            0            
AT3	032077 0      0   0   000000000001 0            332000000001 
AT6	032077 000001 0   0   000000000001 0            332000000001 
FT0	032077 000001 0   0   0            0            332000000001 
FT1A	032077 000001 0   0   0            0            0            
FT9	0      000001 0   0   0            0            0            
ET0	032101 000001 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 199
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0415

ST1A	032101 000001 0   0   0            0            0            
ST9	032101 000001 0   0   0            0            0            


*032101 JUMPA	0,032102
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032101 032101 0   0   324000032102 0            000000032102 
IT1	032101 0      0   0   324000032102 0            000000032102 
AT3	032101 0      0   0   000000032102 0            324000032102 
AT6	032101 032102 0   0   000000032102 0            324000032102 
FT1A	032101 032102 0   0   000000032102 0            000000032102 
FT2	032101 032102 0   0   0            0            000000032102 
FT2RQ	032101 032102 0   0   0            0            000000032102 
FT3	032101 032102 0   0   0            0            000000032102 
FT9	032102 032102 0   0   0            0            000000032102 
ET0	032102 032102 0   0   0            0            000000032102 
ST1A	032102 032102 0   0   0            0            000000032102 
ST9	032102 032102 0   0   0            0            000000032102 


*032102 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	032102 032102 0   0   332000000000 0            0            
IT1	032102 0      0   0   332000000000 0            0            
AT3	032102 0      0   0   0            0            332000000000 
AT6	032102 0      0   0   0            0            332000000000 
FT0	032102 0      0   0   0            0            332000000000 
FT1A	032102 0      0   0   0            0            0            
FT9	032103 0      0   0   0            0            0            
ET0	032104 0      0   0   0            0            0            
ST1A	032104 0      0   0   0            0            0            
ST9	032104 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 200
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0416

*032104 JUMPA	0,032105
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032104 032104 0   0   324000032105 0            000000032105 
IT1	032104 0      0   0   324000032105 0            000000032105 
AT3	032104 0      0   0   000000032105 0            324000032105 
AT6	032104 032105 0   0   000000032105 0            324000032105 
FT1A	032104 032105 0   0   000000032105 0            000000032105 
FT2	032104 032105 0   0   0            0            000000032105 
FT2RQ	032104 032105 0   0   0            0            000000032105 
FT3	032104 032105 0   0   0            0            000000032105 
FT9	032105 032105 0   0   0            0            000000032105 
ET0	032105 032105 0   0   0            0            000000032105 
ST1A	032105 032105 0   0   0            0            000000032105 
ST9	032105 032105 0   0   0            0            000000032105 


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


*032106 MOVE 	1,035075
INITIAL
C(AC)=000000 000000 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032106 032106 0   0   200040035075 0            000000000002 
IT1	032106 0      0   0   200040035075 0            000000000002 
AT3	032106 0      0   0   000000035075 0            200040035075 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 201
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0417

AT6	032106 035075 0   0   000000035075 0            200040035075 
FT0	032106 035075 0   0   000000000002 0            200040035075 
FT1A	032106 035075 0   0   000000000002 0            000000000002 
FT9	032107 035075 0   0   000000000002 0            000000000002 
ET0	032107 035075 0   0   000000000002 0            000000000002 
ST1	032107 035075 0   0   000000000002 0            000000000002 
ST2	032107 035075 0   0   000000000002 0            000000000002 
ST9	032107 035075 0   0   000000000002 0            000000000002 


*032107 AND 	1,000000
INITIAL
C(AC)=000000 000002 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032107 032107 0   0   404040000000 0            0            
IT1	032107 0      0   0   404040000000 0            0            
AT3	032107 0      0   0   0            0            404040000000 
AT6	032107 0      0   0   0            0            404040000000 
FT0	032107 0      0   0   0            0            404040000000 
FT1A	032107 0      0   0   0            0            0            
FT2	032107 0      0   0   0            0            0            
FT2RQ	032107 0      0   0   000000000002 0            0            
FT3	032107 0      0   0   000000000002 0            0            
FT9	032110 0      0   0   000000000002 0            0            
ET0	032110 0      0   0   0            0            0            
ST1	032110 0      0   0   0            0            0            
ST2	032110 0      0   0   0            0            0            
ST9	032110 0      0   0   0            0            0            


*032110 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	032110 032110 0   0   332000000001 0            0            
IT1	032110 0      0   0   332000000001 0            0            
AT3	032110 0      0   0   000000000001 0            332000000001 
AT6	032110 000001 0   0   000000000001 0            332000000001 
FT0	032110 000001 0   0   0            0            332000000001 
FT1A	032110 000001 0   0   0            0            0            
FT9	032111 000001 0   0   0            0            0            
ET0	032112 000001 0   0   0            0            0            
ST1A	032112 000001 0   0   0            0            0            
ST9	032112 000001 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 202
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0418



*032112 JUMPA	0,032113
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032112 032112 0   0   324000032113 0            000000032113 
IT1	032112 0      0   0   324000032113 0            000000032113 
AT3	032112 0      0   0   000000032113 0            324000032113 
AT6	032112 032113 0   0   000000032113 0            324000032113 
FT1A	032112 032113 0   0   000000032113 0            000000032113 
FT2	032112 032113 0   0   0            0            000000032113 
FT2RQ	032112 032113 0   0   0            0            000000032113 
FT3	032112 032113 0   0   0            0            000000032113 
FT9	032113 032113 0   0   0            0            000000032113 
ET0	032113 032113 0   0   0            0            000000032113 
ST1A	032113 032113 0   0   0            0            000000032113 
ST9	032113 032113 0   0   0            0            000000032113 


*032113 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	032113 032113 0   0   332000000000 0            0            
IT1	032113 0      0   0   332000000000 0            0            
AT3	032113 0      0   0   0            0            332000000000 
AT6	032113 0      0   0   0            0            332000000000 
FT0	032113 0      0   0   0            0            332000000000 
FT1A	032113 0      0   0   0            0            0            
FT9	032114 0      0   0   0            0            0            
ET0	032115 0      0   0   0            0            0            
ST1A	032115 0      0   0   0            0            0            
ST9	032115 0      0   0   0            0            0            


*032115 JUMPA	0,032116
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032115 032115 0   0   324000032116 0            000000032116 
IT1	032115 0      0   0   324000032116 0            000000032116 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 203
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0419

AT3	032115 0      0   0   000000032116 0            324000032116 
AT6	032115 032116 0   0   000000032116 0            324000032116 
FT1A	032115 032116 0   0   000000032116 0            000000032116 
FT2	032115 032116 0   0   0            0            000000032116 
FT2RQ	032115 032116 0   0   0            0            000000032116 
FT3	032115 032116 0   0   0            0            000000032116 
FT9	032116 032116 0   0   0            0            000000032116 
ET0	032116 032116 0   0   0            0            000000032116 
ST1A	032116 032116 0   0   0            0            000000032116 
ST9	032116 032116 0   0   0            0            000000032116 


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


*032117 MOVE 	1,035076
INITIAL
C(AC)=000000 000000 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032117 032117 0   0   200040035076 0            000000000004 
IT1	032117 0      0   0   200040035076 0            000000000004 
AT3	032117 0      0   0   000000035076 0            200040035076 
AT6	032117 035076 0   0   000000035076 0            200040035076 
FT0	032117 035076 0   0   000000000004 0            200040035076 
FT1A	032117 035076 0   0   000000000004 0            000000000004 
FT9	032120 035076 0   0   000000000004 0            000000000004 
ET0	032120 035076 0   0   000000000004 0            000000000004 
ST1	032120 035076 0   0   000000000004 0            000000000004 
ST2	032120 035076 0   0   000000000004 0            000000000004 
ST9	032120 035076 0   0   000000000004 0            000000000004 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 204
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0420


*032120 AND 	1,000000
INITIAL
C(AC)=000000 000004 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032120 032120 0   0   404040000000 0            0            
IT1	032120 0      0   0   404040000000 0            0            
AT3	032120 0      0   0   0            0            404040000000 
AT6	032120 0      0   0   0            0            404040000000 
FT0	032120 0      0   0   0            0            404040000000 
FT1A	032120 0      0   0   0            0            0            
FT2	032120 0      0   0   0            0            0            
FT2RQ	032120 0      0   0   000000000004 0            0            
FT3	032120 0      0   0   000000000004 0            0            
FT9	032121 0      0   0   000000000004 0            0            
ET0	032121 0      0   0   0            0            0            
ST1	032121 0      0   0   0            0            0            
ST2	032121 0      0   0   0            0            0            
ST9	032121 0      0   0   0            0            0            


*032121 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	032121 032121 0   0   332000000001 0            0            
IT1	032121 0      0   0   332000000001 0            0            
AT3	032121 0      0   0   000000000001 0            332000000001 
AT6	032121 000001 0   0   000000000001 0            332000000001 
FT0	032121 000001 0   0   0            0            332000000001 
FT1A	032121 000001 0   0   0            0            0            
FT9	032122 000001 0   0   0            0            0            
ET0	032123 000001 0   0   0            0            0            
ST1A	032123 000001 0   0   0            0            0            
ST9	032123 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 205
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0421

*032123 JUMPA	0,032124
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032123 032123 0   0   324000032124 0            000000032124 
IT1	032123 0      0   0   324000032124 0            000000032124 
AT3	032123 0      0   0   000000032124 0            324000032124 
AT6	032123 032124 0   0   000000032124 0            324000032124 
FT1A	032123 032124 0   0   000000032124 0            000000032124 
FT2	032123 032124 0   0   0            0            000000032124 
FT2RQ	032123 032124 0   0   0            0            000000032124 
FT3	032123 032124 0   0   0            0            000000032124 
FT9	032124 032124 0   0   0            0            000000032124 
ET0	032124 032124 0   0   0            0            000000032124 
ST1A	032124 032124 0   0   0            0            000000032124 
ST9	032124 032124 0   0   0            0            000000032124 


*032124 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	032124 032124 0   0   332000000000 0            0            
IT1	032124 0      0   0   332000000000 0            0            
AT3	032124 0      0   0   0            0            332000000000 
AT6	032124 0      0   0   0            0            332000000000 
FT0	032124 0      0   0   0            0            332000000000 
FT1A	032124 0      0   0   0            0            0            
FT9	032125 0      0   0   0            0            0            
ET0	032126 0      0   0   0            0            0            
ST1A	032126 0      0   0   0            0            0            
ST9	032126 0      0   0   0            0            0            


*032126 JUMPA	0,032127
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032126 032126 0   0   324000032127 0            000000032127 
IT1	032126 0      0   0   324000032127 0            000000032127 
AT3	032126 0      0   0   000000032127 0            324000032127 
AT6	032126 032127 0   0   000000032127 0            324000032127 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 206
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0422

FT1A	032126 032127 0   0   000000032127 0            000000032127 
FT2	032126 032127 0   0   0            0            000000032127 
FT2RQ	032126 032127 0   0   0            0            000000032127 
FT3	032126 032127 0   0   0            0            000000032127 
FT9	032127 032127 0   0   0            0            000000032127 
ET0	032127 032127 0   0   0            0            000000032127 
ST1A	032127 032127 0   0   0            0            000000032127 
ST9	032127 032127 0   0   0            0            000000032127 


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


*032130 MOVE 	1,035077
INITIAL
C(AC)=000000 000000 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032130 032130 0   0   200040035077 0            000000000010 
IT1	032130 0      0   0   200040035077 0            000000000010 
AT3	032130 0      0   0   000000035077 0            200040035077 
AT6	032130 035077 0   0   000000035077 0            200040035077 
FT0	032130 035077 0   0   000000000010 0            200040035077 
FT1A	032130 035077 0   0   000000000010 0            000000000010 
FT9	032131 035077 0   0   000000000010 0            000000000010 
ET0	032131 035077 0   0   000000000010 0            000000000010 
ST1	032131 035077 0   0   000000000010 0            000000000010 
ST2	032131 035077 0   0   000000000010 0            000000000010 
ST9	032131 035077 0   0   000000000010 0            000000000010 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 207
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0423

*032131 AND 	1,000000
INITIAL
C(AC)=000000 000010 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032131 032131 0   0   404040000000 0            0            
IT1	032131 0      0   0   404040000000 0            0            
AT3	032131 0      0   0   0            0            404040000000 
AT6	032131 0      0   0   0            0            404040000000 
FT0	032131 0      0   0   0            0            404040000000 
FT1A	032131 0      0   0   0            0            0            
FT2	032131 0      0   0   0            0            0            
FT2RQ	032131 0      0   0   000000000010 0            0            
FT3	032131 0      0   0   000000000010 0            0            
FT9	032132 0      0   0   000000000010 0            0            
ET0	032132 0      0   0   0            0            0            
ST1	032132 0      0   0   0            0            0            
ST2	032132 0      0   0   0            0            0            
ST9	032132 0      0   0   0            0            0            


*032132 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	032132 032132 0   0   332000000001 0            0            
IT1	032132 0      0   0   332000000001 0            0            
AT3	032132 0      0   0   000000000001 0            332000000001 
AT6	032132 000001 0   0   000000000001 0            332000000001 
FT0	032132 000001 0   0   0            0            332000000001 
FT1A	032132 000001 0   0   0            0            0            
FT9	032133 000001 0   0   0            0            0            
ET0	032134 000001 0   0   0            0            0            
ST1A	032134 000001 0   0   0            0            0            
ST9	032134 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 208
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0424

*032134 JUMPA	0,032135
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032134 032134 0   0   324000032135 0            000000032135 
IT1	032134 0      0   0   324000032135 0            000000032135 
AT3	032134 0      0   0   000000032135 0            324000032135 
AT6	032134 032135 0   0   000000032135 0            324000032135 
FT1A	032134 032135 0   0   000000032135 0            000000032135 
FT2	032134 032135 0   0   0            0            000000032135 
FT2RQ	032134 032135 0   0   0            0            000000032135 
FT3	032134 032135 0   0   0            0            000000032135 
FT9	032135 032135 0   0   0            0            000000032135 
ET0	032135 032135 0   0   0            0            000000032135 
ST1A	032135 032135 0   0   0            0            000000032135 
ST9	032135 032135 0   0   0            0            000000032135 


*032135 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	032135 032135 0   0   332000000000 0            0            
IT1	032135 0      0   0   332000000000 0            0            
AT3	032135 0      0   0   0            0            332000000000 
AT6	032135 0      0   0   0            0            332000000000 
FT0	032135 0      0   0   0            0            332000000000 
FT1A	032135 0      0   0   0            0            0            
FT9	032136 0      0   0   0            0            0            
ET0	032137 0      0   0   0            0            0            
ST1A	032137 0      0   0   0            0            0            
ST9	032137 0      0   0   0            0            0            


*032137 JUMPA	0,032140
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032137 032137 0   0   324000032140 0            000000032140 
IT1	032137 0      0   0   324000032140 0            000000032140 
AT3	032137 0      0   0   000000032140 0            324000032140 
AT6	032137 032140 0   0   000000032140 0            324000032140 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 209
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0425

FT1A	032137 032140 0   0   000000032140 0            000000032140 
FT2	032137 032140 0   0   0            0            000000032140 
FT2RQ	032137 032140 0   0   0            0            000000032140 
FT3	032137 032140 0   0   0            0            000000032140 
FT9	032140 032140 0   0   0            0            000000032140 
ET0	032140 032140 0   0   0            0            000000032140 
ST1A	032140 032140 0   0   0            0            000000032140 
ST9	032140 032140 0   0   0            0            000000032140 


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


*032141 MOVE 	1,035100
INITIAL
C(AC)=000000 000000 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032141 032141 0   0   200040035100 0            000000000020 
IT1	032141 0      0   0   200040035100 0            000000000020 
AT3	032141 0      0   0   000000035100 0            200040035100 
AT6	032141 0      0   0   000000035100 0            200040035100 
FT0	032141 0      0   0   000000000020 0            200040035100 
FT1A	032141 0      0   0   000000000020 0            000000000020 
FT9	032142 0      0   0   000000000020 0            000000000020 
ET0	032142 0      0   0   000000000020 0            000000000020 
ST1	032142 0      0   0   000000000020 0            000000000020 
ST2	032142 0      0   0   000000000020 0            000000000020 
ST9	032142 0      0   0   000000000020 0            000000000020 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 210
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0426

*032142 AND 	1,000000
INITIAL
C(AC)=000000 000020 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032142 032142 0   0   404040000000 0            0            
IT1	032142 0      0   0   404040000000 0            0            
AT3	032142 0      0   0   0            0            404040000000 
AT6	032142 0      0   0   0            0            404040000000 
FT0	032142 0      0   0   0            0            404040000000 
FT1A	032142 0      0   0   0            0            0            
FT2	032142 0      0   0   0            0            0            
FT2RQ	032142 0      0   0   000000000020 0            0            
FT3	032142 0      0   0   000000000020 0            0            
FT9	032143 0      0   0   000000000020 0            0            
ET0	032143 0      0   0   0            0            0            
ST1	032143 0      0   0   0            0            0            
ST2	032143 0      0   0   0            0            0            
ST9	032143 0      0   0   0            0            0            


*032143 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	032143 032143 0   0   332000000001 0            0            
IT1	032143 0      0   0   332000000001 0            0            
AT3	032143 0      0   0   000000000001 0            332000000001 
AT6	032143 000001 0   0   000000000001 0            332000000001 
FT0	032143 000001 0   0   0            0            332000000001 
FT1A	032143 000001 0   0   0            0            0            
FT9	032144 000001 0   0   0            0            0            
ET0	032145 000001 0   0   0            0            0            
ST1A	032145 000001 0   0   0            0            0            
ST9	032145 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 211
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0427

*032145 JUMPA	0,032146
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032145 032145 0   0   324000032146 0            000000032146 
IT1	032145 0      0   0   324000032146 0            000000032146 
AT3	032145 0      0   0   000000032146 0            324000032146 
AT6	032145 032146 0   0   000000032146 0            324000032146 
FT1A	032145 032146 0   0   000000032146 0            000000032146 
FT2	032145 032146 0   0   0            0            000000032146 
FT2RQ	032145 032146 0   0   0            0            000000032146 
FT3	032145 032146 0   0   0            0            000000032146 
FT9	032146 032146 0   0   0            0            000000032146 
ET0	032146 032146 0   0   0            0            000000032146 
ST1A	032146 032146 0   0   0            0            000000032146 
ST9	032146 032146 0   0   0            0            000000032146 


*032146 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	032146 032146 0   0   332000000000 0            0            
IT1	032146 0      0   0   332000000000 0            0            
AT3	032146 0      0   0   0            0            332000000000 
AT6	032146 0      0   0   0            0            332000000000 
FT0	032146 0      0   0   0            0            332000000000 
FT1A	032146 0      0   0   0            0            0            
FT9	032147 0      0   0   0            0            0            
ET0	032150 0      0   0   0            0            0            
ST1A	032150 0      0   0   0            0            0            
ST9	032150 0      0   0   0            0            0            


*032150 JUMPA	0,032151
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032150 032150 0   0   324000032151 0            000000032151 
IT1	032150 0      0   0   324000032151 0            000000032151 
AT3	032150 0      0   0   000000032151 0            324000032151 
AT6	032150 032151 0   0   000000032151 0            324000032151 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 212
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0428

FT1A	032150 032151 0   0   000000032151 0            000000032151 
FT2	032150 032151 0   0   0            0            000000032151 
FT2RQ	032150 032151 0   0   0            0            000000032151 
FT3	032150 032151 0   0   0            0            000000032151 
FT9	032151 032151 0   0   0            0            000000032151 
ET0	032151 032151 0   0   0            0            000000032151 
ST1A	032151 032151 0   0   0            0            000000032151 
ST9	032151 032151 0   0   0            0            000000032151 


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


*032152 MOVE 	1,035101
INITIAL
C(AC)=000000 000000 
C(E)=000000 000040 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032152 032152 0   0   200040035101 0            000000000040 
IT1	032152 0      0   0   200040035101 0            000000000040 
AT3	032152 0      0   0   000000035101 0            200040035101 
AT6	032152 035101 0   0   000000035101 0            200040035101 
FT0	032152 035101 0   0   000000000040 0            200040035101 
FT1A	032152 035101 0   0   000000000040 0            000000000040 
FT9	032153 035101 0   0   000000000040 0            000000000040 
ET0	032153 035101 0   0   000000000040 0            000000000040 
ST1	032153 035101 0   0   000000000040 0            000000000040 
ST2	032153 035101 0   0   000000000040 0            000000000040 
ST9	032153 035101 0   0   000000000040 0            000000000040 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 213
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0429

*032153 AND 	1,000000
INITIAL
C(AC)=000000 000040 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032153 032153 0   0   404040000000 0            0            
IT1	032153 0      0   0   404040000000 0            0            
AT3	032153 0      0   0   0            0            404040000000 
AT6	032153 0      0   0   0            0            404040000000 
FT0	032153 0      0   0   0            0            404040000000 
FT1A	032153 0      0   0   0            0            0            
FT2	032153 0      0   0   0            0            0            
FT2RQ	032153 0      0   0   000000000040 0            0            
FT3	032153 0      0   0   000000000040 0            0            
FT9	032154 0      0   0   000000000040 0            0            
ET0	032154 0      0   0   0            0            0            
ST1	032154 0      0   0   0            0            0            
ST2	032154 0      0   0   0            0            0            
ST9	032154 0      0   0   0            0            0            


*032154 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	032154 032154 0   0   332000000001 0            0            
IT1	032154 0      0   0   332000000001 0            0            
AT3	032154 0      0   0   000000000001 0            332000000001 
AT6	032154 000001 0   0   000000000001 0            332000000001 
FT0	032154 000001 0   0   0            0            332000000001 
FT1A	032154 000001 0   0   0            0            0            
FT9	032155 000001 0   0   0            0            0            
ET0	032156 000001 0   0   0            0            0            
ST1A	032156 000001 0   0   0            0            0            
ST9	032156 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 214
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0430

*032156 JUMPA	0,032157
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032156 032156 0   0   324000032157 0            000000032157 
IT1	032156 0      0   0   324000032157 0            000000032157 
AT3	032156 0      0   0   000000032157 0            324000032157 
AT6	032156 032157 0   0   000000032157 0            324000032157 
FT1A	032156 032157 0   0   000000032157 0            000000032157 
FT2	032156 032157 0   0   0            0            000000032157 
FT2RQ	032156 032157 0   0   0            0            000000032157 
FT3	032156 032157 0   0   0            0            000000032157 
FT9	032157 032157 0   0   0            0            000000032157 
ET0	032157 032157 0   0   0            0            000000032157 
ST1A	032157 032157 0   0   0            0            000000032157 
ST9	032157 032157 0   0   0            0            000000032157 


*032157 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	032157 032157 0   0   332000000000 0            0            
IT1	032157 0      0   0   332000000000 0            0            
AT3	032157 0      0   0   0            0            332000000000 
AT6	032157 0      0   0   0            0            332000000000 
FT0	032157 0      0   0   0            0            332000000000 
FT1A	032157 0      0   0   0            0            0            
FT9	032160 0      0   0   0            0            0            
ET0	032161 0      0   0   0            0            0            
ST1A	032161 0      0   0   0            0            0            
ST9	032161 0      0   0   0            0            0            


*032161 JUMPA	0,032162
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032161 032161 0   0   324000032162 0            000000032162 
IT1	032161 0      0   0   324000032162 0            000000032162 
AT3	032161 0      0   0   000000032162 0            324000032162 
AT6	032161 032162 0   0   000000032162 0            324000032162 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 215
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0431

FT1A	032161 032162 0   0   000000032162 0            000000032162 
FT2	032161 032162 0   0   0            0            000000032162 
FT2RQ	032161 032162 0   0   0            0            000000032162 
FT3	032161 032162 0   0   0            0            000000032162 
FT9	032162 032162 0   0   0            0            000000032162 
ET0	032162 032162 0   0   0            0            000000032162 
ST1A	032162 032162 0   0   0            0            000000032162 
ST9	032162 032162 0   0   0            0            000000032162 


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


*032163 MOVE 	1,035102
INITIAL
C(AC)=000000 000000 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032163 032163 0   0   200040035102 0            000000000100 
IT1	032163 0      0   0   200040035102 0            000000000100 
AT3	032163 0      0   0   000000035102 0            200040035102 
AT6	032163 035102 0   0   000000035102 0            200040035102 
FT0	032163 035102 0   0   000000000100 0            200040035102 
FT1A	032163 035102 0   0   000000000100 0            000000000100 
FT9	032164 035102 0   0   000000000100 0            000000000100 
ET0	032164 035102 0   0   000000000100 0            000000000100 
ST1	032164 035102 0   0   000000000100 0            000000000100 
ST2	032164 035102 0   0   000000000100 0            000000000100 
ST9	032164 035102 0   0   000000000100 0            000000000100 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 216
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0432

*032164 AND 	1,000000
INITIAL
C(AC)=000000 000100 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032164 032164 0   0   404040000000 0            0            
IT1	032164 0      0   0   404040000000 0            0            
AT3	032164 0      0   0   0            0            404040000000 
AT6	032164 0      0   0   0            0            404040000000 
FT0	032164 0      0   0   0            0            404040000000 
FT1A	032164 0      0   0   0            0            0            
FT2	032164 0      0   0   0            0            0            
FT2RQ	032164 0      0   0   000000000100 0            0            
FT3	032164 0      0   0   000000000100 0            0            
FT9	032165 0      0   0   000000000100 0            0            
ET0	032165 0      0   0   0            0            0            
ST1	032165 0      0   0   0            0            0            
ST2	032165 0      0   0   0            0            0            
ST9	032165 0      0   0   0            0            0            


*032165 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	032165 032165 0   0   332000000001 0            0            
IT1	032165 0      0   0   332000000001 0            0            
AT3	032165 0      0   0   000000000001 0            332000000001 
AT6	032165 000001 0   0   000000000001 0            332000000001 
FT0	032165 000001 0   0   0            0            332000000001 
FT1A	032165 000001 0   0   0            0            0            
FT9	032166 000001 0   0   0            0            0            
ET0	032167 000001 0   0   0            0            0            
ST1A	032167 000001 0   0   0            0            0            
ST9	032167 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 217
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0433

*032167 JUMPA	0,032170
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032167 032167 0   0   324000032170 0            000000032170 
IT1	032167 0      0   0   324000032170 0            000000032170 
AT3	032167 0      0   0   000000032170 0            324000032170 
AT6	032167 032170 0   0   000000032170 0            324000032170 
FT1A	032167 032170 0   0   000000032170 0            000000032170 
FT2	032167 032170 0   0   0            0            000000032170 
FT2RQ	032167 032170 0   0   0            0            000000032170 
FT3	032167 032170 0   0   0            0            000000032170 
FT9	032170 032170 0   0   0            0            000000032170 
ET0	032170 032170 0   0   0            0            000000032170 
ST1A	032170 032170 0   0   0            0            000000032170 
ST9	032170 032170 0   0   0            0            000000032170 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032170 032170 0   0   332000000000 0            0            
IT1	032170 0      0   0   332000000000 0            0            
AT3	032170 0      0   0   0            0            332000000000 
AT6	032170 0      0   0   0            0            332000000000 
FT0	032170 0      0   0   0            0            332000000000 
FT1A	032170 0      0   0   0            0            0            
FT9	032171 0      0   0   0            0            0            
ET0	032172 0      0   0   0            0            0            
ST1A	032172 0      0   0   0            0            0            
ST9	032172 0      0   0   0            0            0            


*032172 JUMPA	0,032173
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032172 032172 0   0   324000032173 0            000000032173 
IT1	032172 0      0   0   324000032173 0            000000032173 
AT3	032172 0      0   0   000000032173 0            324000032173 
AT6	032172 032173 0   0   000000032173 0            324000032173 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 218
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0434

FT1A	032172 032173 0   0   000000032173 0            000000032173 
FT2	032172 032173 0   0   0            0            000000032173 
FT2RQ	032172 032173 0   0   0            0            000000032173 
FT3	032172 032173 0   0   0            0            000000032173 
FT9	032173 032173 0   0   0            0            000000032173 
ET0	032173 032173 0   0   0            0            000000032173 
ST1A	032173 032173 0   0   0            0            000000032173 
ST9	032173 032173 0   0   0            0            000000032173 


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


*032174 MOVE 	1,035103
INITIAL
C(AC)=000000 000000 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032174 032174 0   0   200040035103 0            000000000200 
IT1	032174 0      0   0   200040035103 0            000000000200 
AT3	032174 0      0   0   000000035103 0            200040035103 
AT6	032174 035103 0   0   000000035103 0            200040035103 
FT0	032174 035103 0   0   000000000200 0            200040035103 
FT1A	032174 035103 0   0   000000000200 0            000000000200 
FT9	032175 035103 0   0   000000000200 0            000000000200 
ET0	032175 035103 0   0   000000000200 0            000000000200 
ST1	032175 035103 0   0   000000000200 0            000000000200 
ST2	032175 035103 0   0   000000000200 0            000000000200 
ST9	032175 035103 0   0   000000000200 0            000000000200 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 219
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0435

*032175 AND 	1,000000
INITIAL
C(AC)=000000 000200 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032175 032175 0   0   404040000000 0            0            
IT1	032175 0      0   0   404040000000 0            0            
AT3	032175 0      0   0   0            0            404040000000 
AT6	032175 0      0   0   0            0            404040000000 
FT0	032175 0      0   0   0            0            404040000000 
FT1A	032175 0      0   0   0            0            0            
FT2	032175 0      0   0   0            0            0            
FT2RQ	032175 0      0   0   000000000200 0            0            
FT3	032175 0      0   0   000000000200 0            0            
FT9	032176 0      0   0   000000000200 0            0            
ET0	032176 0      0   0   0            0            0            
ST1	032176 0      0   0   0            0            0            
ST2	032176 0      0   0   0            0            0            
ST9	032176 0      0   0   0            0            0            


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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 220
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0436

*032200 JUMPA	0,032201
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000032201 0            000000032201 
IT1	0      0      0   0   324000032201 0            000000032201 
AT3	0      0      0   0   000000032201 0            324000032201 
AT6	0      032201 0   0   000000032201 0            324000032201 
FT1A	0      032201 0   0   000000032201 0            000000032201 
FT2	0      032201 0   0   0            0            000000032201 
FT2RQ	0      032201 0   0   0            0            000000032201 
FT3	0      032201 0   0   0            0            000000032201 
FT9	032201 032201 0   0   0            0            000000032201 
ET0	032201 032201 0   0   0            0            000000032201 
ST1A	032201 032201 0   0   0            0            000000032201 
ST9	032201 032201 0   0   0            0            000000032201 


*032201 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	032201 032201 0   0   332000000000 0            0            
IT1	032201 0      0   0   332000000000 0            0            
AT3	032201 0      0   0   0            0            332000000000 
AT6	032201 0      0   0   0            0            332000000000 
FT0	032201 0      0   0   0            0            332000000000 
FT1A	032201 0      0   0   0            0            0            
FT9	032202 0      0   0   0            0            0            
ET0	032203 0      0   0   0            0            0            
ST1A	032203 0      0   0   0            0            0            
ST9	032203 0      0   0   0            0            0            


*032203 JUMPA	0,032204
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032203 032203 0   0   324000032204 0            000000032204 
IT1	032203 0      0   0   324000032204 0            000000032204 
AT3	032203 0      0   0   000000032204 0            324000032204 
AT6	032203 032204 0   0   000000032204 0            324000032204 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 221
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0437

FT1A	032203 032204 0   0   000000032204 0            000000032204 
FT2	032203 032204 0   0   0            0            000000032204 
FT2RQ	032203 032204 0   0   0            0            000000032204 
FT3	032203 032204 0   0   0            0            000000032204 
FT9	032204 032204 0   0   0            0            000000032204 
ET0	032204 032204 0   0   0            0            000000032204 
ST1A	032204 032204 0   0   0            0            000000032204 
ST9	032204 032204 0   0   0            0            000000032204 


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


*032205 MOVE 	1,035104
INITIAL
C(AC)=000000 000000 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032205 032205 0   0   200040035104 0            000000000400 
IT1	032205 0      0   0   200040035104 0            000000000400 
AT3	032205 0      0   0   000000035104 0            200040035104 
AT6	032205 035104 0   0   000000035104 0            200040035104 
FT0	032205 035104 0   0   000000000400 0            200040035104 
FT1A	032205 035104 0   0   000000000400 0            000000000400 
FT9	032206 035104 0   0   000000000400 0            000000000400 
ET0	032206 035104 0   0   000000000400 0            000000000400 
ST1	032206 035104 0   0   000000000400 0            000000000400 
ST2	032206 035104 0   0   000000000400 0            000000000400 
ST9	032206 035104 0   0   000000000400 0            000000000400 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 222
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0438

*032206 AND 	1,000000
INITIAL
C(AC)=000000 000400 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032206 032206 0   0   404040000000 0            0            
IT1	032206 0      0   0   404040000000 0            0            
AT3	032206 0      0   0   0            0            404040000000 
AT6	032206 0      0   0   0            0            404040000000 
FT0	032206 0      0   0   0            0            404040000000 
FT1A	032206 0      0   0   0            0            0            
FT2	032206 0      0   0   0            0            0            
FT2RQ	032206 0      0   0   000000000400 0            0            
FT3	032206 0      0   0   000000000400 0            0            
FT9	032207 0      0   0   000000000400 0            0            
ET0	032207 0      0   0   0            0            0            
ST1	032207 0      0   0   0            0            0            
ST2	032207 0      0   0   0            0            0            
ST9	032207 0      0   0   0            0            0            


*032207 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	032207 032207 0   0   332000000001 0            0            
IT1	032207 0      0   0   332000000001 0            0            
AT3	032207 0      0   0   000000000001 0            332000000001 
AT6	032207 000001 0   0   000000000001 0            332000000001 
FT0	032207 000001 0   0   0            0            332000000001 
FT1A	032207 000001 0   0   0            0            0            
FT9	032210 000001 0   0   0            0            0            
ET0	032211 000001 0   0   0            0            0            
ST1A	032211 000001 0   0   0            0            0            
ST9	032211 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 223
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0439

*032211 JUMPA	0,032212
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032211 032211 0   0   324000032212 0            000000032212 
IT1	032211 0      0   0   324000032212 0            000000032212 
AT3	032211 0      0   0   000000032212 0            324000032212 
AT6	032211 032212 0   0   000000032212 0            324000032212 
FT1A	032211 032212 0   0   000000032212 0            000000032212 
FT2	032211 032212 0   0   0            0            000000032212 
FT2RQ	032211 032212 0   0   0            0            000000032212 
FT3	032211 032212 0   0   0            0            000000032212 
FT9	032212 032212 0   0   0            0            000000032212 
ET0	032212 032212 0   0   0            0            000000032212 
ST1A	032212 032212 0   0   0            0            000000032212 
ST9	032212 032212 0   0   0            0            000000032212 


*032212 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	032212 032212 0   0   332000000000 0            0            
IT1	032212 0      0   0   332000000000 0            0            
AT3	032212 0      0   0   0            0            332000000000 
AT6	032212 0      0   0   0            0            332000000000 
FT0	032212 0      0   0   0            0            332000000000 
FT1A	032212 0      0   0   0            0            0            
FT9	032213 0      0   0   0            0            0            
ET0	032214 0      0   0   0            0            0            
ST1A	032214 0      0   0   0            0            0            
ST9	032214 0      0   0   0            0            0            


*032214 JUMPA	0,032215
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032214 032214 0   0   324000032215 0            000000032215 
IT1	032214 0      0   0   324000032215 0            000000032215 
AT3	032214 0      0   0   000000032215 0            324000032215 
AT6	032214 032215 0   0   000000032215 0            324000032215 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 224
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0440

FT1A	032214 032215 0   0   000000032215 0            000000032215 
FT2	032214 032215 0   0   0            0            000000032215 
FT2RQ	032214 032215 0   0   0            0            000000032215 
FT3	032214 032215 0   0   0            0            000000032215 
FT9	032215 032215 0   0   0            0            000000032215 
ET0	032215 032215 0   0   0            0            000000032215 
ST1A	032215 032215 0   0   0            0            000000032215 
ST9	032215 032215 0   0   0            0            000000032215 


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


*032216 MOVE 	1,035105
INITIAL
C(AC)=000000 000000 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032216 032216 0   0   200040035105 0            000000001000 
IT1	032216 0      0   0   200040035105 0            000000001000 
AT3	032216 0      0   0   000000035105 0            200040035105 
AT6	032216 035105 0   0   000000035105 0            200040035105 
FT0	032216 035105 0   0   000000001000 0            200040035105 
FT1A	032216 035105 0   0   000000001000 0            000000001000 
FT9	032217 035105 0   0   000000001000 0            000000001000 
ET0	032217 035105 0   0   000000001000 0            000000001000 
ST1	032217 035105 0   0   000000001000 0            000000001000 
ST2	032217 035105 0   0   000000001000 0            000000001000 
ST9	032217 035105 0   0   000000001000 0            000000001000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 225
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0441

*032217 AND 	1,000000
INITIAL
C(AC)=000000 001000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032217 032217 0   0   404040000000 0            0            
IT1	032217 0      0   0   404040000000 0            0            
AT3	032217 0      0   0   0            0            404040000000 
AT6	032217 0      0   0   0            0            404040000000 
FT0	032217 0      0   0   0            0            404040000000 
FT1A	032217 0      0   0   0            0            0            
FT2	032217 0      0   0   0            0            0            
FT2RQ	032217 0      0   0   000000001000 0            0            
FT3	032217 0      0   0   000000001000 0            0            
FT9	032220 0      0   0   000000001000 0            0            
ET0	032220 0      0   0   0            0            0            
ST1	032220 0      0   0   0            0            0            
ST2	032220 0      0   0   0            0            0            
ST9	032220 0      0   0   0            0            0            


*032220 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	032220 032220 0   0   332000000001 0            0            
IT1	032220 0      0   0   332000000001 0            0            
AT3	032220 0      0   0   000000000001 0            332000000001 
AT6	032220 000001 0   0   000000000001 0            332000000001 
FT0	032220 000001 0   0   0            0            332000000001 
FT1A	032220 000001 0   0   0            0            0            
FT9	032221 000001 0   0   0            0            0            
ET0	032222 000001 0   0   0            0            0            
ST1A	032222 000001 0   0   0            0            0            
ST9	032222 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 226
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0442

*032222 JUMPA	0,032223
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032222 032222 0   0   324000032223 0            000000032223 
IT1	032222 0      0   0   324000032223 0            000000032223 
AT3	032222 0      0   0   000000032223 0            324000032223 
AT6	032222 032223 0   0   000000032223 0            324000032223 
FT1A	032222 032223 0   0   000000032223 0            000000032223 
FT2	032222 032223 0   0   0            0            000000032223 
FT2RQ	032222 032223 0   0   0            0            000000032223 
FT3	032222 032223 0   0   0            0            000000032223 
FT9	032223 032223 0   0   0            0            000000032223 
ET0	032223 032223 0   0   0            0            000000032223 
ST1A	032223 032223 0   0   0            0            000000032223 
ST9	032223 032223 0   0   0            0            000000032223 


*032223 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	032223 032223 0   0   332000000000 0            0            
IT1	032223 0      0   0   332000000000 0            0            
AT3	032223 0      0   0   0            0            332000000000 
AT6	032223 0      0   0   0            0            332000000000 
FT0	032223 0      0   0   0            0            332000000000 
FT1A	032223 0      0   0   0            0            0            
FT9	032224 0      0   0   0            0            0            
ET0	032225 0      0   0   0            0            0            
ST1A	032225 0      0   0   0            0            0            
ST9	032225 0      0   0   0            0            0            


*032225 JUMPA	0,032226
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032225 032225 0   0   324000032226 0            000000032226 
IT1	032225 0      0   0   324000032226 0            000000032226 
AT3	032225 0      0   0   000000032226 0            324000032226 
AT6	032225 032226 0   0   000000032226 0            324000032226 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 227
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0443

FT1A	032225 032226 0   0   000000032226 0            000000032226 
FT2	032225 032226 0   0   0            0            000000032226 
FT2RQ	032225 032226 0   0   0            0            000000032226 
FT3	032225 032226 0   0   0            0            000000032226 
FT9	032226 032226 0   0   0            0            000000032226 
ET0	032226 032226 0   0   0            0            000000032226 
ST1A	032226 032226 0   0   0            0            000000032226 
ST9	032226 032226 0   0   0            0            000000032226 


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


*032227 MOVE 	1,035106
INITIAL
C(AC)=000000 000000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032227 032227 0   0   200040035106 0            000000002000 
IT1	032227 0      0   0   200040035106 0            000000002000 
AT3	032227 0      0   0   000000035106 0            200040035106 
AT6	032227 035106 0   0   000000035106 0            200040035106 
FT0	032227 035106 0   0   000000002000 0            200040035106 
FT1A	032227 035106 0   0   000000002000 0            000000002000 
FT9	032230 035106 0   0   000000002000 0            000000002000 
ET0	032230 035106 0   0   000000002000 0            000000002000 
ST1	032230 035106 0   0   000000002000 0            000000002000 
ST2	032230 035106 0   0   000000002000 0            000000002000 
ST9	032230 035106 0   0   000000002000 0            000000002000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 228
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0444

*032230 AND 	1,000000
INITIAL
C(AC)=000000 002000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032230 032230 0   0   404040000000 0            0            
IT1	032230 0      0   0   404040000000 0            0            
AT3	032230 0      0   0   0            0            404040000000 
AT6	032230 0      0   0   0            0            404040000000 
FT0	032230 0      0   0   0            0            404040000000 
FT1A	032230 0      0   0   0            0            0            
FT2	032230 0      0   0   0            0            0            
FT2RQ	032230 0      0   0   000000002000 0            0            
FT3	032230 0      0   0   000000002000 0            0            
FT9	032231 0      0   0   000000002000 0            0            
ET0	032231 0      0   0   0            0            0            
ST1	032231 0      0   0   0            0            0            
ST2	032231 0      0   0   0            0            0            
ST9	032231 0      0   0   0            0            0            


*032231 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	032231 032231 0   0   332000000001 0            0            
IT1	032231 0      0   0   332000000001 0            0            
AT3	032231 0      0   0   000000000001 0            332000000001 
AT6	032231 000001 0   0   000000000001 0            332000000001 
FT0	032231 000001 0   0   0            0            332000000001 
FT1A	032231 000001 0   0   0            0            0            
FT9	032232 000001 0   0   0            0            0            
ET0	032233 000001 0   0   0            0            0            
ST1A	032233 000001 0   0   0            0            0            
ST9	032233 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 229
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0445

*032233 JUMPA	0,032234
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032233 032233 0   0   324000032234 0            000000032234 
IT1	032233 0      0   0   324000032234 0            000000032234 
AT3	032233 0      0   0   000000032234 0            324000032234 
AT6	032233 032234 0   0   000000032234 0            324000032234 
FT1A	032233 032234 0   0   000000032234 0            000000032234 
FT2	032233 032234 0   0   0            0            000000032234 
FT2RQ	032233 032234 0   0   0            0            000000032234 
FT3	032233 032234 0   0   0            0            000000032234 
FT9	032234 032234 0   0   0            0            000000032234 
ET0	032234 032234 0   0   0            0            000000032234 
ST1A	032234 032234 0   0   0            0            000000032234 
ST9	032234 032234 0   0   0            0            000000032234 


*032234 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	032234 032234 0   0   332000000000 0            0            
IT1	032234 0      0   0   332000000000 0            0            
AT3	032234 0      0   0   0            0            332000000000 
AT6	032234 0      0   0   0            0            332000000000 
FT0	032234 0      0   0   0            0            332000000000 
FT1A	032234 0      0   0   0            0            0            
FT9	032235 0      0   0   0            0            0            
ET0	032236 0      0   0   0            0            0            
ST1A	032236 0      0   0   0            0            0            
ST9	032236 0      0   0   0            0            0            


*032236 JUMPA	0,032237
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032236 032236 0   0   324000032237 0            000000032237 
IT1	032236 0      0   0   324000032237 0            000000032237 
AT3	032236 0      0   0   000000032237 0            324000032237 
AT6	032236 032237 0   0   000000032237 0            324000032237 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 230
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0446

FT1A	032236 032237 0   0   000000032237 0            000000032237 
FT2	032236 032237 0   0   0            0            000000032237 
FT2RQ	032236 032237 0   0   0            0            000000032237 
FT3	032236 032237 0   0   0            0            000000032237 
FT9	032237 032237 0   0   0            0            000000032237 
ET0	032237 032237 0   0   0            0            000000032237 
ST1A	032237 032237 0   0   0            0            000000032237 
ST9	032237 032237 0   0   0            0            000000032237 


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


*032240 MOVE 	1,035107
INITIAL
C(AC)=000000 000000 
C(E)=000000 004000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032240 032240 0   0   200040035107 0            000000004000 
IT1	032240 0      0   0   200040035107 0            000000004000 
AT3	032240 0      0   0   000000035107 0            200040035107 
AT6	032240 035107 0   0   000000035107 0            200040035107 
FT0	032240 035107 0   0   000000004000 0            200040035107 
FT1A	032240 035107 0   0   000000004000 0            000000004000 
FT9	032241 035107 0   0   000000004000 0            000000004000 
ET0	032241 035107 0   0   000000004000 0            000000004000 
ST1	032241 035107 0   0   000000004000 0            000000004000 
ST2	032241 035107 0   0   000000004000 0            000000004000 
ST9	032241 035107 0   0   000000004000 0            000000004000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 231
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0447

*032241 AND 	1,000000
INITIAL
C(AC)=000000 004000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032241 032241 0   0   404040000000 0            0            
IT1	032241 0      0   0   404040000000 0            0            
AT3	032241 0      0   0   0            0            404040000000 
AT6	032241 0      0   0   0            0            404040000000 
FT0	032241 0      0   0   0            0            404040000000 
FT1A	032241 0      0   0   0            0            0            
FT2	032241 0      0   0   0            0            0            
FT2RQ	032241 0      0   0   000000004000 0            0            
FT3	032241 0      0   0   000000004000 0            0            
FT9	032242 0      0   0   000000004000 0            0            
ET0	032242 0      0   0   0            0            0            
ST1	032242 0      0   0   0            0            0            
ST2	032242 0      0   0   0            0            0            
ST9	032242 0      0   0   0            0            0            


*032242 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	032242 032242 0   0   332000000001 0            0            
IT1	032242 0      0   0   332000000001 0            0            
AT3	032242 0      0   0   000000000001 0            332000000001 
AT6	032242 000001 0   0   000000000001 0            332000000001 
FT0	032242 000001 0   0   0            0            332000000001 
FT1A	032242 000001 0   0   0            0            0            
FT9	032243 000001 0   0   0            0            0            
ET0	032244 000001 0   0   0            0            0            
ST1A	032244 000001 0   0   0            0            0            
ST9	032244 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 232
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0448

*032244 JUMPA	0,032245
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032244 032244 0   0   324000032245 0            000000032245 
IT1	032244 0      0   0   324000032245 0            000000032245 
AT3	032244 0      0   0   000000032245 0            324000032245 
AT6	032244 032245 0   0   000000032245 0            324000032245 
FT1A	032244 032245 0   0   000000032245 0            000000032245 
FT2	032244 032245 0   0   0            0            000000032245 
FT2RQ	032244 032245 0   0   0            0            000000032245 
FT3	032244 032245 0   0   0            0            000000032245 
FT9	032245 032245 0   0   0            0            000000032245 
ET0	032245 032245 0   0   0            0            000000032245 
ST1A	032245 032245 0   0   0            0            000000032245 
ST9	032245 032245 0   0   0            0            000000032245 


*032245 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	032245 032245 0   0   332000000000 0            0            
IT1	032245 0      0   0   332000000000 0            0            
AT3	032245 0      0   0   0            0            332000000000 
AT6	032245 0      0   0   0            0            332000000000 
FT0	032245 0      0   0   0            0            332000000000 
FT1A	032245 0      0   0   0            0            0            
FT9	032246 0      0   0   0            0            0            
ET0	032247 0      0   0   0            0            0            
ST1A	032247 0      0   0   0            0            0            
ST9	032247 0      0   0   0            0            0            


*032247 JUMPA	0,032250
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032247 032247 0   0   324000032250 0            000000032250 
IT1	032247 0      0   0   324000032250 0            000000032250 
AT3	032247 0      0   0   000000032250 0            324000032250 
AT6	032247 032250 0   0   000000032250 0            324000032250 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 233
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0449

FT1A	032247 032250 0   0   000000032250 0            000000032250 
FT2	032247 032250 0   0   0            0            000000032250 
FT2RQ	032247 032250 0   0   0            0            000000032250 
FT3	032247 032250 0   0   0            0            000000032250 
FT9	032250 032250 0   0   0            0            000000032250 
ET0	032250 032250 0   0   0            0            000000032250 
ST1A	032250 032250 0   0   0            0            000000032250 
ST9	032250 032250 0   0   0            0            000000032250 


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


*032251 MOVE 	1,035110
INITIAL
C(AC)=000000 000000 
C(E)=000000 010000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032251 032251 0   0   200040035110 0            000000010000 
IT1	032251 0      0   0   200040035110 0            000000010000 
AT3	032251 0      0   0   000000035110 0            200040035110 
AT6	032251 035110 0   0   000000035110 0            200040035110 
FT0	032251 035110 0   0   000000010000 0            200040035110 
FT1A	032251 035110 0   0   000000010000 0            000000010000 
FT9	032252 035110 0   0   000000010000 0            000000010000 
ET0	032252 035110 0   0   000000010000 0            000000010000 
ST1	032252 035110 0   0   000000010000 0            000000010000 
ST2	032252 035110 0   0   000000010000 0            000000010000 
ST9	032252 035110 0   0   000000010000 0            000000010000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 234
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0450

*032252 AND 	1,000000
INITIAL
C(AC)=000000 010000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032252 032252 0   0   404040000000 0            0            
IT1	032252 0      0   0   404040000000 0            0            
AT3	032252 0      0   0   0            0            404040000000 
AT6	032252 0      0   0   0            0            404040000000 
FT0	032252 0      0   0   0            0            404040000000 
FT1A	032252 0      0   0   0            0            0            
FT2	032252 0      0   0   0            0            0            
FT2RQ	032252 0      0   0   000000010000 0            0            
FT3	032252 0      0   0   000000010000 0            0            
FT9	032253 0      0   0   000000010000 0            0            
ET0	032253 0      0   0   0            0            0            
ST1	032253 0      0   0   0            0            0            
ST2	032253 0      0   0   0            0            0            
ST9	032253 0      0   0   0            0            0            


*032253 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	032253 032253 0   0   332000000001 0            0            
IT1	032253 0      0   0   332000000001 0            0            
AT3	032253 0      0   0   000000000001 0            332000000001 
AT6	032253 000001 0   0   000000000001 0            332000000001 
FT0	032253 000001 0   0   0            0            332000000001 
FT1A	032253 000001 0   0   0            0            0            
FT9	032254 000001 0   0   0            0            0            
ET0	032255 000001 0   0   0            0            0            
ST1A	032255 000001 0   0   0            0            0            
ST9	032255 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 235
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0451

*032255 JUMPA	0,032256
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032255 032255 0   0   324000032256 0            000000032256 
IT1	032255 0      0   0   324000032256 0            000000032256 
AT3	032255 0      0   0   000000032256 0            324000032256 
AT6	032255 032256 0   0   000000032256 0            324000032256 
FT1A	032255 032256 0   0   000000032256 0            000000032256 
FT2	032255 032256 0   0   0            0            000000032256 
FT2RQ	032255 032256 0   0   0            0            000000032256 
FT3	032255 032256 0   0   0            0            000000032256 
FT9	032256 032256 0   0   0            0            000000032256 
ET0	032256 032256 0   0   0            0            000000032256 
ST1A	032256 032256 0   0   0            0            000000032256 
ST9	032256 032256 0   0   0            0            000000032256 


*032256 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	032256 032256 0   0   332000000000 0            0            
IT1	032256 0      0   0   332000000000 0            0            
AT3	032256 0      0   0   0            0            332000000000 
AT6	032256 0      0   0   0            0            332000000000 
FT0	032256 0      0   0   0            0            332000000000 
FT1A	032256 0      0   0   0            0            0            
FT9	032257 0      0   0   0            0            0            
ET0	032260 0      0   0   0            0            0            
ST1A	032260 0      0   0   0            0            0            
ST9	032260 0      0   0   0            0            0            


*032260 JUMPA	0,032261
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032260 032260 0   0   324000032261 0            000000032261 
IT1	032260 0      0   0   324000032261 0            000000032261 
AT3	032260 0      0   0   000000032261 0            324000032261 
AT6	032260 032261 0   0   000000032261 0            324000032261 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 236
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0452

FT1A	032260 032261 0   0   000000032261 0            000000032261 
FT2	032260 032261 0   0   0            0            000000032261 
FT2RQ	032260 032261 0   0   0            0            000000032261 
FT3	032260 032261 0   0   0            0            000000032261 
FT9	032261 032261 0   0   0            0            000000032261 
ET0	032261 032261 0   0   0            0            000000032261 
ST1A	032261 032261 0   0   0            0            000000032261 
ST9	032261 032261 0   0   0            0            000000032261 


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


*032262 MOVE 	1,035111
INITIAL
C(AC)=000000 000000 
C(E)=000000 020000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032262 032262 0   0   200040035111 0            000000020000 
IT1	032262 0      0   0   200040035111 0            000000020000 
AT3	032262 0      0   0   000000035111 0            200040035111 
AT6	032262 035111 0   0   000000035111 0            200040035111 
FT0	032262 035111 0   0   000000020000 0            200040035111 
FT1A	032262 035111 0   0   000000020000 0            000000020000 
FT9	032263 035111 0   0   000000020000 0            000000020000 
ET0	032263 035111 0   0   000000020000 0            000000020000 
ST1	032263 035111 0   0   000000020000 0            000000020000 
ST2	032263 035111 0   0   000000020000 0            000000020000 
ST9	032263 035111 0   0   000000020000 0            000000020000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 237
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0453

*032263 AND 	1,000000
INITIAL
C(AC)=000000 020000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032263 032263 0   0   404040000000 0            0            
IT1	032263 0      0   0   404040000000 0            0            
AT3	032263 0      0   0   0            0            404040000000 
AT6	032263 0      0   0   0            0            404040000000 
FT0	032263 0      0   0   0            0            404040000000 
FT1A	032263 0      0   0   0            0            0            
FT2	032263 0      0   0   0            0            0            
FT2RQ	032263 0      0   0   000000020000 0            0            
FT3	032263 0      0   0   000000020000 0            0            
FT9	032264 0      0   0   000000020000 0            0            
ET0	032264 0      0   0   0            0            0            
ST1	032264 0      0   0   0            0            0            
ST2	032264 0      0   0   0            0            0            
ST9	032264 0      0   0   0            0            0            


*032264 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	032264 032264 0   0   332000000001 0            0            
IT1	032264 0      0   0   332000000001 0            0            
AT3	032264 0      0   0   000000000001 0            332000000001 
AT6	032264 000001 0   0   000000000001 0            332000000001 
FT0	032264 000001 0   0   0            0            332000000001 
FT1A	032264 000001 0   0   0            0            0            
FT9	032265 000001 0   0   0            0            0            
ET0	032266 000001 0   0   0            0            0            
ST1A	032266 000001 0   0   0            0            0            
ST9	032266 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 238
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0454

*032266 JUMPA	0,032267
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032266 032266 0   0   324000032267 0            000000032267 
IT1	032266 0      0   0   324000032267 0            000000032267 
AT3	032266 0      0   0   000000032267 0            324000032267 
AT6	032266 032267 0   0   000000032267 0            324000032267 
FT1A	032266 032267 0   0   000000032267 0            000000032267 
FT2	032266 032267 0   0   0            0            000000032267 
FT2RQ	032266 032267 0   0   0            0            000000032267 
FT3	032266 032267 0   0   0            0            000000032267 
FT9	032267 032267 0   0   0            0            000000032267 
ET0	032267 032267 0   0   0            0            000000032267 
ST1A	032267 032267 0   0   0            0            000000032267 
ST9	032267 032267 0   0   0            0            000000032267 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032267 032267 0   0   332000000000 0            0            
IT1	032267 0      0   0   332000000000 0            0            
AT3	032267 0      0   0   0            0            332000000000 
AT6	032267 0      0   0   0            0            332000000000 
FT0	032267 0      0   0   0            0            332000000000 
FT1A	032267 0      0   0   0            0            0            
FT9	032270 0      0   0   0            0            0            
ET0	032271 0      0   0   0            0            0            
ST1A	032271 0      0   0   0            0            0            
ST9	032271 0      0   0   0            0            0            


*032271 JUMPA	0,032272
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032271 032271 0   0   324000032272 0            000000032272 
IT1	032271 0      0   0   324000032272 0            000000032272 
AT3	032271 0      0   0   000000032272 0            324000032272 
AT6	032271 032272 0   0   000000032272 0            324000032272 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 239
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0455

FT1A	032271 032272 0   0   000000032272 0            000000032272 
FT2	032271 032272 0   0   0            0            000000032272 
FT2RQ	032271 032272 0   0   0            0            000000032272 
FT3	032271 032272 0   0   0            0            000000032272 
FT9	032272 032272 0   0   0            0            000000032272 
ET0	032272 032272 0   0   0            0            000000032272 
ST1A	032272 032272 0   0   0            0            000000032272 
ST9	032272 032272 0   0   0            0            000000032272 


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


*032273 MOVE 	1,035112
INITIAL
C(AC)=000000 000000 
C(E)=000000 040000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032273 032273 0   0   200040035112 0            000000040000 
IT1	032273 0      0   0   200040035112 0            000000040000 
AT3	032273 0      0   0   000000035112 0            200040035112 
AT6	032273 035112 0   0   000000035112 0            200040035112 
FT0	032273 035112 0   0   000000040000 0            200040035112 
FT1A	032273 035112 0   0   000000040000 0            000000040000 
FT9	032274 035112 0   0   000000040000 0            000000040000 
ET0	032274 035112 0   0   000000040000 0            000000040000 
ST1	032274 035112 0   0   000000040000 0            000000040000 
ST2	032274 035112 0   0   000000040000 0            000000040000 
ST9	032274 035112 0   0   000000040000 0            000000040000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 240
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0456

*032274 AND 	1,000000
INITIAL
C(AC)=000000 040000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032274 032274 0   0   404040000000 0            0            
IT1	032274 0      0   0   404040000000 0            0            
AT3	032274 0      0   0   0            0            404040000000 
AT6	032274 0      0   0   0            0            404040000000 
FT0	032274 0      0   0   0            0            404040000000 
FT1A	032274 0      0   0   0            0            0            
FT2	032274 0      0   0   0            0            0            
FT2RQ	032274 0      0   0   000000040000 0            0            
FT3	032274 0      0   0   000000040000 0            0            
FT9	032275 0      0   0   000000040000 0            0            
ET0	032275 0      0   0   0            0            0            
ST1	032275 0      0   0   0            0            0            
ST2	032275 0      0   0   0            0            0            
ST9	032275 0      0   0   0            0            0            


*032275 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	032275 032275 0   0   332000000001 0            0            
IT1	032275 0      0   0   332000000001 0            0            
AT3	032275 0      0   0   000000000001 0            332000000001 
AT6	032275 000001 0   0   000000000001 0            332000000001 
FT0	032275 000001 0   0   0            0            332000000001 
FT1A	032275 000001 0   0   0            0            0            
FT9	032276 000001 0   0   0            0            0            
ET0	032277 000001 0   0   0            0            0            
ST1A	032277 000001 0   0   0            0            0            
ST9	032277 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 241
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0457

*032277 JUMPA	0,032300
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032277 032277 0   0   324000032300 0            000000032300 
IT1	032277 0      0   0   324000032300 0            000000032300 
AT3	032277 0      0   0   000000032300 0            324000032300 
AT6	032277 0      0   0   000000032300 0            324000032300 
FT1A	032277 0      0   0   000000032300 0            000000032300 
FT2	032277 0      0   0   0            0            000000032300 
FT2RQ	032277 0      0   0   0            0            000000032300 
FT3	032277 0      0   0   0            0            000000032300 
FT9	0      0      0   0   0            0            000000032300 
ET0	0      0      0   0   0            0            000000032300 
ST1A	0      0      0   0   0            0            000000032300 
ST9	0      0      0   0   0            0            000000032300 


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

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


*032302 JUMPA	0,032303
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032302 032302 0   0   324000032303 0            000000032303 
IT1	032302 0      0   0   324000032303 0            000000032303 
AT3	032302 0      0   0   000000032303 0            324000032303 
AT6	032302 032303 0   0   000000032303 0            324000032303 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 242
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0458

FT1A	032302 032303 0   0   000000032303 0            000000032303 
FT2	032302 032303 0   0   0            0            000000032303 
FT2RQ	032302 032303 0   0   0            0            000000032303 
FT3	032302 032303 0   0   0            0            000000032303 
FT9	032303 032303 0   0   0            0            000000032303 
ET0	032303 032303 0   0   0            0            000000032303 
ST1A	032303 032303 0   0   0            0            000000032303 
ST9	032303 032303 0   0   0            0            000000032303 


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


*032304 MOVE 	1,035113
INITIAL
C(AC)=000000 000000 
C(E)=000000 100000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032304 032304 0   0   200040035113 0            000000100000 
IT1	032304 0      0   0   200040035113 0            000000100000 
AT3	032304 0      0   0   000000035113 0            200040035113 
AT6	032304 035113 0   0   000000035113 0            200040035113 
FT0	032304 035113 0   0   000000100000 0            200040035113 
FT1A	032304 035113 0   0   000000100000 0            000000100000 
FT9	032305 035113 0   0   000000100000 0            000000100000 
ET0	032305 035113 0   0   000000100000 0            000000100000 
ST1	032305 035113 0   0   000000100000 0            000000100000 
ST2	032305 035113 0   0   000000100000 0            000000100000 
ST9	032305 035113 0   0   000000100000 0            000000100000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 243
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0459

*032305 AND 	1,000000
INITIAL
C(AC)=000000 100000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032305 032305 0   0   404040000000 0            0            
IT1	032305 0      0   0   404040000000 0            0            
AT3	032305 0      0   0   0            0            404040000000 
AT6	032305 0      0   0   0            0            404040000000 
FT0	032305 0      0   0   0            0            404040000000 
FT1A	032305 0      0   0   0            0            0            
FT2	032305 0      0   0   0            0            0            
FT2RQ	032305 0      0   0   000000100000 0            0            
FT3	032305 0      0   0   000000100000 0            0            
FT9	032306 0      0   0   000000100000 0            0            
ET0	032306 0      0   0   0            0            0            
ST1	032306 0      0   0   0            0            0            
ST2	032306 0      0   0   0            0            0            
ST9	032306 0      0   0   0            0            0            


*032306 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	032306 032306 0   0   332000000001 0            0            
IT1	032306 0      0   0   332000000001 0            0            
AT3	032306 0      0   0   000000000001 0            332000000001 
AT6	032306 000001 0   0   000000000001 0            332000000001 
FT0	032306 000001 0   0   0            0            332000000001 
FT1A	032306 000001 0   0   0            0            0            
FT9	032307 000001 0   0   0            0            0            
ET0	032310 000001 0   0   0            0            0            
ST1A	032310 000001 0   0   0            0            0            
ST9	032310 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 244
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0460

*032310 JUMPA	0,032311
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032310 032310 0   0   324000032311 0            000000032311 
IT1	032310 0      0   0   324000032311 0            000000032311 
AT3	032310 0      0   0   000000032311 0            324000032311 
AT6	032310 032311 0   0   000000032311 0            324000032311 
FT1A	032310 032311 0   0   000000032311 0            000000032311 
FT2	032310 032311 0   0   0            0            000000032311 
FT2RQ	032310 032311 0   0   0            0            000000032311 
FT3	032310 032311 0   0   0            0            000000032311 
FT9	032311 032311 0   0   0            0            000000032311 
ET0	032311 032311 0   0   0            0            000000032311 
ST1A	032311 032311 0   0   0            0            000000032311 
ST9	032311 032311 0   0   0            0            000000032311 


*032311 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	032311 032311 0   0   332000000000 0            0            
IT1	032311 0      0   0   332000000000 0            0            
AT3	032311 0      0   0   0            0            332000000000 
AT6	032311 0      0   0   0            0            332000000000 
FT0	032311 0      0   0   0            0            332000000000 
FT1A	032311 0      0   0   0            0            0            
FT9	032312 0      0   0   0            0            0            
ET0	032313 0      0   0   0            0            0            
ST1A	032313 0      0   0   0            0            0            
ST9	032313 0      0   0   0            0            0            


*032313 JUMPA	0,032314
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032313 032313 0   0   324000032314 0            000000032314 
IT1	032313 0      0   0   324000032314 0            000000032314 
AT3	032313 0      0   0   000000032314 0            324000032314 
AT6	032313 032314 0   0   000000032314 0            324000032314 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 245
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0461

FT1A	032313 032314 0   0   000000032314 0            000000032314 
FT2	032313 032314 0   0   0            0            000000032314 
FT2RQ	032313 032314 0   0   0            0            000000032314 
FT3	032313 032314 0   0   0            0            000000032314 
FT9	032314 032314 0   0   0            0            000000032314 
ET0	032314 032314 0   0   0            0            000000032314 
ST1A	032314 032314 0   0   0            0            000000032314 
ST9	032314 032314 0   0   0            0            000000032314 


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


*032315 MOVE 	1,035114
INITIAL
C(AC)=000000 000000 
C(E)=000000 200000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032315 032315 0   0   200040035114 0            000000200000 
IT1	032315 0      0   0   200040035114 0            000000200000 
AT3	032315 0      0   0   000000035114 0            200040035114 
AT6	032315 035114 0   0   000000035114 0            200040035114 
FT0	032315 035114 0   0   000000200000 0            200040035114 
FT1A	032315 035114 0   0   000000200000 0            000000200000 
FT9	032316 035114 0   0   000000200000 0            000000200000 
ET0	032316 035114 0   0   000000200000 0            000000200000 
ST1	032316 035114 0   0   000000200000 0            000000200000 
ST2	032316 035114 0   0   000000200000 0            000000200000 
ST9	032316 035114 0   0   000000200000 0            000000200000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 246
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0462

*032316 AND 	1,000000
INITIAL
C(AC)=000000 200000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032316 032316 0   0   404040000000 0            0            
IT1	032316 0      0   0   404040000000 0            0            
AT3	032316 0      0   0   0            0            404040000000 
AT6	032316 0      0   0   0            0            404040000000 
FT0	032316 0      0   0   0            0            404040000000 
FT1A	032316 0      0   0   0            0            0            
FT2	032316 0      0   0   0            0            0            
FT2RQ	032316 0      0   0   000000200000 0            0            
FT3	032316 0      0   0   000000200000 0            0            
FT9	032317 0      0   0   000000200000 0            0            
ET0	032317 0      0   0   0            0            0            
ST1	032317 0      0   0   0            0            0            
ST2	032317 0      0   0   0            0            0            
ST9	032317 0      0   0   0            0            0            


*032317 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	032317 032317 0   0   332000000001 0            0            
IT1	032317 0      0   0   332000000001 0            0            
AT3	032317 0      0   0   000000000001 0            332000000001 
AT6	032317 000001 0   0   000000000001 0            332000000001 
FT0	032317 000001 0   0   0            0            332000000001 
FT1A	032317 000001 0   0   0            0            0            
FT9	032320 000001 0   0   0            0            0            
ET0	032321 000001 0   0   0            0            0            
ST1A	032321 000001 0   0   0            0            0            
ST9	032321 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 247
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0463

*032321 JUMPA	0,032322
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032321 032321 0   0   324000032322 0            000000032322 
IT1	032321 0      0   0   324000032322 0            000000032322 
AT3	032321 0      0   0   000000032322 0            324000032322 
AT6	032321 032322 0   0   000000032322 0            324000032322 
FT1A	032321 032322 0   0   000000032322 0            000000032322 
FT2	032321 032322 0   0   0            0            000000032322 
FT2RQ	032321 032322 0   0   0            0            000000032322 
FT3	032321 032322 0   0   0            0            000000032322 
FT9	032322 032322 0   0   0            0            000000032322 
ET0	032322 032322 0   0   0            0            000000032322 
ST1A	032322 032322 0   0   0            0            000000032322 
ST9	032322 032322 0   0   0            0            000000032322 


*032322 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	032322 032322 0   0   332000000000 0            0            
IT1	032322 0      0   0   332000000000 0            0            
AT3	032322 0      0   0   0            0            332000000000 
AT6	032322 0      0   0   0            0            332000000000 
FT0	032322 0      0   0   0            0            332000000000 
FT1A	032322 0      0   0   0            0            0            
FT9	032323 0      0   0   0            0            0            
ET0	032324 0      0   0   0            0            0            
ST1A	032324 0      0   0   0            0            0            
ST9	032324 0      0   0   0            0            0            


*032324 JUMPA	0,032325
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032324 032324 0   0   324000032325 0            000000032325 
IT1	032324 0      0   0   324000032325 0            000000032325 
AT3	032324 0      0   0   000000032325 0            324000032325 
AT6	032324 032325 0   0   000000032325 0            324000032325 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 248
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0464

FT1A	032324 032325 0   0   000000032325 0            000000032325 
FT2	032324 032325 0   0   0            0            000000032325 
FT2RQ	032324 032325 0   0   0            0            000000032325 
FT3	032324 032325 0   0   0            0            000000032325 
FT9	032325 032325 0   0   0            0            000000032325 
ET0	032325 032325 0   0   0            0            000000032325 
ST1A	032325 032325 0   0   0            0            000000032325 
ST9	032325 032325 0   0   0            0            000000032325 


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


*032326 MOVE 	1,035115
INITIAL
C(AC)=000000 000000 
C(E)=000000 400000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032326 032326 0   0   200040035115 0            000000400000 
IT1	032326 0      0   0   200040035115 0            000000400000 
AT3	032326 0      0   0   000000035115 0            200040035115 
AT6	032326 035115 0   0   000000035115 0            200040035115 
FT0	032326 035115 0   0   000000400000 0            200040035115 
FT1A	032326 035115 0   0   000000400000 0            000000400000 
FT9	032327 035115 0   0   000000400000 0            000000400000 
ET0	032327 035115 0   0   000000400000 0            000000400000 
ST1	032327 035115 0   0   000000400000 0            000000400000 
ST2	032327 035115 0   0   000000400000 0            000000400000 
ST9	032327 035115 0   0   000000400000 0            000000400000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 249
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0465

*032327 AND 	1,000000
INITIAL
C(AC)=000000 400000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032327 032327 0   0   404040000000 0            0            
IT1	032327 0      0   0   404040000000 0            0            
AT3	032327 0      0   0   0            0            404040000000 
AT6	032327 0      0   0   0            0            404040000000 
FT0	032327 0      0   0   0            0            404040000000 
FT1A	032327 0      0   0   0            0            0            
FT2	032327 0      0   0   0            0            0            
FT2RQ	032327 0      0   0   000000400000 0            0            
FT3	032327 0      0   0   000000400000 0            0            
FT9	032330 0      0   0   000000400000 0            0            
ET0	032330 0      0   0   0            0            0            
ST1	032330 0      0   0   0            0            0            
ST2	032330 0      0   0   0            0            0            
ST9	032330 0      0   0   0            0            0            


*032330 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	032330 032330 0   0   332000000001 0            0            
IT1	032330 0      0   0   332000000001 0            0            
AT3	032330 0      0   0   000000000001 0            332000000001 
AT6	032330 000001 0   0   000000000001 0            332000000001 
FT0	032330 000001 0   0   0            0            332000000001 
FT1A	032330 000001 0   0   0            0            0            
FT9	032331 000001 0   0   0            0            0            
ET0	032332 000001 0   0   0            0            0            
ST1A	032332 000001 0   0   0            0            0            
ST9	032332 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 250
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0466

*032332 JUMPA	0,032333
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032332 032332 0   0   324000032333 0            000000032333 
IT1	032332 0      0   0   324000032333 0            000000032333 
AT3	032332 0      0   0   000000032333 0            324000032333 
AT6	032332 032333 0   0   000000032333 0            324000032333 
FT1A	032332 032333 0   0   000000032333 0            000000032333 
FT2	032332 032333 0   0   0            0            000000032333 
FT2RQ	032332 032333 0   0   0            0            000000032333 
FT3	032332 032333 0   0   0            0            000000032333 
FT9	032333 032333 0   0   0            0            000000032333 
ET0	032333 032333 0   0   0            0            000000032333 
ST1A	032333 032333 0   0   0            0            000000032333 
ST9	032333 032333 0   0   0            0            000000032333 


*032333 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	032333 032333 0   0   332000000000 0            0            
IT1	032333 0      0   0   332000000000 0            0            
AT3	032333 0      0   0   0            0            332000000000 
AT6	032333 0      0   0   0            0            332000000000 
FT0	032333 0      0   0   0            0            332000000000 
FT1A	032333 0      0   0   0            0            0            
FT9	032334 0      0   0   0            0            0            
ET0	032335 0      0   0   0            0            0            
ST1A	032335 0      0   0   0            0            0            
ST9	032335 0      0   0   0            0            0            


*032335 JUMPA	0,032336
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032335 032335 0   0   324000032336 0            000000032336 
IT1	032335 0      0   0   324000032336 0            000000032336 
AT3	032335 0      0   0   000000032336 0            324000032336 
AT6	032335 032336 0   0   000000032336 0            324000032336 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 251
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0467

FT1A	032335 032336 0   0   000000032336 0            000000032336 
FT2	032335 032336 0   0   0            0            000000032336 
FT2RQ	032335 032336 0   0   0            0            000000032336 
FT3	032335 032336 0   0   0            0            000000032336 
FT9	032336 032336 0   0   0            0            000000032336 
ET0	032336 032336 0   0   0            0            000000032336 
ST1A	032336 032336 0   0   0            0            000000032336 
ST9	032336 032336 0   0   0            0            000000032336 


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


*032337 MOVE 	1,035116
INITIAL
C(AC)=000000 000000 
C(E)=000001 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032337 032337 0   0   200040035116 0            000001000000 
IT1	032337 0      0   0   200040035116 0            000001000000 
AT3	032337 0      0   0   000000035116 0            200040035116 
AT6	032337 035116 0   0   000000035116 0            200040035116 
FT0	032337 035116 0   0   000001000000 0            200040035116 
FT1A	032337 035116 0   0   000001000000 0            000001000000 
FT9	032340 035116 0   0   000001000000 0            000001000000 
ET0	032340 035116 0   0   000001000000 0            000001000000 
ST1	032340 035116 0   0   000001000000 0            000001000000 
ST2	032340 035116 0   0   000001000000 0            000001000000 
ST9	032340 035116 0   0   000001000000 0            000001000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 252
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0468

*032340 AND 	1,000000
INITIAL
C(AC)=000001 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032340 032340 0   0   404040000000 0            0            
IT1	032340 0      0   0   404040000000 0            0            
AT3	032340 0      0   0   0            0            404040000000 
AT6	032340 0      0   0   0            0            404040000000 
FT0	032340 0      0   0   0            0            404040000000 
FT1A	032340 0      0   0   0            0            0            
FT2	032340 0      0   0   0            0            0            
FT2RQ	032340 0      0   0   000001000000 0            0            
FT3	032340 0      0   0   000001000000 0            0            
FT9	032341 0      0   0   000001000000 0            0            
ET0	032341 0      0   0   0            0            0            
ST1	032341 0      0   0   0            0            0            
ST2	032341 0      0   0   0            0            0            
ST9	032341 0      0   0   0            0            0            


*032341 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	032341 032341 0   0   332000000001 0            0            
IT1	032341 0      0   0   332000000001 0            0            
AT3	032341 0      0   0   000000000001 0            332000000001 
AT6	032341 000001 0   0   000000000001 0            332000000001 
FT0	032341 000001 0   0   0            0            332000000001 
FT1A	032341 000001 0   0   0            0            0            
FT9	032342 000001 0   0   0            0            0            
ET0	032343 000001 0   0   0            0            0            
ST1A	032343 000001 0   0   0            0            0            
ST9	032343 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 253
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0469

*032343 JUMPA	0,032344
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032343 032343 0   0   324000032344 0            000000032344 
IT1	032343 0      0   0   324000032344 0            000000032344 
AT3	032343 0      0   0   000000032344 0            324000032344 
AT6	032343 032344 0   0   000000032344 0            324000032344 
FT1A	032343 032344 0   0   000000032344 0            000000032344 
FT2	032343 032344 0   0   0            0            000000032344 
FT2RQ	032343 032344 0   0   0            0            000000032344 
FT3	032343 032344 0   0   0            0            000000032344 
FT9	032344 032344 0   0   0            0            000000032344 
ET0	032344 032344 0   0   0            0            000000032344 
ST1A	032344 032344 0   0   0            0            000000032344 
ST9	032344 032344 0   0   0            0            000000032344 


*032344 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	032344 032344 0   0   332000000000 0            0            
IT1	032344 0      0   0   332000000000 0            0            
AT3	032344 0      0   0   0            0            332000000000 
AT6	032344 0      0   0   0            0            332000000000 
FT0	032344 0      0   0   0            0            332000000000 
FT1A	032344 0      0   0   0            0            0            
FT9	032345 0      0   0   0            0            0            
ET0	032346 0      0   0   0            0            0            
ST1A	032346 0      0   0   0            0            0            
ST9	032346 0      0   0   0            0            0            


*032346 JUMPA	0,032347
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032346 032346 0   0   324000032347 0            000000032347 
IT1	032346 0      0   0   324000032347 0            000000032347 
AT3	032346 0      0   0   000000032347 0            324000032347 
AT6	032346 032347 0   0   000000032347 0            324000032347 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 254
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0470

FT1A	032346 032347 0   0   000000032347 0            000000032347 
FT2	032346 032347 0   0   0            0            000000032347 
FT2RQ	032346 032347 0   0   0            0            000000032347 
FT3	032346 032347 0   0   0            0            000000032347 
FT9	032347 032347 0   0   0            0            000000032347 
ET0	032347 032347 0   0   0            0            000000032347 
ST1A	032347 032347 0   0   0            0            000000032347 
ST9	032347 032347 0   0   0            0            000000032347 


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


*032350 MOVE 	1,035117
INITIAL
C(AC)=000000 000000 
C(E)=000002 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032350 032350 0   0   200040035117 0            000002000000 
IT1	032350 0      0   0   200040035117 0            000002000000 
AT3	032350 0      0   0   000000035117 0            200040035117 
AT6	032350 035117 0   0   000000035117 0            200040035117 
FT0	032350 035117 0   0   000002000000 0            200040035117 
FT1A	032350 035117 0   0   000002000000 0            000002000000 
FT9	032351 035117 0   0   000002000000 0            000002000000 
ET0	032351 035117 0   0   000002000000 0            000002000000 
ST1	032351 035117 0   0   000002000000 0            000002000000 
ST2	032351 035117 0   0   000002000000 0            000002000000 
ST9	032351 035117 0   0   000002000000 0            000002000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 255
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0471

*032351 AND 	1,000000
INITIAL
C(AC)=000002 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032351 032351 0   0   404040000000 0            0            
IT1	032351 0      0   0   404040000000 0            0            
AT3	032351 0      0   0   0            0            404040000000 
AT6	032351 0      0   0   0            0            404040000000 
FT0	032351 0      0   0   0            0            404040000000 
FT1A	032351 0      0   0   0            0            0            
FT2	032351 0      0   0   0            0            0            
FT2RQ	032351 0      0   0   000002000000 0            0            
FT3	032351 0      0   0   000002000000 0            0            
FT9	032352 0      0   0   000002000000 0            0            
ET0	032352 0      0   0   0            0            0            
ST1	032352 0      0   0   0            0            0            
ST2	032352 0      0   0   0            0            0            
ST9	032352 0      0   0   0            0            0            


*032352 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	032352 032352 0   0   332000000001 0            0            
IT1	032352 0      0   0   332000000001 0            0            
AT3	032352 0      0   0   000000000001 0            332000000001 
AT6	032352 000001 0   0   000000000001 0            332000000001 
FT0	032352 000001 0   0   0            0            332000000001 
FT1A	032352 000001 0   0   0            0            0            
FT9	032353 000001 0   0   0            0            0            
ET0	032354 000001 0   0   0            0            0            
ST1A	032354 000001 0   0   0            0            0            
ST9	032354 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 256
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0472

*032354 JUMPA	0,032355
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032354 032354 0   0   324000032355 0            000000032355 
IT1	032354 0      0   0   324000032355 0            000000032355 
AT3	032354 0      0   0   000000032355 0            324000032355 
AT6	032354 032355 0   0   000000032355 0            324000032355 
FT1A	032354 032355 0   0   000000032355 0            000000032355 
FT2	032354 032355 0   0   0            0            000000032355 
FT2RQ	032354 032355 0   0   0            0            000000032355 
FT3	032354 032355 0   0   0            0            000000032355 
FT9	032355 032355 0   0   0            0            000000032355 
ET0	032355 032355 0   0   0            0            000000032355 
ST1A	032355 032355 0   0   0            0            000000032355 
ST9	032355 032355 0   0   0            0            000000032355 


*032355 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	032355 032355 0   0   332000000000 0            0            
IT1	032355 0      0   0   332000000000 0            0            
AT3	032355 0      0   0   0            0            332000000000 
AT6	032355 0      0   0   0            0            332000000000 
FT0	032355 0      0   0   0            0            332000000000 
FT1A	032355 0      0   0   0            0            0            
FT9	032356 0      0   0   0            0            0            
ET0	032357 0      0   0   0            0            0            
ST1A	032357 0      0   0   0            0            0            
ST9	032357 0      0   0   0            0            0            


*032357 JUMPA	0,032360
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032357 032357 0   0   324000032360 0            000000032360 
IT1	032357 0      0   0   324000032360 0            000000032360 
AT3	032357 0      0   0   000000032360 0            324000032360 
AT6	032357 032360 0   0   000000032360 0            324000032360 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 257
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0473

FT1A	032357 032360 0   0   000000032360 0            000000032360 
FT2	032357 032360 0   0   0            0            000000032360 
FT2RQ	032357 032360 0   0   0            0            000000032360 
FT3	032357 032360 0   0   0            0            000000032360 
FT9	032360 032360 0   0   0            0            000000032360 
ET0	032360 032360 0   0   0            0            000000032360 
ST1A	032360 032360 0   0   0            0            000000032360 
ST9	032360 032360 0   0   0            0            000000032360 


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


*032361 MOVE 	1,035120
INITIAL
C(AC)=000000 000000 
C(E)=000004 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032361 032361 0   0   200040035120 0            000004000000 
IT1	032361 0      0   0   200040035120 0            000004000000 
AT3	032361 0      0   0   000000035120 0            200040035120 
AT6	032361 035120 0   0   000000035120 0            200040035120 
FT0	032361 035120 0   0   000004000000 0            200040035120 
FT1A	032361 035120 0   0   000004000000 0            000004000000 
FT9	032362 035120 0   0   000004000000 0            000004000000 
ET0	032362 035120 0   0   000004000000 0            000004000000 
ST1	032362 035120 0   0   000004000000 0            000004000000 
ST2	032362 035120 0   0   000004000000 0            000004000000 
ST9	032362 035120 0   0   000004000000 0            000004000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 258
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0474

*032362 AND 	1,000000
INITIAL
C(AC)=000004 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032362 032362 0   0   404040000000 0            0            
IT1	032362 0      0   0   404040000000 0            0            
AT3	032362 0      0   0   0            0            404040000000 
AT6	032362 0      0   0   0            0            404040000000 
FT0	032362 0      0   0   0            0            404040000000 
FT1A	032362 0      0   0   0            0            0            
FT2	032362 0      0   0   0            0            0            
FT2RQ	032362 0      0   0   000004000000 0            0            
FT3	032362 0      0   0   000004000000 0            0            
FT9	032363 0      0   0   000004000000 0            0            
ET0	032363 0      0   0   0            0            0            
ST1	032363 0      0   0   0            0            0            
ST2	032363 0      0   0   0            0            0            
ST9	032363 0      0   0   0            0            0            


*032363 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	032363 032363 0   0   332000000001 0            0            
IT1	032363 0      0   0   332000000001 0            0            
AT3	032363 0      0   0   000000000001 0            332000000001 
AT6	032363 000001 0   0   000000000001 0            332000000001 
FT0	032363 000001 0   0   0            0            332000000001 
FT1A	032363 000001 0   0   0            0            0            
FT9	032364 000001 0   0   0            0            0            
ET0	032365 000001 0   0   0            0            0            
ST1A	032365 000001 0   0   0            0            0            
ST9	032365 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 259
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0475

*032365 JUMPA	0,032366
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032365 032365 0   0   324000032366 0            000000032366 
IT1	032365 0      0   0   324000032366 0            000000032366 
AT3	032365 0      0   0   000000032366 0            324000032366 
AT6	032365 032366 0   0   000000032366 0            324000032366 
FT1A	032365 032366 0   0   000000032366 0            000000032366 
FT2	032365 032366 0   0   0            0            000000032366 
FT2RQ	032365 032366 0   0   0            0            000000032366 
FT3	032365 032366 0   0   0            0            000000032366 
FT9	032366 032366 0   0   0            0            000000032366 
ET0	032366 032366 0   0   0            0            000000032366 
ST1A	032366 032366 0   0   0            0            000000032366 
ST9	032366 032366 0   0   0            0            000000032366 


*032366 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	032366 032366 0   0   332000000000 0            0            
IT1	032366 0      0   0   332000000000 0            0            
AT3	032366 0      0   0   0            0            332000000000 
AT6	032366 0      0   0   0            0            332000000000 
FT0	032366 0      0   0   0            0            332000000000 
FT1A	032366 0      0   0   0            0            0            
FT9	032367 0      0   0   0            0            0            
ET0	032370 0      0   0   0            0            0            
ST1A	032370 0      0   0   0            0            0            
ST9	032370 0      0   0   0            0            0            


*032370 JUMPA	0,032371
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032370 032370 0   0   324000032371 0            000000032371 
IT1	032370 0      0   0   324000032371 0            000000032371 
AT3	032370 0      0   0   000000032371 0            324000032371 
AT6	032370 032371 0   0   000000032371 0            324000032371 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 260
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0476

FT1A	032370 032371 0   0   000000032371 0            000000032371 
FT2	032370 032371 0   0   0            0            000000032371 
FT2RQ	032370 032371 0   0   0            0            000000032371 
FT3	032370 032371 0   0   0            0            000000032371 
FT9	032371 032371 0   0   0            0            000000032371 
ET0	032371 032371 0   0   0            0            000000032371 
ST1A	032371 032371 0   0   0            0            000000032371 
ST9	032371 032371 0   0   0            0            000000032371 


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


*032372 MOVE 	1,035121
INITIAL
C(AC)=000000 000000 
C(E)=000010 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032372 032372 0   0   200040035121 0            000010000000 
IT1	032372 0      0   0   200040035121 0            000010000000 
AT3	032372 0      0   0   000000035121 0            200040035121 
AT6	032372 035121 0   0   000000035121 0            200040035121 
FT0	032372 035121 0   0   000010000000 0            200040035121 
FT1A	032372 035121 0   0   000010000000 0            000010000000 
FT9	032373 035121 0   0   000010000000 0            000010000000 
ET0	032373 035121 0   0   000010000000 0            000010000000 
ST1	032373 035121 0   0   000010000000 0            000010000000 
ST2	032373 035121 0   0   000010000000 0            000010000000 
ST9	032373 035121 0   0   000010000000 0            000010000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 261
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0477

*032373 AND 	1,000000
INITIAL
C(AC)=000010 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032373 032373 0   0   404040000000 0            0            
IT1	032373 0      0   0   404040000000 0            0            
AT3	032373 0      0   0   0            0            404040000000 
AT6	032373 0      0   0   0            0            404040000000 
FT0	032373 0      0   0   0            0            404040000000 
FT1A	032373 0      0   0   0            0            0            
FT2	032373 0      0   0   0            0            0            
FT2RQ	032373 0      0   0   000010000000 0            0            
FT3	032373 0      0   0   000010000000 0            0            
FT9	032374 0      0   0   000010000000 0            0            
ET0	032374 0      0   0   0            0            0            
ST1	032374 0      0   0   0            0            0            
ST2	032374 0      0   0   0            0            0            
ST9	032374 0      0   0   0            0            0            


*032374 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	032374 032374 0   0   332000000001 0            0            
IT1	032374 0      0   0   332000000001 0            0            
AT3	032374 0      0   0   000000000001 0            332000000001 
AT6	032374 000001 0   0   000000000001 0            332000000001 
FT0	032374 000001 0   0   0            0            332000000001 
FT1A	032374 000001 0   0   0            0            0            
FT9	032375 000001 0   0   0            0            0            
ET0	032376 000001 0   0   0            0            0            
ST1A	032376 000001 0   0   0            0            0            
ST9	032376 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 262
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0478

*032376 JUMPA	0,032377
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032376 032376 0   0   324000032377 0            000000032377 
IT1	032376 0      0   0   324000032377 0            000000032377 
AT3	032376 0      0   0   000000032377 0            324000032377 
AT6	032376 032377 0   0   000000032377 0            324000032377 
FT1A	032376 032377 0   0   000000032377 0            000000032377 
FT2	032376 032377 0   0   0            0            000000032377 
FT2RQ	032376 032377 0   0   0            0            000000032377 
FT3	032376 032377 0   0   0            0            000000032377 
FT9	032377 032377 0   0   0            0            000000032377 
ET0	032377 032377 0   0   0            0            000000032377 
ST1A	032377 032377 0   0   0            0            000000032377 
ST9	032377 032377 0   0   0            0            000000032377 


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


*032401 JUMPA	0,032402
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032401 032401 0   0   324000032402 0            000000032402 
IT1	032401 0      0   0   324000032402 0            000000032402 
AT3	032401 0      0   0   000000032402 0            324000032402 
AT6	032401 032402 0   0   000000032402 0            324000032402 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 263
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0479

FT1A	032401 032402 0   0   000000032402 0            000000032402 
FT2	032401 032402 0   0   0            0            000000032402 
FT2RQ	032401 032402 0   0   0            0            000000032402 
FT3	032401 032402 0   0   0            0            000000032402 
FT9	032402 032402 0   0   0            0            000000032402 
ET0	032402 032402 0   0   0            0            000000032402 
ST1A	032402 032402 0   0   0            0            000000032402 
ST9	032402 032402 0   0   0            0            000000032402 


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


*032403 MOVE 	1,035122
INITIAL
C(AC)=000000 000000 
C(E)=000020 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032403 032403 0   0   200040035122 0            000020000000 
IT1	032403 0      0   0   200040035122 0            000020000000 
AT3	032403 0      0   0   000000035122 0            200040035122 
AT6	032403 035122 0   0   000000035122 0            200040035122 
FT0	032403 035122 0   0   000020000000 0            200040035122 
FT1A	032403 035122 0   0   000020000000 0            000020000000 
FT9	032404 035122 0   0   000020000000 0            000020000000 
ET0	032404 035122 0   0   000020000000 0            000020000000 
ST1	032404 035122 0   0   000020000000 0            000020000000 
ST2	032404 035122 0   0   000020000000 0            000020000000 
ST9	032404 035122 0   0   000020000000 0            000020000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 264
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0480

*032404 AND 	1,000000
INITIAL
C(AC)=000020 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032404 032404 0   0   404040000000 0            0            
IT1	032404 0      0   0   404040000000 0            0            
AT3	032404 0      0   0   0            0            404040000000 
AT6	032404 0      0   0   0            0            404040000000 
FT0	032404 0      0   0   0            0            404040000000 
FT1A	032404 0      0   0   0            0            0            
FT2	032404 0      0   0   0            0            0            
FT2RQ	032404 0      0   0   000020000000 0            0            
FT3	032404 0      0   0   000020000000 0            0            
FT9	032405 0      0   0   000020000000 0            0            
ET0	032405 0      0   0   0            0            0            
ST1	032405 0      0   0   0            0            0            
ST2	032405 0      0   0   0            0            0            
ST9	032405 0      0   0   0            0            0            


*032405 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	032405 032405 0   0   332000000001 0            0            
IT1	032405 0      0   0   332000000001 0            0            
AT3	032405 0      0   0   000000000001 0            332000000001 
AT6	032405 000001 0   0   000000000001 0            332000000001 
FT0	032405 000001 0   0   0            0            332000000001 
FT1A	032405 000001 0   0   0            0            0            
FT9	032406 000001 0   0   0            0            0            
ET0	032407 000001 0   0   0            0            0            
ST1A	032407 000001 0   0   0            0            0            
ST9	032407 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 265
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0481

*032407 JUMPA	0,032410
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032407 032407 0   0   324000032410 0            000000032410 
IT1	032407 0      0   0   324000032410 0            000000032410 
AT3	032407 0      0   0   000000032410 0            324000032410 
AT6	032407 032410 0   0   000000032410 0            324000032410 
FT1A	032407 032410 0   0   000000032410 0            000000032410 
FT2	032407 032410 0   0   0            0            000000032410 
FT2RQ	032407 032410 0   0   0            0            000000032410 
FT3	032407 032410 0   0   0            0            000000032410 
FT9	032410 032410 0   0   0            0            000000032410 
ET0	032410 032410 0   0   0            0            000000032410 
ST1A	032410 032410 0   0   0            0            000000032410 
ST9	032410 032410 0   0   0            0            000000032410 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032410 032410 0   0   332000000000 0            0            
IT1	032410 0      0   0   332000000000 0            0            
AT3	032410 0      0   0   0            0            332000000000 
AT6	032410 0      0   0   0            0            332000000000 
FT0	032410 0      0   0   0            0            332000000000 
FT1A	032410 0      0   0   0            0            0            
FT9	032411 0      0   0   0            0            0            
ET0	032412 0      0   0   0            0            0            
ST1A	032412 0      0   0   0            0            0            
ST9	032412 0      0   0   0            0            0            


*032412 JUMPA	0,032413
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032412 032412 0   0   324000032413 0            000000032413 
IT1	032412 0      0   0   324000032413 0            000000032413 
AT3	032412 0      0   0   000000032413 0            324000032413 
AT6	032412 032413 0   0   000000032413 0            324000032413 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 266
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0482

FT1A	032412 032413 0   0   000000032413 0            000000032413 
FT2	032412 032413 0   0   0            0            000000032413 
FT2RQ	032412 032413 0   0   0            0            000000032413 
FT3	032412 032413 0   0   0            0            000000032413 
FT9	032413 032413 0   0   0            0            000000032413 
ET0	032413 032413 0   0   0            0            000000032413 
ST1A	032413 032413 0   0   0            0            000000032413 
ST9	032413 032413 0   0   0            0            000000032413 


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


*032414 MOVE 	1,035123
INITIAL
C(AC)=000000 000000 
C(E)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032414 032414 0   0   200040035123 0            000040000000 
IT1	032414 0      0   0   200040035123 0            000040000000 
AT3	032414 0      0   0   000000035123 0            200040035123 
AT6	032414 035123 0   0   000000035123 0            200040035123 
FT0	032414 035123 0   0   000040000000 0            200040035123 
FT1A	032414 035123 0   0   000040000000 0            000040000000 
FT9	032415 035123 0   0   000040000000 0            000040000000 
ET0	032415 035123 0   0   000040000000 0            000040000000 
ST1	032415 035123 0   0   000040000000 0            000040000000 
ST2	032415 035123 0   0   000040000000 0            000040000000 
ST9	032415 035123 0   0   000040000000 0            000040000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 267
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0483

*032415 AND 	1,000000
INITIAL
C(AC)=000040 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032415 032415 0   0   404040000000 0            0            
IT1	032415 0      0   0   404040000000 0            0            
AT3	032415 0      0   0   0            0            404040000000 
AT6	032415 0      0   0   0            0            404040000000 
FT0	032415 0      0   0   0            0            404040000000 
FT1A	032415 0      0   0   0            0            0            
FT2	032415 0      0   0   0            0            0            
FT2RQ	032415 0      0   0   000040000000 0            0            
FT3	032415 0      0   0   000040000000 0            0            
FT9	032416 0      0   0   000040000000 0            0            
ET0	032416 0      0   0   0            0            0            
ST1	032416 0      0   0   0            0            0            
ST2	032416 0      0   0   0            0            0            
ST9	032416 0      0   0   0            0            0            


*032416 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	032416 032416 0   0   332000000001 0            0            
IT1	032416 0      0   0   332000000001 0            0            
AT3	032416 0      0   0   000000000001 0            332000000001 
AT6	032416 000001 0   0   000000000001 0            332000000001 
FT0	032416 000001 0   0   0            0            332000000001 
FT1A	032416 000001 0   0   0            0            0            
FT9	032417 000001 0   0   0            0            0            
ET0	032420 000001 0   0   0            0            0            
ST1A	032420 000001 0   0   0            0            0            
ST9	032420 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 268
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0484

*032420 JUMPA	0,032421
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032420 032420 0   0   324000032421 0            000000032421 
IT1	032420 0      0   0   324000032421 0            000000032421 
AT3	032420 0      0   0   000000032421 0            324000032421 
AT6	032420 032421 0   0   000000032421 0            324000032421 
FT1A	032420 032421 0   0   000000032421 0            000000032421 
FT2	032420 032421 0   0   0            0            000000032421 
FT2RQ	032420 032421 0   0   0            0            000000032421 
FT3	032420 032421 0   0   0            0            000000032421 
FT9	032421 032421 0   0   0            0            000000032421 
ET0	032421 032421 0   0   0            0            000000032421 
ST1A	032421 032421 0   0   0            0            000000032421 
ST9	032421 032421 0   0   0            0            000000032421 


*032421 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	032421 032421 0   0   332000000000 0            0            
IT1	032421 0      0   0   332000000000 0            0            
AT3	032421 0      0   0   0            0            332000000000 
AT6	032421 0      0   0   0            0            332000000000 
FT0	032421 0      0   0   0            0            332000000000 
FT1A	032421 0      0   0   0            0            0            
FT9	032422 0      0   0   0            0            0            
ET0	032423 0      0   0   0            0            0            
ST1A	032423 0      0   0   0            0            0            
ST9	032423 0      0   0   0            0            0            


*032423 JUMPA	0,032424
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032423 032423 0   0   324000032424 0            000000032424 
IT1	032423 0      0   0   324000032424 0            000000032424 
AT3	032423 0      0   0   000000032424 0            324000032424 
AT6	032423 032424 0   0   000000032424 0            324000032424 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 269
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0485

FT1A	032423 032424 0   0   000000032424 0            000000032424 
FT2	032423 032424 0   0   0            0            000000032424 
FT2RQ	032423 032424 0   0   0            0            000000032424 
FT3	032423 032424 0   0   0            0            000000032424 
FT9	032424 032424 0   0   0            0            000000032424 
ET0	032424 032424 0   0   0            0            000000032424 
ST1A	032424 032424 0   0   0            0            000000032424 
ST9	032424 032424 0   0   0            0            000000032424 


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


*032425 MOVE 	1,035124
INITIAL
C(AC)=000000 000000 
C(E)=000100 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032425 032425 0   0   200040035124 0            000100000000 
IT1	032425 0      0   0   200040035124 0            000100000000 
AT3	032425 0      0   0   000000035124 0            200040035124 
AT6	032425 035124 0   0   000000035124 0            200040035124 
FT0	032425 035124 0   0   000100000000 0            200040035124 
FT1A	032425 035124 0   0   000100000000 0            000100000000 
FT9	032426 035124 0   0   000100000000 0            000100000000 
ET0	032426 035124 0   0   000100000000 0            000100000000 
ST1	032426 035124 0   0   000100000000 0            000100000000 
ST2	032426 035124 0   0   000100000000 0            000100000000 
ST9	032426 035124 0   0   000100000000 0            000100000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 270
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0486

*032426 AND 	1,000000
INITIAL
C(AC)=000100 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032426 032426 0   0   404040000000 0            0            
IT1	032426 0      0   0   404040000000 0            0            
AT3	032426 0      0   0   0            0            404040000000 
AT6	032426 0      0   0   0            0            404040000000 
FT0	032426 0      0   0   0            0            404040000000 
FT1A	032426 0      0   0   0            0            0            
FT2	032426 0      0   0   0            0            0            
FT2RQ	032426 0      0   0   000100000000 0            0            
FT3	032426 0      0   0   000100000000 0            0            
FT9	032427 0      0   0   000100000000 0            0            
ET0	032427 0      0   0   0            0            0            
ST1	032427 0      0   0   0            0            0            
ST2	032427 0      0   0   0            0            0            
ST9	032427 0      0   0   0            0            0            


*032427 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	032427 032427 0   0   332000000001 0            0            
IT1	032427 0      0   0   332000000001 0            0            
AT3	032427 0      0   0   000000000001 0            332000000001 
AT6	032427 000001 0   0   000000000001 0            332000000001 
FT0	032427 000001 0   0   0            0            332000000001 
FT1A	032427 000001 0   0   0            0            0            
FT9	032430 000001 0   0   0            0            0            
ET0	032431 000001 0   0   0            0            0            
ST1A	032431 000001 0   0   0            0            0            
ST9	032431 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 271
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0487

*032431 JUMPA	0,032432
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032431 032431 0   0   324000032432 0            000000032432 
IT1	032431 0      0   0   324000032432 0            000000032432 
AT3	032431 0      0   0   000000032432 0            324000032432 
AT6	032431 032432 0   0   000000032432 0            324000032432 
FT1A	032431 032432 0   0   000000032432 0            000000032432 
FT2	032431 032432 0   0   0            0            000000032432 
FT2RQ	032431 032432 0   0   0            0            000000032432 
FT3	032431 032432 0   0   0            0            000000032432 
FT9	032432 032432 0   0   0            0            000000032432 
ET0	032432 032432 0   0   0            0            000000032432 
ST1A	032432 032432 0   0   0            0            000000032432 
ST9	032432 032432 0   0   0            0            000000032432 


*032432 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	032432 032432 0   0   332000000000 0            0            
IT1	032432 0      0   0   332000000000 0            0            
AT3	032432 0      0   0   0            0            332000000000 
AT6	032432 0      0   0   0            0            332000000000 
FT0	032432 0      0   0   0            0            332000000000 
FT1A	032432 0      0   0   0            0            0            
FT9	032433 0      0   0   0            0            0            
ET0	032434 0      0   0   0            0            0            
ST1A	032434 0      0   0   0            0            0            
ST9	032434 0      0   0   0            0            0            


*032434 JUMPA	0,032435
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032434 032434 0   0   324000032435 0            000000032435 
IT1	032434 0      0   0   324000032435 0            000000032435 
AT3	032434 0      0   0   000000032435 0            324000032435 
AT6	032434 032435 0   0   000000032435 0            324000032435 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 272
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0488

FT1A	032434 032435 0   0   000000032435 0            000000032435 
FT2	032434 032435 0   0   0            0            000000032435 
FT2RQ	032434 032435 0   0   0            0            000000032435 
FT3	032434 032435 0   0   0            0            000000032435 
FT9	032435 032435 0   0   0            0            000000032435 
ET0	032435 032435 0   0   0            0            000000032435 
ST1A	032435 032435 0   0   0            0            000000032435 
ST9	032435 032435 0   0   0            0            000000032435 


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


*032436 MOVE 	1,035125
INITIAL
C(AC)=000000 000000 
C(E)=000200 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032436 032436 0   0   200040035125 0            000200000000 
IT1	032436 0      0   0   200040035125 0            000200000000 
AT3	032436 0      0   0   000000035125 0            200040035125 
AT6	032436 035125 0   0   000000035125 0            200040035125 
FT0	032436 035125 0   0   000200000000 0            200040035125 
FT1A	032436 035125 0   0   000200000000 0            000200000000 
FT9	032437 035125 0   0   000200000000 0            000200000000 
ET0	032437 035125 0   0   000200000000 0            000200000000 
ST1	032437 035125 0   0   000200000000 0            000200000000 
ST2	032437 035125 0   0   000200000000 0            000200000000 
ST9	032437 035125 0   0   000200000000 0            000200000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 273
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0489

*032437 AND 	1,000000
INITIAL
C(AC)=000200 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032437 032437 0   0   404040000000 0            0            
IT1	032437 0      0   0   404040000000 0            0            
AT3	032437 0      0   0   0            0            404040000000 
AT6	032437 0      0   0   0            0            404040000000 
FT0	032437 0      0   0   0            0            404040000000 
FT1A	032437 0      0   0   0            0            0            
FT2	032437 0      0   0   0            0            0            
FT2RQ	032437 0      0   0   000200000000 0            0            
FT3	032437 0      0   0   000200000000 0            0            
FT9	032440 0      0   0   000200000000 0            0            
ET0	032440 0      0   0   0            0            0            
ST1	032440 0      0   0   0            0            0            
ST2	032440 0      0   0   0            0            0            
ST9	032440 0      0   0   0            0            0            


*032440 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	032440 032440 0   0   332000000001 0            0            
IT1	032440 0      0   0   332000000001 0            0            
AT3	032440 0      0   0   000000000001 0            332000000001 
AT6	032440 000001 0   0   000000000001 0            332000000001 
FT0	032440 000001 0   0   0            0            332000000001 
FT1A	032440 000001 0   0   0            0            0            
FT9	032441 000001 0   0   0            0            0            
ET0	032442 000001 0   0   0            0            0            
ST1A	032442 000001 0   0   0            0            0            
ST9	032442 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 274
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0490

*032442 JUMPA	0,032443
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032442 032442 0   0   324000032443 0            000000032443 
IT1	032442 0      0   0   324000032443 0            000000032443 
AT3	032442 0      0   0   000000032443 0            324000032443 
AT6	032442 032443 0   0   000000032443 0            324000032443 
FT1A	032442 032443 0   0   000000032443 0            000000032443 
FT2	032442 032443 0   0   0            0            000000032443 
FT2RQ	032442 032443 0   0   0            0            000000032443 
FT3	032442 032443 0   0   0            0            000000032443 
FT9	032443 032443 0   0   0            0            000000032443 
ET0	032443 032443 0   0   0            0            000000032443 
ST1A	032443 032443 0   0   0            0            000000032443 
ST9	032443 032443 0   0   0            0            000000032443 


*032443 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	032443 032443 0   0   332000000000 0            0            
IT1	032443 0      0   0   332000000000 0            0            
AT3	032443 0      0   0   0            0            332000000000 
AT6	032443 0      0   0   0            0            332000000000 
FT0	032443 0      0   0   0            0            332000000000 
FT1A	032443 0      0   0   0            0            0            
FT9	032444 0      0   0   0            0            0            
ET0	032445 0      0   0   0            0            0            
ST1A	032445 0      0   0   0            0            0            
ST9	032445 0      0   0   0            0            0            


*032445 JUMPA	0,032446
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032445 032445 0   0   324000032446 0            000000032446 
IT1	032445 0      0   0   324000032446 0            000000032446 
AT3	032445 0      0   0   000000032446 0            324000032446 
AT6	032445 032446 0   0   000000032446 0            324000032446 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 275
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0491

FT1A	032445 032446 0   0   000000032446 0            000000032446 
FT2	032445 032446 0   0   0            0            000000032446 
FT2RQ	032445 032446 0   0   0            0            000000032446 
FT3	032445 032446 0   0   0            0            000000032446 
FT9	032446 032446 0   0   0            0            000000032446 
ET0	032446 032446 0   0   0            0            000000032446 
ST1A	032446 032446 0   0   0            0            000000032446 
ST9	032446 032446 0   0   0            0            000000032446 


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


*032447 MOVE 	1,035073
INITIAL
C(AC)=000000 000000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032447 032447 0   0   200040035073 0            000400000000 
IT1	032447 0      0   0   200040035073 0            000400000000 
AT3	032447 0      0   0   000000035073 0            200040035073 
AT6	032447 035073 0   0   000000035073 0            200040035073 
FT0	032447 035073 0   0   000400000000 0            200040035073 
FT1A	032447 035073 0   0   000400000000 0            000400000000 
FT9	032450 035073 0   0   000400000000 0            000400000000 
ET0	032450 035073 0   0   000400000000 0            000400000000 
ST1	032450 035073 0   0   000400000000 0            000400000000 
ST2	032450 035073 0   0   000400000000 0            000400000000 
ST9	032450 035073 0   0   000400000000 0            000400000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 276
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0492

*032450 AND 	1,000000
INITIAL
C(AC)=000400 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032450 032450 0   0   404040000000 0            0            
IT1	032450 0      0   0   404040000000 0            0            
AT3	032450 0      0   0   0            0            404040000000 
AT6	032450 0      0   0   0            0            404040000000 
FT0	032450 0      0   0   0            0            404040000000 
FT1A	032450 0      0   0   0            0            0            
FT2	032450 0      0   0   0            0            0            
FT2RQ	032450 0      0   0   000400000000 0            0            
FT3	032450 0      0   0   000400000000 0            0            
FT9	032451 0      0   0   000400000000 0            0            
ET0	032451 0      0   0   0            0            0            
ST1	032451 0      0   0   0            0            0            
ST2	032451 0      0   0   0            0            0            
ST9	032451 0      0   0   0            0            0            


*032451 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	032451 032451 0   0   332000000001 0            0            
IT1	032451 0      0   0   332000000001 0            0            
AT3	032451 0      0   0   000000000001 0            332000000001 
AT6	032451 000001 0   0   000000000001 0            332000000001 
FT0	032451 000001 0   0   0            0            332000000001 
FT1A	032451 000001 0   0   0            0            0            
FT9	032452 000001 0   0   0            0            0            
ET0	032453 000001 0   0   0            0            0            
ST1A	032453 000001 0   0   0            0            0            
ST9	032453 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 277
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0493

*032453 JUMPA	0,032454
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032453 032453 0   0   324000032454 0            000000032454 
IT1	032453 0      0   0   324000032454 0            000000032454 
AT3	032453 0      0   0   000000032454 0            324000032454 
AT6	032453 032454 0   0   000000032454 0            324000032454 
FT1A	032453 032454 0   0   000000032454 0            000000032454 
FT2	032453 032454 0   0   0            0            000000032454 
FT2RQ	032453 032454 0   0   0            0            000000032454 
FT3	032453 032454 0   0   0            0            000000032454 
FT9	032454 032454 0   0   0            0            000000032454 
ET0	032454 032454 0   0   0            0            000000032454 
ST1A	032454 032454 0   0   0            0            000000032454 
ST9	032454 032454 0   0   0            0            000000032454 


*032454 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	032454 032454 0   0   332000000000 0            0            
IT1	032454 0      0   0   332000000000 0            0            
AT3	032454 0      0   0   0            0            332000000000 
AT6	032454 0      0   0   0            0            332000000000 
FT0	032454 0      0   0   0            0            332000000000 
FT1A	032454 0      0   0   0            0            0            
FT9	032455 0      0   0   0            0            0            
ET0	032456 0      0   0   0            0            0            
ST1A	032456 0      0   0   0            0            0            
ST9	032456 0      0   0   0            0            0            


*032456 JUMPA	0,032457
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032456 032456 0   0   324000032457 0            000000032457 
IT1	032456 0      0   0   324000032457 0            000000032457 
AT3	032456 0      0   0   000000032457 0            324000032457 
AT6	032456 032457 0   0   000000032457 0            324000032457 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 278
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0494

FT1A	032456 032457 0   0   000000032457 0            000000032457 
FT2	032456 032457 0   0   0            0            000000032457 
FT2RQ	032456 032457 0   0   0            0            000000032457 
FT3	032456 032457 0   0   0            0            000000032457 
FT9	032457 032457 0   0   0            0            000000032457 
ET0	032457 032457 0   0   0            0            000000032457 
ST1A	032457 032457 0   0   0            0            000000032457 
ST9	032457 032457 0   0   0            0            000000032457 


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


*032460 MOVE 	1,035126
INITIAL
C(AC)=000000 000000 
C(E)=001000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032460 032460 0   0   200040035126 0            001000000000 
IT1	032460 0      0   0   200040035126 0            001000000000 
AT3	032460 0      0   0   000000035126 0            200040035126 
AT6	032460 035126 0   0   000000035126 0            200040035126 
FT0	032460 035126 0   0   001000000000 0            200040035126 
FT1A	032460 035126 0   0   001000000000 0            001000000000 
FT9	032461 035126 0   0   001000000000 0            001000000000 
ET0	032461 035126 0   0   001000000000 0            001000000000 
ST1	032461 035126 0   0   001000000000 0            001000000000 
ST2	032461 035126 0   0   001000000000 0            001000000000 
ST9	032461 035126 0   0   001000000000 0            001000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 279
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0495

*032461 AND 	1,000000
INITIAL
C(AC)=001000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032461 032461 0   0   404040000000 0            0            
IT1	032461 0      0   0   404040000000 0            0            
AT3	032461 0      0   0   0            0            404040000000 
AT6	032461 0      0   0   0            0            404040000000 
FT0	032461 0      0   0   0            0            404040000000 
FT1A	032461 0      0   0   0            0            0            
FT2	032461 0      0   0   0            0            0            
FT2RQ	032461 0      0   0   001000000000 0            0            
FT3	032461 0      0   0   001000000000 0            0            
FT9	032462 0      0   0   001000000000 0            0            
ET0	032462 0      0   0   0            0            0            
ST1	032462 0      0   0   0            0            0            
ST2	032462 0      0   0   0            0            0            
ST9	032462 0      0   0   0            0            0            


*032462 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	032462 032462 0   0   332000000001 0            0            
IT1	032462 0      0   0   332000000001 0            0            
AT3	032462 0      0   0   000000000001 0            332000000001 
AT6	032462 000001 0   0   000000000001 0            332000000001 
FT0	032462 000001 0   0   0            0            332000000001 
FT1A	032462 000001 0   0   0            0            0            
FT9	032463 000001 0   0   0            0            0            
ET0	032464 000001 0   0   0            0            0            
ST1A	032464 000001 0   0   0            0            0            
ST9	032464 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 280
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0496

*032464 JUMPA	0,032465
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032464 032464 0   0   324000032465 0            000000032465 
IT1	032464 0      0   0   324000032465 0            000000032465 
AT3	032464 0      0   0   000000032465 0            324000032465 
AT6	032464 032465 0   0   000000032465 0            324000032465 
FT1A	032464 032465 0   0   000000032465 0            000000032465 
FT2	032464 032465 0   0   0            0            000000032465 
FT2RQ	032464 032465 0   0   0            0            000000032465 
FT3	032464 032465 0   0   0            0            000000032465 
FT9	032465 032465 0   0   0            0            000000032465 
ET0	032465 032465 0   0   0            0            000000032465 
ST1A	032465 032465 0   0   0            0            000000032465 
ST9	032465 032465 0   0   0            0            000000032465 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032465 032465 0   0   332000000000 0            0            
IT1	032465 0      0   0   332000000000 0            0            
AT3	032465 0      0   0   0            0            332000000000 
AT6	032465 0      0   0   0            0            332000000000 
FT0	032465 0      0   0   0            0            332000000000 
FT1A	032465 0      0   0   0            0            0            
FT9	032466 0      0   0   0            0            0            
ET0	032467 0      0   0   0            0            0            
ST1A	032467 0      0   0   0            0            0            
ST9	032467 0      0   0   0            0            0            


*032467 JUMPA	0,032470
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032467 032467 0   0   324000032470 0            000000032470 
IT1	032467 0      0   0   324000032470 0            000000032470 
AT3	032467 0      0   0   000000032470 0            324000032470 
AT6	032467 032470 0   0   000000032470 0            324000032470 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 281
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0497

FT1A	032467 032470 0   0   000000032470 0            000000032470 
FT2	032467 032470 0   0   0            0            000000032470 
FT2RQ	032467 032470 0   0   0            0            000000032470 
FT3	032467 032470 0   0   0            0            000000032470 
FT9	032470 032470 0   0   0            0            000000032470 
ET0	032470 032470 0   0   0            0            000000032470 
ST1A	032470 032470 0   0   0            0            000000032470 
ST9	032470 032470 0   0   0            0            000000032470 


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


*032471 MOVE 	1,035127
INITIAL
C(AC)=000000 000000 
C(E)=002000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032471 032471 0   0   200040035127 0            002000000000 
IT1	032471 0      0   0   200040035127 0            002000000000 
AT3	032471 0      0   0   000000035127 0            200040035127 
AT6	032471 035127 0   0   000000035127 0            200040035127 
FT0	032471 035127 0   0   002000000000 0            200040035127 
FT1A	032471 035127 0   0   002000000000 0            002000000000 
FT9	032472 035127 0   0   002000000000 0            002000000000 
ET0	032472 035127 0   0   002000000000 0            002000000000 
ST1	032472 035127 0   0   002000000000 0            002000000000 
ST2	032472 035127 0   0   002000000000 0            002000000000 
ST9	032472 035127 0   0   002000000000 0            002000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 282
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0498

*032472 AND 	1,000000
INITIAL
C(AC)=002000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032472 032472 0   0   404040000000 0            0            
IT1	032472 0      0   0   404040000000 0            0            
AT3	032472 0      0   0   0            0            404040000000 
AT6	032472 0      0   0   0            0            404040000000 
FT0	032472 0      0   0   0            0            404040000000 
FT1A	032472 0      0   0   0            0            0            
FT2	032472 0      0   0   0            0            0            
FT2RQ	032472 0      0   0   002000000000 0            0            
FT3	032472 0      0   0   002000000000 0            0            
FT9	032473 0      0   0   002000000000 0            0            
ET0	032473 0      0   0   0            0            0            
ST1	032473 0      0   0   0            0            0            
ST2	032473 0      0   0   0            0            0            
ST9	032473 0      0   0   0            0            0            


*032473 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	032473 032473 0   0   332000000001 0            0            
IT1	032473 0      0   0   332000000001 0            0            
AT3	032473 0      0   0   000000000001 0            332000000001 
AT6	032473 000001 0   0   000000000001 0            332000000001 
FT0	032473 000001 0   0   0            0            332000000001 
FT1A	032473 000001 0   0   0            0            0            
FT9	032474 000001 0   0   0            0            0            
ET0	032475 000001 0   0   0            0            0            
ST1A	032475 000001 0   0   0            0            0            
ST9	032475 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 283
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0499

*032475 JUMPA	0,032476
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032475 032475 0   0   324000032476 0            000000032476 
IT1	032475 0      0   0   324000032476 0            000000032476 
AT3	032475 0      0   0   000000032476 0            324000032476 
AT6	032475 032476 0   0   000000032476 0            324000032476 
FT1A	032475 032476 0   0   000000032476 0            000000032476 
FT2	032475 032476 0   0   0            0            000000032476 
FT2RQ	032475 032476 0   0   0            0            000000032476 
FT3	032475 032476 0   0   0            0            000000032476 
FT9	032476 032476 0   0   0            0            000000032476 
ET0	032476 032476 0   0   0            0            000000032476 
ST1A	032476 032476 0   0   0            0            000000032476 
ST9	032476 032476 0   0   0            0            000000032476 


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


*032500 JUMPA	0,032501
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000032501 0            000000032501 
IT1	0      0      0   0   324000032501 0            000000032501 
AT3	0      0      0   0   000000032501 0            324000032501 
AT6	0      032501 0   0   000000032501 0            324000032501 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 284
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0500

FT1A	0      032501 0   0   000000032501 0            000000032501 
FT2	0      032501 0   0   0            0            000000032501 
FT2RQ	0      032501 0   0   0            0            000000032501 
FT3	0      032501 0   0   0            0            000000032501 
FT9	032501 032501 0   0   0            0            000000032501 
ET0	032501 032501 0   0   0            0            000000032501 
ST1A	032501 032501 0   0   0            0            000000032501 
ST9	032501 032501 0   0   0            0            000000032501 


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


*032502 MOVE 	1,035130
INITIAL
C(AC)=000000 000000 
C(E)=004000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032502 032502 0   0   200040035130 0            004000000000 
IT1	032502 0      0   0   200040035130 0            004000000000 
AT3	032502 0      0   0   000000035130 0            200040035130 
AT6	032502 035130 0   0   000000035130 0            200040035130 
FT0	032502 035130 0   0   004000000000 0            200040035130 
FT1A	032502 035130 0   0   004000000000 0            004000000000 
FT9	032503 035130 0   0   004000000000 0            004000000000 
ET0	032503 035130 0   0   004000000000 0            004000000000 
ST1	032503 035130 0   0   004000000000 0            004000000000 
ST2	032503 035130 0   0   004000000000 0            004000000000 
ST9	032503 035130 0   0   004000000000 0            004000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 285
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0501

*032503 AND 	1,000000
INITIAL
C(AC)=004000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032503 032503 0   0   404040000000 0            0            
IT1	032503 0      0   0   404040000000 0            0            
AT3	032503 0      0   0   0            0            404040000000 
AT6	032503 0      0   0   0            0            404040000000 
FT0	032503 0      0   0   0            0            404040000000 
FT1A	032503 0      0   0   0            0            0            
FT2	032503 0      0   0   0            0            0            
FT2RQ	032503 0      0   0   004000000000 0            0            
FT3	032503 0      0   0   004000000000 0            0            
FT9	032504 0      0   0   004000000000 0            0            
ET0	032504 0      0   0   0            0            0            
ST1	032504 0      0   0   0            0            0            
ST2	032504 0      0   0   0            0            0            
ST9	032504 0      0   0   0            0            0            


*032504 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	032504 032504 0   0   332000000001 0            0            
IT1	032504 0      0   0   332000000001 0            0            
AT3	032504 0      0   0   000000000001 0            332000000001 
AT6	032504 000001 0   0   000000000001 0            332000000001 
FT0	032504 000001 0   0   0            0            332000000001 
FT1A	032504 000001 0   0   0            0            0            
FT9	032505 000001 0   0   0            0            0            
ET0	032506 000001 0   0   0            0            0            
ST1A	032506 000001 0   0   0            0            0            
ST9	032506 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 286
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0502

*032506 JUMPA	0,032507
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032506 032506 0   0   324000032507 0            000000032507 
IT1	032506 0      0   0   324000032507 0            000000032507 
AT3	032506 0      0   0   000000032507 0            324000032507 
AT6	032506 032507 0   0   000000032507 0            324000032507 
FT1A	032506 032507 0   0   000000032507 0            000000032507 
FT2	032506 032507 0   0   0            0            000000032507 
FT2RQ	032506 032507 0   0   0            0            000000032507 
FT3	032506 032507 0   0   0            0            000000032507 
FT9	032507 032507 0   0   0            0            000000032507 
ET0	032507 032507 0   0   0            0            000000032507 
ST1A	032507 032507 0   0   0            0            000000032507 
ST9	032507 032507 0   0   0            0            000000032507 


*032507 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	032507 032507 0   0   332000000000 0            0            
IT1	032507 0      0   0   332000000000 0            0            
AT3	032507 0      0   0   0            0            332000000000 
AT6	032507 0      0   0   0            0            332000000000 
FT0	032507 0      0   0   0            0            332000000000 
FT1A	032507 0      0   0   0            0            0            
FT9	032510 0      0   0   0            0            0            
ET0	032511 0      0   0   0            0            0            
ST1A	032511 0      0   0   0            0            0            
ST9	032511 0      0   0   0            0            0            


*032511 JUMPA	0,032512
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032511 032511 0   0   324000032512 0            000000032512 
IT1	032511 0      0   0   324000032512 0            000000032512 
AT3	032511 0      0   0   000000032512 0            324000032512 
AT6	032511 032512 0   0   000000032512 0            324000032512 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 287
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0503

FT1A	032511 032512 0   0   000000032512 0            000000032512 
FT2	032511 032512 0   0   0            0            000000032512 
FT2RQ	032511 032512 0   0   0            0            000000032512 
FT3	032511 032512 0   0   0            0            000000032512 
FT9	032512 032512 0   0   0            0            000000032512 
ET0	032512 032512 0   0   0            0            000000032512 
ST1A	032512 032512 0   0   0            0            000000032512 
ST9	032512 032512 0   0   0            0            000000032512 


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


*032513 MOVE 	1,035131
INITIAL
C(AC)=000000 000000 
C(E)=010000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032513 032513 0   0   200040035131 0            010000000000 
IT1	032513 0      0   0   200040035131 0            010000000000 
AT3	032513 0      0   0   000000035131 0            200040035131 
AT6	032513 035131 0   0   000000035131 0            200040035131 
FT0	032513 035131 0   0   010000000000 0            200040035131 
FT1A	032513 035131 0   0   010000000000 0            010000000000 
FT9	032514 035131 0   0   010000000000 0            010000000000 
ET0	032514 035131 0   0   010000000000 0            010000000000 
ST1	032514 035131 0   0   010000000000 0            010000000000 
ST2	032514 035131 0   0   010000000000 0            010000000000 
ST9	032514 035131 0   0   010000000000 0            010000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 288
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0504

*032514 AND 	1,000000
INITIAL
C(AC)=010000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032514 032514 0   0   404040000000 0            0            
IT1	032514 0      0   0   404040000000 0            0            
AT3	032514 0      0   0   0            0            404040000000 
AT6	032514 0      0   0   0            0            404040000000 
FT0	032514 0      0   0   0            0            404040000000 
FT1A	032514 0      0   0   0            0            0            
FT2	032514 0      0   0   0            0            0            
FT2RQ	032514 0      0   0   010000000000 0            0            
FT3	032514 0      0   0   010000000000 0            0            
FT9	032515 0      0   0   010000000000 0            0            
ET0	032515 0      0   0   0            0            0            
ST1	032515 0      0   0   0            0            0            
ST2	032515 0      0   0   0            0            0            
ST9	032515 0      0   0   0            0            0            


*032515 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	032515 032515 0   0   332000000001 0            0            
IT1	032515 0      0   0   332000000001 0            0            
AT3	032515 0      0   0   000000000001 0            332000000001 
AT6	032515 000001 0   0   000000000001 0            332000000001 
FT0	032515 000001 0   0   0            0            332000000001 
FT1A	032515 000001 0   0   0            0            0            
FT9	032516 000001 0   0   0            0            0            
ET0	032517 000001 0   0   0            0            0            
ST1A	032517 000001 0   0   0            0            0            
ST9	032517 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 289
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0505

*032517 JUMPA	0,032520
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032517 032517 0   0   324000032520 0            000000032520 
IT1	032517 0      0   0   324000032520 0            000000032520 
AT3	032517 0      0   0   000000032520 0            324000032520 
AT6	032517 032520 0   0   000000032520 0            324000032520 
FT1A	032517 032520 0   0   000000032520 0            000000032520 
FT2	032517 032520 0   0   0            0            000000032520 
FT2RQ	032517 032520 0   0   0            0            000000032520 
FT3	032517 032520 0   0   0            0            000000032520 
FT9	032520 032520 0   0   0            0            000000032520 
ET0	032520 032520 0   0   0            0            000000032520 
ST1A	032520 032520 0   0   0            0            000000032520 
ST9	032520 032520 0   0   0            0            000000032520 


*032520 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	032520 032520 0   0   332000000000 0            0            
IT1	032520 0      0   0   332000000000 0            0            
AT3	032520 0      0   0   0            0            332000000000 
AT6	032520 0      0   0   0            0            332000000000 
FT0	032520 0      0   0   0            0            332000000000 
FT1A	032520 0      0   0   0            0            0            
FT9	032521 0      0   0   0            0            0            
ET0	032522 0      0   0   0            0            0            
ST1A	032522 0      0   0   0            0            0            
ST9	032522 0      0   0   0            0            0            


*032522 JUMPA	0,032523
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032522 032522 0   0   324000032523 0            000000032523 
IT1	032522 0      0   0   324000032523 0            000000032523 
AT3	032522 0      0   0   000000032523 0            324000032523 
AT6	032522 032523 0   0   000000032523 0            324000032523 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 290
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0506

FT1A	032522 032523 0   0   000000032523 0            000000032523 
FT2	032522 032523 0   0   0            0            000000032523 
FT2RQ	032522 032523 0   0   0            0            000000032523 
FT3	032522 032523 0   0   0            0            000000032523 
FT9	032523 032523 0   0   0            0            000000032523 
ET0	032523 032523 0   0   0            0            000000032523 
ST1A	032523 032523 0   0   0            0            000000032523 
ST9	032523 032523 0   0   0            0            000000032523 


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


*032524 MOVE 	1,035132
INITIAL
C(AC)=000000 000000 
C(E)=020000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032524 032524 0   0   200040035132 0            020000000000 
IT1	032524 0      0   0   200040035132 0            020000000000 
AT3	032524 0      0   0   000000035132 0            200040035132 
AT6	032524 035132 0   0   000000035132 0            200040035132 
FT0	032524 035132 0   0   020000000000 0            200040035132 
FT1A	032524 035132 0   0   020000000000 0            020000000000 
FT9	032525 035132 0   0   020000000000 0            020000000000 
ET0	032525 035132 0   0   020000000000 0            020000000000 
ST1	032525 035132 0   0   020000000000 0            020000000000 
ST2	032525 035132 0   0   020000000000 0            020000000000 
ST9	032525 035132 0   0   020000000000 0            020000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 291
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0507

*032525 AND 	1,000000
INITIAL
C(AC)=020000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032525 032525 0   0   404040000000 0            0            
IT1	032525 0      0   0   404040000000 0            0            
AT3	032525 0      0   0   0            0            404040000000 
AT6	032525 0      0   0   0            0            404040000000 
FT0	032525 0      0   0   0            0            404040000000 
FT1A	032525 0      0   0   0            0            0            
FT2	032525 0      0   0   0            0            0            
FT2RQ	032525 0      0   0   020000000000 0            0            
FT3	032525 0      0   0   020000000000 0            0            
FT9	032526 0      0   0   020000000000 0            0            
ET0	032526 0      0   0   0            0            0            
ST1	032526 0      0   0   0            0            0            
ST2	032526 0      0   0   0            0            0            
ST9	032526 0      0   0   0            0            0            


*032526 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	032526 032526 0   0   332000000001 0            0            
IT1	032526 0      0   0   332000000001 0            0            
AT3	032526 0      0   0   000000000001 0            332000000001 
AT6	032526 000001 0   0   000000000001 0            332000000001 
FT0	032526 000001 0   0   0            0            332000000001 
FT1A	032526 000001 0   0   0            0            0            
FT9	032527 000001 0   0   0            0            0            
ET0	032530 000001 0   0   0            0            0            
ST1A	032530 000001 0   0   0            0            0            
ST9	032530 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 292
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0508

*032530 JUMPA	0,032531
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032530 032530 0   0   324000032531 0            000000032531 
IT1	032530 0      0   0   324000032531 0            000000032531 
AT3	032530 0      0   0   000000032531 0            324000032531 
AT6	032530 032531 0   0   000000032531 0            324000032531 
FT1A	032530 032531 0   0   000000032531 0            000000032531 
FT2	032530 032531 0   0   0            0            000000032531 
FT2RQ	032530 032531 0   0   0            0            000000032531 
FT3	032530 032531 0   0   0            0            000000032531 
FT9	032531 032531 0   0   0            0            000000032531 
ET0	032531 032531 0   0   0            0            000000032531 
ST1A	032531 032531 0   0   0            0            000000032531 
ST9	032531 032531 0   0   0            0            000000032531 


*032531 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	032531 032531 0   0   332000000000 0            0            
IT1	032531 0      0   0   332000000000 0            0            
AT3	032531 0      0   0   0            0            332000000000 
AT6	032531 0      0   0   0            0            332000000000 
FT0	032531 0      0   0   0            0            332000000000 
FT1A	032531 0      0   0   0            0            0            
FT9	032532 0      0   0   0            0            0            
ET0	032533 0      0   0   0            0            0            
ST1A	032533 0      0   0   0            0            0            
ST9	032533 0      0   0   0            0            0            


*032533 JUMPA	0,032534
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032533 032533 0   0   324000032534 0            000000032534 
IT1	032533 0      0   0   324000032534 0            000000032534 
AT3	032533 0      0   0   000000032534 0            324000032534 
AT6	032533 032534 0   0   000000032534 0            324000032534 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 293
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0509

FT1A	032533 032534 0   0   000000032534 0            000000032534 
FT2	032533 032534 0   0   0            0            000000032534 
FT2RQ	032533 032534 0   0   0            0            000000032534 
FT3	032533 032534 0   0   0            0            000000032534 
FT9	032534 032534 0   0   0            0            000000032534 
ET0	032534 032534 0   0   0            0            000000032534 
ST1A	032534 032534 0   0   0            0            000000032534 
ST9	032534 032534 0   0   0            0            000000032534 


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


*032535 MOVE 	1,035133
INITIAL
C(AC)=000000 000000 
C(E)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032535 032535 0   0   200040035133 0            040000000000 
IT1	032535 0      0   0   200040035133 0            040000000000 
AT3	032535 0      0   0   000000035133 0            200040035133 
AT6	032535 035133 0   0   000000035133 0            200040035133 
FT0	032535 035133 0   0   040000000000 0            200040035133 
FT1A	032535 035133 0   0   040000000000 0            040000000000 
FT9	032536 035133 0   0   040000000000 0            040000000000 
ET0	032536 035133 0   0   040000000000 0            040000000000 
ST1	032536 035133 0   0   040000000000 0            040000000000 
ST2	032536 035133 0   0   040000000000 0            040000000000 
ST9	032536 035133 0   0   040000000000 0            040000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 294
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0510

*032536 AND 	1,000000
INITIAL
C(AC)=040000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032536 032536 0   0   404040000000 0            0            
IT1	032536 0      0   0   404040000000 0            0            
AT3	032536 0      0   0   0            0            404040000000 
AT6	032536 0      0   0   0            0            404040000000 
FT0	032536 0      0   0   0            0            404040000000 
FT1A	032536 0      0   0   0            0            0            
FT2	032536 0      0   0   0            0            0            
FT2RQ	032536 0      0   0   040000000000 0            0            
FT3	032536 0      0   0   040000000000 0            0            
FT9	032537 0      0   0   040000000000 0            0            
ET0	032537 0      0   0   0            0            0            
ST1	032537 0      0   0   0            0            0            
ST2	032537 0      0   0   0            0            0            
ST9	032537 0      0   0   0            0            0            


*032537 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	032537 032537 0   0   332000000001 0            0            
IT1	032537 0      0   0   332000000001 0            0            
AT3	032537 0      0   0   000000000001 0            332000000001 
AT6	032537 000001 0   0   000000000001 0            332000000001 
FT0	032537 000001 0   0   0            0            332000000001 
FT1A	032537 000001 0   0   0            0            0            
FT9	032540 000001 0   0   0            0            0            
ET0	032541 000001 0   0   0            0            0            
ST1A	032541 000001 0   0   0            0            0            
ST9	032541 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 295
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0511

*032541 JUMPA	0,032542
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032541 032541 0   0   324000032542 0            000000032542 
IT1	032541 0      0   0   324000032542 0            000000032542 
AT3	032541 0      0   0   000000032542 0            324000032542 
AT6	032541 032542 0   0   000000032542 0            324000032542 
FT1A	032541 032542 0   0   000000032542 0            000000032542 
FT2	032541 032542 0   0   0            0            000000032542 
FT2RQ	032541 032542 0   0   0            0            000000032542 
FT3	032541 032542 0   0   0            0            000000032542 
FT9	032542 032542 0   0   0            0            000000032542 
ET0	032542 032542 0   0   0            0            000000032542 
ST1A	032542 032542 0   0   0            0            000000032542 
ST9	032542 032542 0   0   0            0            000000032542 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032542 032542 0   0   332000000000 0            0            
IT1	032542 0      0   0   332000000000 0            0            
AT3	032542 0      0   0   0            0            332000000000 
AT6	032542 0      0   0   0            0            332000000000 
FT0	032542 0      0   0   0            0            332000000000 
FT1A	032542 0      0   0   0            0            0            
FT9	032543 0      0   0   0            0            0            
ET0	032544 0      0   0   0            0            0            
ST1A	032544 0      0   0   0            0            0            
ST9	032544 0      0   0   0            0            0            


*032544 JUMPA	0,032545
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032544 032544 0   0   324000032545 0            000000032545 
IT1	032544 0      0   0   324000032545 0            000000032545 
AT3	032544 0      0   0   000000032545 0            324000032545 
AT6	032544 032545 0   0   000000032545 0            324000032545 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 296
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0512

FT1A	032544 032545 0   0   000000032545 0            000000032545 
FT2	032544 032545 0   0   0            0            000000032545 
FT2RQ	032544 032545 0   0   0            0            000000032545 
FT3	032544 032545 0   0   0            0            000000032545 
FT9	032545 032545 0   0   0            0            000000032545 
ET0	032545 032545 0   0   0            0            000000032545 
ST1A	032545 032545 0   0   0            0            000000032545 
ST9	032545 032545 0   0   0            0            000000032545 


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


*032546 MOVE 	1,035134
INITIAL
C(AC)=000000 000000 
C(E)=100000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032546 032546 0   0   200040035134 0            100000000000 
IT1	032546 0      0   0   200040035134 0            100000000000 
AT3	032546 0      0   0   000000035134 0            200040035134 
AT6	032546 035134 0   0   000000035134 0            200040035134 
FT0	032546 035134 0   0   100000000000 0            200040035134 
FT1A	032546 035134 0   0   100000000000 0            100000000000 
FT9	032547 035134 0   0   100000000000 0            100000000000 
ET0	032547 035134 0   0   100000000000 0            100000000000 
ST1	032547 035134 0   0   100000000000 0            100000000000 
ST2	032547 035134 0   0   100000000000 0            100000000000 
ST9	032547 035134 0   0   100000000000 0            100000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 297
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0513

*032547 AND 	1,000000
INITIAL
C(AC)=100000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032547 032547 0   0   404040000000 0            0            
IT1	032547 0      0   0   404040000000 0            0            
AT3	032547 0      0   0   0            0            404040000000 
AT6	032547 0      0   0   0            0            404040000000 
FT0	032547 0      0   0   0            0            404040000000 
FT1A	032547 0      0   0   0            0            0            
FT2	032547 0      0   0   0            0            0            
FT2RQ	032547 0      0   0   100000000000 0            0            
FT3	032547 0      0   0   100000000000 0            0            
FT9	032550 0      0   0   100000000000 0            0            
ET0	032550 0      0   0   0            0            0            
ST1	032550 0      0   0   0            0            0            
ST2	032550 0      0   0   0            0            0            
ST9	032550 0      0   0   0            0            0            


*032550 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	032550 032550 0   0   332000000001 0            0            
IT1	032550 0      0   0   332000000001 0            0            
AT3	032550 0      0   0   000000000001 0            332000000001 
AT6	032550 000001 0   0   000000000001 0            332000000001 
FT0	032550 000001 0   0   0            0            332000000001 
FT1A	032550 000001 0   0   0            0            0            
FT9	032551 000001 0   0   0            0            0            
ET0	032552 000001 0   0   0            0            0            
ST1A	032552 000001 0   0   0            0            0            
ST9	032552 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 298
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0514

*032552 JUMPA	0,032553
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032552 032552 0   0   324000032553 0            000000032553 
IT1	032552 0      0   0   324000032553 0            000000032553 
AT3	032552 0      0   0   000000032553 0            324000032553 
AT6	032552 032553 0   0   000000032553 0            324000032553 
FT1A	032552 032553 0   0   000000032553 0            000000032553 
FT2	032552 032553 0   0   0            0            000000032553 
FT2RQ	032552 032553 0   0   0            0            000000032553 
FT3	032552 032553 0   0   0            0            000000032553 
FT9	032553 032553 0   0   0            0            000000032553 
ET0	032553 032553 0   0   0            0            000000032553 
ST1A	032553 032553 0   0   0            0            000000032553 
ST9	032553 032553 0   0   0            0            000000032553 


*032553 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	032553 032553 0   0   332000000000 0            0            
IT1	032553 0      0   0   332000000000 0            0            
AT3	032553 0      0   0   0            0            332000000000 
AT6	032553 0      0   0   0            0            332000000000 
FT0	032553 0      0   0   0            0            332000000000 
FT1A	032553 0      0   0   0            0            0            
FT9	032554 0      0   0   0            0            0            
ET0	032555 0      0   0   0            0            0            
ST1A	032555 0      0   0   0            0            0            
ST9	032555 0      0   0   0            0            0            


*032555 JUMPA	0,032556
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032555 032555 0   0   324000032556 0            000000032556 
IT1	032555 0      0   0   324000032556 0            000000032556 
AT3	032555 0      0   0   000000032556 0            324000032556 
AT6	032555 032556 0   0   000000032556 0            324000032556 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 299
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0515

FT1A	032555 032556 0   0   000000032556 0            000000032556 
FT2	032555 032556 0   0   0            0            000000032556 
FT2RQ	032555 032556 0   0   0            0            000000032556 
FT3	032555 032556 0   0   0            0            000000032556 
FT9	032556 032556 0   0   0            0            000000032556 
ET0	032556 032556 0   0   0            0            000000032556 
ST1A	032556 032556 0   0   0            0            000000032556 
ST9	032556 032556 0   0   0            0            000000032556 


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


*032557 MOVE 	1,035135
INITIAL
C(AC)=000000 000000 
C(E)=200000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032557 032557 0   0   200040035135 0            200000000000 
IT1	032557 0      0   0   200040035135 0            200000000000 
AT3	032557 0      0   0   000000035135 0            200040035135 
AT6	032557 035135 0   0   000000035135 0            200040035135 
FT0	032557 035135 0   0   200000000000 0            200040035135 
FT1A	032557 035135 0   0   200000000000 0            200000000000 
FT9	032560 035135 0   0   200000000000 0            200000000000 
ET0	032560 035135 0   0   200000000000 0            200000000000 
ST1	032560 035135 0   0   200000000000 0            200000000000 
ST2	032560 035135 0   0   200000000000 0            200000000000 
ST9	032560 035135 0   0   200000000000 0            200000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 300
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0516

*032560 AND 	1,000000
INITIAL
C(AC)=200000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032560 032560 0   0   404040000000 0            0            
IT1	032560 0      0   0   404040000000 0            0            
AT3	032560 0      0   0   0            0            404040000000 
AT6	032560 0      0   0   0            0            404040000000 
FT0	032560 0      0   0   0            0            404040000000 
FT1A	032560 0      0   0   0            0            0            
FT2	032560 0      0   0   0            0            0            
FT2RQ	032560 0      0   0   200000000000 0            0            
FT3	032560 0      0   0   200000000000 0            0            
FT9	032561 0      0   0   200000000000 0            0            
ET0	032561 0      0   0   0            0            0            
ST1	032561 0      0   0   0            0            0            
ST2	032561 0      0   0   0            0            0            
ST9	032561 0      0   0   0            0            0            


*032561 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	032561 032561 0   0   332000000001 0            0            
IT1	032561 0      0   0   332000000001 0            0            
AT3	032561 0      0   0   000000000001 0            332000000001 
AT6	032561 000001 0   0   000000000001 0            332000000001 
FT0	032561 000001 0   0   0            0            332000000001 
FT1A	032561 000001 0   0   0            0            0            
FT9	032562 000001 0   0   0            0            0            
ET0	032563 000001 0   0   0            0            0            
ST1A	032563 000001 0   0   0            0            0            
ST9	032563 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 301
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0517

*032563 JUMPA	0,032564
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032563 032563 0   0   324000032564 0            000000032564 
IT1	032563 0      0   0   324000032564 0            000000032564 
AT3	032563 0      0   0   000000032564 0            324000032564 
AT6	032563 032564 0   0   000000032564 0            324000032564 
FT1A	032563 032564 0   0   000000032564 0            000000032564 
FT2	032563 032564 0   0   0            0            000000032564 
FT2RQ	032563 032564 0   0   0            0            000000032564 
FT3	032563 032564 0   0   0            0            000000032564 
FT9	032564 032564 0   0   0            0            000000032564 
ET0	032564 032564 0   0   0            0            000000032564 
ST1A	032564 032564 0   0   0            0            000000032564 
ST9	032564 032564 0   0   0            0            000000032564 


*032564 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	032564 032564 0   0   332000000000 0            0            
IT1	032564 0      0   0   332000000000 0            0            
AT3	032564 0      0   0   0            0            332000000000 
AT6	032564 0      0   0   0            0            332000000000 
FT0	032564 0      0   0   0            0            332000000000 
FT1A	032564 0      0   0   0            0            0            
FT9	032565 0      0   0   0            0            0            
ET0	032566 0      0   0   0            0            0            
ST1A	032566 0      0   0   0            0            0            
ST9	032566 0      0   0   0            0            0            


*032566 JUMPA	0,032567
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032566 032566 0   0   324000032567 0            000000032567 
IT1	032566 0      0   0   324000032567 0            000000032567 
AT3	032566 0      0   0   000000032567 0            324000032567 
AT6	032566 032567 0   0   000000032567 0            324000032567 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 302
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0518

FT1A	032566 032567 0   0   000000032567 0            000000032567 
FT2	032566 032567 0   0   0            0            000000032567 
FT2RQ	032566 032567 0   0   0            0            000000032567 
FT3	032566 032567 0   0   0            0            000000032567 
FT9	032567 032567 0   0   0            0            000000032567 
ET0	032567 032567 0   0   0            0            000000032567 
ST1A	032567 032567 0   0   0            0            000000032567 
ST9	032567 032567 0   0   0            0            000000032567 


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


*032570 MOVE 	1,035065
INITIAL
C(AC)=000000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032570 032570 0   0   200040035065 0            400000000000 
IT1	032570 0      0   0   200040035065 0            400000000000 
AT3	032570 0      0   0   000000035065 0            200040035065 
AT6	032570 035065 0   0   000000035065 0            200040035065 
FT0	032570 035065 0   0   400000000000 0            200040035065 
FT1A	032570 035065 0   0   400000000000 0            400000000000 
FT9	032571 035065 0   0   400000000000 0            400000000000 
ET0	032571 035065 0   0   400000000000 0            400000000000 
ST1	032571 035065 0   0   400000000000 0            400000000000 
ST2	032571 035065 0   0   400000000000 0            400000000000 
ST9	032571 035065 0   0   400000000000 0            400000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 303
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0519

*032571 AND 	1,000000
INITIAL
C(AC)=400000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032571 032571 0   0   404040000000 0            0            
IT1	032571 0      0   0   404040000000 0            0            
AT3	032571 0      0   0   0            0            404040000000 
AT6	032571 0      0   0   0            0            404040000000 
FT0	032571 0      0   0   0            0            404040000000 
FT1A	032571 0      0   0   0            0            0            
FT2	032571 0      0   0   0            0            0            
FT2RQ	032571 0      0   0   400000000000 0            0            
FT3	032571 0      0   0   400000000000 0            0            
FT9	032572 0      0   0   400000000000 0            0            
ET0	032572 0      0   0   0            0            0            
ST1	032572 0      0   0   0            0            0            
ST2	032572 0      0   0   0            0            0            
ST9	032572 0      0   0   0            0            0            


*032572 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	032572 032572 0   0   332000000001 0            0            
IT1	032572 0      0   0   332000000001 0            0            
AT3	032572 0      0   0   000000000001 0            332000000001 
AT6	032572 000001 0   0   000000000001 0            332000000001 
FT0	032572 000001 0   0   0            0            332000000001 
FT1A	032572 000001 0   0   0            0            0            
FT9	032573 000001 0   0   0            0            0            
ET0	032574 000001 0   0   0            0            0            
ST1A	032574 000001 0   0   0            0            0            
ST9	032574 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 304
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0520

*032574 JUMPA	0,032575
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032574 032574 0   0   324000032575 0            000000032575 
IT1	032574 0      0   0   324000032575 0            000000032575 
AT3	032574 0      0   0   000000032575 0            324000032575 
AT6	032574 032575 0   0   000000032575 0            324000032575 
FT1A	032574 032575 0   0   000000032575 0            000000032575 
FT2	032574 032575 0   0   0            0            000000032575 
FT2RQ	032574 032575 0   0   0            0            000000032575 
FT3	032574 032575 0   0   0            0            000000032575 
FT9	032575 032575 0   0   0            0            000000032575 
ET0	032575 032575 0   0   0            0            000000032575 
ST1A	032575 032575 0   0   0            0            000000032575 
ST9	032575 032575 0   0   0            0            000000032575 


*032575 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	032575 032575 0   0   332000000000 0            0            
IT1	032575 0      0   0   332000000000 0            0            
AT3	032575 0      0   0   0            0            332000000000 
AT6	032575 0      0   0   0            0            332000000000 
FT0	032575 0      0   0   0            0            332000000000 
FT1A	032575 0      0   0   0            0            0            
FT9	032576 0      0   0   0            0            0            
ET0	032577 0      0   0   0            0            0            
ST1A	032577 0      0   0   0            0            0            
ST9	032577 0      0   0   0            0            0            


*032577 JUMPA	0,032600
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032577 032577 0   0   324000032600 0            000000032600 
IT1	032577 0      0   0   324000032600 0            000000032600 
AT3	032577 0      0   0   000000032600 0            324000032600 
AT6	032577 0      0   0   000000032600 0            324000032600 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 305
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0521

FT1A	032577 0      0   0   000000032600 0            000000032600 
FT2	032577 0      0   0   0            0            000000032600 
FT2RQ	032577 0      0   0   0            0            000000032600 
FT3	032577 0      0   0   0            0            000000032600 
FT9	0      0      0   0   0            0            000000032600 
ET0	0      0      0   0   0            0            000000032600 
ST1A	0      0      0   0   0            0            000000032600 
ST9	0      0      0   0   0            0            000000032600 


*032600 MOVE 	0,035074
INITIAL
C(AC)=000000 000000 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   200000035074 0            000000000001 
IT1	0      0      0   0   200000035074 0            000000000001 
AT3	0      0      0   0   000000035074 0            200000035074 
AT6	0      035074 0   0   000000035074 0            200000035074 
FT0	0      035074 0   0   000000000001 0            200000035074 
FT1A	0      035074 0   0   000000000001 0            000000000001 
FT9	032601 035074 0   0   000000000001 0            000000000001 
ET0	032601 035074 0   0   000000000001 0            000000000001 
ST1	032601 035074 0   0   000000000001 0            000000000001 
ST2	032601 035074 0   0   000000000001 0            000000000001 
ST9	032601 035074 0   0   000000000001 0            000000000001 


*032601 AND 	0,000000
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032601 032601 0   0   404000000000 0            000000000001 
IT1	032601 0      0   0   404000000000 0            000000000001 
AT3	032601 0      0   0   0            0            404000000000 
AT6	032601 0      0   0   0            0            404000000000 
FT0	032601 0      0   0   000000000001 0            404000000000 
FT1A	032601 0      0   0   000000000001 0            000000000001 
FT2	032601 0      0   0   0            0            000000000001 
FT2RQ	032601 0      0   0   000000000001 0            000000000001 
FT3	032601 0      0   0   000000000001 0            000000000001 
FT9	032602 0      0   0   000000000001 0            000000000001 
ET0	032602 0      0   0   000000000001 0            000000000001 
ST1	032602 0      0   0   000000000001 0            000000000001 
ST2	032602 0      0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 306
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0522

ST9	032602 0      0   0   000000000001 0            000000000001 


*032602 SKIPN	0,000000
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032602 032602 0   0   336000000000 0            000000000001 
IT1	032602 0      0   0   336000000000 0            000000000001 
AT3	032602 0      0   0   0            0            336000000000 
AT6	032602 0      0   0   0            0            336000000000 
FT0	032602 0      0   0   000000000001 0            336000000000 
FT1A	032602 0      0   0   000000000001 0            000000000001 
FT9	032603 0      0   0   000000000001 0            000000000001 
ET0	032604 0      0   0   000000000001 0            000000000001 
ST1A	032604 0      0   0   000000000001 0            000000000001 
ST9	032604 0      0   0   000000000001 0            000000000001 


*032604 JUMPA	0,032605
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032604 032604 0   0   324000032605 0            000000032605 
IT1	032604 0      0   0   324000032605 0            000000032605 
AT3	032604 0      0   0   000000032605 0            324000032605 
AT6	032604 032605 0   0   000000032605 0            324000032605 
FT1A	032604 032605 0   0   000000032605 0            000000032605 
FT2	032604 032605 0   0   0            0            000000032605 
FT2RQ	032604 032605 0   0   000000000001 0            000000032605 
FT3	032604 032605 0   0   000000000001 0            000000032605 
FT9	032605 032605 0   0   000000000001 0            000000032605 
ET0	032605 032605 0   0   000000000001 0            000000032605 
ST1A	032605 032605 0   0   000000000001 0            000000032605 
ST9	032605 032605 0   0   000000000001 0            000000032605 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 307
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0523

*032605 MOVE 	0,035075
INITIAL
C(AC)=000000 000001 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032605 032605 0   0   200000035075 0            000000000002 
IT1	032605 0      0   0   200000035075 0            000000000002 
AT3	032605 0      0   0   000000035075 0            200000035075 
AT6	032605 035075 0   0   000000035075 0            200000035075 
FT0	032605 035075 0   0   000000000002 0            200000035075 
FT1A	032605 035075 0   0   000000000002 0            000000000002 
FT9	032606 035075 0   0   000000000002 0            000000000002 
ET0	032606 035075 0   0   000000000002 0            000000000002 
ST1	032606 035075 0   0   000000000002 0            000000000002 
ST2	032606 035075 0   0   000000000002 0            000000000002 
ST9	032606 035075 0   0   000000000002 0            000000000002 


*032606 AND 	0,000000
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032606 032606 0   0   404000000000 0            000000000002 
IT1	032606 0      0   0   404000000000 0            000000000002 
AT3	032606 0      0   0   0            0            404000000000 
AT6	032606 0      0   0   0            0            404000000000 
FT0	032606 0      0   0   000000000002 0            404000000000 
FT1A	032606 0      0   0   000000000002 0            000000000002 
FT2	032606 0      0   0   0            0            000000000002 
FT2RQ	032606 0      0   0   000000000002 0            000000000002 
FT3	032606 0      0   0   000000000002 0            000000000002 
FT9	032607 0      0   0   000000000002 0            000000000002 
ET0	032607 0      0   0   000000000002 0            000000000002 
ST1	032607 0      0   0   000000000002 0            000000000002 
ST2	032607 0      0   0   000000000002 0            000000000002 
ST9	032607 0      0   0   000000000002 0            000000000002 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 308
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0524

*032607 SKIPN	0,000000
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032607 032607 0   0   336000000000 0            000000000002 
IT1	032607 0      0   0   336000000000 0            000000000002 
AT3	032607 0      0   0   0            0            336000000000 
AT6	032607 0      0   0   0            0            336000000000 
FT0	032607 0      0   0   000000000002 0            336000000000 
FT1A	032607 0      0   0   000000000002 0            000000000002 
FT9	032610 0      0   0   000000000002 0            000000000002 
ET0	032611 0      0   0   000000000002 0            000000000002 
ST1A	032611 0      0   0   000000000002 0            000000000002 
ST9	032611 0      0   0   000000000002 0            000000000002 


*032611 JUMPA	0,032612
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032611 032611 0   0   324000032612 0            000000032612 
IT1	032611 0      0   0   324000032612 0            000000032612 
AT3	032611 0      0   0   000000032612 0            324000032612 
AT6	032611 032612 0   0   000000032612 0            324000032612 
FT1A	032611 032612 0   0   000000032612 0            000000032612 
FT2	032611 032612 0   0   0            0            000000032612 
FT2RQ	032611 032612 0   0   000000000002 0            000000032612 
FT3	032611 032612 0   0   000000000002 0            000000032612 
FT9	032612 032612 0   0   000000000002 0            000000032612 
ET0	032612 032612 0   0   000000000002 0            000000032612 
ST1A	032612 032612 0   0   000000000002 0            000000032612 
ST9	032612 032612 0   0   000000000002 0            000000032612 


*032612 MOVE 	0,035076
INITIAL
C(AC)=000000 000002 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032612 032612 0   0   200000035076 0            000000000004 
IT1	032612 0      0   0   200000035076 0            000000000004 
AT3	032612 0      0   0   000000035076 0            200000035076 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 309
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0525

AT6	032612 035076 0   0   000000035076 0            200000035076 
FT0	032612 035076 0   0   000000000004 0            200000035076 
FT1A	032612 035076 0   0   000000000004 0            000000000004 
FT9	032613 035076 0   0   000000000004 0            000000000004 
ET0	032613 035076 0   0   000000000004 0            000000000004 
ST1	032613 035076 0   0   000000000004 0            000000000004 
ST2	032613 035076 0   0   000000000004 0            000000000004 
ST9	032613 035076 0   0   000000000004 0            000000000004 


*032613 AND 	0,000000
INITIAL
C(AC)=000000 000004 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032613 032613 0   0   404000000000 0            000000000004 
IT1	032613 0      0   0   404000000000 0            000000000004 
AT3	032613 0      0   0   0            0            404000000000 
AT6	032613 0      0   0   0            0            404000000000 
FT0	032613 0      0   0   000000000004 0            404000000000 
FT1A	032613 0      0   0   000000000004 0            000000000004 
FT2	032613 0      0   0   0            0            000000000004 
FT2RQ	032613 0      0   0   000000000004 0            000000000004 
FT3	032613 0      0   0   000000000004 0            000000000004 
FT9	032614 0      0   0   000000000004 0            000000000004 
ET0	032614 0      0   0   000000000004 0            000000000004 
ST1	032614 0      0   0   000000000004 0            000000000004 
ST2	032614 0      0   0   000000000004 0            000000000004 
ST9	032614 0      0   0   000000000004 0            000000000004 


*032614 SKIPN	0,000000
INITIAL
C(AC)=000000 000004 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032614 032614 0   0   336000000000 0            000000000004 
IT1	032614 0      0   0   336000000000 0            000000000004 
AT3	032614 0      0   0   0            0            336000000000 
AT6	032614 0      0   0   0            0            336000000000 
FT0	032614 0      0   0   000000000004 0            336000000000 
FT1A	032614 0      0   0   000000000004 0            000000000004 
FT9	032615 0      0   0   000000000004 0            000000000004 
ET0	032616 0      0   0   000000000004 0            000000000004 
ST1A	032616 0      0   0   000000000004 0            000000000004 
ST9	032616 0      0   0   000000000004 0            000000000004 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 310
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0526



*032616 JUMPA	0,032617
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032616 032616 0   0   324000032617 0            000000032617 
IT1	032616 0      0   0   324000032617 0            000000032617 
AT3	032616 0      0   0   000000032617 0            324000032617 
AT6	032616 032617 0   0   000000032617 0            324000032617 
FT1A	032616 032617 0   0   000000032617 0            000000032617 
FT2	032616 032617 0   0   0            0            000000032617 
FT2RQ	032616 032617 0   0   000000000004 0            000000032617 
FT3	032616 032617 0   0   000000000004 0            000000032617 
FT9	032617 032617 0   0   000000000004 0            000000032617 
ET0	032617 032617 0   0   000000000004 0            000000032617 
ST1A	032617 032617 0   0   000000000004 0            000000032617 
ST9	032617 032617 0   0   000000000004 0            000000032617 


*032617 MOVE 	0,035077
INITIAL
C(AC)=000000 000004 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032617 032617 0   0   200000035077 0            000000000010 
IT1	032617 0      0   0   200000035077 0            000000000010 
AT3	032617 0      0   0   000000035077 0            200000035077 
AT6	032617 035077 0   0   000000035077 0            200000035077 
FT0	032617 035077 0   0   000000000010 0            200000035077 
FT1A	032617 035077 0   0   000000000010 0            000000000010 
FT9	032620 035077 0   0   000000000010 0            000000000010 
ET0	032620 035077 0   0   000000000010 0            000000000010 
ST1	032620 035077 0   0   000000000010 0            000000000010 
ST2	032620 035077 0   0   000000000010 0            000000000010 
ST9	032620 035077 0   0   000000000010 0            000000000010 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 311
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0527

*032620 AND 	0,000000
INITIAL
C(AC)=000000 000010 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032620 032620 0   0   404000000000 0            000000000010 
IT1	032620 0      0   0   404000000000 0            000000000010 
AT3	032620 0      0   0   0            0            404000000000 
AT6	032620 0      0   0   0            0            404000000000 
FT0	032620 0      0   0   000000000010 0            404000000000 
FT1A	032620 0      0   0   000000000010 0            000000000010 
FT2	032620 0      0   0   0            0            000000000010 
FT2RQ	032620 0      0   0   000000000010 0            000000000010 
FT3	032620 0      0   0   000000000010 0            000000000010 
FT9	032621 0      0   0   000000000010 0            000000000010 
ET0	032621 0      0   0   000000000010 0            000000000010 
ST1	032621 0      0   0   000000000010 0            000000000010 
ST2	032621 0      0   0   000000000010 0            000000000010 
ST9	032621 0      0   0   000000000010 0            000000000010 


*032621 SKIPN	0,000000
INITIAL
C(AC)=000000 000010 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032621 032621 0   0   336000000000 0            000000000010 
IT1	032621 0      0   0   336000000000 0            000000000010 
AT3	032621 0      0   0   0            0            336000000000 
AT6	032621 0      0   0   0            0            336000000000 
FT0	032621 0      0   0   000000000010 0            336000000000 
FT1A	032621 0      0   0   000000000010 0            000000000010 
FT9	032622 0      0   0   000000000010 0            000000000010 
ET0	032623 0      0   0   000000000010 0            000000000010 
ST1A	032623 0      0   0   000000000010 0            000000000010 
ST9	032623 0      0   0   000000000010 0            000000000010 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 312
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0528

*032623 JUMPA	0,032624
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032623 032623 0   0   324000032624 0            000000032624 
IT1	032623 0      0   0   324000032624 0            000000032624 
AT3	032623 0      0   0   000000032624 0            324000032624 
AT6	032623 032624 0   0   000000032624 0            324000032624 
FT1A	032623 032624 0   0   000000032624 0            000000032624 
FT2	032623 032624 0   0   0            0            000000032624 
FT2RQ	032623 032624 0   0   000000000010 0            000000032624 
FT3	032623 032624 0   0   000000000010 0            000000032624 
FT9	032624 032624 0   0   000000000010 0            000000032624 
ET0	032624 032624 0   0   000000000010 0            000000032624 
ST1A	032624 032624 0   0   000000000010 0            000000032624 
ST9	032624 032624 0   0   000000000010 0            000000032624 


*032624 MOVE 	0,035100
INITIAL
C(AC)=000000 000010 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032624 032624 0   0   200000035100 0            000000000020 
IT1	032624 0      0   0   200000035100 0            000000000020 
AT3	032624 0      0   0   000000035100 0            200000035100 
AT6	032624 0      0   0   000000035100 0            200000035100 
FT0	032624 0      0   0   000000000020 0            200000035100 
FT1A	032624 0      0   0   000000000020 0            000000000020 
FT9	032625 0      0   0   000000000020 0            000000000020 
ET0	032625 0      0   0   000000000020 0            000000000020 
ST1	032625 0      0   0   000000000020 0            000000000020 
ST2	032625 0      0   0   000000000020 0            000000000020 
ST9	032625 0      0   0   000000000020 0            000000000020 


*032625 AND 	0,000000
INITIAL
C(AC)=000000 000020 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032625 032625 0   0   404000000000 0            000000000020 
IT1	032625 0      0   0   404000000000 0            000000000020 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 313
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0529

AT3	032625 0      0   0   0            0            404000000000 
AT6	032625 0      0   0   0            0            404000000000 
FT0	032625 0      0   0   000000000020 0            404000000000 
FT1A	032625 0      0   0   000000000020 0            000000000020 
FT2	032625 0      0   0   0            0            000000000020 
FT2RQ	032625 0      0   0   000000000020 0            000000000020 
FT3	032625 0      0   0   000000000020 0            000000000020 
FT9	032626 0      0   0   000000000020 0            000000000020 
ET0	032626 0      0   0   000000000020 0            000000000020 
ST1	032626 0      0   0   000000000020 0            000000000020 
ST2	032626 0      0   0   000000000020 0            000000000020 
ST9	032626 0      0   0   000000000020 0            000000000020 


*032626 SKIPN	0,000000
INITIAL
C(AC)=000000 000020 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032626 032626 0   0   336000000000 0            000000000020 
IT1	032626 0      0   0   336000000000 0            000000000020 
AT3	032626 0      0   0   0            0            336000000000 
AT6	032626 0      0   0   0            0            336000000000 
FT0	032626 0      0   0   000000000020 0            336000000000 
FT1A	032626 0      0   0   000000000020 0            000000000020 
FT9	032627 0      0   0   000000000020 0            000000000020 
ET0	032630 0      0   0   000000000020 0            000000000020 
ST1A	032630 0      0   0   000000000020 0            000000000020 
ST9	032630 0      0   0   000000000020 0            000000000020 


*032630 JUMPA	0,032631
INITIAL
C(AC)=000000 000020 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032630 032630 0   0   324000032631 0            000000032631 
IT1	032630 0      0   0   324000032631 0            000000032631 
AT3	032630 0      0   0   000000032631 0            324000032631 
AT6	032630 032631 0   0   000000032631 0            324000032631 
FT1A	032630 032631 0   0   000000032631 0            000000032631 
FT2	032630 032631 0   0   0            0            000000032631 
FT2RQ	032630 032631 0   0   000000000020 0            000000032631 
FT3	032630 032631 0   0   000000000020 0            000000032631 
FT9	032631 032631 0   0   000000000020 0            000000032631 
ET0	032631 032631 0   0   000000000020 0            000000032631 
ST1A	032631 032631 0   0   000000000020 0            000000032631 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 314
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0530

ST9	032631 032631 0   0   000000000020 0            000000032631 


*032631 MOVE 	0,035101
INITIAL
C(AC)=000000 000020 
C(E)=000000 000040 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032631 032631 0   0   200000035101 0            000000000040 
IT1	032631 0      0   0   200000035101 0            000000000040 
AT3	032631 0      0   0   000000035101 0            200000035101 
AT6	032631 035101 0   0   000000035101 0            200000035101 
FT0	032631 035101 0   0   000000000040 0            200000035101 
FT1A	032631 035101 0   0   000000000040 0            000000000040 
FT9	032632 035101 0   0   000000000040 0            000000000040 
ET0	032632 035101 0   0   000000000040 0            000000000040 
ST1	032632 035101 0   0   000000000040 0            000000000040 
ST2	032632 035101 0   0   000000000040 0            000000000040 
ST9	032632 035101 0   0   000000000040 0            000000000040 


*032632 AND 	0,000000
INITIAL
C(AC)=000000 000040 
C(E)=000000 000040 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032632 032632 0   0   404000000000 0            000000000040 
IT1	032632 0      0   0   404000000000 0            000000000040 
AT3	032632 0      0   0   0            0            404000000000 
AT6	032632 0      0   0   0            0            404000000000 
FT0	032632 0      0   0   000000000040 0            404000000000 
FT1A	032632 0      0   0   000000000040 0            000000000040 
FT2	032632 0      0   0   0            0            000000000040 
FT2RQ	032632 0      0   0   000000000040 0            000000000040 
FT3	032632 0      0   0   000000000040 0            000000000040 
FT9	032633 0      0   0   000000000040 0            000000000040 
ET0	032633 0      0   0   000000000040 0            000000000040 
ST1	032633 0      0   0   000000000040 0            000000000040 
ST2	032633 0      0   0   000000000040 0            000000000040 
ST9	032633 0      0   0   000000000040 0            000000000040 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 315
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0531

*032633 SKIPN	0,000000
INITIAL
C(AC)=000000 000040 
C(E)=000000 000040 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032633 032633 0   0   336000000000 0            000000000040 
IT1	032633 0      0   0   336000000000 0            000000000040 
AT3	032633 0      0   0   0            0            336000000000 
AT6	032633 0      0   0   0            0            336000000000 
FT0	032633 0      0   0   000000000040 0            336000000000 
FT1A	032633 0      0   0   000000000040 0            000000000040 
FT9	032634 0      0   0   000000000040 0            000000000040 
ET0	032635 0      0   0   000000000040 0            000000000040 
ST1A	032635 0      0   0   000000000040 0            000000000040 
ST9	032635 0      0   0   000000000040 0            000000000040 


*032635 JUMPA	0,032636
INITIAL
C(AC)=000000 000040 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032635 032635 0   0   324000032636 0            000000032636 
IT1	032635 0      0   0   324000032636 0            000000032636 
AT3	032635 0      0   0   000000032636 0            324000032636 
AT6	032635 032636 0   0   000000032636 0            324000032636 
FT1A	032635 032636 0   0   000000032636 0            000000032636 
FT2	032635 032636 0   0   0            0            000000032636 
FT2RQ	032635 032636 0   0   000000000040 0            000000032636 
FT3	032635 032636 0   0   000000000040 0            000000032636 
FT9	032636 032636 0   0   000000000040 0            000000032636 
ET0	032636 032636 0   0   000000000040 0            000000032636 
ST1A	032636 032636 0   0   000000000040 0            000000032636 
ST9	032636 032636 0   0   000000000040 0            000000032636 


*032636 MOVE 	0,035102
INITIAL
C(AC)=000000 000040 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032636 032636 0   0   200000035102 0            000000000100 
IT1	032636 0      0   0   200000035102 0            000000000100 
AT3	032636 0      0   0   000000035102 0            200000035102 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 316
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0532

AT6	032636 035102 0   0   000000035102 0            200000035102 
FT0	032636 035102 0   0   000000000100 0            200000035102 
FT1A	032636 035102 0   0   000000000100 0            000000000100 
FT9	032637 035102 0   0   000000000100 0            000000000100 
ET0	032637 035102 0   0   000000000100 0            000000000100 
ST1	032637 035102 0   0   000000000100 0            000000000100 
ST2	032637 035102 0   0   000000000100 0            000000000100 
ST9	032637 035102 0   0   000000000100 0            000000000100 


*032637 AND 	0,000000
INITIAL
C(AC)=000000 000100 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032637 032637 0   0   404000000000 0            000000000100 
IT1	032637 0      0   0   404000000000 0            000000000100 
AT3	032637 0      0   0   0            0            404000000000 
AT6	032637 0      0   0   0            0            404000000000 
FT0	032637 0      0   0   000000000100 0            404000000000 
FT1A	032637 0      0   0   000000000100 0            000000000100 
FT2	032637 0      0   0   0            0            000000000100 
FT2RQ	032637 0      0   0   000000000100 0            000000000100 
FT3	032637 0      0   0   000000000100 0            000000000100 
FT9	032640 0      0   0   000000000100 0            000000000100 
ET0	032640 0      0   0   000000000100 0            000000000100 
ST1	032640 0      0   0   000000000100 0            000000000100 
ST2	032640 0      0   0   000000000100 0            000000000100 
ST9	032640 0      0   0   000000000100 0            000000000100 


*032640 SKIPN	0,000000
INITIAL
C(AC)=000000 000100 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032640 032640 0   0   336000000000 0            000000000100 
IT1	032640 0      0   0   336000000000 0            000000000100 
AT3	032640 0      0   0   0            0            336000000000 
AT6	032640 0      0   0   0            0            336000000000 
FT0	032640 0      0   0   000000000100 0            336000000000 
FT1A	032640 0      0   0   000000000100 0            000000000100 
FT9	032641 0      0   0   000000000100 0            000000000100 
ET0	032642 0      0   0   000000000100 0            000000000100 
ST1A	032642 0      0   0   000000000100 0            000000000100 
ST9	032642 0      0   0   000000000100 0            000000000100 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 317
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0533



*032642 JUMPA	0,032643
INITIAL
C(AC)=000000 000100 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032642 032642 0   0   324000032643 0            000000032643 
IT1	032642 0      0   0   324000032643 0            000000032643 
AT3	032642 0      0   0   000000032643 0            324000032643 
AT6	032642 032643 0   0   000000032643 0            324000032643 
FT1A	032642 032643 0   0   000000032643 0            000000032643 
FT2	032642 032643 0   0   0            0            000000032643 
FT2RQ	032642 032643 0   0   000000000100 0            000000032643 
FT3	032642 032643 0   0   000000000100 0            000000032643 
FT9	032643 032643 0   0   000000000100 0            000000032643 
ET0	032643 032643 0   0   000000000100 0            000000032643 
ST1A	032643 032643 0   0   000000000100 0            000000032643 
ST9	032643 032643 0   0   000000000100 0            000000032643 


*032643 MOVE 	0,035103
INITIAL
C(AC)=000000 000100 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032643 032643 0   0   200000035103 0            000000000200 
IT1	032643 0      0   0   200000035103 0            000000000200 
AT3	032643 0      0   0   000000035103 0            200000035103 
AT6	032643 035103 0   0   000000035103 0            200000035103 
FT0	032643 035103 0   0   000000000200 0            200000035103 
FT1A	032643 035103 0   0   000000000200 0            000000000200 
FT9	032644 035103 0   0   000000000200 0            000000000200 
ET0	032644 035103 0   0   000000000200 0            000000000200 
ST1	032644 035103 0   0   000000000200 0            000000000200 
ST2	032644 035103 0   0   000000000200 0            000000000200 
ST9	032644 035103 0   0   000000000200 0            000000000200 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 318
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0534

*032644 AND 	0,000000
INITIAL
C(AC)=000000 000200 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032644 032644 0   0   404000000000 0            000000000200 
IT1	032644 0      0   0   404000000000 0            000000000200 
AT3	032644 0      0   0   0            0            404000000000 
AT6	032644 0      0   0   0            0            404000000000 
FT0	032644 0      0   0   000000000200 0            404000000000 
FT1A	032644 0      0   0   000000000200 0            000000000200 
FT2	032644 0      0   0   0            0            000000000200 
FT2RQ	032644 0      0   0   000000000200 0            000000000200 
FT3	032644 0      0   0   000000000200 0            000000000200 
FT9	032645 0      0   0   000000000200 0            000000000200 
ET0	032645 0      0   0   000000000200 0            000000000200 
ST1	032645 0      0   0   000000000200 0            000000000200 
ST2	032645 0      0   0   000000000200 0            000000000200 
ST9	032645 0      0   0   000000000200 0            000000000200 


*032645 SKIPN	0,000000
INITIAL
C(AC)=000000 000200 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032645 032645 0   0   336000000000 0            000000000200 
IT1	032645 0      0   0   336000000000 0            000000000200 
AT3	032645 0      0   0   0            0            336000000000 
AT6	032645 0      0   0   0            0            336000000000 
FT0	032645 0      0   0   000000000200 0            336000000000 
FT1A	032645 0      0   0   000000000200 0            000000000200 
FT9	032646 0      0   0   000000000200 0            000000000200 
ET0	032647 0      0   0   000000000200 0            000000000200 
ST1A	032647 0      0   0   000000000200 0            000000000200 
ST9	032647 0      0   0   000000000200 0            000000000200 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 319
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0535

*032647 JUMPA	0,032650
INITIAL
C(AC)=000000 000200 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032647 032647 0   0   324000032650 0            000000032650 
IT1	032647 0      0   0   324000032650 0            000000032650 
AT3	032647 0      0   0   000000032650 0            324000032650 
AT6	032647 032650 0   0   000000032650 0            324000032650 
FT1A	032647 032650 0   0   000000032650 0            000000032650 
FT2	032647 032650 0   0   0            0            000000032650 
FT2RQ	032647 032650 0   0   000000000200 0            000000032650 
FT3	032647 032650 0   0   000000000200 0            000000032650 
FT9	032650 032650 0   0   000000000200 0            000000032650 
ET0	032650 032650 0   0   000000000200 0            000000032650 
ST1A	032650 032650 0   0   000000000200 0            000000032650 
ST9	032650 032650 0   0   000000000200 0            000000032650 


*032650 MOVE 	0,035104
INITIAL
C(AC)=000000 000200 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032650 032650 0   0   200000035104 0            000000000400 
IT1	032650 0      0   0   200000035104 0            000000000400 
AT3	032650 0      0   0   000000035104 0            200000035104 
AT6	032650 035104 0   0   000000035104 0            200000035104 
FT0	032650 035104 0   0   000000000400 0            200000035104 
FT1A	032650 035104 0   0   000000000400 0            000000000400 
FT9	032651 035104 0   0   000000000400 0            000000000400 
ET0	032651 035104 0   0   000000000400 0            000000000400 
ST1	032651 035104 0   0   000000000400 0            000000000400 
ST2	032651 035104 0   0   000000000400 0            000000000400 
ST9	032651 035104 0   0   000000000400 0            000000000400 


*032651 AND 	0,000000
INITIAL
C(AC)=000000 000400 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032651 032651 0   0   404000000000 0            000000000400 
IT1	032651 0      0   0   404000000000 0            000000000400 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 320
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0536

AT3	032651 0      0   0   0            0            404000000000 
AT6	032651 0      0   0   0            0            404000000000 
FT0	032651 0      0   0   000000000400 0            404000000000 
FT1A	032651 0      0   0   000000000400 0            000000000400 
FT2	032651 0      0   0   0            0            000000000400 
FT2RQ	032651 0      0   0   000000000400 0            000000000400 
FT3	032651 0      0   0   000000000400 0            000000000400 
FT9	032652 0      0   0   000000000400 0            000000000400 
ET0	032652 0      0   0   000000000400 0            000000000400 
ST1	032652 0      0   0   000000000400 0            000000000400 
ST2	032652 0      0   0   000000000400 0            000000000400 
ST9	032652 0      0   0   000000000400 0            000000000400 


*032652 SKIPN	0,000000
INITIAL
C(AC)=000000 000400 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032652 032652 0   0   336000000000 0            000000000400 
IT1	032652 0      0   0   336000000000 0            000000000400 
AT3	032652 0      0   0   0            0            336000000000 
AT6	032652 0      0   0   0            0            336000000000 
FT0	032652 0      0   0   000000000400 0            336000000000 
FT1A	032652 0      0   0   000000000400 0            000000000400 
FT9	032653 0      0   0   000000000400 0            000000000400 
ET0	032654 0      0   0   000000000400 0            000000000400 
ST1A	032654 0      0   0   000000000400 0            000000000400 
ST9	032654 0      0   0   000000000400 0            000000000400 


*032654 JUMPA	0,032655
INITIAL
C(AC)=000000 000400 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032654 032654 0   0   324000032655 0            000000032655 
IT1	032654 0      0   0   324000032655 0            000000032655 
AT3	032654 0      0   0   000000032655 0            324000032655 
AT6	032654 032655 0   0   000000032655 0            324000032655 
FT1A	032654 032655 0   0   000000032655 0            000000032655 
FT2	032654 032655 0   0   0            0            000000032655 
FT2RQ	032654 032655 0   0   000000000400 0            000000032655 
FT3	032654 032655 0   0   000000000400 0            000000032655 
FT9	032655 032655 0   0   000000000400 0            000000032655 
ET0	032655 032655 0   0   000000000400 0            000000032655 
ST1A	032655 032655 0   0   000000000400 0            000000032655 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 321
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0537

ST9	032655 032655 0   0   000000000400 0            000000032655 


*032655 MOVE 	0,035105
INITIAL
C(AC)=000000 000400 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032655 032655 0   0   200000035105 0            000000001000 
IT1	032655 0      0   0   200000035105 0            000000001000 
AT3	032655 0      0   0   000000035105 0            200000035105 
AT6	032655 035105 0   0   000000035105 0            200000035105 
FT0	032655 035105 0   0   000000001000 0            200000035105 
FT1A	032655 035105 0   0   000000001000 0            000000001000 
FT9	032656 035105 0   0   000000001000 0            000000001000 
ET0	032656 035105 0   0   000000001000 0            000000001000 
ST1	032656 035105 0   0   000000001000 0            000000001000 
ST2	032656 035105 0   0   000000001000 0            000000001000 
ST9	032656 035105 0   0   000000001000 0            000000001000 


*032656 AND 	0,000000
INITIAL
C(AC)=000000 001000 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032656 032656 0   0   404000000000 0            000000001000 
IT1	032656 0      0   0   404000000000 0            000000001000 
AT3	032656 0      0   0   0            0            404000000000 
AT6	032656 0      0   0   0            0            404000000000 
FT0	032656 0      0   0   000000001000 0            404000000000 
FT1A	032656 0      0   0   000000001000 0            000000001000 
FT2	032656 0      0   0   0            0            000000001000 
FT2RQ	032656 0      0   0   000000001000 0            000000001000 
FT3	032656 0      0   0   000000001000 0            000000001000 
FT9	032657 0      0   0   000000001000 0            000000001000 
ET0	032657 0      0   0   000000001000 0            000000001000 
ST1	032657 0      0   0   000000001000 0            000000001000 
ST2	032657 0      0   0   000000001000 0            000000001000 
ST9	032657 0      0   0   000000001000 0            000000001000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 322
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0538

*032657 SKIPN	0,000000
INITIAL
C(AC)=000000 001000 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032657 032657 0   0   336000000000 0            000000001000 
IT1	032657 0      0   0   336000000000 0            000000001000 
AT3	032657 0      0   0   0            0            336000000000 
AT6	032657 0      0   0   0            0            336000000000 
FT0	032657 0      0   0   000000001000 0            336000000000 
FT1A	032657 0      0   0   000000001000 0            000000001000 
FT9	032660 0      0   0   000000001000 0            000000001000 
ET0	032661 0      0   0   000000001000 0            000000001000 
ST1A	032661 0      0   0   000000001000 0            000000001000 
ST9	032661 0      0   0   000000001000 0            000000001000 


*032661 JUMPA	0,032662
INITIAL
C(AC)=000000 001000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032661 032661 0   0   324000032662 0            000000032662 
IT1	032661 0      0   0   324000032662 0            000000032662 
AT3	032661 0      0   0   000000032662 0            324000032662 
AT6	032661 032662 0   0   000000032662 0            324000032662 
FT1A	032661 032662 0   0   000000032662 0            000000032662 
FT2	032661 032662 0   0   0            0            000000032662 
FT2RQ	032661 032662 0   0   000000001000 0            000000032662 
FT3	032661 032662 0   0   000000001000 0            000000032662 
FT9	032662 032662 0   0   000000001000 0            000000032662 
ET0	032662 032662 0   0   000000001000 0            000000032662 
ST1A	032662 032662 0   0   000000001000 0            000000032662 
ST9	032662 032662 0   0   000000001000 0            000000032662 


*032662 MOVE 	0,035106
INITIAL
C(AC)=000000 001000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032662 032662 0   0   200000035106 0            000000002000 
IT1	032662 0      0   0   200000035106 0            000000002000 
AT3	032662 0      0   0   000000035106 0            200000035106 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 323
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0539

AT6	032662 035106 0   0   000000035106 0            200000035106 
FT0	032662 035106 0   0   000000002000 0            200000035106 
FT1A	032662 035106 0   0   000000002000 0            000000002000 
FT9	032663 035106 0   0   000000002000 0            000000002000 
ET0	032663 035106 0   0   000000002000 0            000000002000 
ST1	032663 035106 0   0   000000002000 0            000000002000 
ST2	032663 035106 0   0   000000002000 0            000000002000 
ST9	032663 035106 0   0   000000002000 0            000000002000 


*032663 AND 	0,000000
INITIAL
C(AC)=000000 002000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032663 032663 0   0   404000000000 0            000000002000 
IT1	032663 0      0   0   404000000000 0            000000002000 
AT3	032663 0      0   0   0            0            404000000000 
AT6	032663 0      0   0   0            0            404000000000 
FT0	032663 0      0   0   000000002000 0            404000000000 
FT1A	032663 0      0   0   000000002000 0            000000002000 
FT2	032663 0      0   0   0            0            000000002000 
FT2RQ	032663 0      0   0   000000002000 0            000000002000 
FT3	032663 0      0   0   000000002000 0            000000002000 
FT9	032664 0      0   0   000000002000 0            000000002000 
ET0	032664 0      0   0   000000002000 0            000000002000 
ST1	032664 0      0   0   000000002000 0            000000002000 
ST2	032664 0      0   0   000000002000 0            000000002000 
ST9	032664 0      0   0   000000002000 0            000000002000 


*032664 SKIPN	0,000000
INITIAL
C(AC)=000000 002000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032664 032664 0   0   336000000000 0            000000002000 
IT1	032664 0      0   0   336000000000 0            000000002000 
AT3	032664 0      0   0   0            0            336000000000 
AT6	032664 0      0   0   0            0            336000000000 
FT0	032664 0      0   0   000000002000 0            336000000000 
FT1A	032664 0      0   0   000000002000 0            000000002000 
FT9	032665 0      0   0   000000002000 0            000000002000 
ET0	032666 0      0   0   000000002000 0            000000002000 
ST1A	032666 0      0   0   000000002000 0            000000002000 
ST9	032666 0      0   0   000000002000 0            000000002000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 324
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0540



*032666 JUMPA	0,032667
INITIAL
C(AC)=000000 002000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032666 032666 0   0   324000032667 0            000000032667 
IT1	032666 0      0   0   324000032667 0            000000032667 
AT3	032666 0      0   0   000000032667 0            324000032667 
AT6	032666 032667 0   0   000000032667 0            324000032667 
FT1A	032666 032667 0   0   000000032667 0            000000032667 
FT2	032666 032667 0   0   0            0            000000032667 
FT2RQ	032666 032667 0   0   000000002000 0            000000032667 
FT3	032666 032667 0   0   000000002000 0            000000032667 
FT9	032667 032667 0   0   000000002000 0            000000032667 
ET0	032667 032667 0   0   000000002000 0            000000032667 
ST1A	032667 032667 0   0   000000002000 0            000000032667 
ST9	032667 032667 0   0   000000002000 0            000000032667 


*032667 MOVE 	0,035107
INITIAL
C(AC)=000000 002000 
C(E)=000000 004000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032667 032667 0   0   200000035107 0            000000004000 
IT1	032667 0      0   0   200000035107 0            000000004000 
AT3	032667 0      0   0   000000035107 0            200000035107 
AT6	032667 035107 0   0   000000035107 0            200000035107 
FT0	032667 035107 0   0   000000004000 0            200000035107 
FT1A	032667 035107 0   0   000000004000 0            000000004000 
FT9	032670 035107 0   0   000000004000 0            000000004000 
ET0	032670 035107 0   0   000000004000 0            000000004000 
ST1	032670 035107 0   0   000000004000 0            000000004000 
ST2	032670 035107 0   0   000000004000 0            000000004000 
ST9	032670 035107 0   0   000000004000 0            000000004000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 325
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0541

*032670 AND 	0,000000
INITIAL
C(AC)=000000 004000 
C(E)=000000 004000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032670 032670 0   0   404000000000 0            000000004000 
IT1	032670 0      0   0   404000000000 0            000000004000 
AT3	032670 0      0   0   0            0            404000000000 
AT6	032670 0      0   0   0            0            404000000000 
FT0	032670 0      0   0   000000004000 0            404000000000 
FT1A	032670 0      0   0   000000004000 0            000000004000 
FT2	032670 0      0   0   0            0            000000004000 
FT2RQ	032670 0      0   0   000000004000 0            000000004000 
FT3	032670 0      0   0   000000004000 0            000000004000 
FT9	032671 0      0   0   000000004000 0            000000004000 
ET0	032671 0      0   0   000000004000 0            000000004000 
ST1	032671 0      0   0   000000004000 0            000000004000 
ST2	032671 0      0   0   000000004000 0            000000004000 
ST9	032671 0      0   0   000000004000 0            000000004000 


*032671 SKIPN	0,000000
INITIAL
C(AC)=000000 004000 
C(E)=000000 004000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032671 032671 0   0   336000000000 0            000000004000 
IT1	032671 0      0   0   336000000000 0            000000004000 
AT3	032671 0      0   0   0            0            336000000000 
AT6	032671 0      0   0   0            0            336000000000 
FT0	032671 0      0   0   000000004000 0            336000000000 
FT1A	032671 0      0   0   000000004000 0            000000004000 
FT9	032672 0      0   0   000000004000 0            000000004000 
ET0	032673 0      0   0   000000004000 0            000000004000 
ST1A	032673 0      0   0   000000004000 0            000000004000 
ST9	032673 0      0   0   000000004000 0            000000004000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 326
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0542

*032673 JUMPA	0,032674
INITIAL
C(AC)=000000 004000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032673 032673 0   0   324000032674 0            000000032674 
IT1	032673 0      0   0   324000032674 0            000000032674 
AT3	032673 0      0   0   000000032674 0            324000032674 
AT6	032673 032674 0   0   000000032674 0            324000032674 
FT1A	032673 032674 0   0   000000032674 0            000000032674 
FT2	032673 032674 0   0   0            0            000000032674 
FT2RQ	032673 032674 0   0   000000004000 0            000000032674 
FT3	032673 032674 0   0   000000004000 0            000000032674 
FT9	032674 032674 0   0   000000004000 0            000000032674 
ET0	032674 032674 0   0   000000004000 0            000000032674 
ST1A	032674 032674 0   0   000000004000 0            000000032674 
ST9	032674 032674 0   0   000000004000 0            000000032674 


*032674 MOVE 	0,035110
INITIAL
C(AC)=000000 004000 
C(E)=000000 010000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032674 032674 0   0   200000035110 0            000000010000 
IT1	032674 0      0   0   200000035110 0            000000010000 
AT3	032674 0      0   0   000000035110 0            200000035110 
AT6	032674 035110 0   0   000000035110 0            200000035110 
FT0	032674 035110 0   0   000000010000 0            200000035110 
FT1A	032674 035110 0   0   000000010000 0            000000010000 
FT9	032675 035110 0   0   000000010000 0            000000010000 
ET0	032675 035110 0   0   000000010000 0            000000010000 
ST1	032675 035110 0   0   000000010000 0            000000010000 
ST2	032675 035110 0   0   000000010000 0            000000010000 
ST9	032675 035110 0   0   000000010000 0            000000010000 


*032675 AND 	0,000000
INITIAL
C(AC)=000000 010000 
C(E)=000000 010000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032675 032675 0   0   404000000000 0            000000010000 
IT1	032675 0      0   0   404000000000 0            000000010000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 327
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0543

AT3	032675 0      0   0   0            0            404000000000 
AT6	032675 0      0   0   0            0            404000000000 
FT0	032675 0      0   0   000000010000 0            404000000000 
FT1A	032675 0      0   0   000000010000 0            000000010000 
FT2	032675 0      0   0   0            0            000000010000 
FT2RQ	032675 0      0   0   000000010000 0            000000010000 
FT3	032675 0      0   0   000000010000 0            000000010000 
FT9	032676 0      0   0   000000010000 0            000000010000 
ET0	032676 0      0   0   000000010000 0            000000010000 
ST1	032676 0      0   0   000000010000 0            000000010000 
ST2	032676 0      0   0   000000010000 0            000000010000 
ST9	032676 0      0   0   000000010000 0            000000010000 


*032676 SKIPN	0,000000
INITIAL
C(AC)=000000 010000 
C(E)=000000 010000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032676 032676 0   0   336000000000 0            000000010000 
IT1	032676 0      0   0   336000000000 0            000000010000 
AT3	032676 0      0   0   0            0            336000000000 
AT6	032676 0      0   0   0            0            336000000000 
FT0	032676 0      0   0   000000010000 0            336000000000 
FT1A	032676 0      0   0   000000010000 0            000000010000 
FT9	032677 0      0   0   000000010000 0            000000010000 
ET0	0      0      0   0   000000010000 0            000000010000 
ST1A	0      0      0   0   000000010000 0            000000010000 
ST9	0      0      0   0   000000010000 0            000000010000 


*032700 JUMPA	0,032701
INITIAL
C(AC)=000000 010000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000032701 0            000000032701 
IT1	0      0      0   0   324000032701 0            000000032701 
AT3	0      0      0   0   000000032701 0            324000032701 
AT6	0      032701 0   0   000000032701 0            324000032701 
FT1A	0      032701 0   0   000000032701 0            000000032701 
FT2	0      032701 0   0   0            0            000000032701 
FT2RQ	0      032701 0   0   000000010000 0            000000032701 
FT3	0      032701 0   0   000000010000 0            000000032701 
FT9	032701 032701 0   0   000000010000 0            000000032701 
ET0	032701 032701 0   0   000000010000 0            000000032701 
ST1A	032701 032701 0   0   000000010000 0            000000032701 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 328
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0544

ST9	032701 032701 0   0   000000010000 0            000000032701 


*032701 MOVE 	0,035111
INITIAL
C(AC)=000000 010000 
C(E)=000000 020000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032701 032701 0   0   200000035111 0            000000020000 
IT1	032701 0      0   0   200000035111 0            000000020000 
AT3	032701 0      0   0   000000035111 0            200000035111 
AT6	032701 035111 0   0   000000035111 0            200000035111 
FT0	032701 035111 0   0   000000020000 0            200000035111 
FT1A	032701 035111 0   0   000000020000 0            000000020000 
FT9	032702 035111 0   0   000000020000 0            000000020000 
ET0	032702 035111 0   0   000000020000 0            000000020000 
ST1	032702 035111 0   0   000000020000 0            000000020000 
ST2	032702 035111 0   0   000000020000 0            000000020000 
ST9	032702 035111 0   0   000000020000 0            000000020000 


*032702 AND 	0,000000
INITIAL
C(AC)=000000 020000 
C(E)=000000 020000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032702 032702 0   0   404000000000 0            000000020000 
IT1	032702 0      0   0   404000000000 0            000000020000 
AT3	032702 0      0   0   0            0            404000000000 
AT6	032702 0      0   0   0            0            404000000000 
FT0	032702 0      0   0   000000020000 0            404000000000 
FT1A	032702 0      0   0   000000020000 0            000000020000 
FT2	032702 0      0   0   0            0            000000020000 
FT2RQ	032702 0      0   0   000000020000 0            000000020000 
FT3	032702 0      0   0   000000020000 0            000000020000 
FT9	032703 0      0   0   000000020000 0            000000020000 
ET0	032703 0      0   0   000000020000 0            000000020000 
ST1	032703 0      0   0   000000020000 0            000000020000 
ST2	032703 0      0   0   000000020000 0            000000020000 
ST9	032703 0      0   0   000000020000 0            000000020000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 329
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0545

*032703 SKIPN	0,000000
INITIAL
C(AC)=000000 020000 
C(E)=000000 020000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032703 032703 0   0   336000000000 0            000000020000 
IT1	032703 0      0   0   336000000000 0            000000020000 
AT3	032703 0      0   0   0            0            336000000000 
AT6	032703 0      0   0   0            0            336000000000 
FT0	032703 0      0   0   000000020000 0            336000000000 
FT1A	032703 0      0   0   000000020000 0            000000020000 
FT9	032704 0      0   0   000000020000 0            000000020000 
ET0	032705 0      0   0   000000020000 0            000000020000 
ST1A	032705 0      0   0   000000020000 0            000000020000 
ST9	032705 0      0   0   000000020000 0            000000020000 


*032705 JUMPA	0,032706
INITIAL
C(AC)=000000 020000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032705 032705 0   0   324000032706 0            000000032706 
IT1	032705 0      0   0   324000032706 0            000000032706 
AT3	032705 0      0   0   000000032706 0            324000032706 
AT6	032705 032706 0   0   000000032706 0            324000032706 
FT1A	032705 032706 0   0   000000032706 0            000000032706 
FT2	032705 032706 0   0   0            0            000000032706 
FT2RQ	032705 032706 0   0   000000020000 0            000000032706 
FT3	032705 032706 0   0   000000020000 0            000000032706 
FT9	032706 032706 0   0   000000020000 0            000000032706 
ET0	032706 032706 0   0   000000020000 0            000000032706 
ST1A	032706 032706 0   0   000000020000 0            000000032706 
ST9	032706 032706 0   0   000000020000 0            000000032706 


*032706 MOVE 	0,035112
INITIAL
C(AC)=000000 020000 
C(E)=000000 040000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032706 032706 0   0   200000035112 0            000000040000 
IT1	032706 0      0   0   200000035112 0            000000040000 
AT3	032706 0      0   0   000000035112 0            200000035112 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 330
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0546

AT6	032706 035112 0   0   000000035112 0            200000035112 
FT0	032706 035112 0   0   000000040000 0            200000035112 
FT1A	032706 035112 0   0   000000040000 0            000000040000 
FT9	032707 035112 0   0   000000040000 0            000000040000 
ET0	032707 035112 0   0   000000040000 0            000000040000 
ST1	032707 035112 0   0   000000040000 0            000000040000 
ST2	032707 035112 0   0   000000040000 0            000000040000 
ST9	032707 035112 0   0   000000040000 0            000000040000 


*032707 AND 	0,000000
INITIAL
C(AC)=000000 040000 
C(E)=000000 040000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032707 032707 0   0   404000000000 0            000000040000 
IT1	032707 0      0   0   404000000000 0            000000040000 
AT3	032707 0      0   0   0            0            404000000000 
AT6	032707 0      0   0   0            0            404000000000 
FT0	032707 0      0   0   000000040000 0            404000000000 
FT1A	032707 0      0   0   000000040000 0            000000040000 
FT2	032707 0      0   0   0            0            000000040000 
FT2RQ	032707 0      0   0   000000040000 0            000000040000 
FT3	032707 0      0   0   000000040000 0            000000040000 
FT9	032710 0      0   0   000000040000 0            000000040000 
ET0	032710 0      0   0   000000040000 0            000000040000 
ST1	032710 0      0   0   000000040000 0            000000040000 
ST2	032710 0      0   0   000000040000 0            000000040000 
ST9	032710 0      0   0   000000040000 0            000000040000 


*032710 SKIPN	0,000000
INITIAL
C(AC)=000000 040000 
C(E)=000000 040000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032710 032710 0   0   336000000000 0            000000040000 
IT1	032710 0      0   0   336000000000 0            000000040000 
AT3	032710 0      0   0   0            0            336000000000 
AT6	032710 0      0   0   0            0            336000000000 
FT0	032710 0      0   0   000000040000 0            336000000000 
FT1A	032710 0      0   0   000000040000 0            000000040000 
FT9	032711 0      0   0   000000040000 0            000000040000 
ET0	032712 0      0   0   000000040000 0            000000040000 
ST1A	032712 0      0   0   000000040000 0            000000040000 
ST9	032712 0      0   0   000000040000 0            000000040000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 331
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0547



*032712 JUMPA	0,032713
INITIAL
C(AC)=000000 040000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032712 032712 0   0   324000032713 0            000000032713 
IT1	032712 0      0   0   324000032713 0            000000032713 
AT3	032712 0      0   0   000000032713 0            324000032713 
AT6	032712 032713 0   0   000000032713 0            324000032713 
FT1A	032712 032713 0   0   000000032713 0            000000032713 
FT2	032712 032713 0   0   0            0            000000032713 
FT2RQ	032712 032713 0   0   000000040000 0            000000032713 
FT3	032712 032713 0   0   000000040000 0            000000032713 
FT9	032713 032713 0   0   000000040000 0            000000032713 
ET0	032713 032713 0   0   000000040000 0            000000032713 
ST1A	032713 032713 0   0   000000040000 0            000000032713 
ST9	032713 032713 0   0   000000040000 0            000000032713 


*032713 MOVE 	0,035113
INITIAL
C(AC)=000000 040000 
C(E)=000000 100000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032713 032713 0   0   200000035113 0            000000100000 
IT1	032713 0      0   0   200000035113 0            000000100000 
AT3	032713 0      0   0   000000035113 0            200000035113 
AT6	032713 035113 0   0   000000035113 0            200000035113 
FT0	032713 035113 0   0   000000100000 0            200000035113 
FT1A	032713 035113 0   0   000000100000 0            000000100000 
FT9	032714 035113 0   0   000000100000 0            000000100000 
ET0	032714 035113 0   0   000000100000 0            000000100000 
ST1	032714 035113 0   0   000000100000 0            000000100000 
ST2	032714 035113 0   0   000000100000 0            000000100000 
ST9	032714 035113 0   0   000000100000 0            000000100000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 332
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0548

*032714 AND 	0,000000
INITIAL
C(AC)=000000 100000 
C(E)=000000 100000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032714 032714 0   0   404000000000 0            000000100000 
IT1	032714 0      0   0   404000000000 0            000000100000 
AT3	032714 0      0   0   0            0            404000000000 
AT6	032714 0      0   0   0            0            404000000000 
FT0	032714 0      0   0   000000100000 0            404000000000 
FT1A	032714 0      0   0   000000100000 0            000000100000 
FT2	032714 0      0   0   0            0            000000100000 
FT2RQ	032714 0      0   0   000000100000 0            000000100000 
FT3	032714 0      0   0   000000100000 0            000000100000 
FT9	032715 0      0   0   000000100000 0            000000100000 
ET0	032715 0      0   0   000000100000 0            000000100000 
ST1	032715 0      0   0   000000100000 0            000000100000 
ST2	032715 0      0   0   000000100000 0            000000100000 
ST9	032715 0      0   0   000000100000 0            000000100000 


*032715 SKIPN	0,000000
INITIAL
C(AC)=000000 100000 
C(E)=000000 100000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032715 032715 0   0   336000000000 0            000000100000 
IT1	032715 0      0   0   336000000000 0            000000100000 
AT3	032715 0      0   0   0            0            336000000000 
AT6	032715 0      0   0   0            0            336000000000 
FT0	032715 0      0   0   000000100000 0            336000000000 
FT1A	032715 0      0   0   000000100000 0            000000100000 
FT9	032716 0      0   0   000000100000 0            000000100000 
ET0	032717 0      0   0   000000100000 0            000000100000 
ST1A	032717 0      0   0   000000100000 0            000000100000 
ST9	032717 0      0   0   000000100000 0            000000100000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 333
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0549

*032717 JUMPA	0,032720
INITIAL
C(AC)=000000 100000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032717 032717 0   0   324000032720 0            000000032720 
IT1	032717 0      0   0   324000032720 0            000000032720 
AT3	032717 0      0   0   000000032720 0            324000032720 
AT6	032717 032720 0   0   000000032720 0            324000032720 
FT1A	032717 032720 0   0   000000032720 0            000000032720 
FT2	032717 032720 0   0   0            0            000000032720 
FT2RQ	032717 032720 0   0   000000100000 0            000000032720 
FT3	032717 032720 0   0   000000100000 0            000000032720 
FT9	032720 032720 0   0   000000100000 0            000000032720 
ET0	032720 032720 0   0   000000100000 0            000000032720 
ST1A	032720 032720 0   0   000000100000 0            000000032720 
ST9	032720 032720 0   0   000000100000 0            000000032720 


*032720 MOVE 	0,035114
INITIAL
C(AC)=000000 100000 
C(E)=000000 200000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032720 032720 0   0   200000035114 0            000000200000 
IT1	032720 0      0   0   200000035114 0            000000200000 
AT3	032720 0      0   0   000000035114 0            200000035114 
AT6	032720 035114 0   0   000000035114 0            200000035114 
FT0	032720 035114 0   0   000000200000 0            200000035114 
FT1A	032720 035114 0   0   000000200000 0            000000200000 
FT9	032721 035114 0   0   000000200000 0            000000200000 
ET0	032721 035114 0   0   000000200000 0            000000200000 
ST1	032721 035114 0   0   000000200000 0            000000200000 
ST2	032721 035114 0   0   000000200000 0            000000200000 
ST9	032721 035114 0   0   000000200000 0            000000200000 


*032721 AND 	0,000000
INITIAL
C(AC)=000000 200000 
C(E)=000000 200000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032721 032721 0   0   404000000000 0            000000200000 
IT1	032721 0      0   0   404000000000 0            000000200000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 334
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0550

AT3	032721 0      0   0   0            0            404000000000 
AT6	032721 0      0   0   0            0            404000000000 
FT0	032721 0      0   0   000000200000 0            404000000000 
FT1A	032721 0      0   0   000000200000 0            000000200000 
FT2	032721 0      0   0   0            0            000000200000 
FT2RQ	032721 0      0   0   000000200000 0            000000200000 
FT3	032721 0      0   0   000000200000 0            000000200000 
FT9	032722 0      0   0   000000200000 0            000000200000 
ET0	032722 0      0   0   000000200000 0            000000200000 
ST1	032722 0      0   0   000000200000 0            000000200000 
ST2	032722 0      0   0   000000200000 0            000000200000 
ST9	032722 0      0   0   000000200000 0            000000200000 


*032722 SKIPN	0,000000
INITIAL
C(AC)=000000 200000 
C(E)=000000 200000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032722 032722 0   0   336000000000 0            000000200000 
IT1	032722 0      0   0   336000000000 0            000000200000 
AT3	032722 0      0   0   0            0            336000000000 
AT6	032722 0      0   0   0            0            336000000000 
FT0	032722 0      0   0   000000200000 0            336000000000 
FT1A	032722 0      0   0   000000200000 0            000000200000 
FT9	032723 0      0   0   000000200000 0            000000200000 
ET0	032724 0      0   0   000000200000 0            000000200000 
ST1A	032724 0      0   0   000000200000 0            000000200000 
ST9	032724 0      0   0   000000200000 0            000000200000 


*032724 JUMPA	0,032725
INITIAL
C(AC)=000000 200000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032724 032724 0   0   324000032725 0            000000032725 
IT1	032724 0      0   0   324000032725 0            000000032725 
AT3	032724 0      0   0   000000032725 0            324000032725 
AT6	032724 032725 0   0   000000032725 0            324000032725 
FT1A	032724 032725 0   0   000000032725 0            000000032725 
FT2	032724 032725 0   0   0            0            000000032725 
FT2RQ	032724 032725 0   0   000000200000 0            000000032725 
FT3	032724 032725 0   0   000000200000 0            000000032725 
FT9	032725 032725 0   0   000000200000 0            000000032725 
ET0	032725 032725 0   0   000000200000 0            000000032725 
ST1A	032725 032725 0   0   000000200000 0            000000032725 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 335
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0551

ST9	032725 032725 0   0   000000200000 0            000000032725 


*032725 MOVE 	0,035115
INITIAL
C(AC)=000000 200000 
C(E)=000000 400000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032725 032725 0   0   200000035115 0            000000400000 
IT1	032725 0      0   0   200000035115 0            000000400000 
AT3	032725 0      0   0   000000035115 0            200000035115 
AT6	032725 035115 0   0   000000035115 0            200000035115 
FT0	032725 035115 0   0   000000400000 0            200000035115 
FT1A	032725 035115 0   0   000000400000 0            000000400000 
FT9	032726 035115 0   0   000000400000 0            000000400000 
ET0	032726 035115 0   0   000000400000 0            000000400000 
ST1	032726 035115 0   0   000000400000 0            000000400000 
ST2	032726 035115 0   0   000000400000 0            000000400000 
ST9	032726 035115 0   0   000000400000 0            000000400000 


*032726 AND 	0,000000
INITIAL
C(AC)=000000 400000 
C(E)=000000 400000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032726 032726 0   0   404000000000 0            000000400000 
IT1	032726 0      0   0   404000000000 0            000000400000 
AT3	032726 0      0   0   0            0            404000000000 
AT6	032726 0      0   0   0            0            404000000000 
FT0	032726 0      0   0   000000400000 0            404000000000 
FT1A	032726 0      0   0   000000400000 0            000000400000 
FT2	032726 0      0   0   0            0            000000400000 
FT2RQ	032726 0      0   0   000000400000 0            000000400000 
FT3	032726 0      0   0   000000400000 0            000000400000 
FT9	032727 0      0   0   000000400000 0            000000400000 
ET0	032727 0      0   0   000000400000 0            000000400000 
ST1	032727 0      0   0   000000400000 0            000000400000 
ST2	032727 0      0   0   000000400000 0            000000400000 
ST9	032727 0      0   0   000000400000 0            000000400000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 336
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0552

*032727 SKIPN	0,000000
INITIAL
C(AC)=000000 400000 
C(E)=000000 400000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032727 032727 0   0   336000000000 0            000000400000 
IT1	032727 0      0   0   336000000000 0            000000400000 
AT3	032727 0      0   0   0            0            336000000000 
AT6	032727 0      0   0   0            0            336000000000 
FT0	032727 0      0   0   000000400000 0            336000000000 
FT1A	032727 0      0   0   000000400000 0            000000400000 
FT9	032730 0      0   0   000000400000 0            000000400000 
ET0	032731 0      0   0   000000400000 0            000000400000 
ST1A	032731 0      0   0   000000400000 0            000000400000 
ST9	032731 0      0   0   000000400000 0            000000400000 


*032731 JUMPA	0,032732
INITIAL
C(AC)=000000 400000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032731 032731 0   0   324000032732 0            000000032732 
IT1	032731 0      0   0   324000032732 0            000000032732 
AT3	032731 0      0   0   000000032732 0            324000032732 
AT6	032731 032732 0   0   000000032732 0            324000032732 
FT1A	032731 032732 0   0   000000032732 0            000000032732 
FT2	032731 032732 0   0   0            0            000000032732 
FT2RQ	032731 032732 0   0   000000400000 0            000000032732 
FT3	032731 032732 0   0   000000400000 0            000000032732 
FT9	032732 032732 0   0   000000400000 0            000000032732 
ET0	032732 032732 0   0   000000400000 0            000000032732 
ST1A	032732 032732 0   0   000000400000 0            000000032732 
ST9	032732 032732 0   0   000000400000 0            000000032732 


*032732 MOVE 	0,035116
INITIAL
C(AC)=000000 400000 
C(E)=000001 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032732 032732 0   0   200000035116 0            000001000000 
IT1	032732 0      0   0   200000035116 0            000001000000 
AT3	032732 0      0   0   000000035116 0            200000035116 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 337
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0553

AT6	032732 035116 0   0   000000035116 0            200000035116 
FT0	032732 035116 0   0   000001000000 0            200000035116 
FT1A	032732 035116 0   0   000001000000 0            000001000000 
FT9	032733 035116 0   0   000001000000 0            000001000000 
ET0	032733 035116 0   0   000001000000 0            000001000000 
ST1	032733 035116 0   0   000001000000 0            000001000000 
ST2	032733 035116 0   0   000001000000 0            000001000000 
ST9	032733 035116 0   0   000001000000 0            000001000000 


*032733 AND 	0,000000
INITIAL
C(AC)=000001 000000 
C(E)=000001 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032733 032733 0   0   404000000000 0            000001000000 
IT1	032733 0      0   0   404000000000 0            000001000000 
AT3	032733 0      0   0   0            0            404000000000 
AT6	032733 0      0   0   0            0            404000000000 
FT0	032733 0      0   0   000001000000 0            404000000000 
FT1A	032733 0      0   0   000001000000 0            000001000000 
FT2	032733 0      0   0   0            0            000001000000 
FT2RQ	032733 0      0   0   000001000000 0            000001000000 
FT3	032733 0      0   0   000001000000 0            000001000000 
FT9	032734 0      0   0   000001000000 0            000001000000 
ET0	032734 0      0   0   000001000000 0            000001000000 
ST1	032734 0      0   0   000001000000 0            000001000000 
ST2	032734 0      0   0   000001000000 0            000001000000 
ST9	032734 0      0   0   000001000000 0            000001000000 


*032734 SKIPN	0,000000
INITIAL
C(AC)=000001 000000 
C(E)=000001 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032734 032734 0   0   336000000000 0            000001000000 
IT1	032734 0      0   0   336000000000 0            000001000000 
AT3	032734 0      0   0   0            0            336000000000 
AT6	032734 0      0   0   0            0            336000000000 
FT0	032734 0      0   0   000001000000 0            336000000000 
FT1A	032734 0      0   0   000001000000 0            000001000000 
FT9	032735 0      0   0   000001000000 0            000001000000 
ET0	032736 0      0   0   000001000000 0            000001000000 
ST1A	032736 0      0   0   000001000000 0            000001000000 
ST9	032736 0      0   0   000001000000 0            000001000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 338
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0554



*032736 JUMPA	0,032737
INITIAL
C(AC)=000001 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032736 032736 0   0   324000032737 0            000000032737 
IT1	032736 0      0   0   324000032737 0            000000032737 
AT3	032736 0      0   0   000000032737 0            324000032737 
AT6	032736 032737 0   0   000000032737 0            324000032737 
FT1A	032736 032737 0   0   000000032737 0            000000032737 
FT2	032736 032737 0   0   0            0            000000032737 
FT2RQ	032736 032737 0   0   000001000000 0            000000032737 
FT3	032736 032737 0   0   000001000000 0            000000032737 
FT9	032737 032737 0   0   000001000000 0            000000032737 
ET0	032737 032737 0   0   000001000000 0            000000032737 
ST1A	032737 032737 0   0   000001000000 0            000000032737 
ST9	032737 032737 0   0   000001000000 0            000000032737 


*032737 MOVE 	0,035117
INITIAL
C(AC)=000001 000000 
C(E)=000002 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032737 032737 0   0   200000035117 0            000002000000 
IT1	032737 0      0   0   200000035117 0            000002000000 
AT3	032737 0      0   0   000000035117 0            200000035117 
AT6	032737 035117 0   0   000000035117 0            200000035117 
FT0	032737 035117 0   0   000002000000 0            200000035117 
FT1A	032737 035117 0   0   000002000000 0            000002000000 
FT9	032740 035117 0   0   000002000000 0            000002000000 
ET0	032740 035117 0   0   000002000000 0            000002000000 
ST1	032740 035117 0   0   000002000000 0            000002000000 
ST2	032740 035117 0   0   000002000000 0            000002000000 
ST9	032740 035117 0   0   000002000000 0            000002000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 339
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0555

*032740 AND 	0,000000
INITIAL
C(AC)=000002 000000 
C(E)=000002 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032740 032740 0   0   404000000000 0            000002000000 
IT1	032740 0      0   0   404000000000 0            000002000000 
AT3	032740 0      0   0   0            0            404000000000 
AT6	032740 0      0   0   0            0            404000000000 
FT0	032740 0      0   0   000002000000 0            404000000000 
FT1A	032740 0      0   0   000002000000 0            000002000000 
FT2	032740 0      0   0   0            0            000002000000 
FT2RQ	032740 0      0   0   000002000000 0            000002000000 
FT3	032740 0      0   0   000002000000 0            000002000000 
FT9	032741 0      0   0   000002000000 0            000002000000 
ET0	032741 0      0   0   000002000000 0            000002000000 
ST1	032741 0      0   0   000002000000 0            000002000000 
ST2	032741 0      0   0   000002000000 0            000002000000 
ST9	032741 0      0   0   000002000000 0            000002000000 


*032741 SKIPN	0,000000
INITIAL
C(AC)=000002 000000 
C(E)=000002 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032741 032741 0   0   336000000000 0            000002000000 
IT1	032741 0      0   0   336000000000 0            000002000000 
AT3	032741 0      0   0   0            0            336000000000 
AT6	032741 0      0   0   0            0            336000000000 
FT0	032741 0      0   0   000002000000 0            336000000000 
FT1A	032741 0      0   0   000002000000 0            000002000000 
FT9	032742 0      0   0   000002000000 0            000002000000 
ET0	032743 0      0   0   000002000000 0            000002000000 
ST1A	032743 0      0   0   000002000000 0            000002000000 
ST9	032743 0      0   0   000002000000 0            000002000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 340
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0556

*032743 JUMPA	0,032744
INITIAL
C(AC)=000002 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032743 032743 0   0   324000032744 0            000000032744 
IT1	032743 0      0   0   324000032744 0            000000032744 
AT3	032743 0      0   0   000000032744 0            324000032744 
AT6	032743 032744 0   0   000000032744 0            324000032744 
FT1A	032743 032744 0   0   000000032744 0            000000032744 
FT2	032743 032744 0   0   0            0            000000032744 
FT2RQ	032743 032744 0   0   000002000000 0            000000032744 
FT3	032743 032744 0   0   000002000000 0            000000032744 
FT9	032744 032744 0   0   000002000000 0            000000032744 
ET0	032744 032744 0   0   000002000000 0            000000032744 
ST1A	032744 032744 0   0   000002000000 0            000000032744 
ST9	032744 032744 0   0   000002000000 0            000000032744 


*032744 MOVE 	0,035120
INITIAL
C(AC)=000002 000000 
C(E)=000004 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032744 032744 0   0   200000035120 0            000004000000 
IT1	032744 0      0   0   200000035120 0            000004000000 
AT3	032744 0      0   0   000000035120 0            200000035120 
AT6	032744 035120 0   0   000000035120 0            200000035120 
FT0	032744 035120 0   0   000004000000 0            200000035120 
FT1A	032744 035120 0   0   000004000000 0            000004000000 
FT9	032745 035120 0   0   000004000000 0            000004000000 
ET0	032745 035120 0   0   000004000000 0            000004000000 
ST1	032745 035120 0   0   000004000000 0            000004000000 
ST2	032745 035120 0   0   000004000000 0            000004000000 
ST9	032745 035120 0   0   000004000000 0            000004000000 


*032745 AND 	0,000000
INITIAL
C(AC)=000004 000000 
C(E)=000004 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032745 032745 0   0   404000000000 0            000004000000 
IT1	032745 0      0   0   404000000000 0            000004000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 341
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0557

AT3	032745 0      0   0   0            0            404000000000 
AT6	032745 0      0   0   0            0            404000000000 
FT0	032745 0      0   0   000004000000 0            404000000000 
FT1A	032745 0      0   0   000004000000 0            000004000000 
FT2	032745 0      0   0   0            0            000004000000 
FT2RQ	032745 0      0   0   000004000000 0            000004000000 
FT3	032745 0      0   0   000004000000 0            000004000000 
FT9	032746 0      0   0   000004000000 0            000004000000 
ET0	032746 0      0   0   000004000000 0            000004000000 
ST1	032746 0      0   0   000004000000 0            000004000000 
ST2	032746 0      0   0   000004000000 0            000004000000 
ST9	032746 0      0   0   000004000000 0            000004000000 


*032746 SKIPN	0,000000
INITIAL
C(AC)=000004 000000 
C(E)=000004 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032746 032746 0   0   336000000000 0            000004000000 
IT1	032746 0      0   0   336000000000 0            000004000000 
AT3	032746 0      0   0   0            0            336000000000 
AT6	032746 0      0   0   0            0            336000000000 
FT0	032746 0      0   0   000004000000 0            336000000000 
FT1A	032746 0      0   0   000004000000 0            000004000000 
FT9	032747 0      0   0   000004000000 0            000004000000 
ET0	032750 0      0   0   000004000000 0            000004000000 
ST1A	032750 0      0   0   000004000000 0            000004000000 
ST9	032750 0      0   0   000004000000 0            000004000000 


*032750 JUMPA	0,032751
INITIAL
C(AC)=000004 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032750 032750 0   0   324000032751 0            000000032751 
IT1	032750 0      0   0   324000032751 0            000000032751 
AT3	032750 0      0   0   000000032751 0            324000032751 
AT6	032750 032751 0   0   000000032751 0            324000032751 
FT1A	032750 032751 0   0   000000032751 0            000000032751 
FT2	032750 032751 0   0   0            0            000000032751 
FT2RQ	032750 032751 0   0   000004000000 0            000000032751 
FT3	032750 032751 0   0   000004000000 0            000000032751 
FT9	032751 032751 0   0   000004000000 0            000000032751 
ET0	032751 032751 0   0   000004000000 0            000000032751 
ST1A	032751 032751 0   0   000004000000 0            000000032751 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 342
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0558

ST9	032751 032751 0   0   000004000000 0            000000032751 


*032751 MOVE 	0,035121
INITIAL
C(AC)=000004 000000 
C(E)=000010 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032751 032751 0   0   200000035121 0            000010000000 
IT1	032751 0      0   0   200000035121 0            000010000000 
AT3	032751 0      0   0   000000035121 0            200000035121 
AT6	032751 035121 0   0   000000035121 0            200000035121 
FT0	032751 035121 0   0   000010000000 0            200000035121 
FT1A	032751 035121 0   0   000010000000 0            000010000000 
FT9	032752 035121 0   0   000010000000 0            000010000000 
ET0	032752 035121 0   0   000010000000 0            000010000000 
ST1	032752 035121 0   0   000010000000 0            000010000000 
ST2	032752 035121 0   0   000010000000 0            000010000000 
ST9	032752 035121 0   0   000010000000 0            000010000000 


*032752 AND 	0,000000
INITIAL
C(AC)=000010 000000 
C(E)=000010 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032752 032752 0   0   404000000000 0            000010000000 
IT1	032752 0      0   0   404000000000 0            000010000000 
AT3	032752 0      0   0   0            0            404000000000 
AT6	032752 0      0   0   0            0            404000000000 
FT0	032752 0      0   0   000010000000 0            404000000000 
FT1A	032752 0      0   0   000010000000 0            000010000000 
FT2	032752 0      0   0   0            0            000010000000 
FT2RQ	032752 0      0   0   000010000000 0            000010000000 
FT3	032752 0      0   0   000010000000 0            000010000000 
FT9	032753 0      0   0   000010000000 0            000010000000 
ET0	032753 0      0   0   000010000000 0            000010000000 
ST1	032753 0      0   0   000010000000 0            000010000000 
ST2	032753 0      0   0   000010000000 0            000010000000 
ST9	032753 0      0   0   000010000000 0            000010000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 343
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0559

*032753 SKIPN	0,000000
INITIAL
C(AC)=000010 000000 
C(E)=000010 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032753 032753 0   0   336000000000 0            000010000000 
IT1	032753 0      0   0   336000000000 0            000010000000 
AT3	032753 0      0   0   0            0            336000000000 
AT6	032753 0      0   0   0            0            336000000000 
FT0	032753 0      0   0   000010000000 0            336000000000 
FT1A	032753 0      0   0   000010000000 0            000010000000 
FT9	032754 0      0   0   000010000000 0            000010000000 
ET0	032755 0      0   0   000010000000 0            000010000000 
ST1A	032755 0      0   0   000010000000 0            000010000000 
ST9	032755 0      0   0   000010000000 0            000010000000 


*032755 JUMPA	0,032756
INITIAL
C(AC)=000010 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032755 032755 0   0   324000032756 0            000000032756 
IT1	032755 0      0   0   324000032756 0            000000032756 
AT3	032755 0      0   0   000000032756 0            324000032756 
AT6	032755 032756 0   0   000000032756 0            324000032756 
FT1A	032755 032756 0   0   000000032756 0            000000032756 
FT2	032755 032756 0   0   0            0            000000032756 
FT2RQ	032755 032756 0   0   000010000000 0            000000032756 
FT3	032755 032756 0   0   000010000000 0            000000032756 
FT9	032756 032756 0   0   000010000000 0            000000032756 
ET0	032756 032756 0   0   000010000000 0            000000032756 
ST1A	032756 032756 0   0   000010000000 0            000000032756 
ST9	032756 032756 0   0   000010000000 0            000000032756 


*032756 MOVE 	0,035122
INITIAL
C(AC)=000010 000000 
C(E)=000020 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032756 032756 0   0   200000035122 0            000020000000 
IT1	032756 0      0   0   200000035122 0            000020000000 
AT3	032756 0      0   0   000000035122 0            200000035122 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 344
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0560

AT6	032756 035122 0   0   000000035122 0            200000035122 
FT0	032756 035122 0   0   000020000000 0            200000035122 
FT1A	032756 035122 0   0   000020000000 0            000020000000 
FT9	032757 035122 0   0   000020000000 0            000020000000 
ET0	032757 035122 0   0   000020000000 0            000020000000 
ST1	032757 035122 0   0   000020000000 0            000020000000 
ST2	032757 035122 0   0   000020000000 0            000020000000 
ST9	032757 035122 0   0   000020000000 0            000020000000 


*032757 AND 	0,000000
INITIAL
C(AC)=000020 000000 
C(E)=000020 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032757 032757 0   0   404000000000 0            000020000000 
IT1	032757 0      0   0   404000000000 0            000020000000 
AT3	032757 0      0   0   0            0            404000000000 
AT6	032757 0      0   0   0            0            404000000000 
FT0	032757 0      0   0   000020000000 0            404000000000 
FT1A	032757 0      0   0   000020000000 0            000020000000 
FT2	032757 0      0   0   0            0            000020000000 
FT2RQ	032757 0      0   0   000020000000 0            000020000000 
FT3	032757 0      0   0   000020000000 0            000020000000 
FT9	032760 0      0   0   000020000000 0            000020000000 
ET0	032760 0      0   0   000020000000 0            000020000000 
ST1	032760 0      0   0   000020000000 0            000020000000 
ST2	032760 0      0   0   000020000000 0            000020000000 
ST9	032760 0      0   0   000020000000 0            000020000000 


*032760 SKIPN	0,000000
INITIAL
C(AC)=000020 000000 
C(E)=000020 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032760 032760 0   0   336000000000 0            000020000000 
IT1	032760 0      0   0   336000000000 0            000020000000 
AT3	032760 0      0   0   0            0            336000000000 
AT6	032760 0      0   0   0            0            336000000000 
FT0	032760 0      0   0   000020000000 0            336000000000 
FT1A	032760 0      0   0   000020000000 0            000020000000 
FT9	032761 0      0   0   000020000000 0            000020000000 
ET0	032762 0      0   0   000020000000 0            000020000000 
ST1A	032762 0      0   0   000020000000 0            000020000000 
ST9	032762 0      0   0   000020000000 0            000020000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 345
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0561



*032762 JUMPA	0,032763
INITIAL
C(AC)=000020 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032762 032762 0   0   324000032763 0            000000032763 
IT1	032762 0      0   0   324000032763 0            000000032763 
AT3	032762 0      0   0   000000032763 0            324000032763 
AT6	032762 032763 0   0   000000032763 0            324000032763 
FT1A	032762 032763 0   0   000000032763 0            000000032763 
FT2	032762 032763 0   0   0            0            000000032763 
FT2RQ	032762 032763 0   0   000020000000 0            000000032763 
FT3	032762 032763 0   0   000020000000 0            000000032763 
FT9	032763 032763 0   0   000020000000 0            000000032763 
ET0	032763 032763 0   0   000020000000 0            000000032763 
ST1A	032763 032763 0   0   000020000000 0            000000032763 
ST9	032763 032763 0   0   000020000000 0            000000032763 


*032763 MOVE 	0,035123
INITIAL
C(AC)=000020 000000 
C(E)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032763 032763 0   0   200000035123 0            000040000000 
IT1	032763 0      0   0   200000035123 0            000040000000 
AT3	032763 0      0   0   000000035123 0            200000035123 
AT6	032763 035123 0   0   000000035123 0            200000035123 
FT0	032763 035123 0   0   000040000000 0            200000035123 
FT1A	032763 035123 0   0   000040000000 0            000040000000 
FT9	032764 035123 0   0   000040000000 0            000040000000 
ET0	032764 035123 0   0   000040000000 0            000040000000 
ST1	032764 035123 0   0   000040000000 0            000040000000 
ST2	032764 035123 0   0   000040000000 0            000040000000 
ST9	032764 035123 0   0   000040000000 0            000040000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 346
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0562

*032764 AND 	0,000000
INITIAL
C(AC)=000040 000000 
C(E)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032764 032764 0   0   404000000000 0            000040000000 
IT1	032764 0      0   0   404000000000 0            000040000000 
AT3	032764 0      0   0   0            0            404000000000 
AT6	032764 0      0   0   0            0            404000000000 
FT0	032764 0      0   0   000040000000 0            404000000000 
FT1A	032764 0      0   0   000040000000 0            000040000000 
FT2	032764 0      0   0   0            0            000040000000 
FT2RQ	032764 0      0   0   000040000000 0            000040000000 
FT3	032764 0      0   0   000040000000 0            000040000000 
FT9	032765 0      0   0   000040000000 0            000040000000 
ET0	032765 0      0   0   000040000000 0            000040000000 
ST1	032765 0      0   0   000040000000 0            000040000000 
ST2	032765 0      0   0   000040000000 0            000040000000 
ST9	032765 0      0   0   000040000000 0            000040000000 


*032765 SKIPN	0,000000
INITIAL
C(AC)=000040 000000 
C(E)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032765 032765 0   0   336000000000 0            000040000000 
IT1	032765 0      0   0   336000000000 0            000040000000 
AT3	032765 0      0   0   0            0            336000000000 
AT6	032765 0      0   0   0            0            336000000000 
FT0	032765 0      0   0   000040000000 0            336000000000 
FT1A	032765 0      0   0   000040000000 0            000040000000 
FT9	032766 0      0   0   000040000000 0            000040000000 
ET0	032767 0      0   0   000040000000 0            000040000000 
ST1A	032767 0      0   0   000040000000 0            000040000000 
ST9	032767 0      0   0   000040000000 0            000040000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 347
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0563

*032767 JUMPA	0,032770
INITIAL
C(AC)=000040 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032767 032767 0   0   324000032770 0            000000032770 
IT1	032767 0      0   0   324000032770 0            000000032770 
AT3	032767 0      0   0   000000032770 0            324000032770 
AT6	032767 032770 0   0   000000032770 0            324000032770 
FT1A	032767 032770 0   0   000000032770 0            000000032770 
FT2	032767 032770 0   0   0            0            000000032770 
FT2RQ	032767 032770 0   0   000040000000 0            000000032770 
FT3	032767 032770 0   0   000040000000 0            000000032770 
FT9	032770 032770 0   0   000040000000 0            000000032770 
ET0	032770 032770 0   0   000040000000 0            000000032770 
ST1A	032770 032770 0   0   000040000000 0            000000032770 
ST9	032770 032770 0   0   000040000000 0            000000032770 


*032770 MOVE 	0,035124
INITIAL
C(AC)=000040 000000 
C(E)=000100 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032770 032770 0   0   200000035124 0            000100000000 
IT1	032770 0      0   0   200000035124 0            000100000000 
AT3	032770 0      0   0   000000035124 0            200000035124 
AT6	032770 035124 0   0   000000035124 0            200000035124 
FT0	032770 035124 0   0   000100000000 0            200000035124 
FT1A	032770 035124 0   0   000100000000 0            000100000000 
FT9	032771 035124 0   0   000100000000 0            000100000000 
ET0	032771 035124 0   0   000100000000 0            000100000000 
ST1	032771 035124 0   0   000100000000 0            000100000000 
ST2	032771 035124 0   0   000100000000 0            000100000000 
ST9	032771 035124 0   0   000100000000 0            000100000000 


*032771 AND 	0,000000
INITIAL
C(AC)=000100 000000 
C(E)=000100 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032771 032771 0   0   404000000000 0            000100000000 
IT1	032771 0      0   0   404000000000 0            000100000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 348
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0564

AT3	032771 0      0   0   0            0            404000000000 
AT6	032771 0      0   0   0            0            404000000000 
FT0	032771 0      0   0   000100000000 0            404000000000 
FT1A	032771 0      0   0   000100000000 0            000100000000 
FT2	032771 0      0   0   0            0            000100000000 
FT2RQ	032771 0      0   0   000100000000 0            000100000000 
FT3	032771 0      0   0   000100000000 0            000100000000 
FT9	032772 0      0   0   000100000000 0            000100000000 
ET0	032772 0      0   0   000100000000 0            000100000000 
ST1	032772 0      0   0   000100000000 0            000100000000 
ST2	032772 0      0   0   000100000000 0            000100000000 
ST9	032772 0      0   0   000100000000 0            000100000000 


*032772 SKIPN	0,000000
INITIAL
C(AC)=000100 000000 
C(E)=000100 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032772 032772 0   0   336000000000 0            000100000000 
IT1	032772 0      0   0   336000000000 0            000100000000 
AT3	032772 0      0   0   0            0            336000000000 
AT6	032772 0      0   0   0            0            336000000000 
FT0	032772 0      0   0   000100000000 0            336000000000 
FT1A	032772 0      0   0   000100000000 0            000100000000 
FT9	032773 0      0   0   000100000000 0            000100000000 
ET0	032774 0      0   0   000100000000 0            000100000000 
ST1A	032774 0      0   0   000100000000 0            000100000000 
ST9	032774 0      0   0   000100000000 0            000100000000 


*032774 JUMPA	0,032775
INITIAL
C(AC)=000100 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032774 032774 0   0   324000032775 0            000000032775 
IT1	032774 0      0   0   324000032775 0            000000032775 
AT3	032774 0      0   0   000000032775 0            324000032775 
AT6	032774 032775 0   0   000000032775 0            324000032775 
FT1A	032774 032775 0   0   000000032775 0            000000032775 
FT2	032774 032775 0   0   0            0            000000032775 
FT2RQ	032774 032775 0   0   000100000000 0            000000032775 
FT3	032774 032775 0   0   000100000000 0            000000032775 
FT9	032775 032775 0   0   000100000000 0            000000032775 
ET0	032775 032775 0   0   000100000000 0            000000032775 
ST1A	032775 032775 0   0   000100000000 0            000000032775 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 349
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0565

ST9	032775 032775 0   0   000100000000 0            000000032775 


*032775 MOVE 	0,035125
INITIAL
C(AC)=000100 000000 
C(E)=000200 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032775 032775 0   0   200000035125 0            000200000000 
IT1	032775 0      0   0   200000035125 0            000200000000 
AT3	032775 0      0   0   000000035125 0            200000035125 
AT6	032775 035125 0   0   000000035125 0            200000035125 
FT0	032775 035125 0   0   000200000000 0            200000035125 
FT1A	032775 035125 0   0   000200000000 0            000200000000 
FT9	032776 035125 0   0   000200000000 0            000200000000 
ET0	032776 035125 0   0   000200000000 0            000200000000 
ST1	032776 035125 0   0   000200000000 0            000200000000 
ST2	032776 035125 0   0   000200000000 0            000200000000 
ST9	032776 035125 0   0   000200000000 0            000200000000 


*032776 AND 	0,000000
INITIAL
C(AC)=000200 000000 
C(E)=000200 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032776 032776 0   0   404000000000 0            000200000000 
IT1	032776 0      0   0   404000000000 0            000200000000 
AT3	032776 0      0   0   0            0            404000000000 
AT6	032776 0      0   0   0            0            404000000000 
FT0	032776 0      0   0   000200000000 0            404000000000 
FT1A	032776 0      0   0   000200000000 0            000200000000 
FT2	032776 0      0   0   0            0            000200000000 
FT2RQ	032776 0      0   0   000200000000 0            000200000000 
FT3	032776 0      0   0   000200000000 0            000200000000 
FT9	032777 0      0   0   000200000000 0            000200000000 
ET0	032777 0      0   0   000200000000 0            000200000000 
ST1	032777 0      0   0   000200000000 0            000200000000 
ST2	032777 0      0   0   000200000000 0            000200000000 
ST9	032777 0      0   0   000200000000 0            000200000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 350
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0566

*032777 SKIPN	0,000000
INITIAL
C(AC)=000200 000000 
C(E)=000200 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032777 032777 0   0   336000000000 0            000200000000 
IT1	032777 0      0   0   336000000000 0            000200000000 
AT3	032777 0      0   0   0            0            336000000000 
AT6	032777 0      0   0   0            0            336000000000 
FT0	032777 0      0   0   000200000000 0            336000000000 
FT1A	032777 0      0   0   000200000000 0            000200000000 
FT9	0      0      0   0   000200000000 0            000200000000 
ET0	033001 0      0   0   000200000000 0            000200000000 
ST1A	033001 0      0   0   000200000000 0            000200000000 
ST9	033001 0      0   0   000200000000 0            000200000000 


*033001 JUMPA	0,033002
INITIAL
C(AC)=000200 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033001 033001 0   0   324000033002 0            000000033002 
IT1	033001 0      0   0   324000033002 0            000000033002 
AT3	033001 0      0   0   000000033002 0            324000033002 
AT6	033001 033002 0   0   000000033002 0            324000033002 
FT1A	033001 033002 0   0   000000033002 0            000000033002 
FT2	033001 033002 0   0   0            0            000000033002 
FT2RQ	033001 033002 0   0   000200000000 0            000000033002 
FT3	033001 033002 0   0   000200000000 0            000000033002 
FT9	033002 033002 0   0   000200000000 0            000000033002 
ET0	033002 033002 0   0   000200000000 0            000000033002 
ST1A	033002 033002 0   0   000200000000 0            000000033002 
ST9	033002 033002 0   0   000200000000 0            000000033002 


*033002 MOVE 	0,035073
INITIAL
C(AC)=000200 000000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033002 033002 0   0   200000035073 0            000400000000 
IT1	033002 0      0   0   200000035073 0            000400000000 
AT3	033002 0      0   0   000000035073 0            200000035073 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 351
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0567

AT6	033002 035073 0   0   000000035073 0            200000035073 
FT0	033002 035073 0   0   000400000000 0            200000035073 
FT1A	033002 035073 0   0   000400000000 0            000400000000 
FT9	033003 035073 0   0   000400000000 0            000400000000 
ET0	033003 035073 0   0   000400000000 0            000400000000 
ST1	033003 035073 0   0   000400000000 0            000400000000 
ST2	033003 035073 0   0   000400000000 0            000400000000 
ST9	033003 035073 0   0   000400000000 0            000400000000 


*033003 AND 	0,000000
INITIAL
C(AC)=000400 000000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033003 033003 0   0   404000000000 0            000400000000 
IT1	033003 0      0   0   404000000000 0            000400000000 
AT3	033003 0      0   0   0            0            404000000000 
AT6	033003 0      0   0   0            0            404000000000 
FT0	033003 0      0   0   000400000000 0            404000000000 
FT1A	033003 0      0   0   000400000000 0            000400000000 
FT2	033003 0      0   0   0            0            000400000000 
FT2RQ	033003 0      0   0   000400000000 0            000400000000 
FT3	033003 0      0   0   000400000000 0            000400000000 
FT9	033004 0      0   0   000400000000 0            000400000000 
ET0	033004 0      0   0   000400000000 0            000400000000 
ST1	033004 0      0   0   000400000000 0            000400000000 
ST2	033004 0      0   0   000400000000 0            000400000000 
ST9	033004 0      0   0   000400000000 0            000400000000 


*033004 SKIPN	0,000000
INITIAL
C(AC)=000400 000000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033004 033004 0   0   336000000000 0            000400000000 
IT1	033004 0      0   0   336000000000 0            000400000000 
AT3	033004 0      0   0   0            0            336000000000 
AT6	033004 0      0   0   0            0            336000000000 
FT0	033004 0      0   0   000400000000 0            336000000000 
FT1A	033004 0      0   0   000400000000 0            000400000000 
FT9	033005 0      0   0   000400000000 0            000400000000 
ET0	033006 0      0   0   000400000000 0            000400000000 
ST1A	033006 0      0   0   000400000000 0            000400000000 
ST9	033006 0      0   0   000400000000 0            000400000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 352
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0568



*033006 JUMPA	0,033007
INITIAL
C(AC)=000400 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033006 033006 0   0   324000033007 0            000000033007 
IT1	033006 0      0   0   324000033007 0            000000033007 
AT3	033006 0      0   0   000000033007 0            324000033007 
AT6	033006 033007 0   0   000000033007 0            324000033007 
FT1A	033006 033007 0   0   000000033007 0            000000033007 
FT2	033006 033007 0   0   0            0            000000033007 
FT2RQ	033006 033007 0   0   000400000000 0            000000033007 
FT3	033006 033007 0   0   000400000000 0            000000033007 
FT9	033007 033007 0   0   000400000000 0            000000033007 
ET0	033007 033007 0   0   000400000000 0            000000033007 
ST1A	033007 033007 0   0   000400000000 0            000000033007 
ST9	033007 033007 0   0   000400000000 0            000000033007 


*033007 MOVE 	0,035126
INITIAL
C(AC)=000400 000000 
C(E)=001000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033007 033007 0   0   200000035126 0            001000000000 
IT1	033007 0      0   0   200000035126 0            001000000000 
AT3	033007 0      0   0   000000035126 0            200000035126 
AT6	033007 035126 0   0   000000035126 0            200000035126 
FT0	033007 035126 0   0   001000000000 0            200000035126 
FT1A	033007 035126 0   0   001000000000 0            001000000000 
FT9	033010 035126 0   0   001000000000 0            001000000000 
ET0	033010 035126 0   0   001000000000 0            001000000000 
ST1	033010 035126 0   0   001000000000 0            001000000000 
ST2	033010 035126 0   0   001000000000 0            001000000000 
ST9	033010 035126 0   0   001000000000 0            001000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 353
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0569

*033010 AND 	0,000000
INITIAL
C(AC)=001000 000000 
C(E)=001000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033010 033010 0   0   404000000000 0            001000000000 
IT1	033010 0      0   0   404000000000 0            001000000000 
AT3	033010 0      0   0   0            0            404000000000 
AT6	033010 0      0   0   0            0            404000000000 
FT0	033010 0      0   0   001000000000 0            404000000000 
FT1A	033010 0      0   0   001000000000 0            001000000000 
FT2	033010 0      0   0   0            0            001000000000 
FT2RQ	033010 0      0   0   001000000000 0            001000000000 
FT3	033010 0      0   0   001000000000 0            001000000000 
FT9	033011 0      0   0   001000000000 0            001000000000 
ET0	033011 0      0   0   001000000000 0            001000000000 
ST1	033011 0      0   0   001000000000 0            001000000000 
ST2	033011 0      0   0   001000000000 0            001000000000 
ST9	033011 0      0   0   001000000000 0            001000000000 


*033011 SKIPN	0,000000
INITIAL
C(AC)=001000 000000 
C(E)=001000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033011 033011 0   0   336000000000 0            001000000000 
IT1	033011 0      0   0   336000000000 0            001000000000 
AT3	033011 0      0   0   0            0            336000000000 
AT6	033011 0      0   0   0            0            336000000000 
FT0	033011 0      0   0   001000000000 0            336000000000 
FT1A	033011 0      0   0   001000000000 0            001000000000 
FT9	033012 0      0   0   001000000000 0            001000000000 
ET0	033013 0      0   0   001000000000 0            001000000000 
ST1A	033013 0      0   0   001000000000 0            001000000000 
ST9	033013 0      0   0   001000000000 0            001000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 354
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0570

*033013 JUMPA	0,033014
INITIAL
C(AC)=001000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033013 033013 0   0   324000033014 0            000000033014 
IT1	033013 0      0   0   324000033014 0            000000033014 
AT3	033013 0      0   0   000000033014 0            324000033014 
AT6	033013 033014 0   0   000000033014 0            324000033014 
FT1A	033013 033014 0   0   000000033014 0            000000033014 
FT2	033013 033014 0   0   0            0            000000033014 
FT2RQ	033013 033014 0   0   001000000000 0            000000033014 
FT3	033013 033014 0   0   001000000000 0            000000033014 
FT9	033014 033014 0   0   001000000000 0            000000033014 
ET0	033014 033014 0   0   001000000000 0            000000033014 
ST1A	033014 033014 0   0   001000000000 0            000000033014 
ST9	033014 033014 0   0   001000000000 0            000000033014 


*033014 MOVE 	0,035127
INITIAL
C(AC)=001000 000000 
C(E)=002000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033014 033014 0   0   200000035127 0            002000000000 
IT1	033014 0      0   0   200000035127 0            002000000000 
AT3	033014 0      0   0   000000035127 0            200000035127 
AT6	033014 035127 0   0   000000035127 0            200000035127 
FT0	033014 035127 0   0   002000000000 0            200000035127 
FT1A	033014 035127 0   0   002000000000 0            002000000000 
FT9	033015 035127 0   0   002000000000 0            002000000000 
ET0	033015 035127 0   0   002000000000 0            002000000000 
ST1	033015 035127 0   0   002000000000 0            002000000000 
ST2	033015 035127 0   0   002000000000 0            002000000000 
ST9	033015 035127 0   0   002000000000 0            002000000000 


*033015 AND 	0,000000
INITIAL
C(AC)=002000 000000 
C(E)=002000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033015 033015 0   0   404000000000 0            002000000000 
IT1	033015 0      0   0   404000000000 0            002000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 355
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0571

AT3	033015 0      0   0   0            0            404000000000 
AT6	033015 0      0   0   0            0            404000000000 
FT0	033015 0      0   0   002000000000 0            404000000000 
FT1A	033015 0      0   0   002000000000 0            002000000000 
FT2	033015 0      0   0   0            0            002000000000 
FT2RQ	033015 0      0   0   002000000000 0            002000000000 
FT3	033015 0      0   0   002000000000 0            002000000000 
FT9	033016 0      0   0   002000000000 0            002000000000 
ET0	033016 0      0   0   002000000000 0            002000000000 
ST1	033016 0      0   0   002000000000 0            002000000000 
ST2	033016 0      0   0   002000000000 0            002000000000 
ST9	033016 0      0   0   002000000000 0            002000000000 


*033016 SKIPN	0,000000
INITIAL
C(AC)=002000 000000 
C(E)=002000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033016 033016 0   0   336000000000 0            002000000000 
IT1	033016 0      0   0   336000000000 0            002000000000 
AT3	033016 0      0   0   0            0            336000000000 
AT6	033016 0      0   0   0            0            336000000000 
FT0	033016 0      0   0   002000000000 0            336000000000 
FT1A	033016 0      0   0   002000000000 0            002000000000 
FT9	033017 0      0   0   002000000000 0            002000000000 
ET0	033020 0      0   0   002000000000 0            002000000000 
ST1A	033020 0      0   0   002000000000 0            002000000000 
ST9	033020 0      0   0   002000000000 0            002000000000 


*033020 JUMPA	0,033021
INITIAL
C(AC)=002000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033020 033020 0   0   324000033021 0            000000033021 
IT1	033020 0      0   0   324000033021 0            000000033021 
AT3	033020 0      0   0   000000033021 0            324000033021 
AT6	033020 033021 0   0   000000033021 0            324000033021 
FT1A	033020 033021 0   0   000000033021 0            000000033021 
FT2	033020 033021 0   0   0            0            000000033021 
FT2RQ	033020 033021 0   0   002000000000 0            000000033021 
FT3	033020 033021 0   0   002000000000 0            000000033021 
FT9	033021 033021 0   0   002000000000 0            000000033021 
ET0	033021 033021 0   0   002000000000 0            000000033021 
ST1A	033021 033021 0   0   002000000000 0            000000033021 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 356
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0572

ST9	033021 033021 0   0   002000000000 0            000000033021 


*033021 MOVE 	0,035130
INITIAL
C(AC)=002000 000000 
C(E)=004000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033021 033021 0   0   200000035130 0            004000000000 
IT1	033021 0      0   0   200000035130 0            004000000000 
AT3	033021 0      0   0   000000035130 0            200000035130 
AT6	033021 035130 0   0   000000035130 0            200000035130 
FT0	033021 035130 0   0   004000000000 0            200000035130 
FT1A	033021 035130 0   0   004000000000 0            004000000000 
FT9	033022 035130 0   0   004000000000 0            004000000000 
ET0	033022 035130 0   0   004000000000 0            004000000000 
ST1	033022 035130 0   0   004000000000 0            004000000000 
ST2	033022 035130 0   0   004000000000 0            004000000000 
ST9	033022 035130 0   0   004000000000 0            004000000000 


*033022 AND 	0,000000
INITIAL
C(AC)=004000 000000 
C(E)=004000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033022 033022 0   0   404000000000 0            004000000000 
IT1	033022 0      0   0   404000000000 0            004000000000 
AT3	033022 0      0   0   0            0            404000000000 
AT6	033022 0      0   0   0            0            404000000000 
FT0	033022 0      0   0   004000000000 0            404000000000 
FT1A	033022 0      0   0   004000000000 0            004000000000 
FT2	033022 0      0   0   0            0            004000000000 
FT2RQ	033022 0      0   0   004000000000 0            004000000000 
FT3	033022 0      0   0   004000000000 0            004000000000 
FT9	033023 0      0   0   004000000000 0            004000000000 
ET0	033023 0      0   0   004000000000 0            004000000000 
ST1	033023 0      0   0   004000000000 0            004000000000 
ST2	033023 0      0   0   004000000000 0            004000000000 
ST9	033023 0      0   0   004000000000 0            004000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 357
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0573

*033023 SKIPN	0,000000
INITIAL
C(AC)=004000 000000 
C(E)=004000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033023 033023 0   0   336000000000 0            004000000000 
IT1	033023 0      0   0   336000000000 0            004000000000 
AT3	033023 0      0   0   0            0            336000000000 
AT6	033023 0      0   0   0            0            336000000000 
FT0	033023 0      0   0   004000000000 0            336000000000 
FT1A	033023 0      0   0   004000000000 0            004000000000 
FT9	033024 0      0   0   004000000000 0            004000000000 
ET0	033025 0      0   0   004000000000 0            004000000000 
ST1A	033025 0      0   0   004000000000 0            004000000000 
ST9	033025 0      0   0   004000000000 0            004000000000 


*033025 JUMPA	0,033026
INITIAL
C(AC)=004000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033025 033025 0   0   324000033026 0            000000033026 
IT1	033025 0      0   0   324000033026 0            000000033026 
AT3	033025 0      0   0   000000033026 0            324000033026 
AT6	033025 033026 0   0   000000033026 0            324000033026 
FT1A	033025 033026 0   0   000000033026 0            000000033026 
FT2	033025 033026 0   0   0            0            000000033026 
FT2RQ	033025 033026 0   0   004000000000 0            000000033026 
FT3	033025 033026 0   0   004000000000 0            000000033026 
FT9	033026 033026 0   0   004000000000 0            000000033026 
ET0	033026 033026 0   0   004000000000 0            000000033026 
ST1A	033026 033026 0   0   004000000000 0            000000033026 
ST9	033026 033026 0   0   004000000000 0            000000033026 


*033026 MOVE 	0,035131
INITIAL
C(AC)=004000 000000 
C(E)=010000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033026 033026 0   0   200000035131 0            010000000000 
IT1	033026 0      0   0   200000035131 0            010000000000 
AT3	033026 0      0   0   000000035131 0            200000035131 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 358
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0574

AT6	033026 035131 0   0   000000035131 0            200000035131 
FT0	033026 035131 0   0   010000000000 0            200000035131 
FT1A	033026 035131 0   0   010000000000 0            010000000000 
FT9	033027 035131 0   0   010000000000 0            010000000000 
ET0	033027 035131 0   0   010000000000 0            010000000000 
ST1	033027 035131 0   0   010000000000 0            010000000000 
ST2	033027 035131 0   0   010000000000 0            010000000000 
ST9	033027 035131 0   0   010000000000 0            010000000000 


*033027 AND 	0,000000
INITIAL
C(AC)=010000 000000 
C(E)=010000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033027 033027 0   0   404000000000 0            010000000000 
IT1	033027 0      0   0   404000000000 0            010000000000 
AT3	033027 0      0   0   0            0            404000000000 
AT6	033027 0      0   0   0            0            404000000000 
FT0	033027 0      0   0   010000000000 0            404000000000 
FT1A	033027 0      0   0   010000000000 0            010000000000 
FT2	033027 0      0   0   0            0            010000000000 
FT2RQ	033027 0      0   0   010000000000 0            010000000000 
FT3	033027 0      0   0   010000000000 0            010000000000 
FT9	033030 0      0   0   010000000000 0            010000000000 
ET0	033030 0      0   0   010000000000 0            010000000000 
ST1	033030 0      0   0   010000000000 0            010000000000 
ST2	033030 0      0   0   010000000000 0            010000000000 
ST9	033030 0      0   0   010000000000 0            010000000000 


*033030 SKIPN	0,000000
INITIAL
C(AC)=010000 000000 
C(E)=010000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033030 033030 0   0   336000000000 0            010000000000 
IT1	033030 0      0   0   336000000000 0            010000000000 
AT3	033030 0      0   0   0            0            336000000000 
AT6	033030 0      0   0   0            0            336000000000 
FT0	033030 0      0   0   010000000000 0            336000000000 
FT1A	033030 0      0   0   010000000000 0            010000000000 
FT9	033031 0      0   0   010000000000 0            010000000000 
ET0	033032 0      0   0   010000000000 0            010000000000 
ST1A	033032 0      0   0   010000000000 0            010000000000 
ST9	033032 0      0   0   010000000000 0            010000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 359
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0575



*033032 JUMPA	0,033033
INITIAL
C(AC)=010000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033032 033032 0   0   324000033033 0            000000033033 
IT1	033032 0      0   0   324000033033 0            000000033033 
AT3	033032 0      0   0   000000033033 0            324000033033 
AT6	033032 033033 0   0   000000033033 0            324000033033 
FT1A	033032 033033 0   0   000000033033 0            000000033033 
FT2	033032 033033 0   0   0            0            000000033033 
FT2RQ	033032 033033 0   0   010000000000 0            000000033033 
FT3	033032 033033 0   0   010000000000 0            000000033033 
FT9	033033 033033 0   0   010000000000 0            000000033033 
ET0	033033 033033 0   0   010000000000 0            000000033033 
ST1A	033033 033033 0   0   010000000000 0            000000033033 
ST9	033033 033033 0   0   010000000000 0            000000033033 


*033033 MOVE 	0,035132
INITIAL
C(AC)=010000 000000 
C(E)=020000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033033 033033 0   0   200000035132 0            020000000000 
IT1	033033 0      0   0   200000035132 0            020000000000 
AT3	033033 0      0   0   000000035132 0            200000035132 
AT6	033033 035132 0   0   000000035132 0            200000035132 
FT0	033033 035132 0   0   020000000000 0            200000035132 
FT1A	033033 035132 0   0   020000000000 0            020000000000 
FT9	033034 035132 0   0   020000000000 0            020000000000 
ET0	033034 035132 0   0   020000000000 0            020000000000 
ST1	033034 035132 0   0   020000000000 0            020000000000 
ST2	033034 035132 0   0   020000000000 0            020000000000 
ST9	033034 035132 0   0   020000000000 0            020000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 360
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0576

*033034 AND 	0,000000
INITIAL
C(AC)=020000 000000 
C(E)=020000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033034 033034 0   0   404000000000 0            020000000000 
IT1	033034 0      0   0   404000000000 0            020000000000 
AT3	033034 0      0   0   0            0            404000000000 
AT6	033034 0      0   0   0            0            404000000000 
FT0	033034 0      0   0   020000000000 0            404000000000 
FT1A	033034 0      0   0   020000000000 0            020000000000 
FT2	033034 0      0   0   0            0            020000000000 
FT2RQ	033034 0      0   0   020000000000 0            020000000000 
FT3	033034 0      0   0   020000000000 0            020000000000 
FT9	033035 0      0   0   020000000000 0            020000000000 
ET0	033035 0      0   0   020000000000 0            020000000000 
ST1	033035 0      0   0   020000000000 0            020000000000 
ST2	033035 0      0   0   020000000000 0            020000000000 
ST9	033035 0      0   0   020000000000 0            020000000000 


*033035 SKIPN	0,000000
INITIAL
C(AC)=020000 000000 
C(E)=020000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033035 033035 0   0   336000000000 0            020000000000 
IT1	033035 0      0   0   336000000000 0            020000000000 
AT3	033035 0      0   0   0            0            336000000000 
AT6	033035 0      0   0   0            0            336000000000 
FT0	033035 0      0   0   020000000000 0            336000000000 
FT1A	033035 0      0   0   020000000000 0            020000000000 
FT9	033036 0      0   0   020000000000 0            020000000000 
ET0	033037 0      0   0   020000000000 0            020000000000 
ST1A	033037 0      0   0   020000000000 0            020000000000 
ST9	033037 0      0   0   020000000000 0            020000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 361
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0577

*033037 JUMPA	0,033040
INITIAL
C(AC)=020000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033037 033037 0   0   324000033040 0            000000033040 
IT1	033037 0      0   0   324000033040 0            000000033040 
AT3	033037 0      0   0   000000033040 0            324000033040 
AT6	033037 033040 0   0   000000033040 0            324000033040 
FT1A	033037 033040 0   0   000000033040 0            000000033040 
FT2	033037 033040 0   0   0            0            000000033040 
FT2RQ	033037 033040 0   0   020000000000 0            000000033040 
FT3	033037 033040 0   0   020000000000 0            000000033040 
FT9	033040 033040 0   0   020000000000 0            000000033040 
ET0	033040 033040 0   0   020000000000 0            000000033040 
ST1A	033040 033040 0   0   020000000000 0            000000033040 
ST9	033040 033040 0   0   020000000000 0            000000033040 


*033040 MOVE 	0,035133
INITIAL
C(AC)=020000 000000 
C(E)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033040 033040 0   0   200000035133 0            040000000000 
IT1	033040 0      0   0   200000035133 0            040000000000 
AT3	033040 0      0   0   000000035133 0            200000035133 
AT6	033040 035133 0   0   000000035133 0            200000035133 
FT0	033040 035133 0   0   040000000000 0            200000035133 
FT1A	033040 035133 0   0   040000000000 0            040000000000 
FT9	033041 035133 0   0   040000000000 0            040000000000 
ET0	033041 035133 0   0   040000000000 0            040000000000 
ST1	033041 035133 0   0   040000000000 0            040000000000 
ST2	033041 035133 0   0   040000000000 0            040000000000 
ST9	033041 035133 0   0   040000000000 0            040000000000 


*033041 AND 	0,000000
INITIAL
C(AC)=040000 000000 
C(E)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033041 033041 0   0   404000000000 0            040000000000 
IT1	033041 0      0   0   404000000000 0            040000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 362
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0578

AT3	033041 0      0   0   0            0            404000000000 
AT6	033041 0      0   0   0            0            404000000000 
FT0	033041 0      0   0   040000000000 0            404000000000 
FT1A	033041 0      0   0   040000000000 0            040000000000 
FT2	033041 0      0   0   0            0            040000000000 
FT2RQ	033041 0      0   0   040000000000 0            040000000000 
FT3	033041 0      0   0   040000000000 0            040000000000 
FT9	033042 0      0   0   040000000000 0            040000000000 
ET0	033042 0      0   0   040000000000 0            040000000000 
ST1	033042 0      0   0   040000000000 0            040000000000 
ST2	033042 0      0   0   040000000000 0            040000000000 
ST9	033042 0      0   0   040000000000 0            040000000000 


*033042 SKIPN	0,000000
INITIAL
C(AC)=040000 000000 
C(E)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033042 033042 0   0   336000000000 0            040000000000 
IT1	033042 0      0   0   336000000000 0            040000000000 
AT3	033042 0      0   0   0            0            336000000000 
AT6	033042 0      0   0   0            0            336000000000 
FT0	033042 0      0   0   040000000000 0            336000000000 
FT1A	033042 0      0   0   040000000000 0            040000000000 
FT9	033043 0      0   0   040000000000 0            040000000000 
ET0	033044 0      0   0   040000000000 0            040000000000 
ST1A	033044 0      0   0   040000000000 0            040000000000 
ST9	033044 0      0   0   040000000000 0            040000000000 


*033044 JUMPA	0,033045
INITIAL
C(AC)=040000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033044 033044 0   0   324000033045 0            000000033045 
IT1	033044 0      0   0   324000033045 0            000000033045 
AT3	033044 0      0   0   000000033045 0            324000033045 
AT6	033044 033045 0   0   000000033045 0            324000033045 
FT1A	033044 033045 0   0   000000033045 0            000000033045 
FT2	033044 033045 0   0   0            0            000000033045 
FT2RQ	033044 033045 0   0   040000000000 0            000000033045 
FT3	033044 033045 0   0   040000000000 0            000000033045 
FT9	033045 033045 0   0   040000000000 0            000000033045 
ET0	033045 033045 0   0   040000000000 0            000000033045 
ST1A	033045 033045 0   0   040000000000 0            000000033045 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 363
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0579

ST9	033045 033045 0   0   040000000000 0            000000033045 


*033045 MOVE 	0,035134
INITIAL
C(AC)=040000 000000 
C(E)=100000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033045 033045 0   0   200000035134 0            100000000000 
IT1	033045 0      0   0   200000035134 0            100000000000 
AT3	033045 0      0   0   000000035134 0            200000035134 
AT6	033045 035134 0   0   000000035134 0            200000035134 
FT0	033045 035134 0   0   100000000000 0            200000035134 
FT1A	033045 035134 0   0   100000000000 0            100000000000 
FT9	033046 035134 0   0   100000000000 0            100000000000 
ET0	033046 035134 0   0   100000000000 0            100000000000 
ST1	033046 035134 0   0   100000000000 0            100000000000 
ST2	033046 035134 0   0   100000000000 0            100000000000 
ST9	033046 035134 0   0   100000000000 0            100000000000 


*033046 AND 	0,000000
INITIAL
C(AC)=100000 000000 
C(E)=100000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033046 033046 0   0   404000000000 0            100000000000 
IT1	033046 0      0   0   404000000000 0            100000000000 
AT3	033046 0      0   0   0            0            404000000000 
AT6	033046 0      0   0   0            0            404000000000 
FT0	033046 0      0   0   100000000000 0            404000000000 
FT1A	033046 0      0   0   100000000000 0            100000000000 
FT2	033046 0      0   0   0            0            100000000000 
FT2RQ	033046 0      0   0   100000000000 0            100000000000 
FT3	033046 0      0   0   100000000000 0            100000000000 
FT9	033047 0      0   0   100000000000 0            100000000000 
ET0	033047 0      0   0   100000000000 0            100000000000 
ST1	033047 0      0   0   100000000000 0            100000000000 
ST2	033047 0      0   0   100000000000 0            100000000000 
ST9	033047 0      0   0   100000000000 0            100000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 364
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0580

*033047 SKIPN	0,000000
INITIAL
C(AC)=100000 000000 
C(E)=100000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033047 033047 0   0   336000000000 0            100000000000 
IT1	033047 0      0   0   336000000000 0            100000000000 
AT3	033047 0      0   0   0            0            336000000000 
AT6	033047 0      0   0   0            0            336000000000 
FT0	033047 0      0   0   100000000000 0            336000000000 
FT1A	033047 0      0   0   100000000000 0            100000000000 
FT9	033050 0      0   0   100000000000 0            100000000000 
ET0	033051 0      0   0   100000000000 0            100000000000 
ST1A	033051 0      0   0   100000000000 0            100000000000 
ST9	033051 0      0   0   100000000000 0            100000000000 


*033051 JUMPA	0,033052
INITIAL
C(AC)=100000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033051 033051 0   0   324000033052 0            000000033052 
IT1	033051 0      0   0   324000033052 0            000000033052 
AT3	033051 0      0   0   000000033052 0            324000033052 
AT6	033051 033052 0   0   000000033052 0            324000033052 
FT1A	033051 033052 0   0   000000033052 0            000000033052 
FT2	033051 033052 0   0   0            0            000000033052 
FT2RQ	033051 033052 0   0   100000000000 0            000000033052 
FT3	033051 033052 0   0   100000000000 0            000000033052 
FT9	033052 033052 0   0   100000000000 0            000000033052 
ET0	033052 033052 0   0   100000000000 0            000000033052 
ST1A	033052 033052 0   0   100000000000 0            000000033052 
ST9	033052 033052 0   0   100000000000 0            000000033052 


*033052 MOVE 	0,035135
INITIAL
C(AC)=100000 000000 
C(E)=200000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033052 033052 0   0   200000035135 0            200000000000 
IT1	033052 0      0   0   200000035135 0            200000000000 
AT3	033052 0      0   0   000000035135 0            200000035135 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 365
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0581

AT6	033052 035135 0   0   000000035135 0            200000035135 
FT0	033052 035135 0   0   200000000000 0            200000035135 
FT1A	033052 035135 0   0   200000000000 0            200000000000 
FT9	033053 035135 0   0   200000000000 0            200000000000 
ET0	033053 035135 0   0   200000000000 0            200000000000 
ST1	033053 035135 0   0   200000000000 0            200000000000 
ST2	033053 035135 0   0   200000000000 0            200000000000 
ST9	033053 035135 0   0   200000000000 0            200000000000 


*033053 AND 	0,000000
INITIAL
C(AC)=200000 000000 
C(E)=200000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033053 033053 0   0   404000000000 0            200000000000 
IT1	033053 0      0   0   404000000000 0            200000000000 
AT3	033053 0      0   0   0            0            404000000000 
AT6	033053 0      0   0   0            0            404000000000 
FT0	033053 0      0   0   200000000000 0            404000000000 
FT1A	033053 0      0   0   200000000000 0            200000000000 
FT2	033053 0      0   0   0            0            200000000000 
FT2RQ	033053 0      0   0   200000000000 0            200000000000 
FT3	033053 0      0   0   200000000000 0            200000000000 
FT9	033054 0      0   0   200000000000 0            200000000000 
ET0	033054 0      0   0   200000000000 0            200000000000 
ST1	033054 0      0   0   200000000000 0            200000000000 
ST2	033054 0      0   0   200000000000 0            200000000000 
ST9	033054 0      0   0   200000000000 0            200000000000 


*033054 SKIPN	0,000000
INITIAL
C(AC)=200000 000000 
C(E)=200000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033054 033054 0   0   336000000000 0            200000000000 
IT1	033054 0      0   0   336000000000 0            200000000000 
AT3	033054 0      0   0   0            0            336000000000 
AT6	033054 0      0   0   0            0            336000000000 
FT0	033054 0      0   0   200000000000 0            336000000000 
FT1A	033054 0      0   0   200000000000 0            200000000000 
FT9	033055 0      0   0   200000000000 0            200000000000 
ET0	033056 0      0   0   200000000000 0            200000000000 
ST1A	033056 0      0   0   200000000000 0            200000000000 
ST9	033056 0      0   0   200000000000 0            200000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 366
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0582



*033056 JUMPA	0,033057
INITIAL
C(AC)=200000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033056 033056 0   0   324000033057 0            000000033057 
IT1	033056 0      0   0   324000033057 0            000000033057 
AT3	033056 0      0   0   000000033057 0            324000033057 
AT6	033056 033057 0   0   000000033057 0            324000033057 
FT1A	033056 033057 0   0   000000033057 0            000000033057 
FT2	033056 033057 0   0   0            0            000000033057 
FT2RQ	033056 033057 0   0   200000000000 0            000000033057 
FT3	033056 033057 0   0   200000000000 0            000000033057 
FT9	033057 033057 0   0   200000000000 0            000000033057 
ET0	033057 033057 0   0   200000000000 0            000000033057 
ST1A	033057 033057 0   0   200000000000 0            000000033057 
ST9	033057 033057 0   0   200000000000 0            000000033057 


*033057 MOVE 	0,035065
INITIAL
C(AC)=200000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033057 033057 0   0   200000035065 0            400000000000 
IT1	033057 0      0   0   200000035065 0            400000000000 
AT3	033057 0      0   0   000000035065 0            200000035065 
AT6	033057 035065 0   0   000000035065 0            200000035065 
FT0	033057 035065 0   0   400000000000 0            200000035065 
FT1A	033057 035065 0   0   400000000000 0            400000000000 
FT9	033060 035065 0   0   400000000000 0            400000000000 
ET0	033060 035065 0   0   400000000000 0            400000000000 
ST1	033060 035065 0   0   400000000000 0            400000000000 
ST2	033060 035065 0   0   400000000000 0            400000000000 
ST9	033060 035065 0   0   400000000000 0            400000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 367
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0583

*033060 AND 	0,000000
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033060 033060 0   0   404000000000 0            400000000000 
IT1	033060 0      0   0   404000000000 0            400000000000 
AT3	033060 0      0   0   0            0            404000000000 
AT6	033060 0      0   0   0            0            404000000000 
FT0	033060 0      0   0   400000000000 0            404000000000 
FT1A	033060 0      0   0   400000000000 0            400000000000 
FT2	033060 0      0   0   0            0            400000000000 
FT2RQ	033060 0      0   0   400000000000 0            400000000000 
FT3	033060 0      0   0   400000000000 0            400000000000 
FT9	033061 0      0   0   400000000000 0            400000000000 
ET0	033061 0      0   0   400000000000 0            400000000000 
ST1	033061 0      0   0   400000000000 0            400000000000 
ST2	033061 0      0   0   400000000000 0            400000000000 
ST9	033061 0      0   0   400000000000 0            400000000000 


*033061 SKIPN	0,000000
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033061 033061 0   0   336000000000 0            400000000000 
IT1	033061 0      0   0   336000000000 0            400000000000 
AT3	033061 0      0   0   0            0            336000000000 
AT6	033061 0      0   0   0            0            336000000000 
FT0	033061 0      0   0   400000000000 0            336000000000 
FT1A	033061 0      0   0   400000000000 0            400000000000 
FT9	033062 0      0   0   400000000000 0            400000000000 
ET0	033063 0      0   0   400000000000 0            400000000000 
ST1A	033063 0      0   0   400000000000 0            400000000000 
ST9	033063 0      0   0   400000000000 0            400000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 368
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0584

*033063 JUMPA	0,033064
INITIAL
C(AC)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033063 033063 0   0   324000033064 0            000000033064 
IT1	033063 0      0   0   324000033064 0            000000033064 
AT3	033063 0      0   0   000000033064 0            324000033064 
AT6	033063 033064 0   0   000000033064 0            324000033064 
FT1A	033063 033064 0   0   000000033064 0            000000033064 
FT2	033063 033064 0   0   0            0            000000033064 
FT2RQ	033063 033064 0   0   400000000000 0            000000033064 
FT3	033063 033064 0   0   400000000000 0            000000033064 
FT9	033064 033064 0   0   400000000000 0            000000033064 
ET0	033064 033064 0   0   400000000000 0            000000033064 
ST1A	033064 033064 0   0   400000000000 0            000000033064 
ST9	033064 033064 0   0   400000000000 0            000000033064 


*033064 MOVE 	0,035062
INITIAL
C(AC)=400000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033064 033064 0   0   200000035062 0            0            
IT1	033064 0      0   0   200000035062 0            0            
AT3	033064 0      0   0   000000035062 0            200000035062 
AT6	033064 035062 0   0   000000035062 0            200000035062 
FT0	033064 035062 0   0   0            0            200000035062 
FT1A	033064 035062 0   0   0            0            0            
FT9	033065 035062 0   0   0            0            0            
ET0	033065 035062 0   0   0            0            0            
ST1	033065 035062 0   0   0            0            0            
ST2	033065 035062 0   0   0            0            0            
ST9	033065 035062 0   0   0            0            0            


*033065 AND 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033065 033065 0   0   404000035062 0            0            
IT1	033065 0      0   0   404000035062 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 369
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0585

AT3	033065 0      0   0   000000035062 0            404000035062 
AT6	033065 035062 0   0   000000035062 0            404000035062 
FT0	033065 035062 0   0   0            0            404000035062 
FT1A	033065 035062 0   0   0            0            0            
FT2	033065 035062 0   0   0            0            0            
FT2RQ	033065 035062 0   0   0            0            0            
FT3	033065 035062 0   0   0            0            0            
FT9	033066 035062 0   0   0            0            0            
ET0	033066 035062 0   0   0            0            0            
ST1	033066 035062 0   0   0            0            0            
ST2	033066 035062 0   0   0            0            0            
ST9	033066 035062 0   0   0            0            0            


*033066 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	033066 033066 0   0   332000000000 0            0            
IT1	033066 0      0   0   332000000000 0            0            
AT3	033066 0      0   0   0            0            332000000000 
AT6	033066 0      0   0   0            0            332000000000 
FT0	033066 0      0   0   0            0            332000000000 
FT1A	033066 0      0   0   0            0            0            
FT9	033067 0      0   0   0            0            0            
ET0	033070 0      0   0   0            0            0            
ST1A	033070 0      0   0   0            0            0            
ST9	033070 0      0   0   0            0            0            


*033070 JUMPA	0,033071
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033070 033070 0   0   324000033071 0            000000033071 
IT1	033070 0      0   0   324000033071 0            000000033071 
AT3	033070 0      0   0   000000033071 0            324000033071 
AT6	033070 033071 0   0   000000033071 0            324000033071 
FT1A	033070 033071 0   0   000000033071 0            000000033071 
FT2	033070 033071 0   0   0            0            000000033071 
FT2RQ	033070 033071 0   0   0            0            000000033071 
FT3	033070 033071 0   0   0            0            000000033071 
FT9	033071 033071 0   0   0            0            000000033071 
ET0	033071 033071 0   0   0            0            000000033071 
ST1A	033071 033071 0   0   0            0            000000033071 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 370
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0586

ST9	033071 033071 0   0   0            0            000000033071 


*033071 MOVE 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033071 033071 0   0   200000035062 0            0            
IT1	033071 0      0   0   200000035062 0            0            
AT3	033071 0      0   0   000000035062 0            200000035062 
AT6	033071 035062 0   0   000000035062 0            200000035062 
FT0	033071 035062 0   0   0            0            200000035062 
FT1A	033071 035062 0   0   0            0            0            
FT9	033072 035062 0   0   0            0            0            
ET0	033072 035062 0   0   0            0            0            
ST1	033072 035062 0   0   0            0            0            
ST2	033072 035062 0   0   0            0            0            
ST9	033072 035062 0   0   0            0            0            


*033072 AND 	0,035063
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033072 033072 0   0   404000035063 0            777777777777 
IT1	033072 0      0   0   404000035063 0            777777777777 
AT3	033072 0      0   0   000000035063 0            404000035063 
AT6	033072 035063 0   0   000000035063 0            404000035063 
FT0	033072 035063 0   0   777777777777 0            404000035063 
FT1A	033072 035063 0   0   777777777777 0            777777777777 
FT2	033072 035063 0   0   0            0            777777777777 
FT2RQ	033072 035063 0   0   0            0            777777777777 
FT3	033072 035063 0   0   0            0            777777777777 
FT9	033073 035063 0   0   0            0            777777777777 
ET0	033073 035063 0   0   0            0            777777777777 
ST1	033073 035063 0   0   0            0            777777777777 
ST2	033073 035063 0   0   0            0            777777777777 
ST9	033073 035063 0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 371
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0587

*033073 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	033073 033073 0   0   332000000000 0            0            
IT1	033073 0      0   0   332000000000 0            0            
AT3	033073 0      0   0   0            0            332000000000 
AT6	033073 0      0   0   0            0            332000000000 
FT0	033073 0      0   0   0            0            332000000000 
FT1A	033073 0      0   0   0            0            0            
FT9	033074 0      0   0   0            0            0            
ET0	033075 0      0   0   0            0            0            
ST1A	033075 0      0   0   0            0            0            
ST9	033075 0      0   0   0            0            0            


*033075 JUMPA	0,033076
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033075 033075 0   0   324000033076 0            000000033076 
IT1	033075 0      0   0   324000033076 0            000000033076 
AT3	033075 0      0   0   000000033076 0            324000033076 
AT6	033075 033076 0   0   000000033076 0            324000033076 
FT1A	033075 033076 0   0   000000033076 0            000000033076 
FT2	033075 033076 0   0   0            0            000000033076 
FT2RQ	033075 033076 0   0   0            0            000000033076 
FT3	033075 033076 0   0   0            0            000000033076 
FT9	033076 033076 0   0   0            0            000000033076 
ET0	033076 033076 0   0   0            0            000000033076 
ST1A	033076 033076 0   0   0            0            000000033076 
ST9	033076 033076 0   0   0            0            000000033076 


*033076 MOVE 	0,035063
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033076 033076 0   0   200000035063 0            777777777777 
IT1	033076 0      0   0   200000035063 0            777777777777 
AT3	033076 0      0   0   000000035063 0            200000035063 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 372
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0588

AT6	033076 035063 0   0   000000035063 0            200000035063 
FT0	033076 035063 0   0   777777777777 0            200000035063 
FT1A	033076 035063 0   0   777777777777 0            777777777777 
FT9	033077 035063 0   0   777777777777 0            777777777777 
ET0	033077 035063 0   0   777777777777 0            777777777777 
ST1	033077 035063 0   0   777777777777 0            777777777777 
ST2	033077 035063 0   0   777777777777 0            777777777777 
ST9	033077 035063 0   0   777777777777 0            777777777777 


*033077 AND 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033077 033077 0   0   404000035062 0            0            
IT1	033077 0      0   0   404000035062 0            0            
AT3	033077 0      0   0   000000035062 0            404000035062 
AT6	033077 035062 0   0   000000035062 0            404000035062 
FT0	033077 035062 0   0   0            0            404000035062 
FT1A	033077 035062 0   0   0            0            0            
FT2	033077 035062 0   0   0            0            0            
FT2RQ	033077 035062 0   0   777777777777 0            0            
FT3	033077 035062 0   0   777777777777 0            0            
FT9	0      035062 0   0   777777777777 0            0            
ET0	0      035062 0   0   0            0            0            
ST1	0      035062 0   0   0            0            0            
ST2	0      035062 0   0   0            0            0            
ST9	0      035062 0   0   0            0            0            


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   332000000000 0            0            
IT1	0      0      0   0   332000000000 0            0            
AT3	0      0      0   0   0            0            332000000000 
AT6	0      0      0   0   0            0            332000000000 
FT0	0      0      0   0   0            0            332000000000 
FT1A	0      0      0   0   0            0            0            
FT9	033101 0      0   0   0            0            0            
ET0	033102 0      0   0   0            0            0            
ST1A	033102 0      0   0   0            0            0            
ST9	033102 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 373
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0589



*033102 JUMPA	0,033103
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033102 033102 0   0   324000033103 0            000000033103 
IT1	033102 0      0   0   324000033103 0            000000033103 
AT3	033102 0      0   0   000000033103 0            324000033103 
AT6	033102 033103 0   0   000000033103 0            324000033103 
FT1A	033102 033103 0   0   000000033103 0            000000033103 
FT2	033102 033103 0   0   0            0            000000033103 
FT2RQ	033102 033103 0   0   0            0            000000033103 
FT3	033102 033103 0   0   0            0            000000033103 
FT9	033103 033103 0   0   0            0            000000033103 
ET0	033103 033103 0   0   0            0            000000033103 
ST1A	033103 033103 0   0   0            0            000000033103 
ST9	033103 033103 0   0   0            0            000000033103 


*033103 MOVE 	0,035063
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033103 033103 0   0   200000035063 0            777777777777 
IT1	033103 0      0   0   200000035063 0            777777777777 
AT3	033103 0      0   0   000000035063 0            200000035063 
AT6	033103 035063 0   0   000000035063 0            200000035063 
FT0	033103 035063 0   0   777777777777 0            200000035063 
FT1A	033103 035063 0   0   777777777777 0            777777777777 
FT9	033104 035063 0   0   777777777777 0            777777777777 
ET0	033104 035063 0   0   777777777777 0            777777777777 
ST1	033104 035063 0   0   777777777777 0            777777777777 
ST2	033104 035063 0   0   777777777777 0            777777777777 
ST9	033104 035063 0   0   777777777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 374
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0590

*033104 AND 	0,035063
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033104 033104 0   0   404000035063 0            777777777777 
IT1	033104 0      0   0   404000035063 0            777777777777 
AT3	033104 0      0   0   000000035063 0            404000035063 
AT6	033104 035063 0   0   000000035063 0            404000035063 
FT0	033104 035063 0   0   777777777777 0            404000035063 
FT1A	033104 035063 0   0   777777777777 0            777777777777 
FT2	033104 035063 0   0   0            0            777777777777 
FT2RQ	033104 035063 0   0   777777777777 0            777777777777 
FT3	033104 035063 0   0   777777777777 0            777777777777 
FT9	033105 035063 0   0   777777777777 0            777777777777 
ET0	033105 035063 0   0   777777777777 0            777777777777 
ST1	033105 035063 0   0   777777777777 0            777777777777 
ST2	033105 035063 0   0   777777777777 0            777777777777 
ST9	033105 035063 0   0   777777777777 0            777777777777 


*033105 SKIPN	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033105 033105 0   0   336000000000 0            777777777777 
IT1	033105 0      0   0   336000000000 0            777777777777 
AT3	033105 0      0   0   0            0            336000000000 
AT6	033105 0      0   0   0            0            336000000000 
FT0	033105 0      0   0   777777777777 0            336000000000 
FT1A	033105 0      0   0   777777777777 0            777777777777 
FT9	033106 0      0   0   777777777777 0            777777777777 
ET0	033107 0      0   0   777777777777 0            777777777777 
ST1A	033107 0      0   0   777777777777 0            777777777777 
ST9	033107 0      0   0   777777777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 375
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0591

*033107 JUMPA	0,033110
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033107 033107 0   0   324000033110 0            000000033110 
IT1	033107 0      0   0   324000033110 0            000000033110 
AT3	033107 0      0   0   000000033110 0            324000033110 
AT6	033107 033110 0   0   000000033110 0            324000033110 
FT1A	033107 033110 0   0   000000033110 0            000000033110 
FT2	033107 033110 0   0   0            0            000000033110 
FT2RQ	033107 033110 0   0   777777777777 0            000000033110 
FT3	033107 033110 0   0   777777777777 0            000000033110 
FT9	033110 033110 0   0   777777777777 0            000000033110 
ET0	033110 033110 0   0   777777777777 0            000000033110 
ST1A	033110 033110 0   0   777777777777 0            000000033110 
ST9	033110 033110 0   0   777777777777 0            000000033110 


*033110 MOVE 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033110 033110 0   0   200000035062 0            0            
IT1	033110 0      0   0   200000035062 0            0            
AT3	033110 0      0   0   000000035062 0            200000035062 
AT6	033110 035062 0   0   000000035062 0            200000035062 
FT0	033110 035062 0   0   0            0            200000035062 
FT1A	033110 035062 0   0   0            0            0            
FT9	033111 035062 0   0   0            0            0            
ET0	033111 035062 0   0   0            0            0            
ST1	033111 035062 0   0   0            0            0            
ST2	033111 035062 0   0   0            0            0            
ST9	033111 035062 0   0   0            0            0            


*033111 XOR 	0,035141
INITIAL
C(AC)=000000 000000 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033111 033111 0   0   430000035141 0            707070707070 
IT1	033111 0      0   0   430000035141 0            707070707070 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 376
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0592

AT3	033111 0      0   0   000000035141 0            430000035141 
AT6	033111 035141 0   0   000000035141 0            430000035141 
FT0	033111 035141 0   0   707070707070 0            430000035141 
FT1A	033111 035141 0   0   707070707070 0            707070707070 
FT2	033111 035141 0   0   0            0            707070707070 
FT2RQ	033111 035141 0   0   0            0            707070707070 
FT3	033111 035141 0   0   0            0            707070707070 
FT9	033112 035141 0   0   0            0            707070707070 
ET0	033112 035141 0   0   707070707070 0            707070707070 
ST1	033112 035141 0   0   707070707070 0            707070707070 
ST2	033112 035141 0   0   707070707070 0            707070707070 
ST9	033112 035141 0   0   707070707070 0            707070707070 


*033112 SKIPN	0,000000
INITIAL
C(AC)=707070 707070 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033112 033112 0   0   336000000000 0            707070707070 
IT1	033112 0      0   0   336000000000 0            707070707070 
AT3	033112 0      0   0   0            0            336000000000 
AT6	033112 0      0   0   0            0            336000000000 
FT0	033112 0      0   0   707070707070 0            336000000000 
FT1A	033112 0      0   0   707070707070 0            707070707070 
FT9	033113 0      0   0   707070707070 0            707070707070 
ET0	033114 0      0   0   707070707070 0            707070707070 
ST1A	033114 0      0   0   707070707070 0            707070707070 
ST9	033114 0      0   0   707070707070 0            707070707070 


*033114 JUMPA	0,033115
INITIAL
C(AC)=707070 707070 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033114 033114 0   0   324000033115 0            000000033115 
IT1	033114 0      0   0   324000033115 0            000000033115 
AT3	033114 0      0   0   000000033115 0            324000033115 
AT6	033114 033115 0   0   000000033115 0            324000033115 
FT1A	033114 033115 0   0   000000033115 0            000000033115 
FT2	033114 033115 0   0   0            0            000000033115 
FT2RQ	033114 033115 0   0   707070707070 0            000000033115 
FT3	033114 033115 0   0   707070707070 0            000000033115 
FT9	033115 033115 0   0   707070707070 0            000000033115 
ET0	033115 033115 0   0   707070707070 0            000000033115 
ST1A	033115 033115 0   0   707070707070 0            000000033115 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 377
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0593

ST9	033115 033115 0   0   707070707070 0            000000033115 


*033115 MOVE 	0,035062
INITIAL
C(AC)=707070 707070 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033115 033115 0   0   200000035062 0            0            
IT1	033115 0      0   0   200000035062 0            0            
AT3	033115 0      0   0   000000035062 0            200000035062 
AT6	033115 035062 0   0   000000035062 0            200000035062 
FT0	033115 035062 0   0   0            0            200000035062 
FT1A	033115 035062 0   0   0            0            0            
FT9	033116 035062 0   0   0            0            0            
ET0	033116 035062 0   0   0            0            0            
ST1	033116 035062 0   0   0            0            0            
ST2	033116 035062 0   0   0            0            0            
ST9	033116 035062 0   0   0            0            0            


*033116 XOR 	0,035074
INITIAL
C(AC)=000000 000000 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033116 033116 0   0   430000035074 0            000000000001 
IT1	033116 0      0   0   430000035074 0            000000000001 
AT3	033116 0      0   0   000000035074 0            430000035074 
AT6	033116 035074 0   0   000000035074 0            430000035074 
FT0	033116 035074 0   0   000000000001 0            430000035074 
FT1A	033116 035074 0   0   000000000001 0            000000000001 
FT2	033116 035074 0   0   0            0            000000000001 
FT2RQ	033116 035074 0   0   0            0            000000000001 
FT3	033116 035074 0   0   0            0            000000000001 
FT9	033117 035074 0   0   0            0            000000000001 
ET0	033117 035074 0   0   000000000001 0            000000000001 
ST1	033117 035074 0   0   000000000001 0            000000000001 
ST2	033117 035074 0   0   000000000001 0            000000000001 
ST9	033117 035074 0   0   000000000001 0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 378
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0594

*033117 SKIPN	0,000000
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033117 033117 0   0   336000000000 0            000000000001 
IT1	033117 0      0   0   336000000000 0            000000000001 
AT3	033117 0      0   0   0            0            336000000000 
AT6	033117 0      0   0   0            0            336000000000 
FT0	033117 0      0   0   000000000001 0            336000000000 
FT1A	033117 0      0   0   000000000001 0            000000000001 
FT9	033120 0      0   0   000000000001 0            000000000001 
ET0	033121 0      0   0   000000000001 0            000000000001 
ST1A	033121 0      0   0   000000000001 0            000000000001 
ST9	033121 0      0   0   000000000001 0            000000000001 


*033121 JUMPA	0,033122
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033121 033121 0   0   324000033122 0            000000033122 
IT1	033121 0      0   0   324000033122 0            000000033122 
AT3	033121 0      0   0   000000033122 0            324000033122 
AT6	033121 033122 0   0   000000033122 0            324000033122 
FT1A	033121 033122 0   0   000000033122 0            000000033122 
FT2	033121 033122 0   0   0            0            000000033122 
FT2RQ	033121 033122 0   0   000000000001 0            000000033122 
FT3	033121 033122 0   0   000000000001 0            000000033122 
FT9	033122 033122 0   0   000000000001 0            000000033122 
ET0	033122 033122 0   0   000000000001 0            000000033122 
ST1A	033122 033122 0   0   000000000001 0            000000033122 
ST9	033122 033122 0   0   000000000001 0            000000033122 


*033122 MOVE 	0,035062
INITIAL
C(AC)=000000 000001 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033122 033122 0   0   200000035062 0            0            
IT1	033122 0      0   0   200000035062 0            0            
AT3	033122 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 379
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0595

AT6	033122 035062 0   0   000000035062 0            200000035062 
FT0	033122 035062 0   0   0            0            200000035062 
FT1A	033122 035062 0   0   0            0            0            
FT9	033123 035062 0   0   0            0            0            
ET0	033123 035062 0   0   0            0            0            
ST1	033123 035062 0   0   0            0            0            
ST2	033123 035062 0   0   0            0            0            
ST9	033123 035062 0   0   0            0            0            


*033123 XOR 	0,035075
INITIAL
C(AC)=000000 000000 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033123 033123 0   0   430000035075 0            000000000002 
IT1	033123 0      0   0   430000035075 0            000000000002 
AT3	033123 0      0   0   000000035075 0            430000035075 
AT6	033123 035075 0   0   000000035075 0            430000035075 
FT0	033123 035075 0   0   000000000002 0            430000035075 
FT1A	033123 035075 0   0   000000000002 0            000000000002 
FT2	033123 035075 0   0   0            0            000000000002 
FT2RQ	033123 035075 0   0   0            0            000000000002 
FT3	033123 035075 0   0   0            0            000000000002 
FT9	033124 035075 0   0   0            0            000000000002 
ET0	033124 035075 0   0   000000000002 0            000000000002 
ST1	033124 035075 0   0   000000000002 0            000000000002 
ST2	033124 035075 0   0   000000000002 0            000000000002 
ST9	033124 035075 0   0   000000000002 0            000000000002 


*033124 SKIPN	0,000000
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033124 033124 0   0   336000000000 0            000000000002 
IT1	033124 0      0   0   336000000000 0            000000000002 
AT3	033124 0      0   0   0            0            336000000000 
AT6	033124 0      0   0   0            0            336000000000 
FT0	033124 0      0   0   000000000002 0            336000000000 
FT1A	033124 0      0   0   000000000002 0            000000000002 
FT9	033125 0      0   0   000000000002 0            000000000002 
ET0	033126 0      0   0   000000000002 0            000000000002 
ST1A	033126 0      0   0   000000000002 0            000000000002 
ST9	033126 0      0   0   000000000002 0            000000000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 380
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0596



*033126 JUMPA	0,033127
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033126 033126 0   0   324000033127 0            000000033127 
IT1	033126 0      0   0   324000033127 0            000000033127 
AT3	033126 0      0   0   000000033127 0            324000033127 
AT6	033126 033127 0   0   000000033127 0            324000033127 
FT1A	033126 033127 0   0   000000033127 0            000000033127 
FT2	033126 033127 0   0   0            0            000000033127 
FT2RQ	033126 033127 0   0   000000000002 0            000000033127 
FT3	033126 033127 0   0   000000000002 0            000000033127 
FT9	033127 033127 0   0   000000000002 0            000000033127 
ET0	033127 033127 0   0   000000000002 0            000000033127 
ST1A	033127 033127 0   0   000000000002 0            000000033127 
ST9	033127 033127 0   0   000000000002 0            000000033127 


*033127 MOVE 	0,035062
INITIAL
C(AC)=000000 000002 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033127 033127 0   0   200000035062 0            0            
IT1	033127 0      0   0   200000035062 0            0            
AT3	033127 0      0   0   000000035062 0            200000035062 
AT6	033127 035062 0   0   000000035062 0            200000035062 
FT0	033127 035062 0   0   0            0            200000035062 
FT1A	033127 035062 0   0   0            0            0            
FT9	033130 035062 0   0   0            0            0            
ET0	033130 035062 0   0   0            0            0            
ST1	033130 035062 0   0   0            0            0            
ST2	033130 035062 0   0   0            0            0            
ST9	033130 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 381
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0597

*033130 XOR 	0,035076
INITIAL
C(AC)=000000 000000 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033130 033130 0   0   430000035076 0            000000000004 
IT1	033130 0      0   0   430000035076 0            000000000004 
AT3	033130 0      0   0   000000035076 0            430000035076 
AT6	033130 035076 0   0   000000035076 0            430000035076 
FT0	033130 035076 0   0   000000000004 0            430000035076 
FT1A	033130 035076 0   0   000000000004 0            000000000004 
FT2	033130 035076 0   0   0            0            000000000004 
FT2RQ	033130 035076 0   0   0            0            000000000004 
FT3	033130 035076 0   0   0            0            000000000004 
FT9	033131 035076 0   0   0            0            000000000004 
ET0	033131 035076 0   0   000000000004 0            000000000004 
ST1	033131 035076 0   0   000000000004 0            000000000004 
ST2	033131 035076 0   0   000000000004 0            000000000004 
ST9	033131 035076 0   0   000000000004 0            000000000004 


*033131 SKIPN	0,000000
INITIAL
C(AC)=000000 000004 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033131 033131 0   0   336000000000 0            000000000004 
IT1	033131 0      0   0   336000000000 0            000000000004 
AT3	033131 0      0   0   0            0            336000000000 
AT6	033131 0      0   0   0            0            336000000000 
FT0	033131 0      0   0   000000000004 0            336000000000 
FT1A	033131 0      0   0   000000000004 0            000000000004 
FT9	033132 0      0   0   000000000004 0            000000000004 
ET0	033133 0      0   0   000000000004 0            000000000004 
ST1A	033133 0      0   0   000000000004 0            000000000004 
ST9	033133 0      0   0   000000000004 0            000000000004 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 382
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0598

*033133 JUMPA	0,033134
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033133 033133 0   0   324000033134 0            000000033134 
IT1	033133 0      0   0   324000033134 0            000000033134 
AT3	033133 0      0   0   000000033134 0            324000033134 
AT6	033133 033134 0   0   000000033134 0            324000033134 
FT1A	033133 033134 0   0   000000033134 0            000000033134 
FT2	033133 033134 0   0   0            0            000000033134 
FT2RQ	033133 033134 0   0   000000000004 0            000000033134 
FT3	033133 033134 0   0   000000000004 0            000000033134 
FT9	033134 033134 0   0   000000000004 0            000000033134 
ET0	033134 033134 0   0   000000000004 0            000000033134 
ST1A	033134 033134 0   0   000000000004 0            000000033134 
ST9	033134 033134 0   0   000000000004 0            000000033134 


*033134 MOVE 	0,035062
INITIAL
C(AC)=000000 000004 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033134 033134 0   0   200000035062 0            0            
IT1	033134 0      0   0   200000035062 0            0            
AT3	033134 0      0   0   000000035062 0            200000035062 
AT6	033134 035062 0   0   000000035062 0            200000035062 
FT0	033134 035062 0   0   0            0            200000035062 
FT1A	033134 035062 0   0   0            0            0            
FT9	033135 035062 0   0   0            0            0            
ET0	033135 035062 0   0   0            0            0            
ST1	033135 035062 0   0   0            0            0            
ST2	033135 035062 0   0   0            0            0            
ST9	033135 035062 0   0   0            0            0            


*033135 XOR 	0,035077
INITIAL
C(AC)=000000 000000 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033135 033135 0   0   430000035077 0            000000000010 
IT1	033135 0      0   0   430000035077 0            000000000010 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 383
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0599

AT3	033135 0      0   0   000000035077 0            430000035077 
AT6	033135 035077 0   0   000000035077 0            430000035077 
FT0	033135 035077 0   0   000000000010 0            430000035077 
FT1A	033135 035077 0   0   000000000010 0            000000000010 
FT2	033135 035077 0   0   0            0            000000000010 
FT2RQ	033135 035077 0   0   0            0            000000000010 
FT3	033135 035077 0   0   0            0            000000000010 
FT9	033136 035077 0   0   0            0            000000000010 
ET0	033136 035077 0   0   000000000010 0            000000000010 
ST1	033136 035077 0   0   000000000010 0            000000000010 
ST2	033136 035077 0   0   000000000010 0            000000000010 
ST9	033136 035077 0   0   000000000010 0            000000000010 


*033136 SKIPN	0,000000
INITIAL
C(AC)=000000 000010 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033136 033136 0   0   336000000000 0            000000000010 
IT1	033136 0      0   0   336000000000 0            000000000010 
AT3	033136 0      0   0   0            0            336000000000 
AT6	033136 0      0   0   0            0            336000000000 
FT0	033136 0      0   0   000000000010 0            336000000000 
FT1A	033136 0      0   0   000000000010 0            000000000010 
FT9	033137 0      0   0   000000000010 0            000000000010 
ET0	033140 0      0   0   000000000010 0            000000000010 
ST1A	033140 0      0   0   000000000010 0            000000000010 
ST9	033140 0      0   0   000000000010 0            000000000010 


*033140 JUMPA	0,033141
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033140 033140 0   0   324000033141 0            000000033141 
IT1	033140 0      0   0   324000033141 0            000000033141 
AT3	033140 0      0   0   000000033141 0            324000033141 
AT6	033140 033141 0   0   000000033141 0            324000033141 
FT1A	033140 033141 0   0   000000033141 0            000000033141 
FT2	033140 033141 0   0   0            0            000000033141 
FT2RQ	033140 033141 0   0   000000000010 0            000000033141 
FT3	033140 033141 0   0   000000000010 0            000000033141 
FT9	033141 033141 0   0   000000000010 0            000000033141 
ET0	033141 033141 0   0   000000000010 0            000000033141 
ST1A	033141 033141 0   0   000000000010 0            000000033141 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 384
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0600

ST9	033141 033141 0   0   000000000010 0            000000033141 


*033141 MOVE 	0,035062
INITIAL
C(AC)=000000 000010 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033141 033141 0   0   200000035062 0            0            
IT1	033141 0      0   0   200000035062 0            0            
AT3	033141 0      0   0   000000035062 0            200000035062 
AT6	033141 035062 0   0   000000035062 0            200000035062 
FT0	033141 035062 0   0   0            0            200000035062 
FT1A	033141 035062 0   0   0            0            0            
FT9	033142 035062 0   0   0            0            0            
ET0	033142 035062 0   0   0            0            0            
ST1	033142 035062 0   0   0            0            0            
ST2	033142 035062 0   0   0            0            0            
ST9	033142 035062 0   0   0            0            0            


*033142 XOR 	0,035100
INITIAL
C(AC)=000000 000000 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033142 033142 0   0   430000035100 0            000000000020 
IT1	033142 0      0   0   430000035100 0            000000000020 
AT3	033142 0      0   0   000000035100 0            430000035100 
AT6	033142 0      0   0   000000035100 0            430000035100 
FT0	033142 0      0   0   000000000020 0            430000035100 
FT1A	033142 0      0   0   000000000020 0            000000000020 
FT2	033142 0      0   0   0            0            000000000020 
FT2RQ	033142 0      0   0   0            0            000000000020 
FT3	033142 0      0   0   0            0            000000000020 
FT9	033143 0      0   0   0            0            000000000020 
ET0	033143 0      0   0   000000000020 0            000000000020 
ST1	033143 0      0   0   000000000020 0            000000000020 
ST2	033143 0      0   0   000000000020 0            000000000020 
ST9	033143 0      0   0   000000000020 0            000000000020 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 385
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0601

*033143 SKIPN	0,000000
INITIAL
C(AC)=000000 000020 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033143 033143 0   0   336000000000 0            000000000020 
IT1	033143 0      0   0   336000000000 0            000000000020 
AT3	033143 0      0   0   0            0            336000000000 
AT6	033143 0      0   0   0            0            336000000000 
FT0	033143 0      0   0   000000000020 0            336000000000 
FT1A	033143 0      0   0   000000000020 0            000000000020 
FT9	033144 0      0   0   000000000020 0            000000000020 
ET0	033145 0      0   0   000000000020 0            000000000020 
ST1A	033145 0      0   0   000000000020 0            000000000020 
ST9	033145 0      0   0   000000000020 0            000000000020 


*033145 JUMPA	0,033146
INITIAL
C(AC)=000000 000020 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033145 033145 0   0   324000033146 0            000000033146 
IT1	033145 0      0   0   324000033146 0            000000033146 
AT3	033145 0      0   0   000000033146 0            324000033146 
AT6	033145 033146 0   0   000000033146 0            324000033146 
FT1A	033145 033146 0   0   000000033146 0            000000033146 
FT2	033145 033146 0   0   0            0            000000033146 
FT2RQ	033145 033146 0   0   000000000020 0            000000033146 
FT3	033145 033146 0   0   000000000020 0            000000033146 
FT9	033146 033146 0   0   000000000020 0            000000033146 
ET0	033146 033146 0   0   000000000020 0            000000033146 
ST1A	033146 033146 0   0   000000000020 0            000000033146 
ST9	033146 033146 0   0   000000000020 0            000000033146 


*033146 MOVE 	0,035062
INITIAL
C(AC)=000000 000020 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033146 033146 0   0   200000035062 0            0            
IT1	033146 0      0   0   200000035062 0            0            
AT3	033146 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 386
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0602

AT6	033146 035062 0   0   000000035062 0            200000035062 
FT0	033146 035062 0   0   0            0            200000035062 
FT1A	033146 035062 0   0   0            0            0            
FT9	033147 035062 0   0   0            0            0            
ET0	033147 035062 0   0   0            0            0            
ST1	033147 035062 0   0   0            0            0            
ST2	033147 035062 0   0   0            0            0            
ST9	033147 035062 0   0   0            0            0            


*033147 XOR 	0,035101
INITIAL
C(AC)=000000 000000 
C(E)=000000 000040 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033147 033147 0   0   430000035101 0            000000000040 
IT1	033147 0      0   0   430000035101 0            000000000040 
AT3	033147 0      0   0   000000035101 0            430000035101 
AT6	033147 035101 0   0   000000035101 0            430000035101 
FT0	033147 035101 0   0   000000000040 0            430000035101 
FT1A	033147 035101 0   0   000000000040 0            000000000040 
FT2	033147 035101 0   0   0            0            000000000040 
FT2RQ	033147 035101 0   0   0            0            000000000040 
FT3	033147 035101 0   0   0            0            000000000040 
FT9	033150 035101 0   0   0            0            000000000040 
ET0	033150 035101 0   0   000000000040 0            000000000040 
ST1	033150 035101 0   0   000000000040 0            000000000040 
ST2	033150 035101 0   0   000000000040 0            000000000040 
ST9	033150 035101 0   0   000000000040 0            000000000040 


*033150 SKIPN	0,000000
INITIAL
C(AC)=000000 000040 
C(E)=000000 000040 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033150 033150 0   0   336000000000 0            000000000040 
IT1	033150 0      0   0   336000000000 0            000000000040 
AT3	033150 0      0   0   0            0            336000000000 
AT6	033150 0      0   0   0            0            336000000000 
FT0	033150 0      0   0   000000000040 0            336000000000 
FT1A	033150 0      0   0   000000000040 0            000000000040 
FT9	033151 0      0   0   000000000040 0            000000000040 
ET0	033152 0      0   0   000000000040 0            000000000040 
ST1A	033152 0      0   0   000000000040 0            000000000040 
ST9	033152 0      0   0   000000000040 0            000000000040 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 387
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0603



*033152 JUMPA	0,033153
INITIAL
C(AC)=000000 000040 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033152 033152 0   0   324000033153 0            000000033153 
IT1	033152 0      0   0   324000033153 0            000000033153 
AT3	033152 0      0   0   000000033153 0            324000033153 
AT6	033152 033153 0   0   000000033153 0            324000033153 
FT1A	033152 033153 0   0   000000033153 0            000000033153 
FT2	033152 033153 0   0   0            0            000000033153 
FT2RQ	033152 033153 0   0   000000000040 0            000000033153 
FT3	033152 033153 0   0   000000000040 0            000000033153 
FT9	033153 033153 0   0   000000000040 0            000000033153 
ET0	033153 033153 0   0   000000000040 0            000000033153 
ST1A	033153 033153 0   0   000000000040 0            000000033153 
ST9	033153 033153 0   0   000000000040 0            000000033153 


*033153 MOVE 	0,035062
INITIAL
C(AC)=000000 000040 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033153 033153 0   0   200000035062 0            0            
IT1	033153 0      0   0   200000035062 0            0            
AT3	033153 0      0   0   000000035062 0            200000035062 
AT6	033153 035062 0   0   000000035062 0            200000035062 
FT0	033153 035062 0   0   0            0            200000035062 
FT1A	033153 035062 0   0   0            0            0            
FT9	033154 035062 0   0   0            0            0            
ET0	033154 035062 0   0   0            0            0            
ST1	033154 035062 0   0   0            0            0            
ST2	033154 035062 0   0   0            0            0            
ST9	033154 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 388
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0604

*033154 XOR 	0,035102
INITIAL
C(AC)=000000 000000 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033154 033154 0   0   430000035102 0            000000000100 
IT1	033154 0      0   0   430000035102 0            000000000100 
AT3	033154 0      0   0   000000035102 0            430000035102 
AT6	033154 035102 0   0   000000035102 0            430000035102 
FT0	033154 035102 0   0   000000000100 0            430000035102 
FT1A	033154 035102 0   0   000000000100 0            000000000100 
FT2	033154 035102 0   0   0            0            000000000100 
FT2RQ	033154 035102 0   0   0            0            000000000100 
FT3	033154 035102 0   0   0            0            000000000100 
FT9	033155 035102 0   0   0            0            000000000100 
ET0	033155 035102 0   0   000000000100 0            000000000100 
ST1	033155 035102 0   0   000000000100 0            000000000100 
ST2	033155 035102 0   0   000000000100 0            000000000100 
ST9	033155 035102 0   0   000000000100 0            000000000100 


*033155 SKIPN	0,000000
INITIAL
C(AC)=000000 000100 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033155 033155 0   0   336000000000 0            000000000100 
IT1	033155 0      0   0   336000000000 0            000000000100 
AT3	033155 0      0   0   0            0            336000000000 
AT6	033155 0      0   0   0            0            336000000000 
FT0	033155 0      0   0   000000000100 0            336000000000 
FT1A	033155 0      0   0   000000000100 0            000000000100 
FT9	033156 0      0   0   000000000100 0            000000000100 
ET0	033157 0      0   0   000000000100 0            000000000100 
ST1A	033157 0      0   0   000000000100 0            000000000100 
ST9	033157 0      0   0   000000000100 0            000000000100 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 389
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0605

*033157 JUMPA	0,033160
INITIAL
C(AC)=000000 000100 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033157 033157 0   0   324000033160 0            000000033160 
IT1	033157 0      0   0   324000033160 0            000000033160 
AT3	033157 0      0   0   000000033160 0            324000033160 
AT6	033157 033160 0   0   000000033160 0            324000033160 
FT1A	033157 033160 0   0   000000033160 0            000000033160 
FT2	033157 033160 0   0   0            0            000000033160 
FT2RQ	033157 033160 0   0   000000000100 0            000000033160 
FT3	033157 033160 0   0   000000000100 0            000000033160 
FT9	033160 033160 0   0   000000000100 0            000000033160 
ET0	033160 033160 0   0   000000000100 0            000000033160 
ST1A	033160 033160 0   0   000000000100 0            000000033160 
ST9	033160 033160 0   0   000000000100 0            000000033160 


*033160 MOVE 	0,035062
INITIAL
C(AC)=000000 000100 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033160 033160 0   0   200000035062 0            0            
IT1	033160 0      0   0   200000035062 0            0            
AT3	033160 0      0   0   000000035062 0            200000035062 
AT6	033160 035062 0   0   000000035062 0            200000035062 
FT0	033160 035062 0   0   0            0            200000035062 
FT1A	033160 035062 0   0   0            0            0            
FT9	033161 035062 0   0   0            0            0            
ET0	033161 035062 0   0   0            0            0            
ST1	033161 035062 0   0   0            0            0            
ST2	033161 035062 0   0   0            0            0            
ST9	033161 035062 0   0   0            0            0            


*033161 XOR 	0,035103
INITIAL
C(AC)=000000 000000 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033161 033161 0   0   430000035103 0            000000000200 
IT1	033161 0      0   0   430000035103 0            000000000200 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 390
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0606

AT3	033161 0      0   0   000000035103 0            430000035103 
AT6	033161 035103 0   0   000000035103 0            430000035103 
FT0	033161 035103 0   0   000000000200 0            430000035103 
FT1A	033161 035103 0   0   000000000200 0            000000000200 
FT2	033161 035103 0   0   0            0            000000000200 
FT2RQ	033161 035103 0   0   0            0            000000000200 
FT3	033161 035103 0   0   0            0            000000000200 
FT9	033162 035103 0   0   0            0            000000000200 
ET0	033162 035103 0   0   000000000200 0            000000000200 
ST1	033162 035103 0   0   000000000200 0            000000000200 
ST2	033162 035103 0   0   000000000200 0            000000000200 
ST9	033162 035103 0   0   000000000200 0            000000000200 


*033162 SKIPN	0,000000
INITIAL
C(AC)=000000 000200 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033162 033162 0   0   336000000000 0            000000000200 
IT1	033162 0      0   0   336000000000 0            000000000200 
AT3	033162 0      0   0   0            0            336000000000 
AT6	033162 0      0   0   0            0            336000000000 
FT0	033162 0      0   0   000000000200 0            336000000000 
FT1A	033162 0      0   0   000000000200 0            000000000200 
FT9	033163 0      0   0   000000000200 0            000000000200 
ET0	033164 0      0   0   000000000200 0            000000000200 
ST1A	033164 0      0   0   000000000200 0            000000000200 
ST9	033164 0      0   0   000000000200 0            000000000200 


*033164 JUMPA	0,033165
INITIAL
C(AC)=000000 000200 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033164 033164 0   0   324000033165 0            000000033165 
IT1	033164 0      0   0   324000033165 0            000000033165 
AT3	033164 0      0   0   000000033165 0            324000033165 
AT6	033164 033165 0   0   000000033165 0            324000033165 
FT1A	033164 033165 0   0   000000033165 0            000000033165 
FT2	033164 033165 0   0   0            0            000000033165 
FT2RQ	033164 033165 0   0   000000000200 0            000000033165 
FT3	033164 033165 0   0   000000000200 0            000000033165 
FT9	033165 033165 0   0   000000000200 0            000000033165 
ET0	033165 033165 0   0   000000000200 0            000000033165 
ST1A	033165 033165 0   0   000000000200 0            000000033165 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 391
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0607

ST9	033165 033165 0   0   000000000200 0            000000033165 


*033165 MOVE 	0,035062
INITIAL
C(AC)=000000 000200 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033165 033165 0   0   200000035062 0            0            
IT1	033165 0      0   0   200000035062 0            0            
AT3	033165 0      0   0   000000035062 0            200000035062 
AT6	033165 035062 0   0   000000035062 0            200000035062 
FT0	033165 035062 0   0   0            0            200000035062 
FT1A	033165 035062 0   0   0            0            0            
FT9	033166 035062 0   0   0            0            0            
ET0	033166 035062 0   0   0            0            0            
ST1	033166 035062 0   0   0            0            0            
ST2	033166 035062 0   0   0            0            0            
ST9	033166 035062 0   0   0            0            0            


*033166 XOR 	0,035104
INITIAL
C(AC)=000000 000000 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033166 033166 0   0   430000035104 0            000000000400 
IT1	033166 0      0   0   430000035104 0            000000000400 
AT3	033166 0      0   0   000000035104 0            430000035104 
AT6	033166 035104 0   0   000000035104 0            430000035104 
FT0	033166 035104 0   0   000000000400 0            430000035104 
FT1A	033166 035104 0   0   000000000400 0            000000000400 
FT2	033166 035104 0   0   0            0            000000000400 
FT2RQ	033166 035104 0   0   0            0            000000000400 
FT3	033166 035104 0   0   0            0            000000000400 
FT9	033167 035104 0   0   0            0            000000000400 
ET0	033167 035104 0   0   000000000400 0            000000000400 
ST1	033167 035104 0   0   000000000400 0            000000000400 
ST2	033167 035104 0   0   000000000400 0            000000000400 
ST9	033167 035104 0   0   000000000400 0            000000000400 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 392
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0608

*033167 SKIPN	0,000000
INITIAL
C(AC)=000000 000400 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033167 033167 0   0   336000000000 0            000000000400 
IT1	033167 0      0   0   336000000000 0            000000000400 
AT3	033167 0      0   0   0            0            336000000000 
AT6	033167 0      0   0   0            0            336000000000 
FT0	033167 0      0   0   000000000400 0            336000000000 
FT1A	033167 0      0   0   000000000400 0            000000000400 
FT9	033170 0      0   0   000000000400 0            000000000400 
ET0	033171 0      0   0   000000000400 0            000000000400 
ST1A	033171 0      0   0   000000000400 0            000000000400 
ST9	033171 0      0   0   000000000400 0            000000000400 


*033171 JUMPA	0,033172
INITIAL
C(AC)=000000 000400 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033171 033171 0   0   324000033172 0            000000033172 
IT1	033171 0      0   0   324000033172 0            000000033172 
AT3	033171 0      0   0   000000033172 0            324000033172 
AT6	033171 033172 0   0   000000033172 0            324000033172 
FT1A	033171 033172 0   0   000000033172 0            000000033172 
FT2	033171 033172 0   0   0            0            000000033172 
FT2RQ	033171 033172 0   0   000000000400 0            000000033172 
FT3	033171 033172 0   0   000000000400 0            000000033172 
FT9	033172 033172 0   0   000000000400 0            000000033172 
ET0	033172 033172 0   0   000000000400 0            000000033172 
ST1A	033172 033172 0   0   000000000400 0            000000033172 
ST9	033172 033172 0   0   000000000400 0            000000033172 


*033172 MOVE 	0,035062
INITIAL
C(AC)=000000 000400 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033172 033172 0   0   200000035062 0            0            
IT1	033172 0      0   0   200000035062 0            0            
AT3	033172 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 393
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0609

AT6	033172 035062 0   0   000000035062 0            200000035062 
FT0	033172 035062 0   0   0            0            200000035062 
FT1A	033172 035062 0   0   0            0            0            
FT9	033173 035062 0   0   0            0            0            
ET0	033173 035062 0   0   0            0            0            
ST1	033173 035062 0   0   0            0            0            
ST2	033173 035062 0   0   0            0            0            
ST9	033173 035062 0   0   0            0            0            


*033173 XOR 	0,035105
INITIAL
C(AC)=000000 000000 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033173 033173 0   0   430000035105 0            000000001000 
IT1	033173 0      0   0   430000035105 0            000000001000 
AT3	033173 0      0   0   000000035105 0            430000035105 
AT6	033173 035105 0   0   000000035105 0            430000035105 
FT0	033173 035105 0   0   000000001000 0            430000035105 
FT1A	033173 035105 0   0   000000001000 0            000000001000 
FT2	033173 035105 0   0   0            0            000000001000 
FT2RQ	033173 035105 0   0   0            0            000000001000 
FT3	033173 035105 0   0   0            0            000000001000 
FT9	033174 035105 0   0   0            0            000000001000 
ET0	033174 035105 0   0   000000001000 0            000000001000 
ST1	033174 035105 0   0   000000001000 0            000000001000 
ST2	033174 035105 0   0   000000001000 0            000000001000 
ST9	033174 035105 0   0   000000001000 0            000000001000 


*033174 SKIPN	0,000000
INITIAL
C(AC)=000000 001000 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033174 033174 0   0   336000000000 0            000000001000 
IT1	033174 0      0   0   336000000000 0            000000001000 
AT3	033174 0      0   0   0            0            336000000000 
AT6	033174 0      0   0   0            0            336000000000 
FT0	033174 0      0   0   000000001000 0            336000000000 
FT1A	033174 0      0   0   000000001000 0            000000001000 
FT9	033175 0      0   0   000000001000 0            000000001000 
ET0	033176 0      0   0   000000001000 0            000000001000 
ST1A	033176 0      0   0   000000001000 0            000000001000 
ST9	033176 0      0   0   000000001000 0            000000001000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 394
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0610



*033176 JUMPA	0,033177
INITIAL
C(AC)=000000 001000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033176 033176 0   0   324000033177 0            000000033177 
IT1	033176 0      0   0   324000033177 0            000000033177 
AT3	033176 0      0   0   000000033177 0            324000033177 
AT6	033176 033177 0   0   000000033177 0            324000033177 
FT1A	033176 033177 0   0   000000033177 0            000000033177 
FT2	033176 033177 0   0   0            0            000000033177 
FT2RQ	033176 033177 0   0   000000001000 0            000000033177 
FT3	033176 033177 0   0   000000001000 0            000000033177 
FT9	033177 033177 0   0   000000001000 0            000000033177 
ET0	033177 033177 0   0   000000001000 0            000000033177 
ST1A	033177 033177 0   0   000000001000 0            000000033177 
ST9	033177 033177 0   0   000000001000 0            000000033177 


*033177 MOVE 	0,035062
INITIAL
C(AC)=000000 001000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033177 033177 0   0   200000035062 0            0            
IT1	033177 0      0   0   200000035062 0            0            
AT3	033177 0      0   0   000000035062 0            200000035062 
AT6	033177 035062 0   0   000000035062 0            200000035062 
FT0	033177 035062 0   0   0            0            200000035062 
FT1A	033177 035062 0   0   0            0            0            
FT9	0      035062 0   0   0            0            0            
ET0	0      035062 0   0   0            0            0            
ST1	0      035062 0   0   0            0            0            
ST2	0      035062 0   0   0            0            0            
ST9	0      035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 395
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0611

*033200 XOR 	0,035106
INITIAL
C(AC)=000000 000000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   430000035106 0            000000002000 
IT1	0      0      0   0   430000035106 0            000000002000 
AT3	0      0      0   0   000000035106 0            430000035106 
AT6	0      035106 0   0   000000035106 0            430000035106 
FT0	0      035106 0   0   000000002000 0            430000035106 
FT1A	0      035106 0   0   000000002000 0            000000002000 
FT2	0      035106 0   0   0            0            000000002000 
FT2RQ	0      035106 0   0   0            0            000000002000 
FT3	0      035106 0   0   0            0            000000002000 
FT9	033201 035106 0   0   0            0            000000002000 
ET0	033201 035106 0   0   000000002000 0            000000002000 
ST1	033201 035106 0   0   000000002000 0            000000002000 
ST2	033201 035106 0   0   000000002000 0            000000002000 
ST9	033201 035106 0   0   000000002000 0            000000002000 


*033201 SKIPN	0,000000
INITIAL
C(AC)=000000 002000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033201 033201 0   0   336000000000 0            000000002000 
IT1	033201 0      0   0   336000000000 0            000000002000 
AT3	033201 0      0   0   0            0            336000000000 
AT6	033201 0      0   0   0            0            336000000000 
FT0	033201 0      0   0   000000002000 0            336000000000 
FT1A	033201 0      0   0   000000002000 0            000000002000 
FT9	033202 0      0   0   000000002000 0            000000002000 
ET0	033203 0      0   0   000000002000 0            000000002000 
ST1A	033203 0      0   0   000000002000 0            000000002000 
ST9	033203 0      0   0   000000002000 0            000000002000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 396
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0612

*033203 JUMPA	0,033204
INITIAL
C(AC)=000000 002000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033203 033203 0   0   324000033204 0            000000033204 
IT1	033203 0      0   0   324000033204 0            000000033204 
AT3	033203 0      0   0   000000033204 0            324000033204 
AT6	033203 033204 0   0   000000033204 0            324000033204 
FT1A	033203 033204 0   0   000000033204 0            000000033204 
FT2	033203 033204 0   0   0            0            000000033204 
FT2RQ	033203 033204 0   0   000000002000 0            000000033204 
FT3	033203 033204 0   0   000000002000 0            000000033204 
FT9	033204 033204 0   0   000000002000 0            000000033204 
ET0	033204 033204 0   0   000000002000 0            000000033204 
ST1A	033204 033204 0   0   000000002000 0            000000033204 
ST9	033204 033204 0   0   000000002000 0            000000033204 


*033204 MOVE 	0,035062
INITIAL
C(AC)=000000 002000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033204 033204 0   0   200000035062 0            0            
IT1	033204 0      0   0   200000035062 0            0            
AT3	033204 0      0   0   000000035062 0            200000035062 
AT6	033204 035062 0   0   000000035062 0            200000035062 
FT0	033204 035062 0   0   0            0            200000035062 
FT1A	033204 035062 0   0   0            0            0            
FT9	033205 035062 0   0   0            0            0            
ET0	033205 035062 0   0   0            0            0            
ST1	033205 035062 0   0   0            0            0            
ST2	033205 035062 0   0   0            0            0            
ST9	033205 035062 0   0   0            0            0            


*033205 XOR 	0,035107
INITIAL
C(AC)=000000 000000 
C(E)=000000 004000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033205 033205 0   0   430000035107 0            000000004000 
IT1	033205 0      0   0   430000035107 0            000000004000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 397
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0613

AT3	033205 0      0   0   000000035107 0            430000035107 
AT6	033205 035107 0   0   000000035107 0            430000035107 
FT0	033205 035107 0   0   000000004000 0            430000035107 
FT1A	033205 035107 0   0   000000004000 0            000000004000 
FT2	033205 035107 0   0   0            0            000000004000 
FT2RQ	033205 035107 0   0   0            0            000000004000 
FT3	033205 035107 0   0   0            0            000000004000 
FT9	033206 035107 0   0   0            0            000000004000 
ET0	033206 035107 0   0   000000004000 0            000000004000 
ST1	033206 035107 0   0   000000004000 0            000000004000 
ST2	033206 035107 0   0   000000004000 0            000000004000 
ST9	033206 035107 0   0   000000004000 0            000000004000 


*033206 SKIPN	0,000000
INITIAL
C(AC)=000000 004000 
C(E)=000000 004000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033206 033206 0   0   336000000000 0            000000004000 
IT1	033206 0      0   0   336000000000 0            000000004000 
AT3	033206 0      0   0   0            0            336000000000 
AT6	033206 0      0   0   0            0            336000000000 
FT0	033206 0      0   0   000000004000 0            336000000000 
FT1A	033206 0      0   0   000000004000 0            000000004000 
FT9	033207 0      0   0   000000004000 0            000000004000 
ET0	033210 0      0   0   000000004000 0            000000004000 
ST1A	033210 0      0   0   000000004000 0            000000004000 
ST9	033210 0      0   0   000000004000 0            000000004000 


*033210 JUMPA	0,033211
INITIAL
C(AC)=000000 004000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033210 033210 0   0   324000033211 0            000000033211 
IT1	033210 0      0   0   324000033211 0            000000033211 
AT3	033210 0      0   0   000000033211 0            324000033211 
AT6	033210 033211 0   0   000000033211 0            324000033211 
FT1A	033210 033211 0   0   000000033211 0            000000033211 
FT2	033210 033211 0   0   0            0            000000033211 
FT2RQ	033210 033211 0   0   000000004000 0            000000033211 
FT3	033210 033211 0   0   000000004000 0            000000033211 
FT9	033211 033211 0   0   000000004000 0            000000033211 
ET0	033211 033211 0   0   000000004000 0            000000033211 
ST1A	033211 033211 0   0   000000004000 0            000000033211 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 398
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0614

ST9	033211 033211 0   0   000000004000 0            000000033211 


*033211 MOVE 	0,035062
INITIAL
C(AC)=000000 004000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033211 033211 0   0   200000035062 0            0            
IT1	033211 0      0   0   200000035062 0            0            
AT3	033211 0      0   0   000000035062 0            200000035062 
AT6	033211 035062 0   0   000000035062 0            200000035062 
FT0	033211 035062 0   0   0            0            200000035062 
FT1A	033211 035062 0   0   0            0            0            
FT9	033212 035062 0   0   0            0            0            
ET0	033212 035062 0   0   0            0            0            
ST1	033212 035062 0   0   0            0            0            
ST2	033212 035062 0   0   0            0            0            
ST9	033212 035062 0   0   0            0            0            


*033212 XOR 	0,035110
INITIAL
C(AC)=000000 000000 
C(E)=000000 010000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033212 033212 0   0   430000035110 0            000000010000 
IT1	033212 0      0   0   430000035110 0            000000010000 
AT3	033212 0      0   0   000000035110 0            430000035110 
AT6	033212 035110 0   0   000000035110 0            430000035110 
FT0	033212 035110 0   0   000000010000 0            430000035110 
FT1A	033212 035110 0   0   000000010000 0            000000010000 
FT2	033212 035110 0   0   0            0            000000010000 
FT2RQ	033212 035110 0   0   0            0            000000010000 
FT3	033212 035110 0   0   0            0            000000010000 
FT9	033213 035110 0   0   0            0            000000010000 
ET0	033213 035110 0   0   000000010000 0            000000010000 
ST1	033213 035110 0   0   000000010000 0            000000010000 
ST2	033213 035110 0   0   000000010000 0            000000010000 
ST9	033213 035110 0   0   000000010000 0            000000010000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 399
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0615

*033213 SKIPN	0,000000
INITIAL
C(AC)=000000 010000 
C(E)=000000 010000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033213 033213 0   0   336000000000 0            000000010000 
IT1	033213 0      0   0   336000000000 0            000000010000 
AT3	033213 0      0   0   0            0            336000000000 
AT6	033213 0      0   0   0            0            336000000000 
FT0	033213 0      0   0   000000010000 0            336000000000 
FT1A	033213 0      0   0   000000010000 0            000000010000 
FT9	033214 0      0   0   000000010000 0            000000010000 
ET0	033215 0      0   0   000000010000 0            000000010000 
ST1A	033215 0      0   0   000000010000 0            000000010000 
ST9	033215 0      0   0   000000010000 0            000000010000 


*033215 JUMPA	0,033216
INITIAL
C(AC)=000000 010000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033215 033215 0   0   324000033216 0            000000033216 
IT1	033215 0      0   0   324000033216 0            000000033216 
AT3	033215 0      0   0   000000033216 0            324000033216 
AT6	033215 033216 0   0   000000033216 0            324000033216 
FT1A	033215 033216 0   0   000000033216 0            000000033216 
FT2	033215 033216 0   0   0            0            000000033216 
FT2RQ	033215 033216 0   0   000000010000 0            000000033216 
FT3	033215 033216 0   0   000000010000 0            000000033216 
FT9	033216 033216 0   0   000000010000 0            000000033216 
ET0	033216 033216 0   0   000000010000 0            000000033216 
ST1A	033216 033216 0   0   000000010000 0            000000033216 
ST9	033216 033216 0   0   000000010000 0            000000033216 


*033216 MOVE 	0,035062
INITIAL
C(AC)=000000 010000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033216 033216 0   0   200000035062 0            0            
IT1	033216 0      0   0   200000035062 0            0            
AT3	033216 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 400
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0616

AT6	033216 035062 0   0   000000035062 0            200000035062 
FT0	033216 035062 0   0   0            0            200000035062 
FT1A	033216 035062 0   0   0            0            0            
FT9	033217 035062 0   0   0            0            0            
ET0	033217 035062 0   0   0            0            0            
ST1	033217 035062 0   0   0            0            0            
ST2	033217 035062 0   0   0            0            0            
ST9	033217 035062 0   0   0            0            0            


*033217 XOR 	0,035111
INITIAL
C(AC)=000000 000000 
C(E)=000000 020000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033217 033217 0   0   430000035111 0            000000020000 
IT1	033217 0      0   0   430000035111 0            000000020000 
AT3	033217 0      0   0   000000035111 0            430000035111 
AT6	033217 035111 0   0   000000035111 0            430000035111 
FT0	033217 035111 0   0   000000020000 0            430000035111 
FT1A	033217 035111 0   0   000000020000 0            000000020000 
FT2	033217 035111 0   0   0            0            000000020000 
FT2RQ	033217 035111 0   0   0            0            000000020000 
FT3	033217 035111 0   0   0            0            000000020000 
FT9	033220 035111 0   0   0            0            000000020000 
ET0	033220 035111 0   0   000000020000 0            000000020000 
ST1	033220 035111 0   0   000000020000 0            000000020000 
ST2	033220 035111 0   0   000000020000 0            000000020000 
ST9	033220 035111 0   0   000000020000 0            000000020000 


*033220 SKIPN	0,000000
INITIAL
C(AC)=000000 020000 
C(E)=000000 020000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033220 033220 0   0   336000000000 0            000000020000 
IT1	033220 0      0   0   336000000000 0            000000020000 
AT3	033220 0      0   0   0            0            336000000000 
AT6	033220 0      0   0   0            0            336000000000 
FT0	033220 0      0   0   000000020000 0            336000000000 
FT1A	033220 0      0   0   000000020000 0            000000020000 
FT9	033221 0      0   0   000000020000 0            000000020000 
ET0	033222 0      0   0   000000020000 0            000000020000 
ST1A	033222 0      0   0   000000020000 0            000000020000 
ST9	033222 0      0   0   000000020000 0            000000020000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 401
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0617



*033222 JUMPA	0,033223
INITIAL
C(AC)=000000 020000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033222 033222 0   0   324000033223 0            000000033223 
IT1	033222 0      0   0   324000033223 0            000000033223 
AT3	033222 0      0   0   000000033223 0            324000033223 
AT6	033222 033223 0   0   000000033223 0            324000033223 
FT1A	033222 033223 0   0   000000033223 0            000000033223 
FT2	033222 033223 0   0   0            0            000000033223 
FT2RQ	033222 033223 0   0   000000020000 0            000000033223 
FT3	033222 033223 0   0   000000020000 0            000000033223 
FT9	033223 033223 0   0   000000020000 0            000000033223 
ET0	033223 033223 0   0   000000020000 0            000000033223 
ST1A	033223 033223 0   0   000000020000 0            000000033223 
ST9	033223 033223 0   0   000000020000 0            000000033223 


*033223 MOVE 	0,035062
INITIAL
C(AC)=000000 020000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033223 033223 0   0   200000035062 0            0            
IT1	033223 0      0   0   200000035062 0            0            
AT3	033223 0      0   0   000000035062 0            200000035062 
AT6	033223 035062 0   0   000000035062 0            200000035062 
FT0	033223 035062 0   0   0            0            200000035062 
FT1A	033223 035062 0   0   0            0            0            
FT9	033224 035062 0   0   0            0            0            
ET0	033224 035062 0   0   0            0            0            
ST1	033224 035062 0   0   0            0            0            
ST2	033224 035062 0   0   0            0            0            
ST9	033224 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 402
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0618

*033224 XOR 	0,035112
INITIAL
C(AC)=000000 000000 
C(E)=000000 040000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033224 033224 0   0   430000035112 0            000000040000 
IT1	033224 0      0   0   430000035112 0            000000040000 
AT3	033224 0      0   0   000000035112 0            430000035112 
AT6	033224 035112 0   0   000000035112 0            430000035112 
FT0	033224 035112 0   0   000000040000 0            430000035112 
FT1A	033224 035112 0   0   000000040000 0            000000040000 
FT2	033224 035112 0   0   0            0            000000040000 
FT2RQ	033224 035112 0   0   0            0            000000040000 
FT3	033224 035112 0   0   0            0            000000040000 
FT9	033225 035112 0   0   0            0            000000040000 
ET0	033225 035112 0   0   000000040000 0            000000040000 
ST1	033225 035112 0   0   000000040000 0            000000040000 
ST2	033225 035112 0   0   000000040000 0            000000040000 
ST9	033225 035112 0   0   000000040000 0            000000040000 


*033225 SKIPN	0,000000
INITIAL
C(AC)=000000 040000 
C(E)=000000 040000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033225 033225 0   0   336000000000 0            000000040000 
IT1	033225 0      0   0   336000000000 0            000000040000 
AT3	033225 0      0   0   0            0            336000000000 
AT6	033225 0      0   0   0            0            336000000000 
FT0	033225 0      0   0   000000040000 0            336000000000 
FT1A	033225 0      0   0   000000040000 0            000000040000 
FT9	033226 0      0   0   000000040000 0            000000040000 
ET0	033227 0      0   0   000000040000 0            000000040000 
ST1A	033227 0      0   0   000000040000 0            000000040000 
ST9	033227 0      0   0   000000040000 0            000000040000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 403
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0619

*033227 JUMPA	0,033230
INITIAL
C(AC)=000000 040000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033227 033227 0   0   324000033230 0            000000033230 
IT1	033227 0      0   0   324000033230 0            000000033230 
AT3	033227 0      0   0   000000033230 0            324000033230 
AT6	033227 033230 0   0   000000033230 0            324000033230 
FT1A	033227 033230 0   0   000000033230 0            000000033230 
FT2	033227 033230 0   0   0            0            000000033230 
FT2RQ	033227 033230 0   0   000000040000 0            000000033230 
FT3	033227 033230 0   0   000000040000 0            000000033230 
FT9	033230 033230 0   0   000000040000 0            000000033230 
ET0	033230 033230 0   0   000000040000 0            000000033230 
ST1A	033230 033230 0   0   000000040000 0            000000033230 
ST9	033230 033230 0   0   000000040000 0            000000033230 


*033230 MOVE 	0,035062
INITIAL
C(AC)=000000 040000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033230 033230 0   0   200000035062 0            0            
IT1	033230 0      0   0   200000035062 0            0            
AT3	033230 0      0   0   000000035062 0            200000035062 
AT6	033230 035062 0   0   000000035062 0            200000035062 
FT0	033230 035062 0   0   0            0            200000035062 
FT1A	033230 035062 0   0   0            0            0            
FT9	033231 035062 0   0   0            0            0            
ET0	033231 035062 0   0   0            0            0            
ST1	033231 035062 0   0   0            0            0            
ST2	033231 035062 0   0   0            0            0            
ST9	033231 035062 0   0   0            0            0            


*033231 XOR 	0,035113
INITIAL
C(AC)=000000 000000 
C(E)=000000 100000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033231 033231 0   0   430000035113 0            000000100000 
IT1	033231 0      0   0   430000035113 0            000000100000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 404
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0620

AT3	033231 0      0   0   000000035113 0            430000035113 
AT6	033231 035113 0   0   000000035113 0            430000035113 
FT0	033231 035113 0   0   000000100000 0            430000035113 
FT1A	033231 035113 0   0   000000100000 0            000000100000 
FT2	033231 035113 0   0   0            0            000000100000 
FT2RQ	033231 035113 0   0   0            0            000000100000 
FT3	033231 035113 0   0   0            0            000000100000 
FT9	033232 035113 0   0   0            0            000000100000 
ET0	033232 035113 0   0   000000100000 0            000000100000 
ST1	033232 035113 0   0   000000100000 0            000000100000 
ST2	033232 035113 0   0   000000100000 0            000000100000 
ST9	033232 035113 0   0   000000100000 0            000000100000 


*033232 SKIPN	0,000000
INITIAL
C(AC)=000000 100000 
C(E)=000000 100000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033232 033232 0   0   336000000000 0            000000100000 
IT1	033232 0      0   0   336000000000 0            000000100000 
AT3	033232 0      0   0   0            0            336000000000 
AT6	033232 0      0   0   0            0            336000000000 
FT0	033232 0      0   0   000000100000 0            336000000000 
FT1A	033232 0      0   0   000000100000 0            000000100000 
FT9	033233 0      0   0   000000100000 0            000000100000 
ET0	033234 0      0   0   000000100000 0            000000100000 
ST1A	033234 0      0   0   000000100000 0            000000100000 
ST9	033234 0      0   0   000000100000 0            000000100000 


*033234 JUMPA	0,033235
INITIAL
C(AC)=000000 100000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033234 033234 0   0   324000033235 0            000000033235 
IT1	033234 0      0   0   324000033235 0            000000033235 
AT3	033234 0      0   0   000000033235 0            324000033235 
AT6	033234 033235 0   0   000000033235 0            324000033235 
FT1A	033234 033235 0   0   000000033235 0            000000033235 
FT2	033234 033235 0   0   0            0            000000033235 
FT2RQ	033234 033235 0   0   000000100000 0            000000033235 
FT3	033234 033235 0   0   000000100000 0            000000033235 
FT9	033235 033235 0   0   000000100000 0            000000033235 
ET0	033235 033235 0   0   000000100000 0            000000033235 
ST1A	033235 033235 0   0   000000100000 0            000000033235 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 405
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0621

ST9	033235 033235 0   0   000000100000 0            000000033235 


*033235 MOVE 	0,035062
INITIAL
C(AC)=000000 100000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033235 033235 0   0   200000035062 0            0            
IT1	033235 0      0   0   200000035062 0            0            
AT3	033235 0      0   0   000000035062 0            200000035062 
AT6	033235 035062 0   0   000000035062 0            200000035062 
FT0	033235 035062 0   0   0            0            200000035062 
FT1A	033235 035062 0   0   0            0            0            
FT9	033236 035062 0   0   0            0            0            
ET0	033236 035062 0   0   0            0            0            
ST1	033236 035062 0   0   0            0            0            
ST2	033236 035062 0   0   0            0            0            
ST9	033236 035062 0   0   0            0            0            


*033236 XOR 	0,035114
INITIAL
C(AC)=000000 000000 
C(E)=000000 200000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033236 033236 0   0   430000035114 0            000000200000 
IT1	033236 0      0   0   430000035114 0            000000200000 
AT3	033236 0      0   0   000000035114 0            430000035114 
AT6	033236 035114 0   0   000000035114 0            430000035114 
FT0	033236 035114 0   0   000000200000 0            430000035114 
FT1A	033236 035114 0   0   000000200000 0            000000200000 
FT2	033236 035114 0   0   0            0            000000200000 
FT2RQ	033236 035114 0   0   0            0            000000200000 
FT3	033236 035114 0   0   0            0            000000200000 
FT9	033237 035114 0   0   0            0            000000200000 
ET0	033237 035114 0   0   000000200000 0            000000200000 
ST1	033237 035114 0   0   000000200000 0            000000200000 
ST2	033237 035114 0   0   000000200000 0            000000200000 
ST9	033237 035114 0   0   000000200000 0            000000200000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 406
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0622

*033237 SKIPN	0,000000
INITIAL
C(AC)=000000 200000 
C(E)=000000 200000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033237 033237 0   0   336000000000 0            000000200000 
IT1	033237 0      0   0   336000000000 0            000000200000 
AT3	033237 0      0   0   0            0            336000000000 
AT6	033237 0      0   0   0            0            336000000000 
FT0	033237 0      0   0   000000200000 0            336000000000 
FT1A	033237 0      0   0   000000200000 0            000000200000 
FT9	033240 0      0   0   000000200000 0            000000200000 
ET0	033241 0      0   0   000000200000 0            000000200000 
ST1A	033241 0      0   0   000000200000 0            000000200000 
ST9	033241 0      0   0   000000200000 0            000000200000 


*033241 JUMPA	0,033242
INITIAL
C(AC)=000000 200000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033241 033241 0   0   324000033242 0            000000033242 
IT1	033241 0      0   0   324000033242 0            000000033242 
AT3	033241 0      0   0   000000033242 0            324000033242 
AT6	033241 033242 0   0   000000033242 0            324000033242 
FT1A	033241 033242 0   0   000000033242 0            000000033242 
FT2	033241 033242 0   0   0            0            000000033242 
FT2RQ	033241 033242 0   0   000000200000 0            000000033242 
FT3	033241 033242 0   0   000000200000 0            000000033242 
FT9	033242 033242 0   0   000000200000 0            000000033242 
ET0	033242 033242 0   0   000000200000 0            000000033242 
ST1A	033242 033242 0   0   000000200000 0            000000033242 
ST9	033242 033242 0   0   000000200000 0            000000033242 


*033242 MOVE 	0,035062
INITIAL
C(AC)=000000 200000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033242 033242 0   0   200000035062 0            0            
IT1	033242 0      0   0   200000035062 0            0            
AT3	033242 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 407
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0623

AT6	033242 035062 0   0   000000035062 0            200000035062 
FT0	033242 035062 0   0   0            0            200000035062 
FT1A	033242 035062 0   0   0            0            0            
FT9	033243 035062 0   0   0            0            0            
ET0	033243 035062 0   0   0            0            0            
ST1	033243 035062 0   0   0            0            0            
ST2	033243 035062 0   0   0            0            0            
ST9	033243 035062 0   0   0            0            0            


*033243 XOR 	0,035115
INITIAL
C(AC)=000000 000000 
C(E)=000000 400000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033243 033243 0   0   430000035115 0            000000400000 
IT1	033243 0      0   0   430000035115 0            000000400000 
AT3	033243 0      0   0   000000035115 0            430000035115 
AT6	033243 035115 0   0   000000035115 0            430000035115 
FT0	033243 035115 0   0   000000400000 0            430000035115 
FT1A	033243 035115 0   0   000000400000 0            000000400000 
FT2	033243 035115 0   0   0            0            000000400000 
FT2RQ	033243 035115 0   0   0            0            000000400000 
FT3	033243 035115 0   0   0            0            000000400000 
FT9	033244 035115 0   0   0            0            000000400000 
ET0	033244 035115 0   0   000000400000 0            000000400000 
ST1	033244 035115 0   0   000000400000 0            000000400000 
ST2	033244 035115 0   0   000000400000 0            000000400000 
ST9	033244 035115 0   0   000000400000 0            000000400000 


*033244 SKIPN	0,000000
INITIAL
C(AC)=000000 400000 
C(E)=000000 400000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033244 033244 0   0   336000000000 0            000000400000 
IT1	033244 0      0   0   336000000000 0            000000400000 
AT3	033244 0      0   0   0            0            336000000000 
AT6	033244 0      0   0   0            0            336000000000 
FT0	033244 0      0   0   000000400000 0            336000000000 
FT1A	033244 0      0   0   000000400000 0            000000400000 
FT9	033245 0      0   0   000000400000 0            000000400000 
ET0	033246 0      0   0   000000400000 0            000000400000 
ST1A	033246 0      0   0   000000400000 0            000000400000 
ST9	033246 0      0   0   000000400000 0            000000400000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 408
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0624



*033246 JUMPA	0,033247
INITIAL
C(AC)=000000 400000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033246 033246 0   0   324000033247 0            000000033247 
IT1	033246 0      0   0   324000033247 0            000000033247 
AT3	033246 0      0   0   000000033247 0            324000033247 
AT6	033246 033247 0   0   000000033247 0            324000033247 
FT1A	033246 033247 0   0   000000033247 0            000000033247 
FT2	033246 033247 0   0   0            0            000000033247 
FT2RQ	033246 033247 0   0   000000400000 0            000000033247 
FT3	033246 033247 0   0   000000400000 0            000000033247 
FT9	033247 033247 0   0   000000400000 0            000000033247 
ET0	033247 033247 0   0   000000400000 0            000000033247 
ST1A	033247 033247 0   0   000000400000 0            000000033247 
ST9	033247 033247 0   0   000000400000 0            000000033247 


*033247 MOVE 	0,035062
INITIAL
C(AC)=000000 400000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033247 033247 0   0   200000035062 0            0            
IT1	033247 0      0   0   200000035062 0            0            
AT3	033247 0      0   0   000000035062 0            200000035062 
AT6	033247 035062 0   0   000000035062 0            200000035062 
FT0	033247 035062 0   0   0            0            200000035062 
FT1A	033247 035062 0   0   0            0            0            
FT9	033250 035062 0   0   0            0            0            
ET0	033250 035062 0   0   0            0            0            
ST1	033250 035062 0   0   0            0            0            
ST2	033250 035062 0   0   0            0            0            
ST9	033250 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 409
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0625

*033250 XOR 	0,035116
INITIAL
C(AC)=000000 000000 
C(E)=000001 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033250 033250 0   0   430000035116 0            000001000000 
IT1	033250 0      0   0   430000035116 0            000001000000 
AT3	033250 0      0   0   000000035116 0            430000035116 
AT6	033250 035116 0   0   000000035116 0            430000035116 
FT0	033250 035116 0   0   000001000000 0            430000035116 
FT1A	033250 035116 0   0   000001000000 0            000001000000 
FT2	033250 035116 0   0   0            0            000001000000 
FT2RQ	033250 035116 0   0   0            0            000001000000 
FT3	033250 035116 0   0   0            0            000001000000 
FT9	033251 035116 0   0   0            0            000001000000 
ET0	033251 035116 0   0   000001000000 0            000001000000 
ST1	033251 035116 0   0   000001000000 0            000001000000 
ST2	033251 035116 0   0   000001000000 0            000001000000 
ST9	033251 035116 0   0   000001000000 0            000001000000 


*033251 SKIPN	0,000000
INITIAL
C(AC)=000001 000000 
C(E)=000001 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033251 033251 0   0   336000000000 0            000001000000 
IT1	033251 0      0   0   336000000000 0            000001000000 
AT3	033251 0      0   0   0            0            336000000000 
AT6	033251 0      0   0   0            0            336000000000 
FT0	033251 0      0   0   000001000000 0            336000000000 
FT1A	033251 0      0   0   000001000000 0            000001000000 
FT9	033252 0      0   0   000001000000 0            000001000000 
ET0	033253 0      0   0   000001000000 0            000001000000 
ST1A	033253 0      0   0   000001000000 0            000001000000 
ST9	033253 0      0   0   000001000000 0            000001000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 410
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0626

*033253 JUMPA	0,033254
INITIAL
C(AC)=000001 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033253 033253 0   0   324000033254 0            000000033254 
IT1	033253 0      0   0   324000033254 0            000000033254 
AT3	033253 0      0   0   000000033254 0            324000033254 
AT6	033253 033254 0   0   000000033254 0            324000033254 
FT1A	033253 033254 0   0   000000033254 0            000000033254 
FT2	033253 033254 0   0   0            0            000000033254 
FT2RQ	033253 033254 0   0   000001000000 0            000000033254 
FT3	033253 033254 0   0   000001000000 0            000000033254 
FT9	033254 033254 0   0   000001000000 0            000000033254 
ET0	033254 033254 0   0   000001000000 0            000000033254 
ST1A	033254 033254 0   0   000001000000 0            000000033254 
ST9	033254 033254 0   0   000001000000 0            000000033254 


*033254 MOVE 	0,035062
INITIAL
C(AC)=000001 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033254 033254 0   0   200000035062 0            0            
IT1	033254 0      0   0   200000035062 0            0            
AT3	033254 0      0   0   000000035062 0            200000035062 
AT6	033254 035062 0   0   000000035062 0            200000035062 
FT0	033254 035062 0   0   0            0            200000035062 
FT1A	033254 035062 0   0   0            0            0            
FT9	033255 035062 0   0   0            0            0            
ET0	033255 035062 0   0   0            0            0            
ST1	033255 035062 0   0   0            0            0            
ST2	033255 035062 0   0   0            0            0            
ST9	033255 035062 0   0   0            0            0            


*033255 XOR 	0,035117
INITIAL
C(AC)=000000 000000 
C(E)=000002 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033255 033255 0   0   430000035117 0            000002000000 
IT1	033255 0      0   0   430000035117 0            000002000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 411
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0627

AT3	033255 0      0   0   000000035117 0            430000035117 
AT6	033255 035117 0   0   000000035117 0            430000035117 
FT0	033255 035117 0   0   000002000000 0            430000035117 
FT1A	033255 035117 0   0   000002000000 0            000002000000 
FT2	033255 035117 0   0   0            0            000002000000 
FT2RQ	033255 035117 0   0   0            0            000002000000 
FT3	033255 035117 0   0   0            0            000002000000 
FT9	033256 035117 0   0   0            0            000002000000 
ET0	033256 035117 0   0   000002000000 0            000002000000 
ST1	033256 035117 0   0   000002000000 0            000002000000 
ST2	033256 035117 0   0   000002000000 0            000002000000 
ST9	033256 035117 0   0   000002000000 0            000002000000 


*033256 SKIPN	0,000000
INITIAL
C(AC)=000002 000000 
C(E)=000002 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033256 033256 0   0   336000000000 0            000002000000 
IT1	033256 0      0   0   336000000000 0            000002000000 
AT3	033256 0      0   0   0            0            336000000000 
AT6	033256 0      0   0   0            0            336000000000 
FT0	033256 0      0   0   000002000000 0            336000000000 
FT1A	033256 0      0   0   000002000000 0            000002000000 
FT9	033257 0      0   0   000002000000 0            000002000000 
ET0	033260 0      0   0   000002000000 0            000002000000 
ST1A	033260 0      0   0   000002000000 0            000002000000 
ST9	033260 0      0   0   000002000000 0            000002000000 


*033260 JUMPA	0,033261
INITIAL
C(AC)=000002 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033260 033260 0   0   324000033261 0            000000033261 
IT1	033260 0      0   0   324000033261 0            000000033261 
AT3	033260 0      0   0   000000033261 0            324000033261 
AT6	033260 033261 0   0   000000033261 0            324000033261 
FT1A	033260 033261 0   0   000000033261 0            000000033261 
FT2	033260 033261 0   0   0            0            000000033261 
FT2RQ	033260 033261 0   0   000002000000 0            000000033261 
FT3	033260 033261 0   0   000002000000 0            000000033261 
FT9	033261 033261 0   0   000002000000 0            000000033261 
ET0	033261 033261 0   0   000002000000 0            000000033261 
ST1A	033261 033261 0   0   000002000000 0            000000033261 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 412
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0628

ST9	033261 033261 0   0   000002000000 0            000000033261 


*033261 MOVE 	0,035062
INITIAL
C(AC)=000002 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033261 033261 0   0   200000035062 0            0            
IT1	033261 0      0   0   200000035062 0            0            
AT3	033261 0      0   0   000000035062 0            200000035062 
AT6	033261 035062 0   0   000000035062 0            200000035062 
FT0	033261 035062 0   0   0            0            200000035062 
FT1A	033261 035062 0   0   0            0            0            
FT9	033262 035062 0   0   0            0            0            
ET0	033262 035062 0   0   0            0            0            
ST1	033262 035062 0   0   0            0            0            
ST2	033262 035062 0   0   0            0            0            
ST9	033262 035062 0   0   0            0            0            


*033262 XOR 	0,035120
INITIAL
C(AC)=000000 000000 
C(E)=000004 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033262 033262 0   0   430000035120 0            000004000000 
IT1	033262 0      0   0   430000035120 0            000004000000 
AT3	033262 0      0   0   000000035120 0            430000035120 
AT6	033262 035120 0   0   000000035120 0            430000035120 
FT0	033262 035120 0   0   000004000000 0            430000035120 
FT1A	033262 035120 0   0   000004000000 0            000004000000 
FT2	033262 035120 0   0   0            0            000004000000 
FT2RQ	033262 035120 0   0   0            0            000004000000 
FT3	033262 035120 0   0   0            0            000004000000 
FT9	033263 035120 0   0   0            0            000004000000 
ET0	033263 035120 0   0   000004000000 0            000004000000 
ST1	033263 035120 0   0   000004000000 0            000004000000 
ST2	033263 035120 0   0   000004000000 0            000004000000 
ST9	033263 035120 0   0   000004000000 0            000004000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 413
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0629

*033263 SKIPN	0,000000
INITIAL
C(AC)=000004 000000 
C(E)=000004 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033263 033263 0   0   336000000000 0            000004000000 
IT1	033263 0      0   0   336000000000 0            000004000000 
AT3	033263 0      0   0   0            0            336000000000 
AT6	033263 0      0   0   0            0            336000000000 
FT0	033263 0      0   0   000004000000 0            336000000000 
FT1A	033263 0      0   0   000004000000 0            000004000000 
FT9	033264 0      0   0   000004000000 0            000004000000 
ET0	033265 0      0   0   000004000000 0            000004000000 
ST1A	033265 0      0   0   000004000000 0            000004000000 
ST9	033265 0      0   0   000004000000 0            000004000000 


*033265 JUMPA	0,033266
INITIAL
C(AC)=000004 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033265 033265 0   0   324000033266 0            000000033266 
IT1	033265 0      0   0   324000033266 0            000000033266 
AT3	033265 0      0   0   000000033266 0            324000033266 
AT6	033265 033266 0   0   000000033266 0            324000033266 
FT1A	033265 033266 0   0   000000033266 0            000000033266 
FT2	033265 033266 0   0   0            0            000000033266 
FT2RQ	033265 033266 0   0   000004000000 0            000000033266 
FT3	033265 033266 0   0   000004000000 0            000000033266 
FT9	033266 033266 0   0   000004000000 0            000000033266 
ET0	033266 033266 0   0   000004000000 0            000000033266 
ST1A	033266 033266 0   0   000004000000 0            000000033266 
ST9	033266 033266 0   0   000004000000 0            000000033266 


*033266 MOVE 	0,035062
INITIAL
C(AC)=000004 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033266 033266 0   0   200000035062 0            0            
IT1	033266 0      0   0   200000035062 0            0            
AT3	033266 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 414
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0630

AT6	033266 035062 0   0   000000035062 0            200000035062 
FT0	033266 035062 0   0   0            0            200000035062 
FT1A	033266 035062 0   0   0            0            0            
FT9	033267 035062 0   0   0            0            0            
ET0	033267 035062 0   0   0            0            0            
ST1	033267 035062 0   0   0            0            0            
ST2	033267 035062 0   0   0            0            0            
ST9	033267 035062 0   0   0            0            0            


*033267 XOR 	0,035121
INITIAL
C(AC)=000000 000000 
C(E)=000010 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033267 033267 0   0   430000035121 0            000010000000 
IT1	033267 0      0   0   430000035121 0            000010000000 
AT3	033267 0      0   0   000000035121 0            430000035121 
AT6	033267 035121 0   0   000000035121 0            430000035121 
FT0	033267 035121 0   0   000010000000 0            430000035121 
FT1A	033267 035121 0   0   000010000000 0            000010000000 
FT2	033267 035121 0   0   0            0            000010000000 
FT2RQ	033267 035121 0   0   0            0            000010000000 
FT3	033267 035121 0   0   0            0            000010000000 
FT9	033270 035121 0   0   0            0            000010000000 
ET0	033270 035121 0   0   000010000000 0            000010000000 
ST1	033270 035121 0   0   000010000000 0            000010000000 
ST2	033270 035121 0   0   000010000000 0            000010000000 
ST9	033270 035121 0   0   000010000000 0            000010000000 


*033270 SKIPN	0,000000
INITIAL
C(AC)=000010 000000 
C(E)=000010 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033270 033270 0   0   336000000000 0            000010000000 
IT1	033270 0      0   0   336000000000 0            000010000000 
AT3	033270 0      0   0   0            0            336000000000 
AT6	033270 0      0   0   0            0            336000000000 
FT0	033270 0      0   0   000010000000 0            336000000000 
FT1A	033270 0      0   0   000010000000 0            000010000000 
FT9	033271 0      0   0   000010000000 0            000010000000 
ET0	033272 0      0   0   000010000000 0            000010000000 
ST1A	033272 0      0   0   000010000000 0            000010000000 
ST9	033272 0      0   0   000010000000 0            000010000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 415
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0631



*033272 JUMPA	0,033273
INITIAL
C(AC)=000010 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033272 033272 0   0   324000033273 0            000000033273 
IT1	033272 0      0   0   324000033273 0            000000033273 
AT3	033272 0      0   0   000000033273 0            324000033273 
AT6	033272 033273 0   0   000000033273 0            324000033273 
FT1A	033272 033273 0   0   000000033273 0            000000033273 
FT2	033272 033273 0   0   0            0            000000033273 
FT2RQ	033272 033273 0   0   000010000000 0            000000033273 
FT3	033272 033273 0   0   000010000000 0            000000033273 
FT9	033273 033273 0   0   000010000000 0            000000033273 
ET0	033273 033273 0   0   000010000000 0            000000033273 
ST1A	033273 033273 0   0   000010000000 0            000000033273 
ST9	033273 033273 0   0   000010000000 0            000000033273 


*033273 MOVE 	0,035062
INITIAL
C(AC)=000010 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033273 033273 0   0   200000035062 0            0            
IT1	033273 0      0   0   200000035062 0            0            
AT3	033273 0      0   0   000000035062 0            200000035062 
AT6	033273 035062 0   0   000000035062 0            200000035062 
FT0	033273 035062 0   0   0            0            200000035062 
FT1A	033273 035062 0   0   0            0            0            
FT9	033274 035062 0   0   0            0            0            
ET0	033274 035062 0   0   0            0            0            
ST1	033274 035062 0   0   0            0            0            
ST2	033274 035062 0   0   0            0            0            
ST9	033274 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 416
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0632

*033274 XOR 	0,035122
INITIAL
C(AC)=000000 000000 
C(E)=000020 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033274 033274 0   0   430000035122 0            000020000000 
IT1	033274 0      0   0   430000035122 0            000020000000 
AT3	033274 0      0   0   000000035122 0            430000035122 
AT6	033274 035122 0   0   000000035122 0            430000035122 
FT0	033274 035122 0   0   000020000000 0            430000035122 
FT1A	033274 035122 0   0   000020000000 0            000020000000 
FT2	033274 035122 0   0   0            0            000020000000 
FT2RQ	033274 035122 0   0   0            0            000020000000 
FT3	033274 035122 0   0   0            0            000020000000 
FT9	033275 035122 0   0   0            0            000020000000 
ET0	033275 035122 0   0   000020000000 0            000020000000 
ST1	033275 035122 0   0   000020000000 0            000020000000 
ST2	033275 035122 0   0   000020000000 0            000020000000 
ST9	033275 035122 0   0   000020000000 0            000020000000 


*033275 SKIPN	0,000000
INITIAL
C(AC)=000020 000000 
C(E)=000020 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033275 033275 0   0   336000000000 0            000020000000 
IT1	033275 0      0   0   336000000000 0            000020000000 
AT3	033275 0      0   0   0            0            336000000000 
AT6	033275 0      0   0   0            0            336000000000 
FT0	033275 0      0   0   000020000000 0            336000000000 
FT1A	033275 0      0   0   000020000000 0            000020000000 
FT9	033276 0      0   0   000020000000 0            000020000000 
ET0	033277 0      0   0   000020000000 0            000020000000 
ST1A	033277 0      0   0   000020000000 0            000020000000 
ST9	033277 0      0   0   000020000000 0            000020000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 417
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0633

*033277 JUMPA	0,033300
INITIAL
C(AC)=000020 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033277 033277 0   0   324000033300 0            000000033300 
IT1	033277 0      0   0   324000033300 0            000000033300 
AT3	033277 0      0   0   000000033300 0            324000033300 
AT6	033277 0      0   0   000000033300 0            324000033300 
FT1A	033277 0      0   0   000000033300 0            000000033300 
FT2	033277 0      0   0   0            0            000000033300 
FT2RQ	033277 0      0   0   000020000000 0            000000033300 
FT3	033277 0      0   0   000020000000 0            000000033300 
FT9	0      0      0   0   000020000000 0            000000033300 
ET0	0      0      0   0   000020000000 0            000000033300 
ST1A	0      0      0   0   000020000000 0            000000033300 
ST9	0      0      0   0   000020000000 0            000000033300 


*033300 MOVE 	0,035062
INITIAL
C(AC)=000020 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   200000035062 0            0            
IT1	0      0      0   0   200000035062 0            0            
AT3	0      0      0   0   000000035062 0            200000035062 
AT6	0      035062 0   0   000000035062 0            200000035062 
FT0	0      035062 0   0   0            0            200000035062 
FT1A	0      035062 0   0   0            0            0            
FT9	033301 035062 0   0   0            0            0            
ET0	033301 035062 0   0   0            0            0            
ST1	033301 035062 0   0   0            0            0            
ST2	033301 035062 0   0   0            0            0            
ST9	033301 035062 0   0   0            0            0            


*033301 XOR 	0,035123
INITIAL
C(AC)=000000 000000 
C(E)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033301 033301 0   0   430000035123 0            000040000000 
IT1	033301 0      0   0   430000035123 0            000040000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 418
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0634

AT3	033301 0      0   0   000000035123 0            430000035123 
AT6	033301 035123 0   0   000000035123 0            430000035123 
FT0	033301 035123 0   0   000040000000 0            430000035123 
FT1A	033301 035123 0   0   000040000000 0            000040000000 
FT2	033301 035123 0   0   0            0            000040000000 
FT2RQ	033301 035123 0   0   0            0            000040000000 
FT3	033301 035123 0   0   0            0            000040000000 
FT9	033302 035123 0   0   0            0            000040000000 
ET0	033302 035123 0   0   000040000000 0            000040000000 
ST1	033302 035123 0   0   000040000000 0            000040000000 
ST2	033302 035123 0   0   000040000000 0            000040000000 
ST9	033302 035123 0   0   000040000000 0            000040000000 


*033302 SKIPN	0,000000
INITIAL
C(AC)=000040 000000 
C(E)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033302 033302 0   0   336000000000 0            000040000000 
IT1	033302 0      0   0   336000000000 0            000040000000 
AT3	033302 0      0   0   0            0            336000000000 
AT6	033302 0      0   0   0            0            336000000000 
FT0	033302 0      0   0   000040000000 0            336000000000 
FT1A	033302 0      0   0   000040000000 0            000040000000 
FT9	033303 0      0   0   000040000000 0            000040000000 
ET0	033304 0      0   0   000040000000 0            000040000000 
ST1A	033304 0      0   0   000040000000 0            000040000000 
ST9	033304 0      0   0   000040000000 0            000040000000 


*033304 JUMPA	0,033305
INITIAL
C(AC)=000040 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033304 033304 0   0   324000033305 0            000000033305 
IT1	033304 0      0   0   324000033305 0            000000033305 
AT3	033304 0      0   0   000000033305 0            324000033305 
AT6	033304 033305 0   0   000000033305 0            324000033305 
FT1A	033304 033305 0   0   000000033305 0            000000033305 
FT2	033304 033305 0   0   0            0            000000033305 
FT2RQ	033304 033305 0   0   000040000000 0            000000033305 
FT3	033304 033305 0   0   000040000000 0            000000033305 
FT9	033305 033305 0   0   000040000000 0            000000033305 
ET0	033305 033305 0   0   000040000000 0            000000033305 
ST1A	033305 033305 0   0   000040000000 0            000000033305 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 419
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0635

ST9	033305 033305 0   0   000040000000 0            000000033305 


*033305 MOVE 	0,035062
INITIAL
C(AC)=000040 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033305 033305 0   0   200000035062 0            0            
IT1	033305 0      0   0   200000035062 0            0            
AT3	033305 0      0   0   000000035062 0            200000035062 
AT6	033305 035062 0   0   000000035062 0            200000035062 
FT0	033305 035062 0   0   0            0            200000035062 
FT1A	033305 035062 0   0   0            0            0            
FT9	033306 035062 0   0   0            0            0            
ET0	033306 035062 0   0   0            0            0            
ST1	033306 035062 0   0   0            0            0            
ST2	033306 035062 0   0   0            0            0            
ST9	033306 035062 0   0   0            0            0            


*033306 XOR 	0,035124
INITIAL
C(AC)=000000 000000 
C(E)=000100 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033306 033306 0   0   430000035124 0            000100000000 
IT1	033306 0      0   0   430000035124 0            000100000000 
AT3	033306 0      0   0   000000035124 0            430000035124 
AT6	033306 035124 0   0   000000035124 0            430000035124 
FT0	033306 035124 0   0   000100000000 0            430000035124 
FT1A	033306 035124 0   0   000100000000 0            000100000000 
FT2	033306 035124 0   0   0            0            000100000000 
FT2RQ	033306 035124 0   0   0            0            000100000000 
FT3	033306 035124 0   0   0            0            000100000000 
FT9	033307 035124 0   0   0            0            000100000000 
ET0	033307 035124 0   0   000100000000 0            000100000000 
ST1	033307 035124 0   0   000100000000 0            000100000000 
ST2	033307 035124 0   0   000100000000 0            000100000000 
ST9	033307 035124 0   0   000100000000 0            000100000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 420
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0636

*033307 SKIPN	0,000000
INITIAL
C(AC)=000100 000000 
C(E)=000100 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033307 033307 0   0   336000000000 0            000100000000 
IT1	033307 0      0   0   336000000000 0            000100000000 
AT3	033307 0      0   0   0            0            336000000000 
AT6	033307 0      0   0   0            0            336000000000 
FT0	033307 0      0   0   000100000000 0            336000000000 
FT1A	033307 0      0   0   000100000000 0            000100000000 
FT9	033310 0      0   0   000100000000 0            000100000000 
ET0	033311 0      0   0   000100000000 0            000100000000 
ST1A	033311 0      0   0   000100000000 0            000100000000 
ST9	033311 0      0   0   000100000000 0            000100000000 


*033311 JUMPA	0,033312
INITIAL
C(AC)=000100 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033311 033311 0   0   324000033312 0            000000033312 
IT1	033311 0      0   0   324000033312 0            000000033312 
AT3	033311 0      0   0   000000033312 0            324000033312 
AT6	033311 033312 0   0   000000033312 0            324000033312 
FT1A	033311 033312 0   0   000000033312 0            000000033312 
FT2	033311 033312 0   0   0            0            000000033312 
FT2RQ	033311 033312 0   0   000100000000 0            000000033312 
FT3	033311 033312 0   0   000100000000 0            000000033312 
FT9	033312 033312 0   0   000100000000 0            000000033312 
ET0	033312 033312 0   0   000100000000 0            000000033312 
ST1A	033312 033312 0   0   000100000000 0            000000033312 
ST9	033312 033312 0   0   000100000000 0            000000033312 


*033312 MOVE 	0,035062
INITIAL
C(AC)=000100 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033312 033312 0   0   200000035062 0            0            
IT1	033312 0      0   0   200000035062 0            0            
AT3	033312 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 421
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0637

AT6	033312 035062 0   0   000000035062 0            200000035062 
FT0	033312 035062 0   0   0            0            200000035062 
FT1A	033312 035062 0   0   0            0            0            
FT9	033313 035062 0   0   0            0            0            
ET0	033313 035062 0   0   0            0            0            
ST1	033313 035062 0   0   0            0            0            
ST2	033313 035062 0   0   0            0            0            
ST9	033313 035062 0   0   0            0            0            


*033313 XOR 	0,035125
INITIAL
C(AC)=000000 000000 
C(E)=000200 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033313 033313 0   0   430000035125 0            000200000000 
IT1	033313 0      0   0   430000035125 0            000200000000 
AT3	033313 0      0   0   000000035125 0            430000035125 
AT6	033313 035125 0   0   000000035125 0            430000035125 
FT0	033313 035125 0   0   000200000000 0            430000035125 
FT1A	033313 035125 0   0   000200000000 0            000200000000 
FT2	033313 035125 0   0   0            0            000200000000 
FT2RQ	033313 035125 0   0   0            0            000200000000 
FT3	033313 035125 0   0   0            0            000200000000 
FT9	033314 035125 0   0   0            0            000200000000 
ET0	033314 035125 0   0   000200000000 0            000200000000 
ST1	033314 035125 0   0   000200000000 0            000200000000 
ST2	033314 035125 0   0   000200000000 0            000200000000 
ST9	033314 035125 0   0   000200000000 0            000200000000 


*033314 SKIPN	0,000000
INITIAL
C(AC)=000200 000000 
C(E)=000200 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033314 033314 0   0   336000000000 0            000200000000 
IT1	033314 0      0   0   336000000000 0            000200000000 
AT3	033314 0      0   0   0            0            336000000000 
AT6	033314 0      0   0   0            0            336000000000 
FT0	033314 0      0   0   000200000000 0            336000000000 
FT1A	033314 0      0   0   000200000000 0            000200000000 
FT9	033315 0      0   0   000200000000 0            000200000000 
ET0	033316 0      0   0   000200000000 0            000200000000 
ST1A	033316 0      0   0   000200000000 0            000200000000 
ST9	033316 0      0   0   000200000000 0            000200000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 422
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0638



*033316 JUMPA	0,033317
INITIAL
C(AC)=000200 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033316 033316 0   0   324000033317 0            000000033317 
IT1	033316 0      0   0   324000033317 0            000000033317 
AT3	033316 0      0   0   000000033317 0            324000033317 
AT6	033316 033317 0   0   000000033317 0            324000033317 
FT1A	033316 033317 0   0   000000033317 0            000000033317 
FT2	033316 033317 0   0   0            0            000000033317 
FT2RQ	033316 033317 0   0   000200000000 0            000000033317 
FT3	033316 033317 0   0   000200000000 0            000000033317 
FT9	033317 033317 0   0   000200000000 0            000000033317 
ET0	033317 033317 0   0   000200000000 0            000000033317 
ST1A	033317 033317 0   0   000200000000 0            000000033317 
ST9	033317 033317 0   0   000200000000 0            000000033317 


*033317 MOVE 	0,035062
INITIAL
C(AC)=000200 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033317 033317 0   0   200000035062 0            0            
IT1	033317 0      0   0   200000035062 0            0            
AT3	033317 0      0   0   000000035062 0            200000035062 
AT6	033317 035062 0   0   000000035062 0            200000035062 
FT0	033317 035062 0   0   0            0            200000035062 
FT1A	033317 035062 0   0   0            0            0            
FT9	033320 035062 0   0   0            0            0            
ET0	033320 035062 0   0   0            0            0            
ST1	033320 035062 0   0   0            0            0            
ST2	033320 035062 0   0   0            0            0            
ST9	033320 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 423
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0639

*033320 XOR 	0,035073
INITIAL
C(AC)=000000 000000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033320 033320 0   0   430000035073 0            000400000000 
IT1	033320 0      0   0   430000035073 0            000400000000 
AT3	033320 0      0   0   000000035073 0            430000035073 
AT6	033320 035073 0   0   000000035073 0            430000035073 
FT0	033320 035073 0   0   000400000000 0            430000035073 
FT1A	033320 035073 0   0   000400000000 0            000400000000 
FT2	033320 035073 0   0   0            0            000400000000 
FT2RQ	033320 035073 0   0   0            0            000400000000 
FT3	033320 035073 0   0   0            0            000400000000 
FT9	033321 035073 0   0   0            0            000400000000 
ET0	033321 035073 0   0   000400000000 0            000400000000 
ST1	033321 035073 0   0   000400000000 0            000400000000 
ST2	033321 035073 0   0   000400000000 0            000400000000 
ST9	033321 035073 0   0   000400000000 0            000400000000 


*033321 SKIPN	0,000000
INITIAL
C(AC)=000400 000000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033321 033321 0   0   336000000000 0            000400000000 
IT1	033321 0      0   0   336000000000 0            000400000000 
AT3	033321 0      0   0   0            0            336000000000 
AT6	033321 0      0   0   0            0            336000000000 
FT0	033321 0      0   0   000400000000 0            336000000000 
FT1A	033321 0      0   0   000400000000 0            000400000000 
FT9	033322 0      0   0   000400000000 0            000400000000 
ET0	033323 0      0   0   000400000000 0            000400000000 
ST1A	033323 0      0   0   000400000000 0            000400000000 
ST9	033323 0      0   0   000400000000 0            000400000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 424
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0640

*033323 JUMPA	0,033324
INITIAL
C(AC)=000400 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033323 033323 0   0   324000033324 0            000000033324 
IT1	033323 0      0   0   324000033324 0            000000033324 
AT3	033323 0      0   0   000000033324 0            324000033324 
AT6	033323 033324 0   0   000000033324 0            324000033324 
FT1A	033323 033324 0   0   000000033324 0            000000033324 
FT2	033323 033324 0   0   0            0            000000033324 
FT2RQ	033323 033324 0   0   000400000000 0            000000033324 
FT3	033323 033324 0   0   000400000000 0            000000033324 
FT9	033324 033324 0   0   000400000000 0            000000033324 
ET0	033324 033324 0   0   000400000000 0            000000033324 
ST1A	033324 033324 0   0   000400000000 0            000000033324 
ST9	033324 033324 0   0   000400000000 0            000000033324 


*033324 MOVE 	0,035062
INITIAL
C(AC)=000400 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033324 033324 0   0   200000035062 0            0            
IT1	033324 0      0   0   200000035062 0            0            
AT3	033324 0      0   0   000000035062 0            200000035062 
AT6	033324 035062 0   0   000000035062 0            200000035062 
FT0	033324 035062 0   0   0            0            200000035062 
FT1A	033324 035062 0   0   0            0            0            
FT9	033325 035062 0   0   0            0            0            
ET0	033325 035062 0   0   0            0            0            
ST1	033325 035062 0   0   0            0            0            
ST2	033325 035062 0   0   0            0            0            
ST9	033325 035062 0   0   0            0            0            


*033325 XOR 	0,035126
INITIAL
C(AC)=000000 000000 
C(E)=001000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033325 033325 0   0   430000035126 0            001000000000 
IT1	033325 0      0   0   430000035126 0            001000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 425
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0641

AT3	033325 0      0   0   000000035126 0            430000035126 
AT6	033325 035126 0   0   000000035126 0            430000035126 
FT0	033325 035126 0   0   001000000000 0            430000035126 
FT1A	033325 035126 0   0   001000000000 0            001000000000 
FT2	033325 035126 0   0   0            0            001000000000 
FT2RQ	033325 035126 0   0   0            0            001000000000 
FT3	033325 035126 0   0   0            0            001000000000 
FT9	033326 035126 0   0   0            0            001000000000 
ET0	033326 035126 0   0   001000000000 0            001000000000 
ST1	033326 035126 0   0   001000000000 0            001000000000 
ST2	033326 035126 0   0   001000000000 0            001000000000 
ST9	033326 035126 0   0   001000000000 0            001000000000 


*033326 SKIPN	0,000000
INITIAL
C(AC)=001000 000000 
C(E)=001000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033326 033326 0   0   336000000000 0            001000000000 
IT1	033326 0      0   0   336000000000 0            001000000000 
AT3	033326 0      0   0   0            0            336000000000 
AT6	033326 0      0   0   0            0            336000000000 
FT0	033326 0      0   0   001000000000 0            336000000000 
FT1A	033326 0      0   0   001000000000 0            001000000000 
FT9	033327 0      0   0   001000000000 0            001000000000 
ET0	033330 0      0   0   001000000000 0            001000000000 
ST1A	033330 0      0   0   001000000000 0            001000000000 
ST9	033330 0      0   0   001000000000 0            001000000000 


*033330 JUMPA	0,033331
INITIAL
C(AC)=001000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033330 033330 0   0   324000033331 0            000000033331 
IT1	033330 0      0   0   324000033331 0            000000033331 
AT3	033330 0      0   0   000000033331 0            324000033331 
AT6	033330 033331 0   0   000000033331 0            324000033331 
FT1A	033330 033331 0   0   000000033331 0            000000033331 
FT2	033330 033331 0   0   0            0            000000033331 
FT2RQ	033330 033331 0   0   001000000000 0            000000033331 
FT3	033330 033331 0   0   001000000000 0            000000033331 
FT9	033331 033331 0   0   001000000000 0            000000033331 
ET0	033331 033331 0   0   001000000000 0            000000033331 
ST1A	033331 033331 0   0   001000000000 0            000000033331 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 426
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0642

ST9	033331 033331 0   0   001000000000 0            000000033331 


*033331 MOVE 	0,035062
INITIAL
C(AC)=001000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033331 033331 0   0   200000035062 0            0            
IT1	033331 0      0   0   200000035062 0            0            
AT3	033331 0      0   0   000000035062 0            200000035062 
AT6	033331 035062 0   0   000000035062 0            200000035062 
FT0	033331 035062 0   0   0            0            200000035062 
FT1A	033331 035062 0   0   0            0            0            
FT9	033332 035062 0   0   0            0            0            
ET0	033332 035062 0   0   0            0            0            
ST1	033332 035062 0   0   0            0            0            
ST2	033332 035062 0   0   0            0            0            
ST9	033332 035062 0   0   0            0            0            


*033332 XOR 	0,035127
INITIAL
C(AC)=000000 000000 
C(E)=002000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033332 033332 0   0   430000035127 0            002000000000 
IT1	033332 0      0   0   430000035127 0            002000000000 
AT3	033332 0      0   0   000000035127 0            430000035127 
AT6	033332 035127 0   0   000000035127 0            430000035127 
FT0	033332 035127 0   0   002000000000 0            430000035127 
FT1A	033332 035127 0   0   002000000000 0            002000000000 
FT2	033332 035127 0   0   0            0            002000000000 
FT2RQ	033332 035127 0   0   0            0            002000000000 
FT3	033332 035127 0   0   0            0            002000000000 
FT9	033333 035127 0   0   0            0            002000000000 
ET0	033333 035127 0   0   002000000000 0            002000000000 
ST1	033333 035127 0   0   002000000000 0            002000000000 
ST2	033333 035127 0   0   002000000000 0            002000000000 
ST9	033333 035127 0   0   002000000000 0            002000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 427
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0643

*033333 SKIPN	0,000000
INITIAL
C(AC)=002000 000000 
C(E)=002000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033333 033333 0   0   336000000000 0            002000000000 
IT1	033333 0      0   0   336000000000 0            002000000000 
AT3	033333 0      0   0   0            0            336000000000 
AT6	033333 0      0   0   0            0            336000000000 
FT0	033333 0      0   0   002000000000 0            336000000000 
FT1A	033333 0      0   0   002000000000 0            002000000000 
FT9	033334 0      0   0   002000000000 0            002000000000 
ET0	033335 0      0   0   002000000000 0            002000000000 
ST1A	033335 0      0   0   002000000000 0            002000000000 
ST9	033335 0      0   0   002000000000 0            002000000000 


*033335 JUMPA	0,033336
INITIAL
C(AC)=002000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033335 033335 0   0   324000033336 0            000000033336 
IT1	033335 0      0   0   324000033336 0            000000033336 
AT3	033335 0      0   0   000000033336 0            324000033336 
AT6	033335 033336 0   0   000000033336 0            324000033336 
FT1A	033335 033336 0   0   000000033336 0            000000033336 
FT2	033335 033336 0   0   0            0            000000033336 
FT2RQ	033335 033336 0   0   002000000000 0            000000033336 
FT3	033335 033336 0   0   002000000000 0            000000033336 
FT9	033336 033336 0   0   002000000000 0            000000033336 
ET0	033336 033336 0   0   002000000000 0            000000033336 
ST1A	033336 033336 0   0   002000000000 0            000000033336 
ST9	033336 033336 0   0   002000000000 0            000000033336 


*033336 MOVE 	0,035062
INITIAL
C(AC)=002000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033336 033336 0   0   200000035062 0            0            
IT1	033336 0      0   0   200000035062 0            0            
AT3	033336 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 428
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0644

AT6	033336 035062 0   0   000000035062 0            200000035062 
FT0	033336 035062 0   0   0            0            200000035062 
FT1A	033336 035062 0   0   0            0            0            
FT9	033337 035062 0   0   0            0            0            
ET0	033337 035062 0   0   0            0            0            
ST1	033337 035062 0   0   0            0            0            
ST2	033337 035062 0   0   0            0            0            
ST9	033337 035062 0   0   0            0            0            


*033337 XOR 	0,035130
INITIAL
C(AC)=000000 000000 
C(E)=004000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033337 033337 0   0   430000035130 0            004000000000 
IT1	033337 0      0   0   430000035130 0            004000000000 
AT3	033337 0      0   0   000000035130 0            430000035130 
AT6	033337 035130 0   0   000000035130 0            430000035130 
FT0	033337 035130 0   0   004000000000 0            430000035130 
FT1A	033337 035130 0   0   004000000000 0            004000000000 
FT2	033337 035130 0   0   0            0            004000000000 
FT2RQ	033337 035130 0   0   0            0            004000000000 
FT3	033337 035130 0   0   0            0            004000000000 
FT9	033340 035130 0   0   0            0            004000000000 
ET0	033340 035130 0   0   004000000000 0            004000000000 
ST1	033340 035130 0   0   004000000000 0            004000000000 
ST2	033340 035130 0   0   004000000000 0            004000000000 
ST9	033340 035130 0   0   004000000000 0            004000000000 


*033340 SKIPN	0,000000
INITIAL
C(AC)=004000 000000 
C(E)=004000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033340 033340 0   0   336000000000 0            004000000000 
IT1	033340 0      0   0   336000000000 0            004000000000 
AT3	033340 0      0   0   0            0            336000000000 
AT6	033340 0      0   0   0            0            336000000000 
FT0	033340 0      0   0   004000000000 0            336000000000 
FT1A	033340 0      0   0   004000000000 0            004000000000 
FT9	033341 0      0   0   004000000000 0            004000000000 
ET0	033342 0      0   0   004000000000 0            004000000000 
ST1A	033342 0      0   0   004000000000 0            004000000000 
ST9	033342 0      0   0   004000000000 0            004000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 429
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0645



*033342 JUMPA	0,033343
INITIAL
C(AC)=004000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033342 033342 0   0   324000033343 0            000000033343 
IT1	033342 0      0   0   324000033343 0            000000033343 
AT3	033342 0      0   0   000000033343 0            324000033343 
AT6	033342 033343 0   0   000000033343 0            324000033343 
FT1A	033342 033343 0   0   000000033343 0            000000033343 
FT2	033342 033343 0   0   0            0            000000033343 
FT2RQ	033342 033343 0   0   004000000000 0            000000033343 
FT3	033342 033343 0   0   004000000000 0            000000033343 
FT9	033343 033343 0   0   004000000000 0            000000033343 
ET0	033343 033343 0   0   004000000000 0            000000033343 
ST1A	033343 033343 0   0   004000000000 0            000000033343 
ST9	033343 033343 0   0   004000000000 0            000000033343 


*033343 MOVE 	0,035062
INITIAL
C(AC)=004000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033343 033343 0   0   200000035062 0            0            
IT1	033343 0      0   0   200000035062 0            0            
AT3	033343 0      0   0   000000035062 0            200000035062 
AT6	033343 035062 0   0   000000035062 0            200000035062 
FT0	033343 035062 0   0   0            0            200000035062 
FT1A	033343 035062 0   0   0            0            0            
FT9	033344 035062 0   0   0            0            0            
ET0	033344 035062 0   0   0            0            0            
ST1	033344 035062 0   0   0            0            0            
ST2	033344 035062 0   0   0            0            0            
ST9	033344 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 430
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0646

*033344 XOR 	0,035131
INITIAL
C(AC)=000000 000000 
C(E)=010000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033344 033344 0   0   430000035131 0            010000000000 
IT1	033344 0      0   0   430000035131 0            010000000000 
AT3	033344 0      0   0   000000035131 0            430000035131 
AT6	033344 035131 0   0   000000035131 0            430000035131 
FT0	033344 035131 0   0   010000000000 0            430000035131 
FT1A	033344 035131 0   0   010000000000 0            010000000000 
FT2	033344 035131 0   0   0            0            010000000000 
FT2RQ	033344 035131 0   0   0            0            010000000000 
FT3	033344 035131 0   0   0            0            010000000000 
FT9	033345 035131 0   0   0            0            010000000000 
ET0	033345 035131 0   0   010000000000 0            010000000000 
ST1	033345 035131 0   0   010000000000 0            010000000000 
ST2	033345 035131 0   0   010000000000 0            010000000000 
ST9	033345 035131 0   0   010000000000 0            010000000000 


*033345 SKIPN	0,000000
INITIAL
C(AC)=010000 000000 
C(E)=010000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033345 033345 0   0   336000000000 0            010000000000 
IT1	033345 0      0   0   336000000000 0            010000000000 
AT3	033345 0      0   0   0            0            336000000000 
AT6	033345 0      0   0   0            0            336000000000 
FT0	033345 0      0   0   010000000000 0            336000000000 
FT1A	033345 0      0   0   010000000000 0            010000000000 
FT9	033346 0      0   0   010000000000 0            010000000000 
ET0	033347 0      0   0   010000000000 0            010000000000 
ST1A	033347 0      0   0   010000000000 0            010000000000 
ST9	033347 0      0   0   010000000000 0            010000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 431
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0647

*033347 JUMPA	0,033350
INITIAL
C(AC)=010000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033347 033347 0   0   324000033350 0            000000033350 
IT1	033347 0      0   0   324000033350 0            000000033350 
AT3	033347 0      0   0   000000033350 0            324000033350 
AT6	033347 033350 0   0   000000033350 0            324000033350 
FT1A	033347 033350 0   0   000000033350 0            000000033350 
FT2	033347 033350 0   0   0            0            000000033350 
FT2RQ	033347 033350 0   0   010000000000 0            000000033350 
FT3	033347 033350 0   0   010000000000 0            000000033350 
FT9	033350 033350 0   0   010000000000 0            000000033350 
ET0	033350 033350 0   0   010000000000 0            000000033350 
ST1A	033350 033350 0   0   010000000000 0            000000033350 
ST9	033350 033350 0   0   010000000000 0            000000033350 


*033350 MOVE 	0,035062
INITIAL
C(AC)=010000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033350 033350 0   0   200000035062 0            0            
IT1	033350 0      0   0   200000035062 0            0            
AT3	033350 0      0   0   000000035062 0            200000035062 
AT6	033350 035062 0   0   000000035062 0            200000035062 
FT0	033350 035062 0   0   0            0            200000035062 
FT1A	033350 035062 0   0   0            0            0            
FT9	033351 035062 0   0   0            0            0            
ET0	033351 035062 0   0   0            0            0            
ST1	033351 035062 0   0   0            0            0            
ST2	033351 035062 0   0   0            0            0            
ST9	033351 035062 0   0   0            0            0            


*033351 XOR 	0,035132
INITIAL
C(AC)=000000 000000 
C(E)=020000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033351 033351 0   0   430000035132 0            020000000000 
IT1	033351 0      0   0   430000035132 0            020000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 432
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0648

AT3	033351 0      0   0   000000035132 0            430000035132 
AT6	033351 035132 0   0   000000035132 0            430000035132 
FT0	033351 035132 0   0   020000000000 0            430000035132 
FT1A	033351 035132 0   0   020000000000 0            020000000000 
FT2	033351 035132 0   0   0            0            020000000000 
FT2RQ	033351 035132 0   0   0            0            020000000000 
FT3	033351 035132 0   0   0            0            020000000000 
FT9	033352 035132 0   0   0            0            020000000000 
ET0	033352 035132 0   0   020000000000 0            020000000000 
ST1	033352 035132 0   0   020000000000 0            020000000000 
ST2	033352 035132 0   0   020000000000 0            020000000000 
ST9	033352 035132 0   0   020000000000 0            020000000000 


*033352 SKIPN	0,000000
INITIAL
C(AC)=020000 000000 
C(E)=020000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033352 033352 0   0   336000000000 0            020000000000 
IT1	033352 0      0   0   336000000000 0            020000000000 
AT3	033352 0      0   0   0            0            336000000000 
AT6	033352 0      0   0   0            0            336000000000 
FT0	033352 0      0   0   020000000000 0            336000000000 
FT1A	033352 0      0   0   020000000000 0            020000000000 
FT9	033353 0      0   0   020000000000 0            020000000000 
ET0	033354 0      0   0   020000000000 0            020000000000 
ST1A	033354 0      0   0   020000000000 0            020000000000 
ST9	033354 0      0   0   020000000000 0            020000000000 


*033354 JUMPA	0,033355
INITIAL
C(AC)=020000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033354 033354 0   0   324000033355 0            000000033355 
IT1	033354 0      0   0   324000033355 0            000000033355 
AT3	033354 0      0   0   000000033355 0            324000033355 
AT6	033354 033355 0   0   000000033355 0            324000033355 
FT1A	033354 033355 0   0   000000033355 0            000000033355 
FT2	033354 033355 0   0   0            0            000000033355 
FT2RQ	033354 033355 0   0   020000000000 0            000000033355 
FT3	033354 033355 0   0   020000000000 0            000000033355 
FT9	033355 033355 0   0   020000000000 0            000000033355 
ET0	033355 033355 0   0   020000000000 0            000000033355 
ST1A	033355 033355 0   0   020000000000 0            000000033355 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 433
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0649

ST9	033355 033355 0   0   020000000000 0            000000033355 


*033355 MOVE 	0,035062
INITIAL
C(AC)=020000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033355 033355 0   0   200000035062 0            0            
IT1	033355 0      0   0   200000035062 0            0            
AT3	033355 0      0   0   000000035062 0            200000035062 
AT6	033355 035062 0   0   000000035062 0            200000035062 
FT0	033355 035062 0   0   0            0            200000035062 
FT1A	033355 035062 0   0   0            0            0            
FT9	033356 035062 0   0   0            0            0            
ET0	033356 035062 0   0   0            0            0            
ST1	033356 035062 0   0   0            0            0            
ST2	033356 035062 0   0   0            0            0            
ST9	033356 035062 0   0   0            0            0            


*033356 XOR 	0,035133
INITIAL
C(AC)=000000 000000 
C(E)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033356 033356 0   0   430000035133 0            040000000000 
IT1	033356 0      0   0   430000035133 0            040000000000 
AT3	033356 0      0   0   000000035133 0            430000035133 
AT6	033356 035133 0   0   000000035133 0            430000035133 
FT0	033356 035133 0   0   040000000000 0            430000035133 
FT1A	033356 035133 0   0   040000000000 0            040000000000 
FT2	033356 035133 0   0   0            0            040000000000 
FT2RQ	033356 035133 0   0   0            0            040000000000 
FT3	033356 035133 0   0   0            0            040000000000 
FT9	033357 035133 0   0   0            0            040000000000 
ET0	033357 035133 0   0   040000000000 0            040000000000 
ST1	033357 035133 0   0   040000000000 0            040000000000 
ST2	033357 035133 0   0   040000000000 0            040000000000 
ST9	033357 035133 0   0   040000000000 0            040000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 434
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0650

*033357 SKIPN	0,000000
INITIAL
C(AC)=040000 000000 
C(E)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033357 033357 0   0   336000000000 0            040000000000 
IT1	033357 0      0   0   336000000000 0            040000000000 
AT3	033357 0      0   0   0            0            336000000000 
AT6	033357 0      0   0   0            0            336000000000 
FT0	033357 0      0   0   040000000000 0            336000000000 
FT1A	033357 0      0   0   040000000000 0            040000000000 
FT9	033360 0      0   0   040000000000 0            040000000000 
ET0	033361 0      0   0   040000000000 0            040000000000 
ST1A	033361 0      0   0   040000000000 0            040000000000 
ST9	033361 0      0   0   040000000000 0            040000000000 


*033361 JUMPA	0,033362
INITIAL
C(AC)=040000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033361 033361 0   0   324000033362 0            000000033362 
IT1	033361 0      0   0   324000033362 0            000000033362 
AT3	033361 0      0   0   000000033362 0            324000033362 
AT6	033361 033362 0   0   000000033362 0            324000033362 
FT1A	033361 033362 0   0   000000033362 0            000000033362 
FT2	033361 033362 0   0   0            0            000000033362 
FT2RQ	033361 033362 0   0   040000000000 0            000000033362 
FT3	033361 033362 0   0   040000000000 0            000000033362 
FT9	033362 033362 0   0   040000000000 0            000000033362 
ET0	033362 033362 0   0   040000000000 0            000000033362 
ST1A	033362 033362 0   0   040000000000 0            000000033362 
ST9	033362 033362 0   0   040000000000 0            000000033362 


*033362 MOVE 	0,035062
INITIAL
C(AC)=040000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033362 033362 0   0   200000035062 0            0            
IT1	033362 0      0   0   200000035062 0            0            
AT3	033362 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 435
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0651

AT6	033362 035062 0   0   000000035062 0            200000035062 
FT0	033362 035062 0   0   0            0            200000035062 
FT1A	033362 035062 0   0   0            0            0            
FT9	033363 035062 0   0   0            0            0            
ET0	033363 035062 0   0   0            0            0            
ST1	033363 035062 0   0   0            0            0            
ST2	033363 035062 0   0   0            0            0            
ST9	033363 035062 0   0   0            0            0            


*033363 XOR 	0,035134
INITIAL
C(AC)=000000 000000 
C(E)=100000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033363 033363 0   0   430000035134 0            100000000000 
IT1	033363 0      0   0   430000035134 0            100000000000 
AT3	033363 0      0   0   000000035134 0            430000035134 
AT6	033363 035134 0   0   000000035134 0            430000035134 
FT0	033363 035134 0   0   100000000000 0            430000035134 
FT1A	033363 035134 0   0   100000000000 0            100000000000 
FT2	033363 035134 0   0   0            0            100000000000 
FT2RQ	033363 035134 0   0   0            0            100000000000 
FT3	033363 035134 0   0   0            0            100000000000 
FT9	033364 035134 0   0   0            0            100000000000 
ET0	033364 035134 0   0   100000000000 0            100000000000 
ST1	033364 035134 0   0   100000000000 0            100000000000 
ST2	033364 035134 0   0   100000000000 0            100000000000 
ST9	033364 035134 0   0   100000000000 0            100000000000 


*033364 SKIPN	0,000000
INITIAL
C(AC)=100000 000000 
C(E)=100000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033364 033364 0   0   336000000000 0            100000000000 
IT1	033364 0      0   0   336000000000 0            100000000000 
AT3	033364 0      0   0   0            0            336000000000 
AT6	033364 0      0   0   0            0            336000000000 
FT0	033364 0      0   0   100000000000 0            336000000000 
FT1A	033364 0      0   0   100000000000 0            100000000000 
FT9	033365 0      0   0   100000000000 0            100000000000 
ET0	033366 0      0   0   100000000000 0            100000000000 
ST1A	033366 0      0   0   100000000000 0            100000000000 
ST9	033366 0      0   0   100000000000 0            100000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 436
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0652



*033366 JUMPA	0,033367
INITIAL
C(AC)=100000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033366 033366 0   0   324000033367 0            000000033367 
IT1	033366 0      0   0   324000033367 0            000000033367 
AT3	033366 0      0   0   000000033367 0            324000033367 
AT6	033366 033367 0   0   000000033367 0            324000033367 
FT1A	033366 033367 0   0   000000033367 0            000000033367 
FT2	033366 033367 0   0   0            0            000000033367 
FT2RQ	033366 033367 0   0   100000000000 0            000000033367 
FT3	033366 033367 0   0   100000000000 0            000000033367 
FT9	033367 033367 0   0   100000000000 0            000000033367 
ET0	033367 033367 0   0   100000000000 0            000000033367 
ST1A	033367 033367 0   0   100000000000 0            000000033367 
ST9	033367 033367 0   0   100000000000 0            000000033367 


*033367 MOVE 	0,035062
INITIAL
C(AC)=100000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033367 033367 0   0   200000035062 0            0            
IT1	033367 0      0   0   200000035062 0            0            
AT3	033367 0      0   0   000000035062 0            200000035062 
AT6	033367 035062 0   0   000000035062 0            200000035062 
FT0	033367 035062 0   0   0            0            200000035062 
FT1A	033367 035062 0   0   0            0            0            
FT9	033370 035062 0   0   0            0            0            
ET0	033370 035062 0   0   0            0            0            
ST1	033370 035062 0   0   0            0            0            
ST2	033370 035062 0   0   0            0            0            
ST9	033370 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 437
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0653

*033370 XOR 	0,035135
INITIAL
C(AC)=000000 000000 
C(E)=200000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033370 033370 0   0   430000035135 0            200000000000 
IT1	033370 0      0   0   430000035135 0            200000000000 
AT3	033370 0      0   0   000000035135 0            430000035135 
AT6	033370 035135 0   0   000000035135 0            430000035135 
FT0	033370 035135 0   0   200000000000 0            430000035135 
FT1A	033370 035135 0   0   200000000000 0            200000000000 
FT2	033370 035135 0   0   0            0            200000000000 
FT2RQ	033370 035135 0   0   0            0            200000000000 
FT3	033370 035135 0   0   0            0            200000000000 
FT9	033371 035135 0   0   0            0            200000000000 
ET0	033371 035135 0   0   200000000000 0            200000000000 
ST1	033371 035135 0   0   200000000000 0            200000000000 
ST2	033371 035135 0   0   200000000000 0            200000000000 
ST9	033371 035135 0   0   200000000000 0            200000000000 


*033371 SKIPN	0,000000
INITIAL
C(AC)=200000 000000 
C(E)=200000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033371 033371 0   0   336000000000 0            200000000000 
IT1	033371 0      0   0   336000000000 0            200000000000 
AT3	033371 0      0   0   0            0            336000000000 
AT6	033371 0      0   0   0            0            336000000000 
FT0	033371 0      0   0   200000000000 0            336000000000 
FT1A	033371 0      0   0   200000000000 0            200000000000 
FT9	033372 0      0   0   200000000000 0            200000000000 
ET0	033373 0      0   0   200000000000 0            200000000000 
ST1A	033373 0      0   0   200000000000 0            200000000000 
ST9	033373 0      0   0   200000000000 0            200000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 438
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0654

*033373 JUMPA	0,033374
INITIAL
C(AC)=200000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033373 033373 0   0   324000033374 0            000000033374 
IT1	033373 0      0   0   324000033374 0            000000033374 
AT3	033373 0      0   0   000000033374 0            324000033374 
AT6	033373 033374 0   0   000000033374 0            324000033374 
FT1A	033373 033374 0   0   000000033374 0            000000033374 
FT2	033373 033374 0   0   0            0            000000033374 
FT2RQ	033373 033374 0   0   200000000000 0            000000033374 
FT3	033373 033374 0   0   200000000000 0            000000033374 
FT9	033374 033374 0   0   200000000000 0            000000033374 
ET0	033374 033374 0   0   200000000000 0            000000033374 
ST1A	033374 033374 0   0   200000000000 0            000000033374 
ST9	033374 033374 0   0   200000000000 0            000000033374 


*033374 MOVE 	0,035062
INITIAL
C(AC)=200000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033374 033374 0   0   200000035062 0            0            
IT1	033374 0      0   0   200000035062 0            0            
AT3	033374 0      0   0   000000035062 0            200000035062 
AT6	033374 035062 0   0   000000035062 0            200000035062 
FT0	033374 035062 0   0   0            0            200000035062 
FT1A	033374 035062 0   0   0            0            0            
FT9	033375 035062 0   0   0            0            0            
ET0	033375 035062 0   0   0            0            0            
ST1	033375 035062 0   0   0            0            0            
ST2	033375 035062 0   0   0            0            0            
ST9	033375 035062 0   0   0            0            0            


*033375 XOR 	0,035065
INITIAL
C(AC)=000000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033375 033375 0   0   430000035065 0            400000000000 
IT1	033375 0      0   0   430000035065 0            400000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 439
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0655

AT3	033375 0      0   0   000000035065 0            430000035065 
AT6	033375 035065 0   0   000000035065 0            430000035065 
FT0	033375 035065 0   0   400000000000 0            430000035065 
FT1A	033375 035065 0   0   400000000000 0            400000000000 
FT2	033375 035065 0   0   0            0            400000000000 
FT2RQ	033375 035065 0   0   0            0            400000000000 
FT3	033375 035065 0   0   0            0            400000000000 
FT9	033376 035065 0   0   0            0            400000000000 
ET0	033376 035065 0   0   400000000000 0            400000000000 
ST1	033376 035065 0   0   400000000000 0            400000000000 
ST2	033376 035065 0   0   400000000000 0            400000000000 
ST9	033376 035065 0   0   400000000000 0            400000000000 


*033376 SKIPN	0,000000
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033376 033376 0   0   336000000000 0            400000000000 
IT1	033376 0      0   0   336000000000 0            400000000000 
AT3	033376 0      0   0   0            0            336000000000 
AT6	033376 0      0   0   0            0            336000000000 
FT0	033376 0      0   0   400000000000 0            336000000000 
FT1A	033376 0      0   0   400000000000 0            400000000000 
FT9	033377 0      0   0   400000000000 0            400000000000 
ET0	0      0      0   0   400000000000 0            400000000000 
ST1A	0      0      0   0   400000000000 0            400000000000 
ST9	0      0      0   0   400000000000 0            400000000000 


*033400 JUMPA	0,033401
INITIAL
C(AC)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000033401 0            000000033401 
IT1	0      0      0   0   324000033401 0            000000033401 
AT3	0      0      0   0   000000033401 0            324000033401 
AT6	0      033401 0   0   000000033401 0            324000033401 
FT1A	0      033401 0   0   000000033401 0            000000033401 
FT2	0      033401 0   0   0            0            000000033401 
FT2RQ	0      033401 0   0   400000000000 0            000000033401 
FT3	0      033401 0   0   400000000000 0            000000033401 
FT9	033401 033401 0   0   400000000000 0            000000033401 
ET0	033401 033401 0   0   400000000000 0            000000033401 
ST1A	033401 033401 0   0   400000000000 0            000000033401 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 440
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0656

ST9	033401 033401 0   0   400000000000 0            000000033401 


*033401 MOVE 	0,035074
INITIAL
C(AC)=400000 000000 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033401 033401 0   0   200000035074 0            000000000001 
IT1	033401 0      0   0   200000035074 0            000000000001 
AT3	033401 0      0   0   000000035074 0            200000035074 
AT6	033401 035074 0   0   000000035074 0            200000035074 
FT0	033401 035074 0   0   000000000001 0            200000035074 
FT1A	033401 035074 0   0   000000000001 0            000000000001 
FT9	033402 035074 0   0   000000000001 0            000000000001 
ET0	033402 035074 0   0   000000000001 0            000000000001 
ST1	033402 035074 0   0   000000000001 0            000000000001 
ST2	033402 035074 0   0   000000000001 0            000000000001 
ST9	033402 035074 0   0   000000000001 0            000000000001 


*033402 XOR 	0,035062
INITIAL
C(AC)=000000 000001 
C(E)=000000 000000 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033402 033402 0   0   430000035062 0            0            
IT1	033402 0      0   0   430000035062 0            0            
AT3	033402 0      0   0   000000035062 0            430000035062 
AT6	033402 035062 0   0   000000035062 0            430000035062 
FT0	033402 035062 0   0   0            0            430000035062 
FT1A	033402 035062 0   0   0            0            0            
FT2	033402 035062 0   0   0            0            0            
FT2RQ	033402 035062 0   0   000000000001 0            0            
FT3	033402 035062 0   0   000000000001 0            0            
FT9	033403 035062 0   0   000000000001 0            0            
ET0	033403 035062 0   0   000000000001 0            0            
ST1	033403 035062 0   0   000000000001 0            0            
ST2	033403 035062 0   0   000000000001 0            0            
ST9	033403 035062 0   0   000000000001 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 441
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0657

*033403 SKIPN	0,000000
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033403 033403 0   0   336000000000 0            000000000001 
IT1	033403 0      0   0   336000000000 0            000000000001 
AT3	033403 0      0   0   0            0            336000000000 
AT6	033403 0      0   0   0            0            336000000000 
FT0	033403 0      0   0   000000000001 0            336000000000 
FT1A	033403 0      0   0   000000000001 0            000000000001 
FT9	033404 0      0   0   000000000001 0            000000000001 
ET0	033405 0      0   0   000000000001 0            000000000001 
ST1A	033405 0      0   0   000000000001 0            000000000001 
ST9	033405 0      0   0   000000000001 0            000000000001 


*033405 JUMPA	0,033406
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033405 033405 0   0   324000033406 0            000000033406 
IT1	033405 0      0   0   324000033406 0            000000033406 
AT3	033405 0      0   0   000000033406 0            324000033406 
AT6	033405 033406 0   0   000000033406 0            324000033406 
FT1A	033405 033406 0   0   000000033406 0            000000033406 
FT2	033405 033406 0   0   0            0            000000033406 
FT2RQ	033405 033406 0   0   000000000001 0            000000033406 
FT3	033405 033406 0   0   000000000001 0            000000033406 
FT9	033406 033406 0   0   000000000001 0            000000033406 
ET0	033406 033406 0   0   000000000001 0            000000033406 
ST1A	033406 033406 0   0   000000000001 0            000000033406 
ST9	033406 033406 0   0   000000000001 0            000000033406 


*033406 MOVE 	0,035075
INITIAL
C(AC)=000000 000001 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033406 033406 0   0   200000035075 0            000000000002 
IT1	033406 0      0   0   200000035075 0            000000000002 
AT3	033406 0      0   0   000000035075 0            200000035075 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 442
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0658

AT6	033406 035075 0   0   000000035075 0            200000035075 
FT0	033406 035075 0   0   000000000002 0            200000035075 
FT1A	033406 035075 0   0   000000000002 0            000000000002 
FT9	033407 035075 0   0   000000000002 0            000000000002 
ET0	033407 035075 0   0   000000000002 0            000000000002 
ST1	033407 035075 0   0   000000000002 0            000000000002 
ST2	033407 035075 0   0   000000000002 0            000000000002 
ST9	033407 035075 0   0   000000000002 0            000000000002 


*033407 XOR 	0,035062
INITIAL
C(AC)=000000 000002 
C(E)=000000 000000 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033407 033407 0   0   430000035062 0            0            
IT1	033407 0      0   0   430000035062 0            0            
AT3	033407 0      0   0   000000035062 0            430000035062 
AT6	033407 035062 0   0   000000035062 0            430000035062 
FT0	033407 035062 0   0   0            0            430000035062 
FT1A	033407 035062 0   0   0            0            0            
FT2	033407 035062 0   0   0            0            0            
FT2RQ	033407 035062 0   0   000000000002 0            0            
FT3	033407 035062 0   0   000000000002 0            0            
FT9	033410 035062 0   0   000000000002 0            0            
ET0	033410 035062 0   0   000000000002 0            0            
ST1	033410 035062 0   0   000000000002 0            0            
ST2	033410 035062 0   0   000000000002 0            0            
ST9	033410 035062 0   0   000000000002 0            0            


*033410 SKIPN	0,000000
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033410 033410 0   0   336000000000 0            000000000002 
IT1	033410 0      0   0   336000000000 0            000000000002 
AT3	033410 0      0   0   0            0            336000000000 
AT6	033410 0      0   0   0            0            336000000000 
FT0	033410 0      0   0   000000000002 0            336000000000 
FT1A	033410 0      0   0   000000000002 0            000000000002 
FT9	033411 0      0   0   000000000002 0            000000000002 
ET0	033412 0      0   0   000000000002 0            000000000002 
ST1A	033412 0      0   0   000000000002 0            000000000002 
ST9	033412 0      0   0   000000000002 0            000000000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 443
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0659



*033412 JUMPA	0,033413
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033412 033412 0   0   324000033413 0            000000033413 
IT1	033412 0      0   0   324000033413 0            000000033413 
AT3	033412 0      0   0   000000033413 0            324000033413 
AT6	033412 033413 0   0   000000033413 0            324000033413 
FT1A	033412 033413 0   0   000000033413 0            000000033413 
FT2	033412 033413 0   0   0            0            000000033413 
FT2RQ	033412 033413 0   0   000000000002 0            000000033413 
FT3	033412 033413 0   0   000000000002 0            000000033413 
FT9	033413 033413 0   0   000000000002 0            000000033413 
ET0	033413 033413 0   0   000000000002 0            000000033413 
ST1A	033413 033413 0   0   000000000002 0            000000033413 
ST9	033413 033413 0   0   000000000002 0            000000033413 


*033413 MOVE 	0,035076
INITIAL
C(AC)=000000 000002 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033413 033413 0   0   200000035076 0            000000000004 
IT1	033413 0      0   0   200000035076 0            000000000004 
AT3	033413 0      0   0   000000035076 0            200000035076 
AT6	033413 035076 0   0   000000035076 0            200000035076 
FT0	033413 035076 0   0   000000000004 0            200000035076 
FT1A	033413 035076 0   0   000000000004 0            000000000004 
FT9	033414 035076 0   0   000000000004 0            000000000004 
ET0	033414 035076 0   0   000000000004 0            000000000004 
ST1	033414 035076 0   0   000000000004 0            000000000004 
ST2	033414 035076 0   0   000000000004 0            000000000004 
ST9	033414 035076 0   0   000000000004 0            000000000004 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 444
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0660

*033414 XOR 	0,035062
INITIAL
C(AC)=000000 000004 
C(E)=000000 000000 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033414 033414 0   0   430000035062 0            0            
IT1	033414 0      0   0   430000035062 0            0            
AT3	033414 0      0   0   000000035062 0            430000035062 
AT6	033414 035062 0   0   000000035062 0            430000035062 
FT0	033414 035062 0   0   0            0            430000035062 
FT1A	033414 035062 0   0   0            0            0            
FT2	033414 035062 0   0   0            0            0            
FT2RQ	033414 035062 0   0   000000000004 0            0            
FT3	033414 035062 0   0   000000000004 0            0            
FT9	033415 035062 0   0   000000000004 0            0            
ET0	033415 035062 0   0   000000000004 0            0            
ST1	033415 035062 0   0   000000000004 0            0            
ST2	033415 035062 0   0   000000000004 0            0            
ST9	033415 035062 0   0   000000000004 0            0            


*033415 SKIPN	0,000000
INITIAL
C(AC)=000000 000004 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033415 033415 0   0   336000000000 0            000000000004 
IT1	033415 0      0   0   336000000000 0            000000000004 
AT3	033415 0      0   0   0            0            336000000000 
AT6	033415 0      0   0   0            0            336000000000 
FT0	033415 0      0   0   000000000004 0            336000000000 
FT1A	033415 0      0   0   000000000004 0            000000000004 
FT9	033416 0      0   0   000000000004 0            000000000004 
ET0	033417 0      0   0   000000000004 0            000000000004 
ST1A	033417 0      0   0   000000000004 0            000000000004 
ST9	033417 0      0   0   000000000004 0            000000000004 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 445
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0661

*033417 JUMPA	0,033420
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033417 033417 0   0   324000033420 0            000000033420 
IT1	033417 0      0   0   324000033420 0            000000033420 
AT3	033417 0      0   0   000000033420 0            324000033420 
AT6	033417 033420 0   0   000000033420 0            324000033420 
FT1A	033417 033420 0   0   000000033420 0            000000033420 
FT2	033417 033420 0   0   0            0            000000033420 
FT2RQ	033417 033420 0   0   000000000004 0            000000033420 
FT3	033417 033420 0   0   000000000004 0            000000033420 
FT9	033420 033420 0   0   000000000004 0            000000033420 
ET0	033420 033420 0   0   000000000004 0            000000033420 
ST1A	033420 033420 0   0   000000000004 0            000000033420 
ST9	033420 033420 0   0   000000000004 0            000000033420 


*033420 MOVE 	0,035077
INITIAL
C(AC)=000000 000004 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033420 033420 0   0   200000035077 0            000000000010 
IT1	033420 0      0   0   200000035077 0            000000000010 
AT3	033420 0      0   0   000000035077 0            200000035077 
AT6	033420 035077 0   0   000000035077 0            200000035077 
FT0	033420 035077 0   0   000000000010 0            200000035077 
FT1A	033420 035077 0   0   000000000010 0            000000000010 
FT9	033421 035077 0   0   000000000010 0            000000000010 
ET0	033421 035077 0   0   000000000010 0            000000000010 
ST1	033421 035077 0   0   000000000010 0            000000000010 
ST2	033421 035077 0   0   000000000010 0            000000000010 
ST9	033421 035077 0   0   000000000010 0            000000000010 


*033421 XOR 	0,035062
INITIAL
C(AC)=000000 000010 
C(E)=000000 000000 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033421 033421 0   0   430000035062 0            0            
IT1	033421 0      0   0   430000035062 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 446
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0662

AT3	033421 0      0   0   000000035062 0            430000035062 
AT6	033421 035062 0   0   000000035062 0            430000035062 
FT0	033421 035062 0   0   0            0            430000035062 
FT1A	033421 035062 0   0   0            0            0            
FT2	033421 035062 0   0   0            0            0            
FT2RQ	033421 035062 0   0   000000000010 0            0            
FT3	033421 035062 0   0   000000000010 0            0            
FT9	033422 035062 0   0   000000000010 0            0            
ET0	033422 035062 0   0   000000000010 0            0            
ST1	033422 035062 0   0   000000000010 0            0            
ST2	033422 035062 0   0   000000000010 0            0            
ST9	033422 035062 0   0   000000000010 0            0            


*033422 SKIPN	0,000000
INITIAL
C(AC)=000000 000010 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033422 033422 0   0   336000000000 0            000000000010 
IT1	033422 0      0   0   336000000000 0            000000000010 
AT3	033422 0      0   0   0            0            336000000000 
AT6	033422 0      0   0   0            0            336000000000 
FT0	033422 0      0   0   000000000010 0            336000000000 
FT1A	033422 0      0   0   000000000010 0            000000000010 
FT9	033423 0      0   0   000000000010 0            000000000010 
ET0	033424 0      0   0   000000000010 0            000000000010 
ST1A	033424 0      0   0   000000000010 0            000000000010 
ST9	033424 0      0   0   000000000010 0            000000000010 


*033424 JUMPA	0,033425
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033424 033424 0   0   324000033425 0            000000033425 
IT1	033424 0      0   0   324000033425 0            000000033425 
AT3	033424 0      0   0   000000033425 0            324000033425 
AT6	033424 033425 0   0   000000033425 0            324000033425 
FT1A	033424 033425 0   0   000000033425 0            000000033425 
FT2	033424 033425 0   0   0            0            000000033425 
FT2RQ	033424 033425 0   0   000000000010 0            000000033425 
FT3	033424 033425 0   0   000000000010 0            000000033425 
FT9	033425 033425 0   0   000000000010 0            000000033425 
ET0	033425 033425 0   0   000000000010 0            000000033425 
ST1A	033425 033425 0   0   000000000010 0            000000033425 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 447
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0663

ST9	033425 033425 0   0   000000000010 0            000000033425 


*033425 MOVE 	0,035100
INITIAL
C(AC)=000000 000010 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033425 033425 0   0   200000035100 0            000000000020 
IT1	033425 0      0   0   200000035100 0            000000000020 
AT3	033425 0      0   0   000000035100 0            200000035100 
AT6	033425 0      0   0   000000035100 0            200000035100 
FT0	033425 0      0   0   000000000020 0            200000035100 
FT1A	033425 0      0   0   000000000020 0            000000000020 
FT9	033426 0      0   0   000000000020 0            000000000020 
ET0	033426 0      0   0   000000000020 0            000000000020 
ST1	033426 0      0   0   000000000020 0            000000000020 
ST2	033426 0      0   0   000000000020 0            000000000020 
ST9	033426 0      0   0   000000000020 0            000000000020 


*033426 XOR 	0,035062
INITIAL
C(AC)=000000 000020 
C(E)=000000 000000 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033426 033426 0   0   430000035062 0            0            
IT1	033426 0      0   0   430000035062 0            0            
AT3	033426 0      0   0   000000035062 0            430000035062 
AT6	033426 035062 0   0   000000035062 0            430000035062 
FT0	033426 035062 0   0   0            0            430000035062 
FT1A	033426 035062 0   0   0            0            0            
FT2	033426 035062 0   0   0            0            0            
FT2RQ	033426 035062 0   0   000000000020 0            0            
FT3	033426 035062 0   0   000000000020 0            0            
FT9	033427 035062 0   0   000000000020 0            0            
ET0	033427 035062 0   0   000000000020 0            0            
ST1	033427 035062 0   0   000000000020 0            0            
ST2	033427 035062 0   0   000000000020 0            0            
ST9	033427 035062 0   0   000000000020 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 448
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0664

*033427 SKIPN	0,000000
INITIAL
C(AC)=000000 000020 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033427 033427 0   0   336000000000 0            000000000020 
IT1	033427 0      0   0   336000000000 0            000000000020 
AT3	033427 0      0   0   0            0            336000000000 
AT6	033427 0      0   0   0            0            336000000000 
FT0	033427 0      0   0   000000000020 0            336000000000 
FT1A	033427 0      0   0   000000000020 0            000000000020 
FT9	033430 0      0   0   000000000020 0            000000000020 
ET0	033431 0      0   0   000000000020 0            000000000020 
ST1A	033431 0      0   0   000000000020 0            000000000020 
ST9	033431 0      0   0   000000000020 0            000000000020 


*033431 JUMPA	0,033432
INITIAL
C(AC)=000000 000020 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033431 033431 0   0   324000033432 0            000000033432 
IT1	033431 0      0   0   324000033432 0            000000033432 
AT3	033431 0      0   0   000000033432 0            324000033432 
AT6	033431 033432 0   0   000000033432 0            324000033432 
FT1A	033431 033432 0   0   000000033432 0            000000033432 
FT2	033431 033432 0   0   0            0            000000033432 
FT2RQ	033431 033432 0   0   000000000020 0            000000033432 
FT3	033431 033432 0   0   000000000020 0            000000033432 
FT9	033432 033432 0   0   000000000020 0            000000033432 
ET0	033432 033432 0   0   000000000020 0            000000033432 
ST1A	033432 033432 0   0   000000000020 0            000000033432 
ST9	033432 033432 0   0   000000000020 0            000000033432 


*033432 MOVE 	0,035101
INITIAL
C(AC)=000000 000020 
C(E)=000000 000040 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033432 033432 0   0   200000035101 0            000000000040 
IT1	033432 0      0   0   200000035101 0            000000000040 
AT3	033432 0      0   0   000000035101 0            200000035101 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 449
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0665

AT6	033432 035101 0   0   000000035101 0            200000035101 
FT0	033432 035101 0   0   000000000040 0            200000035101 
FT1A	033432 035101 0   0   000000000040 0            000000000040 
FT9	033433 035101 0   0   000000000040 0            000000000040 
ET0	033433 035101 0   0   000000000040 0            000000000040 
ST1	033433 035101 0   0   000000000040 0            000000000040 
ST2	033433 035101 0   0   000000000040 0            000000000040 
ST9	033433 035101 0   0   000000000040 0            000000000040 


*033433 XOR 	0,035062
INITIAL
C(AC)=000000 000040 
C(E)=000000 000000 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033433 033433 0   0   430000035062 0            0            
IT1	033433 0      0   0   430000035062 0            0            
AT3	033433 0      0   0   000000035062 0            430000035062 
AT6	033433 035062 0   0   000000035062 0            430000035062 
FT0	033433 035062 0   0   0            0            430000035062 
FT1A	033433 035062 0   0   0            0            0            
FT2	033433 035062 0   0   0            0            0            
FT2RQ	033433 035062 0   0   000000000040 0            0            
FT3	033433 035062 0   0   000000000040 0            0            
FT9	033434 035062 0   0   000000000040 0            0            
ET0	033434 035062 0   0   000000000040 0            0            
ST1	033434 035062 0   0   000000000040 0            0            
ST2	033434 035062 0   0   000000000040 0            0            
ST9	033434 035062 0   0   000000000040 0            0            


*033434 SKIPN	0,000000
INITIAL
C(AC)=000000 000040 
C(E)=000000 000040 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033434 033434 0   0   336000000000 0            000000000040 
IT1	033434 0      0   0   336000000000 0            000000000040 
AT3	033434 0      0   0   0            0            336000000000 
AT6	033434 0      0   0   0            0            336000000000 
FT0	033434 0      0   0   000000000040 0            336000000000 
FT1A	033434 0      0   0   000000000040 0            000000000040 
FT9	033435 0      0   0   000000000040 0            000000000040 
ET0	033436 0      0   0   000000000040 0            000000000040 
ST1A	033436 0      0   0   000000000040 0            000000000040 
ST9	033436 0      0   0   000000000040 0            000000000040 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 450
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0666



*033436 JUMPA	0,033437
INITIAL
C(AC)=000000 000040 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033436 033436 0   0   324000033437 0            000000033437 
IT1	033436 0      0   0   324000033437 0            000000033437 
AT3	033436 0      0   0   000000033437 0            324000033437 
AT6	033436 033437 0   0   000000033437 0            324000033437 
FT1A	033436 033437 0   0   000000033437 0            000000033437 
FT2	033436 033437 0   0   0            0            000000033437 
FT2RQ	033436 033437 0   0   000000000040 0            000000033437 
FT3	033436 033437 0   0   000000000040 0            000000033437 
FT9	033437 033437 0   0   000000000040 0            000000033437 
ET0	033437 033437 0   0   000000000040 0            000000033437 
ST1A	033437 033437 0   0   000000000040 0            000000033437 
ST9	033437 033437 0   0   000000000040 0            000000033437 


*033437 MOVE 	0,035102
INITIAL
C(AC)=000000 000040 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033437 033437 0   0   200000035102 0            000000000100 
IT1	033437 0      0   0   200000035102 0            000000000100 
AT3	033437 0      0   0   000000035102 0            200000035102 
AT6	033437 035102 0   0   000000035102 0            200000035102 
FT0	033437 035102 0   0   000000000100 0            200000035102 
FT1A	033437 035102 0   0   000000000100 0            000000000100 
FT9	033440 035102 0   0   000000000100 0            000000000100 
ET0	033440 035102 0   0   000000000100 0            000000000100 
ST1	033440 035102 0   0   000000000100 0            000000000100 
ST2	033440 035102 0   0   000000000100 0            000000000100 
ST9	033440 035102 0   0   000000000100 0            000000000100 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 451
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0667

*033440 XOR 	0,035062
INITIAL
C(AC)=000000 000100 
C(E)=000000 000000 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033440 033440 0   0   430000035062 0            0            
IT1	033440 0      0   0   430000035062 0            0            
AT3	033440 0      0   0   000000035062 0            430000035062 
AT6	033440 035062 0   0   000000035062 0            430000035062 
FT0	033440 035062 0   0   0            0            430000035062 
FT1A	033440 035062 0   0   0            0            0            
FT2	033440 035062 0   0   0            0            0            
FT2RQ	033440 035062 0   0   000000000100 0            0            
FT3	033440 035062 0   0   000000000100 0            0            
FT9	033441 035062 0   0   000000000100 0            0            
ET0	033441 035062 0   0   000000000100 0            0            
ST1	033441 035062 0   0   000000000100 0            0            
ST2	033441 035062 0   0   000000000100 0            0            
ST9	033441 035062 0   0   000000000100 0            0            


*033441 SKIPN	0,000000
INITIAL
C(AC)=000000 000100 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033441 033441 0   0   336000000000 0            000000000100 
IT1	033441 0      0   0   336000000000 0            000000000100 
AT3	033441 0      0   0   0            0            336000000000 
AT6	033441 0      0   0   0            0            336000000000 
FT0	033441 0      0   0   000000000100 0            336000000000 
FT1A	033441 0      0   0   000000000100 0            000000000100 
FT9	033442 0      0   0   000000000100 0            000000000100 
ET0	033443 0      0   0   000000000100 0            000000000100 
ST1A	033443 0      0   0   000000000100 0            000000000100 
ST9	033443 0      0   0   000000000100 0            000000000100 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 452
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0668

*033443 JUMPA	0,033444
INITIAL
C(AC)=000000 000100 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033443 033443 0   0   324000033444 0            000000033444 
IT1	033443 0      0   0   324000033444 0            000000033444 
AT3	033443 0      0   0   000000033444 0            324000033444 
AT6	033443 033444 0   0   000000033444 0            324000033444 
FT1A	033443 033444 0   0   000000033444 0            000000033444 
FT2	033443 033444 0   0   0            0            000000033444 
FT2RQ	033443 033444 0   0   000000000100 0            000000033444 
FT3	033443 033444 0   0   000000000100 0            000000033444 
FT9	033444 033444 0   0   000000000100 0            000000033444 
ET0	033444 033444 0   0   000000000100 0            000000033444 
ST1A	033444 033444 0   0   000000000100 0            000000033444 
ST9	033444 033444 0   0   000000000100 0            000000033444 


*033444 MOVE 	0,035103
INITIAL
C(AC)=000000 000100 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033444 033444 0   0   200000035103 0            000000000200 
IT1	033444 0      0   0   200000035103 0            000000000200 
AT3	033444 0      0   0   000000035103 0            200000035103 
AT6	033444 035103 0   0   000000035103 0            200000035103 
FT0	033444 035103 0   0   000000000200 0            200000035103 
FT1A	033444 035103 0   0   000000000200 0            000000000200 
FT9	033445 035103 0   0   000000000200 0            000000000200 
ET0	033445 035103 0   0   000000000200 0            000000000200 
ST1	033445 035103 0   0   000000000200 0            000000000200 
ST2	033445 035103 0   0   000000000200 0            000000000200 
ST9	033445 035103 0   0   000000000200 0            000000000200 


*033445 XOR 	0,035062
INITIAL
C(AC)=000000 000200 
C(E)=000000 000000 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033445 033445 0   0   430000035062 0            0            
IT1	033445 0      0   0   430000035062 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 453
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0669

AT3	033445 0      0   0   000000035062 0            430000035062 
AT6	033445 035062 0   0   000000035062 0            430000035062 
FT0	033445 035062 0   0   0            0            430000035062 
FT1A	033445 035062 0   0   0            0            0            
FT2	033445 035062 0   0   0            0            0            
FT2RQ	033445 035062 0   0   000000000200 0            0            
FT3	033445 035062 0   0   000000000200 0            0            
FT9	033446 035062 0   0   000000000200 0            0            
ET0	033446 035062 0   0   000000000200 0            0            
ST1	033446 035062 0   0   000000000200 0            0            
ST2	033446 035062 0   0   000000000200 0            0            
ST9	033446 035062 0   0   000000000200 0            0            


*033446 SKIPN	0,000000
INITIAL
C(AC)=000000 000200 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033446 033446 0   0   336000000000 0            000000000200 
IT1	033446 0      0   0   336000000000 0            000000000200 
AT3	033446 0      0   0   0            0            336000000000 
AT6	033446 0      0   0   0            0            336000000000 
FT0	033446 0      0   0   000000000200 0            336000000000 
FT1A	033446 0      0   0   000000000200 0            000000000200 
FT9	033447 0      0   0   000000000200 0            000000000200 
ET0	033450 0      0   0   000000000200 0            000000000200 
ST1A	033450 0      0   0   000000000200 0            000000000200 
ST9	033450 0      0   0   000000000200 0            000000000200 


*033450 JUMPA	0,033451
INITIAL
C(AC)=000000 000200 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033450 033450 0   0   324000033451 0            000000033451 
IT1	033450 0      0   0   324000033451 0            000000033451 
AT3	033450 0      0   0   000000033451 0            324000033451 
AT6	033450 033451 0   0   000000033451 0            324000033451 
FT1A	033450 033451 0   0   000000033451 0            000000033451 
FT2	033450 033451 0   0   0            0            000000033451 
FT2RQ	033450 033451 0   0   000000000200 0            000000033451 
FT3	033450 033451 0   0   000000000200 0            000000033451 
FT9	033451 033451 0   0   000000000200 0            000000033451 
ET0	033451 033451 0   0   000000000200 0            000000033451 
ST1A	033451 033451 0   0   000000000200 0            000000033451 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 454
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0670

ST9	033451 033451 0   0   000000000200 0            000000033451 


*033451 MOVE 	0,035104
INITIAL
C(AC)=000000 000200 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033451 033451 0   0   200000035104 0            000000000400 
IT1	033451 0      0   0   200000035104 0            000000000400 
AT3	033451 0      0   0   000000035104 0            200000035104 
AT6	033451 035104 0   0   000000035104 0            200000035104 
FT0	033451 035104 0   0   000000000400 0            200000035104 
FT1A	033451 035104 0   0   000000000400 0            000000000400 
FT9	033452 035104 0   0   000000000400 0            000000000400 
ET0	033452 035104 0   0   000000000400 0            000000000400 
ST1	033452 035104 0   0   000000000400 0            000000000400 
ST2	033452 035104 0   0   000000000400 0            000000000400 
ST9	033452 035104 0   0   000000000400 0            000000000400 


*033452 XOR 	0,035062
INITIAL
C(AC)=000000 000400 
C(E)=000000 000000 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033452 033452 0   0   430000035062 0            0            
IT1	033452 0      0   0   430000035062 0            0            
AT3	033452 0      0   0   000000035062 0            430000035062 
AT6	033452 035062 0   0   000000035062 0            430000035062 
FT0	033452 035062 0   0   0            0            430000035062 
FT1A	033452 035062 0   0   0            0            0            
FT2	033452 035062 0   0   0            0            0            
FT2RQ	033452 035062 0   0   000000000400 0            0            
FT3	033452 035062 0   0   000000000400 0            0            
FT9	033453 035062 0   0   000000000400 0            0            
ET0	033453 035062 0   0   000000000400 0            0            
ST1	033453 035062 0   0   000000000400 0            0            
ST2	033453 035062 0   0   000000000400 0            0            
ST9	033453 035062 0   0   000000000400 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 455
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0671

*033453 SKIPN	0,000000
INITIAL
C(AC)=000000 000400 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033453 033453 0   0   336000000000 0            000000000400 
IT1	033453 0      0   0   336000000000 0            000000000400 
AT3	033453 0      0   0   0            0            336000000000 
AT6	033453 0      0   0   0            0            336000000000 
FT0	033453 0      0   0   000000000400 0            336000000000 
FT1A	033453 0      0   0   000000000400 0            000000000400 
FT9	033454 0      0   0   000000000400 0            000000000400 
ET0	033455 0      0   0   000000000400 0            000000000400 
ST1A	033455 0      0   0   000000000400 0            000000000400 
ST9	033455 0      0   0   000000000400 0            000000000400 


*033455 JUMPA	0,033456
INITIAL
C(AC)=000000 000400 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033455 033455 0   0   324000033456 0            000000033456 
IT1	033455 0      0   0   324000033456 0            000000033456 
AT3	033455 0      0   0   000000033456 0            324000033456 
AT6	033455 033456 0   0   000000033456 0            324000033456 
FT1A	033455 033456 0   0   000000033456 0            000000033456 
FT2	033455 033456 0   0   0            0            000000033456 
FT2RQ	033455 033456 0   0   000000000400 0            000000033456 
FT3	033455 033456 0   0   000000000400 0            000000033456 
FT9	033456 033456 0   0   000000000400 0            000000033456 
ET0	033456 033456 0   0   000000000400 0            000000033456 
ST1A	033456 033456 0   0   000000000400 0            000000033456 
ST9	033456 033456 0   0   000000000400 0            000000033456 


*033456 MOVE 	0,035105
INITIAL
C(AC)=000000 000400 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033456 033456 0   0   200000035105 0            000000001000 
IT1	033456 0      0   0   200000035105 0            000000001000 
AT3	033456 0      0   0   000000035105 0            200000035105 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 456
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0672

AT6	033456 035105 0   0   000000035105 0            200000035105 
FT0	033456 035105 0   0   000000001000 0            200000035105 
FT1A	033456 035105 0   0   000000001000 0            000000001000 
FT9	033457 035105 0   0   000000001000 0            000000001000 
ET0	033457 035105 0   0   000000001000 0            000000001000 
ST1	033457 035105 0   0   000000001000 0            000000001000 
ST2	033457 035105 0   0   000000001000 0            000000001000 
ST9	033457 035105 0   0   000000001000 0            000000001000 


*033457 XOR 	0,035062
INITIAL
C(AC)=000000 001000 
C(E)=000000 000000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033457 033457 0   0   430000035062 0            0            
IT1	033457 0      0   0   430000035062 0            0            
AT3	033457 0      0   0   000000035062 0            430000035062 
AT6	033457 035062 0   0   000000035062 0            430000035062 
FT0	033457 035062 0   0   0            0            430000035062 
FT1A	033457 035062 0   0   0            0            0            
FT2	033457 035062 0   0   0            0            0            
FT2RQ	033457 035062 0   0   000000001000 0            0            
FT3	033457 035062 0   0   000000001000 0            0            
FT9	033460 035062 0   0   000000001000 0            0            
ET0	033460 035062 0   0   000000001000 0            0            
ST1	033460 035062 0   0   000000001000 0            0            
ST2	033460 035062 0   0   000000001000 0            0            
ST9	033460 035062 0   0   000000001000 0            0            


*033460 SKIPN	0,000000
INITIAL
C(AC)=000000 001000 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033460 033460 0   0   336000000000 0            000000001000 
IT1	033460 0      0   0   336000000000 0            000000001000 
AT3	033460 0      0   0   0            0            336000000000 
AT6	033460 0      0   0   0            0            336000000000 
FT0	033460 0      0   0   000000001000 0            336000000000 
FT1A	033460 0      0   0   000000001000 0            000000001000 
FT9	033461 0      0   0   000000001000 0            000000001000 
ET0	033462 0      0   0   000000001000 0            000000001000 
ST1A	033462 0      0   0   000000001000 0            000000001000 
ST9	033462 0      0   0   000000001000 0            000000001000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 457
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0673



*033462 JUMPA	0,033463
INITIAL
C(AC)=000000 001000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033462 033462 0   0   324000033463 0            000000033463 
IT1	033462 0      0   0   324000033463 0            000000033463 
AT3	033462 0      0   0   000000033463 0            324000033463 
AT6	033462 033463 0   0   000000033463 0            324000033463 
FT1A	033462 033463 0   0   000000033463 0            000000033463 
FT2	033462 033463 0   0   0            0            000000033463 
FT2RQ	033462 033463 0   0   000000001000 0            000000033463 
FT3	033462 033463 0   0   000000001000 0            000000033463 
FT9	033463 033463 0   0   000000001000 0            000000033463 
ET0	033463 033463 0   0   000000001000 0            000000033463 
ST1A	033463 033463 0   0   000000001000 0            000000033463 
ST9	033463 033463 0   0   000000001000 0            000000033463 


*033463 MOVE 	0,035106
INITIAL
C(AC)=000000 001000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033463 033463 0   0   200000035106 0            000000002000 
IT1	033463 0      0   0   200000035106 0            000000002000 
AT3	033463 0      0   0   000000035106 0            200000035106 
AT6	033463 035106 0   0   000000035106 0            200000035106 
FT0	033463 035106 0   0   000000002000 0            200000035106 
FT1A	033463 035106 0   0   000000002000 0            000000002000 
FT9	033464 035106 0   0   000000002000 0            000000002000 
ET0	033464 035106 0   0   000000002000 0            000000002000 
ST1	033464 035106 0   0   000000002000 0            000000002000 
ST2	033464 035106 0   0   000000002000 0            000000002000 
ST9	033464 035106 0   0   000000002000 0            000000002000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 458
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0674

*033464 XOR 	0,035062
INITIAL
C(AC)=000000 002000 
C(E)=000000 000000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033464 033464 0   0   430000035062 0            0            
IT1	033464 0      0   0   430000035062 0            0            
AT3	033464 0      0   0   000000035062 0            430000035062 
AT6	033464 035062 0   0   000000035062 0            430000035062 
FT0	033464 035062 0   0   0            0            430000035062 
FT1A	033464 035062 0   0   0            0            0            
FT2	033464 035062 0   0   0            0            0            
FT2RQ	033464 035062 0   0   000000002000 0            0            
FT3	033464 035062 0   0   000000002000 0            0            
FT9	033465 035062 0   0   000000002000 0            0            
ET0	033465 035062 0   0   000000002000 0            0            
ST1	033465 035062 0   0   000000002000 0            0            
ST2	033465 035062 0   0   000000002000 0            0            
ST9	033465 035062 0   0   000000002000 0            0            


*033465 SKIPN	0,000000
INITIAL
C(AC)=000000 002000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033465 033465 0   0   336000000000 0            000000002000 
IT1	033465 0      0   0   336000000000 0            000000002000 
AT3	033465 0      0   0   0            0            336000000000 
AT6	033465 0      0   0   0            0            336000000000 
FT0	033465 0      0   0   000000002000 0            336000000000 
FT1A	033465 0      0   0   000000002000 0            000000002000 
FT9	033466 0      0   0   000000002000 0            000000002000 
ET0	033467 0      0   0   000000002000 0            000000002000 
ST1A	033467 0      0   0   000000002000 0            000000002000 
ST9	033467 0      0   0   000000002000 0            000000002000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 459
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0675

*033467 JUMPA	0,033470
INITIAL
C(AC)=000000 002000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033467 033467 0   0   324000033470 0            000000033470 
IT1	033467 0      0   0   324000033470 0            000000033470 
AT3	033467 0      0   0   000000033470 0            324000033470 
AT6	033467 033470 0   0   000000033470 0            324000033470 
FT1A	033467 033470 0   0   000000033470 0            000000033470 
FT2	033467 033470 0   0   0            0            000000033470 
FT2RQ	033467 033470 0   0   000000002000 0            000000033470 
FT3	033467 033470 0   0   000000002000 0            000000033470 
FT9	033470 033470 0   0   000000002000 0            000000033470 
ET0	033470 033470 0   0   000000002000 0            000000033470 
ST1A	033470 033470 0   0   000000002000 0            000000033470 
ST9	033470 033470 0   0   000000002000 0            000000033470 


*033470 MOVE 	0,035107
INITIAL
C(AC)=000000 002000 
C(E)=000000 004000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033470 033470 0   0   200000035107 0            000000004000 
IT1	033470 0      0   0   200000035107 0            000000004000 
AT3	033470 0      0   0   000000035107 0            200000035107 
AT6	033470 035107 0   0   000000035107 0            200000035107 
FT0	033470 035107 0   0   000000004000 0            200000035107 
FT1A	033470 035107 0   0   000000004000 0            000000004000 
FT9	033471 035107 0   0   000000004000 0            000000004000 
ET0	033471 035107 0   0   000000004000 0            000000004000 
ST1	033471 035107 0   0   000000004000 0            000000004000 
ST2	033471 035107 0   0   000000004000 0            000000004000 
ST9	033471 035107 0   0   000000004000 0            000000004000 


*033471 XOR 	0,035062
INITIAL
C(AC)=000000 004000 
C(E)=000000 000000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033471 033471 0   0   430000035062 0            0            
IT1	033471 0      0   0   430000035062 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 460
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0676

AT3	033471 0      0   0   000000035062 0            430000035062 
AT6	033471 035062 0   0   000000035062 0            430000035062 
FT0	033471 035062 0   0   0            0            430000035062 
FT1A	033471 035062 0   0   0            0            0            
FT2	033471 035062 0   0   0            0            0            
FT2RQ	033471 035062 0   0   000000004000 0            0            
FT3	033471 035062 0   0   000000004000 0            0            
FT9	033472 035062 0   0   000000004000 0            0            
ET0	033472 035062 0   0   000000004000 0            0            
ST1	033472 035062 0   0   000000004000 0            0            
ST2	033472 035062 0   0   000000004000 0            0            
ST9	033472 035062 0   0   000000004000 0            0            


*033472 SKIPN	0,000000
INITIAL
C(AC)=000000 004000 
C(E)=000000 004000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033472 033472 0   0   336000000000 0            000000004000 
IT1	033472 0      0   0   336000000000 0            000000004000 
AT3	033472 0      0   0   0            0            336000000000 
AT6	033472 0      0   0   0            0            336000000000 
FT0	033472 0      0   0   000000004000 0            336000000000 
FT1A	033472 0      0   0   000000004000 0            000000004000 
FT9	033473 0      0   0   000000004000 0            000000004000 
ET0	033474 0      0   0   000000004000 0            000000004000 
ST1A	033474 0      0   0   000000004000 0            000000004000 
ST9	033474 0      0   0   000000004000 0            000000004000 


*033474 JUMPA	0,033475
INITIAL
C(AC)=000000 004000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033474 033474 0   0   324000033475 0            000000033475 
IT1	033474 0      0   0   324000033475 0            000000033475 
AT3	033474 0      0   0   000000033475 0            324000033475 
AT6	033474 033475 0   0   000000033475 0            324000033475 
FT1A	033474 033475 0   0   000000033475 0            000000033475 
FT2	033474 033475 0   0   0            0            000000033475 
FT2RQ	033474 033475 0   0   000000004000 0            000000033475 
FT3	033474 033475 0   0   000000004000 0            000000033475 
FT9	033475 033475 0   0   000000004000 0            000000033475 
ET0	033475 033475 0   0   000000004000 0            000000033475 
ST1A	033475 033475 0   0   000000004000 0            000000033475 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 461
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0677

ST9	033475 033475 0   0   000000004000 0            000000033475 


*033475 MOVE 	0,035110
INITIAL
C(AC)=000000 004000 
C(E)=000000 010000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033475 033475 0   0   200000035110 0            000000010000 
IT1	033475 0      0   0   200000035110 0            000000010000 
AT3	033475 0      0   0   000000035110 0            200000035110 
AT6	033475 035110 0   0   000000035110 0            200000035110 
FT0	033475 035110 0   0   000000010000 0            200000035110 
FT1A	033475 035110 0   0   000000010000 0            000000010000 
FT9	033476 035110 0   0   000000010000 0            000000010000 
ET0	033476 035110 0   0   000000010000 0            000000010000 
ST1	033476 035110 0   0   000000010000 0            000000010000 
ST2	033476 035110 0   0   000000010000 0            000000010000 
ST9	033476 035110 0   0   000000010000 0            000000010000 


*033476 XOR 	0,035062
INITIAL
C(AC)=000000 010000 
C(E)=000000 000000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033476 033476 0   0   430000035062 0            0            
IT1	033476 0      0   0   430000035062 0            0            
AT3	033476 0      0   0   000000035062 0            430000035062 
AT6	033476 035062 0   0   000000035062 0            430000035062 
FT0	033476 035062 0   0   0            0            430000035062 
FT1A	033476 035062 0   0   0            0            0            
FT2	033476 035062 0   0   0            0            0            
FT2RQ	033476 035062 0   0   000000010000 0            0            
FT3	033476 035062 0   0   000000010000 0            0            
FT9	033477 035062 0   0   000000010000 0            0            
ET0	033477 035062 0   0   000000010000 0            0            
ST1	033477 035062 0   0   000000010000 0            0            
ST2	033477 035062 0   0   000000010000 0            0            
ST9	033477 035062 0   0   000000010000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 462
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0678

*033477 SKIPN	0,000000
INITIAL
C(AC)=000000 010000 
C(E)=000000 010000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033477 033477 0   0   336000000000 0            000000010000 
IT1	033477 0      0   0   336000000000 0            000000010000 
AT3	033477 0      0   0   0            0            336000000000 
AT6	033477 0      0   0   0            0            336000000000 
FT0	033477 0      0   0   000000010000 0            336000000000 
FT1A	033477 0      0   0   000000010000 0            000000010000 
FT9	0      0      0   0   000000010000 0            000000010000 
ET0	033501 0      0   0   000000010000 0            000000010000 
ST1A	033501 0      0   0   000000010000 0            000000010000 
ST9	033501 0      0   0   000000010000 0            000000010000 


*033501 JUMPA	0,033502
INITIAL
C(AC)=000000 010000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033501 033501 0   0   324000033502 0            000000033502 
IT1	033501 0      0   0   324000033502 0            000000033502 
AT3	033501 0      0   0   000000033502 0            324000033502 
AT6	033501 033502 0   0   000000033502 0            324000033502 
FT1A	033501 033502 0   0   000000033502 0            000000033502 
FT2	033501 033502 0   0   0            0            000000033502 
FT2RQ	033501 033502 0   0   000000010000 0            000000033502 
FT3	033501 033502 0   0   000000010000 0            000000033502 
FT9	033502 033502 0   0   000000010000 0            000000033502 
ET0	033502 033502 0   0   000000010000 0            000000033502 
ST1A	033502 033502 0   0   000000010000 0            000000033502 
ST9	033502 033502 0   0   000000010000 0            000000033502 


*033502 MOVE 	0,035111
INITIAL
C(AC)=000000 010000 
C(E)=000000 020000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033502 033502 0   0   200000035111 0            000000020000 
IT1	033502 0      0   0   200000035111 0            000000020000 
AT3	033502 0      0   0   000000035111 0            200000035111 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 463
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0679

AT6	033502 035111 0   0   000000035111 0            200000035111 
FT0	033502 035111 0   0   000000020000 0            200000035111 
FT1A	033502 035111 0   0   000000020000 0            000000020000 
FT9	033503 035111 0   0   000000020000 0            000000020000 
ET0	033503 035111 0   0   000000020000 0            000000020000 
ST1	033503 035111 0   0   000000020000 0            000000020000 
ST2	033503 035111 0   0   000000020000 0            000000020000 
ST9	033503 035111 0   0   000000020000 0            000000020000 


*033503 XOR 	0,035062
INITIAL
C(AC)=000000 020000 
C(E)=000000 000000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033503 033503 0   0   430000035062 0            0            
IT1	033503 0      0   0   430000035062 0            0            
AT3	033503 0      0   0   000000035062 0            430000035062 
AT6	033503 035062 0   0   000000035062 0            430000035062 
FT0	033503 035062 0   0   0            0            430000035062 
FT1A	033503 035062 0   0   0            0            0            
FT2	033503 035062 0   0   0            0            0            
FT2RQ	033503 035062 0   0   000000020000 0            0            
FT3	033503 035062 0   0   000000020000 0            0            
FT9	033504 035062 0   0   000000020000 0            0            
ET0	033504 035062 0   0   000000020000 0            0            
ST1	033504 035062 0   0   000000020000 0            0            
ST2	033504 035062 0   0   000000020000 0            0            
ST9	033504 035062 0   0   000000020000 0            0            


*033504 SKIPN	0,000000
INITIAL
C(AC)=000000 020000 
C(E)=000000 020000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033504 033504 0   0   336000000000 0            000000020000 
IT1	033504 0      0   0   336000000000 0            000000020000 
AT3	033504 0      0   0   0            0            336000000000 
AT6	033504 0      0   0   0            0            336000000000 
FT0	033504 0      0   0   000000020000 0            336000000000 
FT1A	033504 0      0   0   000000020000 0            000000020000 
FT9	033505 0      0   0   000000020000 0            000000020000 
ET0	033506 0      0   0   000000020000 0            000000020000 
ST1A	033506 0      0   0   000000020000 0            000000020000 
ST9	033506 0      0   0   000000020000 0            000000020000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 464
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0680



*033506 JUMPA	0,033507
INITIAL
C(AC)=000000 020000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033506 033506 0   0   324000033507 0            000000033507 
IT1	033506 0      0   0   324000033507 0            000000033507 
AT3	033506 0      0   0   000000033507 0            324000033507 
AT6	033506 033507 0   0   000000033507 0            324000033507 
FT1A	033506 033507 0   0   000000033507 0            000000033507 
FT2	033506 033507 0   0   0            0            000000033507 
FT2RQ	033506 033507 0   0   000000020000 0            000000033507 
FT3	033506 033507 0   0   000000020000 0            000000033507 
FT9	033507 033507 0   0   000000020000 0            000000033507 
ET0	033507 033507 0   0   000000020000 0            000000033507 
ST1A	033507 033507 0   0   000000020000 0            000000033507 
ST9	033507 033507 0   0   000000020000 0            000000033507 


*033507 MOVE 	0,035112
INITIAL
C(AC)=000000 020000 
C(E)=000000 040000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033507 033507 0   0   200000035112 0            000000040000 
IT1	033507 0      0   0   200000035112 0            000000040000 
AT3	033507 0      0   0   000000035112 0            200000035112 
AT6	033507 035112 0   0   000000035112 0            200000035112 
FT0	033507 035112 0   0   000000040000 0            200000035112 
FT1A	033507 035112 0   0   000000040000 0            000000040000 
FT9	033510 035112 0   0   000000040000 0            000000040000 
ET0	033510 035112 0   0   000000040000 0            000000040000 
ST1	033510 035112 0   0   000000040000 0            000000040000 
ST2	033510 035112 0   0   000000040000 0            000000040000 
ST9	033510 035112 0   0   000000040000 0            000000040000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 465
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0681

*033510 XOR 	0,035062
INITIAL
C(AC)=000000 040000 
C(E)=000000 000000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033510 033510 0   0   430000035062 0            0            
IT1	033510 0      0   0   430000035062 0            0            
AT3	033510 0      0   0   000000035062 0            430000035062 
AT6	033510 035062 0   0   000000035062 0            430000035062 
FT0	033510 035062 0   0   0            0            430000035062 
FT1A	033510 035062 0   0   0            0            0            
FT2	033510 035062 0   0   0            0            0            
FT2RQ	033510 035062 0   0   000000040000 0            0            
FT3	033510 035062 0   0   000000040000 0            0            
FT9	033511 035062 0   0   000000040000 0            0            
ET0	033511 035062 0   0   000000040000 0            0            
ST1	033511 035062 0   0   000000040000 0            0            
ST2	033511 035062 0   0   000000040000 0            0            
ST9	033511 035062 0   0   000000040000 0            0            


*033511 SKIPN	0,000000
INITIAL
C(AC)=000000 040000 
C(E)=000000 040000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033511 033511 0   0   336000000000 0            000000040000 
IT1	033511 0      0   0   336000000000 0            000000040000 
AT3	033511 0      0   0   0            0            336000000000 
AT6	033511 0      0   0   0            0            336000000000 
FT0	033511 0      0   0   000000040000 0            336000000000 
FT1A	033511 0      0   0   000000040000 0            000000040000 
FT9	033512 0      0   0   000000040000 0            000000040000 
ET0	033513 0      0   0   000000040000 0            000000040000 
ST1A	033513 0      0   0   000000040000 0            000000040000 
ST9	033513 0      0   0   000000040000 0            000000040000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 466
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0682

*033513 JUMPA	0,033514
INITIAL
C(AC)=000000 040000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033513 033513 0   0   324000033514 0            000000033514 
IT1	033513 0      0   0   324000033514 0            000000033514 
AT3	033513 0      0   0   000000033514 0            324000033514 
AT6	033513 033514 0   0   000000033514 0            324000033514 
FT1A	033513 033514 0   0   000000033514 0            000000033514 
FT2	033513 033514 0   0   0            0            000000033514 
FT2RQ	033513 033514 0   0   000000040000 0            000000033514 
FT3	033513 033514 0   0   000000040000 0            000000033514 
FT9	033514 033514 0   0   000000040000 0            000000033514 
ET0	033514 033514 0   0   000000040000 0            000000033514 
ST1A	033514 033514 0   0   000000040000 0            000000033514 
ST9	033514 033514 0   0   000000040000 0            000000033514 


*033514 MOVE 	0,035113
INITIAL
C(AC)=000000 040000 
C(E)=000000 100000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033514 033514 0   0   200000035113 0            000000100000 
IT1	033514 0      0   0   200000035113 0            000000100000 
AT3	033514 0      0   0   000000035113 0            200000035113 
AT6	033514 035113 0   0   000000035113 0            200000035113 
FT0	033514 035113 0   0   000000100000 0            200000035113 
FT1A	033514 035113 0   0   000000100000 0            000000100000 
FT9	033515 035113 0   0   000000100000 0            000000100000 
ET0	033515 035113 0   0   000000100000 0            000000100000 
ST1	033515 035113 0   0   000000100000 0            000000100000 
ST2	033515 035113 0   0   000000100000 0            000000100000 
ST9	033515 035113 0   0   000000100000 0            000000100000 


*033515 XOR 	0,035062
INITIAL
C(AC)=000000 100000 
C(E)=000000 000000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033515 033515 0   0   430000035062 0            0            
IT1	033515 0      0   0   430000035062 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 467
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0683

AT3	033515 0      0   0   000000035062 0            430000035062 
AT6	033515 035062 0   0   000000035062 0            430000035062 
FT0	033515 035062 0   0   0            0            430000035062 
FT1A	033515 035062 0   0   0            0            0            
FT2	033515 035062 0   0   0            0            0            
FT2RQ	033515 035062 0   0   000000100000 0            0            
FT3	033515 035062 0   0   000000100000 0            0            
FT9	033516 035062 0   0   000000100000 0            0            
ET0	033516 035062 0   0   000000100000 0            0            
ST1	033516 035062 0   0   000000100000 0            0            
ST2	033516 035062 0   0   000000100000 0            0            
ST9	033516 035062 0   0   000000100000 0            0            


*033516 SKIPN	0,000000
INITIAL
C(AC)=000000 100000 
C(E)=000000 100000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033516 033516 0   0   336000000000 0            000000100000 
IT1	033516 0      0   0   336000000000 0            000000100000 
AT3	033516 0      0   0   0            0            336000000000 
AT6	033516 0      0   0   0            0            336000000000 
FT0	033516 0      0   0   000000100000 0            336000000000 
FT1A	033516 0      0   0   000000100000 0            000000100000 
FT9	033517 0      0   0   000000100000 0            000000100000 
ET0	033520 0      0   0   000000100000 0            000000100000 
ST1A	033520 0      0   0   000000100000 0            000000100000 
ST9	033520 0      0   0   000000100000 0            000000100000 


*033520 JUMPA	0,033521
INITIAL
C(AC)=000000 100000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033520 033520 0   0   324000033521 0            000000033521 
IT1	033520 0      0   0   324000033521 0            000000033521 
AT3	033520 0      0   0   000000033521 0            324000033521 
AT6	033520 033521 0   0   000000033521 0            324000033521 
FT1A	033520 033521 0   0   000000033521 0            000000033521 
FT2	033520 033521 0   0   0            0            000000033521 
FT2RQ	033520 033521 0   0   000000100000 0            000000033521 
FT3	033520 033521 0   0   000000100000 0            000000033521 
FT9	033521 033521 0   0   000000100000 0            000000033521 
ET0	033521 033521 0   0   000000100000 0            000000033521 
ST1A	033521 033521 0   0   000000100000 0            000000033521 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 468
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0684

ST9	033521 033521 0   0   000000100000 0            000000033521 


*033521 MOVE 	0,035114
INITIAL
C(AC)=000000 100000 
C(E)=000000 200000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033521 033521 0   0   200000035114 0            000000200000 
IT1	033521 0      0   0   200000035114 0            000000200000 
AT3	033521 0      0   0   000000035114 0            200000035114 
AT6	033521 035114 0   0   000000035114 0            200000035114 
FT0	033521 035114 0   0   000000200000 0            200000035114 
FT1A	033521 035114 0   0   000000200000 0            000000200000 
FT9	033522 035114 0   0   000000200000 0            000000200000 
ET0	033522 035114 0   0   000000200000 0            000000200000 
ST1	033522 035114 0   0   000000200000 0            000000200000 
ST2	033522 035114 0   0   000000200000 0            000000200000 
ST9	033522 035114 0   0   000000200000 0            000000200000 


*033522 XOR 	0,035062
INITIAL
C(AC)=000000 200000 
C(E)=000000 000000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033522 033522 0   0   430000035062 0            0            
IT1	033522 0      0   0   430000035062 0            0            
AT3	033522 0      0   0   000000035062 0            430000035062 
AT6	033522 035062 0   0   000000035062 0            430000035062 
FT0	033522 035062 0   0   0            0            430000035062 
FT1A	033522 035062 0   0   0            0            0            
FT2	033522 035062 0   0   0            0            0            
FT2RQ	033522 035062 0   0   000000200000 0            0            
FT3	033522 035062 0   0   000000200000 0            0            
FT9	033523 035062 0   0   000000200000 0            0            
ET0	033523 035062 0   0   000000200000 0            0            
ST1	033523 035062 0   0   000000200000 0            0            
ST2	033523 035062 0   0   000000200000 0            0            
ST9	033523 035062 0   0   000000200000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 469
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0685

*033523 SKIPN	0,000000
INITIAL
C(AC)=000000 200000 
C(E)=000000 200000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033523 033523 0   0   336000000000 0            000000200000 
IT1	033523 0      0   0   336000000000 0            000000200000 
AT3	033523 0      0   0   0            0            336000000000 
AT6	033523 0      0   0   0            0            336000000000 
FT0	033523 0      0   0   000000200000 0            336000000000 
FT1A	033523 0      0   0   000000200000 0            000000200000 
FT9	033524 0      0   0   000000200000 0            000000200000 
ET0	033525 0      0   0   000000200000 0            000000200000 
ST1A	033525 0      0   0   000000200000 0            000000200000 
ST9	033525 0      0   0   000000200000 0            000000200000 


*033525 JUMPA	0,033526
INITIAL
C(AC)=000000 200000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033525 033525 0   0   324000033526 0            000000033526 
IT1	033525 0      0   0   324000033526 0            000000033526 
AT3	033525 0      0   0   000000033526 0            324000033526 
AT6	033525 033526 0   0   000000033526 0            324000033526 
FT1A	033525 033526 0   0   000000033526 0            000000033526 
FT2	033525 033526 0   0   0            0            000000033526 
FT2RQ	033525 033526 0   0   000000200000 0            000000033526 
FT3	033525 033526 0   0   000000200000 0            000000033526 
FT9	033526 033526 0   0   000000200000 0            000000033526 
ET0	033526 033526 0   0   000000200000 0            000000033526 
ST1A	033526 033526 0   0   000000200000 0            000000033526 
ST9	033526 033526 0   0   000000200000 0            000000033526 


*033526 MOVE 	0,035115
INITIAL
C(AC)=000000 200000 
C(E)=000000 400000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033526 033526 0   0   200000035115 0            000000400000 
IT1	033526 0      0   0   200000035115 0            000000400000 
AT3	033526 0      0   0   000000035115 0            200000035115 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 470
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0686

AT6	033526 035115 0   0   000000035115 0            200000035115 
FT0	033526 035115 0   0   000000400000 0            200000035115 
FT1A	033526 035115 0   0   000000400000 0            000000400000 
FT9	033527 035115 0   0   000000400000 0            000000400000 
ET0	033527 035115 0   0   000000400000 0            000000400000 
ST1	033527 035115 0   0   000000400000 0            000000400000 
ST2	033527 035115 0   0   000000400000 0            000000400000 
ST9	033527 035115 0   0   000000400000 0            000000400000 


*033527 XOR 	0,035062
INITIAL
C(AC)=000000 400000 
C(E)=000000 000000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033527 033527 0   0   430000035062 0            0            
IT1	033527 0      0   0   430000035062 0            0            
AT3	033527 0      0   0   000000035062 0            430000035062 
AT6	033527 035062 0   0   000000035062 0            430000035062 
FT0	033527 035062 0   0   0            0            430000035062 
FT1A	033527 035062 0   0   0            0            0            
FT2	033527 035062 0   0   0            0            0            
FT2RQ	033527 035062 0   0   000000400000 0            0            
FT3	033527 035062 0   0   000000400000 0            0            
FT9	033530 035062 0   0   000000400000 0            0            
ET0	033530 035062 0   0   000000400000 0            0            
ST1	033530 035062 0   0   000000400000 0            0            
ST2	033530 035062 0   0   000000400000 0            0            
ST9	033530 035062 0   0   000000400000 0            0            


*033530 SKIPN	0,000000
INITIAL
C(AC)=000000 400000 
C(E)=000000 400000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033530 033530 0   0   336000000000 0            000000400000 
IT1	033530 0      0   0   336000000000 0            000000400000 
AT3	033530 0      0   0   0            0            336000000000 
AT6	033530 0      0   0   0            0            336000000000 
FT0	033530 0      0   0   000000400000 0            336000000000 
FT1A	033530 0      0   0   000000400000 0            000000400000 
FT9	033531 0      0   0   000000400000 0            000000400000 
ET0	033532 0      0   0   000000400000 0            000000400000 
ST1A	033532 0      0   0   000000400000 0            000000400000 
ST9	033532 0      0   0   000000400000 0            000000400000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 471
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0687



*033532 JUMPA	0,033533
INITIAL
C(AC)=000000 400000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033532 033532 0   0   324000033533 0            000000033533 
IT1	033532 0      0   0   324000033533 0            000000033533 
AT3	033532 0      0   0   000000033533 0            324000033533 
AT6	033532 033533 0   0   000000033533 0            324000033533 
FT1A	033532 033533 0   0   000000033533 0            000000033533 
FT2	033532 033533 0   0   0            0            000000033533 
FT2RQ	033532 033533 0   0   000000400000 0            000000033533 
FT3	033532 033533 0   0   000000400000 0            000000033533 
FT9	033533 033533 0   0   000000400000 0            000000033533 
ET0	033533 033533 0   0   000000400000 0            000000033533 
ST1A	033533 033533 0   0   000000400000 0            000000033533 
ST9	033533 033533 0   0   000000400000 0            000000033533 


*033533 MOVE 	0,035116
INITIAL
C(AC)=000000 400000 
C(E)=000001 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033533 033533 0   0   200000035116 0            000001000000 
IT1	033533 0      0   0   200000035116 0            000001000000 
AT3	033533 0      0   0   000000035116 0            200000035116 
AT6	033533 035116 0   0   000000035116 0            200000035116 
FT0	033533 035116 0   0   000001000000 0            200000035116 
FT1A	033533 035116 0   0   000001000000 0            000001000000 
FT9	033534 035116 0   0   000001000000 0            000001000000 
ET0	033534 035116 0   0   000001000000 0            000001000000 
ST1	033534 035116 0   0   000001000000 0            000001000000 
ST2	033534 035116 0   0   000001000000 0            000001000000 
ST9	033534 035116 0   0   000001000000 0            000001000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 472
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0688

*033534 XOR 	0,035062
INITIAL
C(AC)=000001 000000 
C(E)=000000 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033534 033534 0   0   430000035062 0            0            
IT1	033534 0      0   0   430000035062 0            0            
AT3	033534 0      0   0   000000035062 0            430000035062 
AT6	033534 035062 0   0   000000035062 0            430000035062 
FT0	033534 035062 0   0   0            0            430000035062 
FT1A	033534 035062 0   0   0            0            0            
FT2	033534 035062 0   0   0            0            0            
FT2RQ	033534 035062 0   0   000001000000 0            0            
FT3	033534 035062 0   0   000001000000 0            0            
FT9	033535 035062 0   0   000001000000 0            0            
ET0	033535 035062 0   0   000001000000 0            0            
ST1	033535 035062 0   0   000001000000 0            0            
ST2	033535 035062 0   0   000001000000 0            0            
ST9	033535 035062 0   0   000001000000 0            0            


*033535 SKIPN	0,000000
INITIAL
C(AC)=000001 000000 
C(E)=000001 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033535 033535 0   0   336000000000 0            000001000000 
IT1	033535 0      0   0   336000000000 0            000001000000 
AT3	033535 0      0   0   0            0            336000000000 
AT6	033535 0      0   0   0            0            336000000000 
FT0	033535 0      0   0   000001000000 0            336000000000 
FT1A	033535 0      0   0   000001000000 0            000001000000 
FT9	033536 0      0   0   000001000000 0            000001000000 
ET0	033537 0      0   0   000001000000 0            000001000000 
ST1A	033537 0      0   0   000001000000 0            000001000000 
ST9	033537 0      0   0   000001000000 0            000001000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 473
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0689

*033537 JUMPA	0,033540
INITIAL
C(AC)=000001 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033537 033537 0   0   324000033540 0            000000033540 
IT1	033537 0      0   0   324000033540 0            000000033540 
AT3	033537 0      0   0   000000033540 0            324000033540 
AT6	033537 033540 0   0   000000033540 0            324000033540 
FT1A	033537 033540 0   0   000000033540 0            000000033540 
FT2	033537 033540 0   0   0            0            000000033540 
FT2RQ	033537 033540 0   0   000001000000 0            000000033540 
FT3	033537 033540 0   0   000001000000 0            000000033540 
FT9	033540 033540 0   0   000001000000 0            000000033540 
ET0	033540 033540 0   0   000001000000 0            000000033540 
ST1A	033540 033540 0   0   000001000000 0            000000033540 
ST9	033540 033540 0   0   000001000000 0            000000033540 


*033540 MOVE 	0,035117
INITIAL
C(AC)=000001 000000 
C(E)=000002 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033540 033540 0   0   200000035117 0            000002000000 
IT1	033540 0      0   0   200000035117 0            000002000000 
AT3	033540 0      0   0   000000035117 0            200000035117 
AT6	033540 035117 0   0   000000035117 0            200000035117 
FT0	033540 035117 0   0   000002000000 0            200000035117 
FT1A	033540 035117 0   0   000002000000 0            000002000000 
FT9	033541 035117 0   0   000002000000 0            000002000000 
ET0	033541 035117 0   0   000002000000 0            000002000000 
ST1	033541 035117 0   0   000002000000 0            000002000000 
ST2	033541 035117 0   0   000002000000 0            000002000000 
ST9	033541 035117 0   0   000002000000 0            000002000000 


*033541 XOR 	0,035062
INITIAL
C(AC)=000002 000000 
C(E)=000000 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033541 033541 0   0   430000035062 0            0            
IT1	033541 0      0   0   430000035062 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 474
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0690

AT3	033541 0      0   0   000000035062 0            430000035062 
AT6	033541 035062 0   0   000000035062 0            430000035062 
FT0	033541 035062 0   0   0            0            430000035062 
FT1A	033541 035062 0   0   0            0            0            
FT2	033541 035062 0   0   0            0            0            
FT2RQ	033541 035062 0   0   000002000000 0            0            
FT3	033541 035062 0   0   000002000000 0            0            
FT9	033542 035062 0   0   000002000000 0            0            
ET0	033542 035062 0   0   000002000000 0            0            
ST1	033542 035062 0   0   000002000000 0            0            
ST2	033542 035062 0   0   000002000000 0            0            
ST9	033542 035062 0   0   000002000000 0            0            


*033542 SKIPN	0,000000
INITIAL
C(AC)=000002 000000 
C(E)=000002 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033542 033542 0   0   336000000000 0            000002000000 
IT1	033542 0      0   0   336000000000 0            000002000000 
AT3	033542 0      0   0   0            0            336000000000 
AT6	033542 0      0   0   0            0            336000000000 
FT0	033542 0      0   0   000002000000 0            336000000000 
FT1A	033542 0      0   0   000002000000 0            000002000000 
FT9	033543 0      0   0   000002000000 0            000002000000 
ET0	033544 0      0   0   000002000000 0            000002000000 
ST1A	033544 0      0   0   000002000000 0            000002000000 
ST9	033544 0      0   0   000002000000 0            000002000000 


*033544 JUMPA	0,033545
INITIAL
C(AC)=000002 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033544 033544 0   0   324000033545 0            000000033545 
IT1	033544 0      0   0   324000033545 0            000000033545 
AT3	033544 0      0   0   000000033545 0            324000033545 
AT6	033544 033545 0   0   000000033545 0            324000033545 
FT1A	033544 033545 0   0   000000033545 0            000000033545 
FT2	033544 033545 0   0   0            0            000000033545 
FT2RQ	033544 033545 0   0   000002000000 0            000000033545 
FT3	033544 033545 0   0   000002000000 0            000000033545 
FT9	033545 033545 0   0   000002000000 0            000000033545 
ET0	033545 033545 0   0   000002000000 0            000000033545 
ST1A	033545 033545 0   0   000002000000 0            000000033545 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 475
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0691

ST9	033545 033545 0   0   000002000000 0            000000033545 


*033545 MOVE 	0,035120
INITIAL
C(AC)=000002 000000 
C(E)=000004 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033545 033545 0   0   200000035120 0            000004000000 
IT1	033545 0      0   0   200000035120 0            000004000000 
AT3	033545 0      0   0   000000035120 0            200000035120 
AT6	033545 035120 0   0   000000035120 0            200000035120 
FT0	033545 035120 0   0   000004000000 0            200000035120 
FT1A	033545 035120 0   0   000004000000 0            000004000000 
FT9	033546 035120 0   0   000004000000 0            000004000000 
ET0	033546 035120 0   0   000004000000 0            000004000000 
ST1	033546 035120 0   0   000004000000 0            000004000000 
ST2	033546 035120 0   0   000004000000 0            000004000000 
ST9	033546 035120 0   0   000004000000 0            000004000000 


*033546 XOR 	0,035062
INITIAL
C(AC)=000004 000000 
C(E)=000000 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033546 033546 0   0   430000035062 0            0            
IT1	033546 0      0   0   430000035062 0            0            
AT3	033546 0      0   0   000000035062 0            430000035062 
AT6	033546 035062 0   0   000000035062 0            430000035062 
FT0	033546 035062 0   0   0            0            430000035062 
FT1A	033546 035062 0   0   0            0            0            
FT2	033546 035062 0   0   0            0            0            
FT2RQ	033546 035062 0   0   000004000000 0            0            
FT3	033546 035062 0   0   000004000000 0            0            
FT9	033547 035062 0   0   000004000000 0            0            
ET0	033547 035062 0   0   000004000000 0            0            
ST1	033547 035062 0   0   000004000000 0            0            
ST2	033547 035062 0   0   000004000000 0            0            
ST9	033547 035062 0   0   000004000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 476
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0692

*033547 SKIPN	0,000000
INITIAL
C(AC)=000004 000000 
C(E)=000004 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033547 033547 0   0   336000000000 0            000004000000 
IT1	033547 0      0   0   336000000000 0            000004000000 
AT3	033547 0      0   0   0            0            336000000000 
AT6	033547 0      0   0   0            0            336000000000 
FT0	033547 0      0   0   000004000000 0            336000000000 
FT1A	033547 0      0   0   000004000000 0            000004000000 
FT9	033550 0      0   0   000004000000 0            000004000000 
ET0	033551 0      0   0   000004000000 0            000004000000 
ST1A	033551 0      0   0   000004000000 0            000004000000 
ST9	033551 0      0   0   000004000000 0            000004000000 


*033551 JUMPA	0,033552
INITIAL
C(AC)=000004 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033551 033551 0   0   324000033552 0            000000033552 
IT1	033551 0      0   0   324000033552 0            000000033552 
AT3	033551 0      0   0   000000033552 0            324000033552 
AT6	033551 033552 0   0   000000033552 0            324000033552 
FT1A	033551 033552 0   0   000000033552 0            000000033552 
FT2	033551 033552 0   0   0            0            000000033552 
FT2RQ	033551 033552 0   0   000004000000 0            000000033552 
FT3	033551 033552 0   0   000004000000 0            000000033552 
FT9	033552 033552 0   0   000004000000 0            000000033552 
ET0	033552 033552 0   0   000004000000 0            000000033552 
ST1A	033552 033552 0   0   000004000000 0            000000033552 
ST9	033552 033552 0   0   000004000000 0            000000033552 


*033552 MOVE 	0,035121
INITIAL
C(AC)=000004 000000 
C(E)=000010 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033552 033552 0   0   200000035121 0            000010000000 
IT1	033552 0      0   0   200000035121 0            000010000000 
AT3	033552 0      0   0   000000035121 0            200000035121 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 477
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0693

AT6	033552 035121 0   0   000000035121 0            200000035121 
FT0	033552 035121 0   0   000010000000 0            200000035121 
FT1A	033552 035121 0   0   000010000000 0            000010000000 
FT9	033553 035121 0   0   000010000000 0            000010000000 
ET0	033553 035121 0   0   000010000000 0            000010000000 
ST1	033553 035121 0   0   000010000000 0            000010000000 
ST2	033553 035121 0   0   000010000000 0            000010000000 
ST9	033553 035121 0   0   000010000000 0            000010000000 


*033553 XOR 	0,035062
INITIAL
C(AC)=000010 000000 
C(E)=000000 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033553 033553 0   0   430000035062 0            0            
IT1	033553 0      0   0   430000035062 0            0            
AT3	033553 0      0   0   000000035062 0            430000035062 
AT6	033553 035062 0   0   000000035062 0            430000035062 
FT0	033553 035062 0   0   0            0            430000035062 
FT1A	033553 035062 0   0   0            0            0            
FT2	033553 035062 0   0   0            0            0            
FT2RQ	033553 035062 0   0   000010000000 0            0            
FT3	033553 035062 0   0   000010000000 0            0            
FT9	033554 035062 0   0   000010000000 0            0            
ET0	033554 035062 0   0   000010000000 0            0            
ST1	033554 035062 0   0   000010000000 0            0            
ST2	033554 035062 0   0   000010000000 0            0            
ST9	033554 035062 0   0   000010000000 0            0            


*033554 SKIPN	0,000000
INITIAL
C(AC)=000010 000000 
C(E)=000010 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033554 033554 0   0   336000000000 0            000010000000 
IT1	033554 0      0   0   336000000000 0            000010000000 
AT3	033554 0      0   0   0            0            336000000000 
AT6	033554 0      0   0   0            0            336000000000 
FT0	033554 0      0   0   000010000000 0            336000000000 
FT1A	033554 0      0   0   000010000000 0            000010000000 
FT9	033555 0      0   0   000010000000 0            000010000000 
ET0	033556 0      0   0   000010000000 0            000010000000 
ST1A	033556 0      0   0   000010000000 0            000010000000 
ST9	033556 0      0   0   000010000000 0            000010000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 478
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0694



*033556 JUMPA	0,033557
INITIAL
C(AC)=000010 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033556 033556 0   0   324000033557 0            000000033557 
IT1	033556 0      0   0   324000033557 0            000000033557 
AT3	033556 0      0   0   000000033557 0            324000033557 
AT6	033556 033557 0   0   000000033557 0            324000033557 
FT1A	033556 033557 0   0   000000033557 0            000000033557 
FT2	033556 033557 0   0   0            0            000000033557 
FT2RQ	033556 033557 0   0   000010000000 0            000000033557 
FT3	033556 033557 0   0   000010000000 0            000000033557 
FT9	033557 033557 0   0   000010000000 0            000000033557 
ET0	033557 033557 0   0   000010000000 0            000000033557 
ST1A	033557 033557 0   0   000010000000 0            000000033557 
ST9	033557 033557 0   0   000010000000 0            000000033557 


*033557 MOVE 	0,035122
INITIAL
C(AC)=000010 000000 
C(E)=000020 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033557 033557 0   0   200000035122 0            000020000000 
IT1	033557 0      0   0   200000035122 0            000020000000 
AT3	033557 0      0   0   000000035122 0            200000035122 
AT6	033557 035122 0   0   000000035122 0            200000035122 
FT0	033557 035122 0   0   000020000000 0            200000035122 
FT1A	033557 035122 0   0   000020000000 0            000020000000 
FT9	033560 035122 0   0   000020000000 0            000020000000 
ET0	033560 035122 0   0   000020000000 0            000020000000 
ST1	033560 035122 0   0   000020000000 0            000020000000 
ST2	033560 035122 0   0   000020000000 0            000020000000 
ST9	033560 035122 0   0   000020000000 0            000020000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 479
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0695

*033560 XOR 	0,035062
INITIAL
C(AC)=000020 000000 
C(E)=000000 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033560 033560 0   0   430000035062 0            0            
IT1	033560 0      0   0   430000035062 0            0            
AT3	033560 0      0   0   000000035062 0            430000035062 
AT6	033560 035062 0   0   000000035062 0            430000035062 
FT0	033560 035062 0   0   0            0            430000035062 
FT1A	033560 035062 0   0   0            0            0            
FT2	033560 035062 0   0   0            0            0            
FT2RQ	033560 035062 0   0   000020000000 0            0            
FT3	033560 035062 0   0   000020000000 0            0            
FT9	033561 035062 0   0   000020000000 0            0            
ET0	033561 035062 0   0   000020000000 0            0            
ST1	033561 035062 0   0   000020000000 0            0            
ST2	033561 035062 0   0   000020000000 0            0            
ST9	033561 035062 0   0   000020000000 0            0            


*033561 SKIPN	0,000000
INITIAL
C(AC)=000020 000000 
C(E)=000020 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033561 033561 0   0   336000000000 0            000020000000 
IT1	033561 0      0   0   336000000000 0            000020000000 
AT3	033561 0      0   0   0            0            336000000000 
AT6	033561 0      0   0   0            0            336000000000 
FT0	033561 0      0   0   000020000000 0            336000000000 
FT1A	033561 0      0   0   000020000000 0            000020000000 
FT9	033562 0      0   0   000020000000 0            000020000000 
ET0	033563 0      0   0   000020000000 0            000020000000 
ST1A	033563 0      0   0   000020000000 0            000020000000 
ST9	033563 0      0   0   000020000000 0            000020000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 480
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0696

*033563 JUMPA	0,033564
INITIAL
C(AC)=000020 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033563 033563 0   0   324000033564 0            000000033564 
IT1	033563 0      0   0   324000033564 0            000000033564 
AT3	033563 0      0   0   000000033564 0            324000033564 
AT6	033563 033564 0   0   000000033564 0            324000033564 
FT1A	033563 033564 0   0   000000033564 0            000000033564 
FT2	033563 033564 0   0   0            0            000000033564 
FT2RQ	033563 033564 0   0   000020000000 0            000000033564 
FT3	033563 033564 0   0   000020000000 0            000000033564 
FT9	033564 033564 0   0   000020000000 0            000000033564 
ET0	033564 033564 0   0   000020000000 0            000000033564 
ST1A	033564 033564 0   0   000020000000 0            000000033564 
ST9	033564 033564 0   0   000020000000 0            000000033564 


*033564 MOVE 	0,035123
INITIAL
C(AC)=000020 000000 
C(E)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033564 033564 0   0   200000035123 0            000040000000 
IT1	033564 0      0   0   200000035123 0            000040000000 
AT3	033564 0      0   0   000000035123 0            200000035123 
AT6	033564 035123 0   0   000000035123 0            200000035123 
FT0	033564 035123 0   0   000040000000 0            200000035123 
FT1A	033564 035123 0   0   000040000000 0            000040000000 
FT9	033565 035123 0   0   000040000000 0            000040000000 
ET0	033565 035123 0   0   000040000000 0            000040000000 
ST1	033565 035123 0   0   000040000000 0            000040000000 
ST2	033565 035123 0   0   000040000000 0            000040000000 
ST9	033565 035123 0   0   000040000000 0            000040000000 


*033565 XOR 	0,035062
INITIAL
C(AC)=000040 000000 
C(E)=000000 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033565 033565 0   0   430000035062 0            0            
IT1	033565 0      0   0   430000035062 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 481
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0697

AT3	033565 0      0   0   000000035062 0            430000035062 
AT6	033565 035062 0   0   000000035062 0            430000035062 
FT0	033565 035062 0   0   0            0            430000035062 
FT1A	033565 035062 0   0   0            0            0            
FT2	033565 035062 0   0   0            0            0            
FT2RQ	033565 035062 0   0   000040000000 0            0            
FT3	033565 035062 0   0   000040000000 0            0            
FT9	033566 035062 0   0   000040000000 0            0            
ET0	033566 035062 0   0   000040000000 0            0            
ST1	033566 035062 0   0   000040000000 0            0            
ST2	033566 035062 0   0   000040000000 0            0            
ST9	033566 035062 0   0   000040000000 0            0            


*033566 SKIPN	0,000000
INITIAL
C(AC)=000040 000000 
C(E)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033566 033566 0   0   336000000000 0            000040000000 
IT1	033566 0      0   0   336000000000 0            000040000000 
AT3	033566 0      0   0   0            0            336000000000 
AT6	033566 0      0   0   0            0            336000000000 
FT0	033566 0      0   0   000040000000 0            336000000000 
FT1A	033566 0      0   0   000040000000 0            000040000000 
FT9	033567 0      0   0   000040000000 0            000040000000 
ET0	033570 0      0   0   000040000000 0            000040000000 
ST1A	033570 0      0   0   000040000000 0            000040000000 
ST9	033570 0      0   0   000040000000 0            000040000000 


*033570 JUMPA	0,033571
INITIAL
C(AC)=000040 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033570 033570 0   0   324000033571 0            000000033571 
IT1	033570 0      0   0   324000033571 0            000000033571 
AT3	033570 0      0   0   000000033571 0            324000033571 
AT6	033570 033571 0   0   000000033571 0            324000033571 
FT1A	033570 033571 0   0   000000033571 0            000000033571 
FT2	033570 033571 0   0   0            0            000000033571 
FT2RQ	033570 033571 0   0   000040000000 0            000000033571 
FT3	033570 033571 0   0   000040000000 0            000000033571 
FT9	033571 033571 0   0   000040000000 0            000000033571 
ET0	033571 033571 0   0   000040000000 0            000000033571 
ST1A	033571 033571 0   0   000040000000 0            000000033571 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 482
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0698

ST9	033571 033571 0   0   000040000000 0            000000033571 


*033571 MOVE 	0,035124
INITIAL
C(AC)=000040 000000 
C(E)=000100 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033571 033571 0   0   200000035124 0            000100000000 
IT1	033571 0      0   0   200000035124 0            000100000000 
AT3	033571 0      0   0   000000035124 0            200000035124 
AT6	033571 035124 0   0   000000035124 0            200000035124 
FT0	033571 035124 0   0   000100000000 0            200000035124 
FT1A	033571 035124 0   0   000100000000 0            000100000000 
FT9	033572 035124 0   0   000100000000 0            000100000000 
ET0	033572 035124 0   0   000100000000 0            000100000000 
ST1	033572 035124 0   0   000100000000 0            000100000000 
ST2	033572 035124 0   0   000100000000 0            000100000000 
ST9	033572 035124 0   0   000100000000 0            000100000000 


*033572 XOR 	0,035062
INITIAL
C(AC)=000100 000000 
C(E)=000000 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033572 033572 0   0   430000035062 0            0            
IT1	033572 0      0   0   430000035062 0            0            
AT3	033572 0      0   0   000000035062 0            430000035062 
AT6	033572 035062 0   0   000000035062 0            430000035062 
FT0	033572 035062 0   0   0            0            430000035062 
FT1A	033572 035062 0   0   0            0            0            
FT2	033572 035062 0   0   0            0            0            
FT2RQ	033572 035062 0   0   000100000000 0            0            
FT3	033572 035062 0   0   000100000000 0            0            
FT9	033573 035062 0   0   000100000000 0            0            
ET0	033573 035062 0   0   000100000000 0            0            
ST1	033573 035062 0   0   000100000000 0            0            
ST2	033573 035062 0   0   000100000000 0            0            
ST9	033573 035062 0   0   000100000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 483
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0699

*033573 SKIPN	0,000000
INITIAL
C(AC)=000100 000000 
C(E)=000100 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033573 033573 0   0   336000000000 0            000100000000 
IT1	033573 0      0   0   336000000000 0            000100000000 
AT3	033573 0      0   0   0            0            336000000000 
AT6	033573 0      0   0   0            0            336000000000 
FT0	033573 0      0   0   000100000000 0            336000000000 
FT1A	033573 0      0   0   000100000000 0            000100000000 
FT9	033574 0      0   0   000100000000 0            000100000000 
ET0	033575 0      0   0   000100000000 0            000100000000 
ST1A	033575 0      0   0   000100000000 0            000100000000 
ST9	033575 0      0   0   000100000000 0            000100000000 


*033575 JUMPA	0,033576
INITIAL
C(AC)=000100 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033575 033575 0   0   324000033576 0            000000033576 
IT1	033575 0      0   0   324000033576 0            000000033576 
AT3	033575 0      0   0   000000033576 0            324000033576 
AT6	033575 033576 0   0   000000033576 0            324000033576 
FT1A	033575 033576 0   0   000000033576 0            000000033576 
FT2	033575 033576 0   0   0            0            000000033576 
FT2RQ	033575 033576 0   0   000100000000 0            000000033576 
FT3	033575 033576 0   0   000100000000 0            000000033576 
FT9	033576 033576 0   0   000100000000 0            000000033576 
ET0	033576 033576 0   0   000100000000 0            000000033576 
ST1A	033576 033576 0   0   000100000000 0            000000033576 
ST9	033576 033576 0   0   000100000000 0            000000033576 


*033576 MOVE 	0,035125
INITIAL
C(AC)=000100 000000 
C(E)=000200 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033576 033576 0   0   200000035125 0            000200000000 
IT1	033576 0      0   0   200000035125 0            000200000000 
AT3	033576 0      0   0   000000035125 0            200000035125 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 484
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0700

AT6	033576 035125 0   0   000000035125 0            200000035125 
FT0	033576 035125 0   0   000200000000 0            200000035125 
FT1A	033576 035125 0   0   000200000000 0            000200000000 
FT9	033577 035125 0   0   000200000000 0            000200000000 
ET0	033577 035125 0   0   000200000000 0            000200000000 
ST1	033577 035125 0   0   000200000000 0            000200000000 
ST2	033577 035125 0   0   000200000000 0            000200000000 
ST9	033577 035125 0   0   000200000000 0            000200000000 


*033577 XOR 	0,035062
INITIAL
C(AC)=000200 000000 
C(E)=000000 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033577 033577 0   0   430000035062 0            0            
IT1	033577 0      0   0   430000035062 0            0            
AT3	033577 0      0   0   000000035062 0            430000035062 
AT6	033577 035062 0   0   000000035062 0            430000035062 
FT0	033577 035062 0   0   0            0            430000035062 
FT1A	033577 035062 0   0   0            0            0            
FT2	033577 035062 0   0   0            0            0            
FT2RQ	033577 035062 0   0   000200000000 0            0            
FT3	033577 035062 0   0   000200000000 0            0            
FT9	0      035062 0   0   000200000000 0            0            
ET0	0      035062 0   0   000200000000 0            0            
ST1	0      035062 0   0   000200000000 0            0            
ST2	0      035062 0   0   000200000000 0            0            
ST9	0      035062 0   0   000200000000 0            0            


*033600 SKIPN	0,000000
INITIAL
C(AC)=000200 000000 
C(E)=000200 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   336000000000 0            000200000000 
IT1	0      0      0   0   336000000000 0            000200000000 
AT3	0      0      0   0   0            0            336000000000 
AT6	0      0      0   0   0            0            336000000000 
FT0	0      0      0   0   000200000000 0            336000000000 
FT1A	0      0      0   0   000200000000 0            000200000000 
FT9	033601 0      0   0   000200000000 0            000200000000 
ET0	033602 0      0   0   000200000000 0            000200000000 
ST1A	033602 0      0   0   000200000000 0            000200000000 
ST9	033602 0      0   0   000200000000 0            000200000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 485
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0701



*033602 JUMPA	0,033603
INITIAL
C(AC)=000200 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033602 033602 0   0   324000033603 0            000000033603 
IT1	033602 0      0   0   324000033603 0            000000033603 
AT3	033602 0      0   0   000000033603 0            324000033603 
AT6	033602 033603 0   0   000000033603 0            324000033603 
FT1A	033602 033603 0   0   000000033603 0            000000033603 
FT2	033602 033603 0   0   0            0            000000033603 
FT2RQ	033602 033603 0   0   000200000000 0            000000033603 
FT3	033602 033603 0   0   000200000000 0            000000033603 
FT9	033603 033603 0   0   000200000000 0            000000033603 
ET0	033603 033603 0   0   000200000000 0            000000033603 
ST1A	033603 033603 0   0   000200000000 0            000000033603 
ST9	033603 033603 0   0   000200000000 0            000000033603 


*033603 MOVE 	0,035073
INITIAL
C(AC)=000200 000000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033603 033603 0   0   200000035073 0            000400000000 
IT1	033603 0      0   0   200000035073 0            000400000000 
AT3	033603 0      0   0   000000035073 0            200000035073 
AT6	033603 035073 0   0   000000035073 0            200000035073 
FT0	033603 035073 0   0   000400000000 0            200000035073 
FT1A	033603 035073 0   0   000400000000 0            000400000000 
FT9	033604 035073 0   0   000400000000 0            000400000000 
ET0	033604 035073 0   0   000400000000 0            000400000000 
ST1	033604 035073 0   0   000400000000 0            000400000000 
ST2	033604 035073 0   0   000400000000 0            000400000000 
ST9	033604 035073 0   0   000400000000 0            000400000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 486
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0702

*033604 XOR 	0,035062
INITIAL
C(AC)=000400 000000 
C(E)=000000 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033604 033604 0   0   430000035062 0            0            
IT1	033604 0      0   0   430000035062 0            0            
AT3	033604 0      0   0   000000035062 0            430000035062 
AT6	033604 035062 0   0   000000035062 0            430000035062 
FT0	033604 035062 0   0   0            0            430000035062 
FT1A	033604 035062 0   0   0            0            0            
FT2	033604 035062 0   0   0            0            0            
FT2RQ	033604 035062 0   0   000400000000 0            0            
FT3	033604 035062 0   0   000400000000 0            0            
FT9	033605 035062 0   0   000400000000 0            0            
ET0	033605 035062 0   0   000400000000 0            0            
ST1	033605 035062 0   0   000400000000 0            0            
ST2	033605 035062 0   0   000400000000 0            0            
ST9	033605 035062 0   0   000400000000 0            0            


*033605 SKIPN	0,000000
INITIAL
C(AC)=000400 000000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033605 033605 0   0   336000000000 0            000400000000 
IT1	033605 0      0   0   336000000000 0            000400000000 
AT3	033605 0      0   0   0            0            336000000000 
AT6	033605 0      0   0   0            0            336000000000 
FT0	033605 0      0   0   000400000000 0            336000000000 
FT1A	033605 0      0   0   000400000000 0            000400000000 
FT9	033606 0      0   0   000400000000 0            000400000000 
ET0	033607 0      0   0   000400000000 0            000400000000 
ST1A	033607 0      0   0   000400000000 0            000400000000 
ST9	033607 0      0   0   000400000000 0            000400000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 487
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0703

*033607 JUMPA	0,033610
INITIAL
C(AC)=000400 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033607 033607 0   0   324000033610 0            000000033610 
IT1	033607 0      0   0   324000033610 0            000000033610 
AT3	033607 0      0   0   000000033610 0            324000033610 
AT6	033607 033610 0   0   000000033610 0            324000033610 
FT1A	033607 033610 0   0   000000033610 0            000000033610 
FT2	033607 033610 0   0   0            0            000000033610 
FT2RQ	033607 033610 0   0   000400000000 0            000000033610 
FT3	033607 033610 0   0   000400000000 0            000000033610 
FT9	033610 033610 0   0   000400000000 0            000000033610 
ET0	033610 033610 0   0   000400000000 0            000000033610 
ST1A	033610 033610 0   0   000400000000 0            000000033610 
ST9	033610 033610 0   0   000400000000 0            000000033610 


*033610 MOVE 	0,035126
INITIAL
C(AC)=000400 000000 
C(E)=001000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033610 033610 0   0   200000035126 0            001000000000 
IT1	033610 0      0   0   200000035126 0            001000000000 
AT3	033610 0      0   0   000000035126 0            200000035126 
AT6	033610 035126 0   0   000000035126 0            200000035126 
FT0	033610 035126 0   0   001000000000 0            200000035126 
FT1A	033610 035126 0   0   001000000000 0            001000000000 
FT9	033611 035126 0   0   001000000000 0            001000000000 
ET0	033611 035126 0   0   001000000000 0            001000000000 
ST1	033611 035126 0   0   001000000000 0            001000000000 
ST2	033611 035126 0   0   001000000000 0            001000000000 
ST9	033611 035126 0   0   001000000000 0            001000000000 


*033611 XOR 	0,035062
INITIAL
C(AC)=001000 000000 
C(E)=000000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033611 033611 0   0   430000035062 0            0            
IT1	033611 0      0   0   430000035062 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 488
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0704

AT3	033611 0      0   0   000000035062 0            430000035062 
AT6	033611 035062 0   0   000000035062 0            430000035062 
FT0	033611 035062 0   0   0            0            430000035062 
FT1A	033611 035062 0   0   0            0            0            
FT2	033611 035062 0   0   0            0            0            
FT2RQ	033611 035062 0   0   001000000000 0            0            
FT3	033611 035062 0   0   001000000000 0            0            
FT9	033612 035062 0   0   001000000000 0            0            
ET0	033612 035062 0   0   001000000000 0            0            
ST1	033612 035062 0   0   001000000000 0            0            
ST2	033612 035062 0   0   001000000000 0            0            
ST9	033612 035062 0   0   001000000000 0            0            


*033612 SKIPN	0,000000
INITIAL
C(AC)=001000 000000 
C(E)=001000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033612 033612 0   0   336000000000 0            001000000000 
IT1	033612 0      0   0   336000000000 0            001000000000 
AT3	033612 0      0   0   0            0            336000000000 
AT6	033612 0      0   0   0            0            336000000000 
FT0	033612 0      0   0   001000000000 0            336000000000 
FT1A	033612 0      0   0   001000000000 0            001000000000 
FT9	033613 0      0   0   001000000000 0            001000000000 
ET0	033614 0      0   0   001000000000 0            001000000000 
ST1A	033614 0      0   0   001000000000 0            001000000000 
ST9	033614 0      0   0   001000000000 0            001000000000 


*033614 JUMPA	0,033615
INITIAL
C(AC)=001000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033614 033614 0   0   324000033615 0            000000033615 
IT1	033614 0      0   0   324000033615 0            000000033615 
AT3	033614 0      0   0   000000033615 0            324000033615 
AT6	033614 033615 0   0   000000033615 0            324000033615 
FT1A	033614 033615 0   0   000000033615 0            000000033615 
FT2	033614 033615 0   0   0            0            000000033615 
FT2RQ	033614 033615 0   0   001000000000 0            000000033615 
FT3	033614 033615 0   0   001000000000 0            000000033615 
FT9	033615 033615 0   0   001000000000 0            000000033615 
ET0	033615 033615 0   0   001000000000 0            000000033615 
ST1A	033615 033615 0   0   001000000000 0            000000033615 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 489
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0705

ST9	033615 033615 0   0   001000000000 0            000000033615 


*033615 MOVE 	0,035127
INITIAL
C(AC)=001000 000000 
C(E)=002000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033615 033615 0   0   200000035127 0            002000000000 
IT1	033615 0      0   0   200000035127 0            002000000000 
AT3	033615 0      0   0   000000035127 0            200000035127 
AT6	033615 035127 0   0   000000035127 0            200000035127 
FT0	033615 035127 0   0   002000000000 0            200000035127 
FT1A	033615 035127 0   0   002000000000 0            002000000000 
FT9	033616 035127 0   0   002000000000 0            002000000000 
ET0	033616 035127 0   0   002000000000 0            002000000000 
ST1	033616 035127 0   0   002000000000 0            002000000000 
ST2	033616 035127 0   0   002000000000 0            002000000000 
ST9	033616 035127 0   0   002000000000 0            002000000000 


*033616 XOR 	0,035062
INITIAL
C(AC)=002000 000000 
C(E)=000000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033616 033616 0   0   430000035062 0            0            
IT1	033616 0      0   0   430000035062 0            0            
AT3	033616 0      0   0   000000035062 0            430000035062 
AT6	033616 035062 0   0   000000035062 0            430000035062 
FT0	033616 035062 0   0   0            0            430000035062 
FT1A	033616 035062 0   0   0            0            0            
FT2	033616 035062 0   0   0            0            0            
FT2RQ	033616 035062 0   0   002000000000 0            0            
FT3	033616 035062 0   0   002000000000 0            0            
FT9	033617 035062 0   0   002000000000 0            0            
ET0	033617 035062 0   0   002000000000 0            0            
ST1	033617 035062 0   0   002000000000 0            0            
ST2	033617 035062 0   0   002000000000 0            0            
ST9	033617 035062 0   0   002000000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 490
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0706

*033617 SKIPN	0,000000
INITIAL
C(AC)=002000 000000 
C(E)=002000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033617 033617 0   0   336000000000 0            002000000000 
IT1	033617 0      0   0   336000000000 0            002000000000 
AT3	033617 0      0   0   0            0            336000000000 
AT6	033617 0      0   0   0            0            336000000000 
FT0	033617 0      0   0   002000000000 0            336000000000 
FT1A	033617 0      0   0   002000000000 0            002000000000 
FT9	033620 0      0   0   002000000000 0            002000000000 
ET0	033621 0      0   0   002000000000 0            002000000000 
ST1A	033621 0      0   0   002000000000 0            002000000000 
ST9	033621 0      0   0   002000000000 0            002000000000 


*033621 JUMPA	0,033622
INITIAL
C(AC)=002000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033621 033621 0   0   324000033622 0            000000033622 
IT1	033621 0      0   0   324000033622 0            000000033622 
AT3	033621 0      0   0   000000033622 0            324000033622 
AT6	033621 033622 0   0   000000033622 0            324000033622 
FT1A	033621 033622 0   0   000000033622 0            000000033622 
FT2	033621 033622 0   0   0            0            000000033622 
FT2RQ	033621 033622 0   0   002000000000 0            000000033622 
FT3	033621 033622 0   0   002000000000 0            000000033622 
FT9	033622 033622 0   0   002000000000 0            000000033622 
ET0	033622 033622 0   0   002000000000 0            000000033622 
ST1A	033622 033622 0   0   002000000000 0            000000033622 
ST9	033622 033622 0   0   002000000000 0            000000033622 


*033622 MOVE 	0,035130
INITIAL
C(AC)=002000 000000 
C(E)=004000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033622 033622 0   0   200000035130 0            004000000000 
IT1	033622 0      0   0   200000035130 0            004000000000 
AT3	033622 0      0   0   000000035130 0            200000035130 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 491
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0707

AT6	033622 035130 0   0   000000035130 0            200000035130 
FT0	033622 035130 0   0   004000000000 0            200000035130 
FT1A	033622 035130 0   0   004000000000 0            004000000000 
FT9	033623 035130 0   0   004000000000 0            004000000000 
ET0	033623 035130 0   0   004000000000 0            004000000000 
ST1	033623 035130 0   0   004000000000 0            004000000000 
ST2	033623 035130 0   0   004000000000 0            004000000000 
ST9	033623 035130 0   0   004000000000 0            004000000000 


*033623 XOR 	0,035062
INITIAL
C(AC)=004000 000000 
C(E)=000000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033623 033623 0   0   430000035062 0            0            
IT1	033623 0      0   0   430000035062 0            0            
AT3	033623 0      0   0   000000035062 0            430000035062 
AT6	033623 035062 0   0   000000035062 0            430000035062 
FT0	033623 035062 0   0   0            0            430000035062 
FT1A	033623 035062 0   0   0            0            0            
FT2	033623 035062 0   0   0            0            0            
FT2RQ	033623 035062 0   0   004000000000 0            0            
FT3	033623 035062 0   0   004000000000 0            0            
FT9	033624 035062 0   0   004000000000 0            0            
ET0	033624 035062 0   0   004000000000 0            0            
ST1	033624 035062 0   0   004000000000 0            0            
ST2	033624 035062 0   0   004000000000 0            0            
ST9	033624 035062 0   0   004000000000 0            0            


*033624 SKIPN	0,000000
INITIAL
C(AC)=004000 000000 
C(E)=004000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033624 033624 0   0   336000000000 0            004000000000 
IT1	033624 0      0   0   336000000000 0            004000000000 
AT3	033624 0      0   0   0            0            336000000000 
AT6	033624 0      0   0   0            0            336000000000 
FT0	033624 0      0   0   004000000000 0            336000000000 
FT1A	033624 0      0   0   004000000000 0            004000000000 
FT9	033625 0      0   0   004000000000 0            004000000000 
ET0	033626 0      0   0   004000000000 0            004000000000 
ST1A	033626 0      0   0   004000000000 0            004000000000 
ST9	033626 0      0   0   004000000000 0            004000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 492
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0708



*033626 JUMPA	0,033627
INITIAL
C(AC)=004000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033626 033626 0   0   324000033627 0            000000033627 
IT1	033626 0      0   0   324000033627 0            000000033627 
AT3	033626 0      0   0   000000033627 0            324000033627 
AT6	033626 033627 0   0   000000033627 0            324000033627 
FT1A	033626 033627 0   0   000000033627 0            000000033627 
FT2	033626 033627 0   0   0            0            000000033627 
FT2RQ	033626 033627 0   0   004000000000 0            000000033627 
FT3	033626 033627 0   0   004000000000 0            000000033627 
FT9	033627 033627 0   0   004000000000 0            000000033627 
ET0	033627 033627 0   0   004000000000 0            000000033627 
ST1A	033627 033627 0   0   004000000000 0            000000033627 
ST9	033627 033627 0   0   004000000000 0            000000033627 


*033627 MOVE 	0,035131
INITIAL
C(AC)=004000 000000 
C(E)=010000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033627 033627 0   0   200000035131 0            010000000000 
IT1	033627 0      0   0   200000035131 0            010000000000 
AT3	033627 0      0   0   000000035131 0            200000035131 
AT6	033627 035131 0   0   000000035131 0            200000035131 
FT0	033627 035131 0   0   010000000000 0            200000035131 
FT1A	033627 035131 0   0   010000000000 0            010000000000 
FT9	033630 035131 0   0   010000000000 0            010000000000 
ET0	033630 035131 0   0   010000000000 0            010000000000 
ST1	033630 035131 0   0   010000000000 0            010000000000 
ST2	033630 035131 0   0   010000000000 0            010000000000 
ST9	033630 035131 0   0   010000000000 0            010000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 493
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0709

*033630 XOR 	0,035062
INITIAL
C(AC)=010000 000000 
C(E)=000000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033630 033630 0   0   430000035062 0            0            
IT1	033630 0      0   0   430000035062 0            0            
AT3	033630 0      0   0   000000035062 0            430000035062 
AT6	033630 035062 0   0   000000035062 0            430000035062 
FT0	033630 035062 0   0   0            0            430000035062 
FT1A	033630 035062 0   0   0            0            0            
FT2	033630 035062 0   0   0            0            0            
FT2RQ	033630 035062 0   0   010000000000 0            0            
FT3	033630 035062 0   0   010000000000 0            0            
FT9	033631 035062 0   0   010000000000 0            0            
ET0	033631 035062 0   0   010000000000 0            0            
ST1	033631 035062 0   0   010000000000 0            0            
ST2	033631 035062 0   0   010000000000 0            0            
ST9	033631 035062 0   0   010000000000 0            0            


*033631 SKIPN	0,000000
INITIAL
C(AC)=010000 000000 
C(E)=010000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033631 033631 0   0   336000000000 0            010000000000 
IT1	033631 0      0   0   336000000000 0            010000000000 
AT3	033631 0      0   0   0            0            336000000000 
AT6	033631 0      0   0   0            0            336000000000 
FT0	033631 0      0   0   010000000000 0            336000000000 
FT1A	033631 0      0   0   010000000000 0            010000000000 
FT9	033632 0      0   0   010000000000 0            010000000000 
ET0	033633 0      0   0   010000000000 0            010000000000 
ST1A	033633 0      0   0   010000000000 0            010000000000 
ST9	033633 0      0   0   010000000000 0            010000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 494
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0710

*033633 JUMPA	0,033634
INITIAL
C(AC)=010000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033633 033633 0   0   324000033634 0            000000033634 
IT1	033633 0      0   0   324000033634 0            000000033634 
AT3	033633 0      0   0   000000033634 0            324000033634 
AT6	033633 033634 0   0   000000033634 0            324000033634 
FT1A	033633 033634 0   0   000000033634 0            000000033634 
FT2	033633 033634 0   0   0            0            000000033634 
FT2RQ	033633 033634 0   0   010000000000 0            000000033634 
FT3	033633 033634 0   0   010000000000 0            000000033634 
FT9	033634 033634 0   0   010000000000 0            000000033634 
ET0	033634 033634 0   0   010000000000 0            000000033634 
ST1A	033634 033634 0   0   010000000000 0            000000033634 
ST9	033634 033634 0   0   010000000000 0            000000033634 


*033634 MOVE 	0,035132
INITIAL
C(AC)=010000 000000 
C(E)=020000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033634 033634 0   0   200000035132 0            020000000000 
IT1	033634 0      0   0   200000035132 0            020000000000 
AT3	033634 0      0   0   000000035132 0            200000035132 
AT6	033634 035132 0   0   000000035132 0            200000035132 
FT0	033634 035132 0   0   020000000000 0            200000035132 
FT1A	033634 035132 0   0   020000000000 0            020000000000 
FT9	033635 035132 0   0   020000000000 0            020000000000 
ET0	033635 035132 0   0   020000000000 0            020000000000 
ST1	033635 035132 0   0   020000000000 0            020000000000 
ST2	033635 035132 0   0   020000000000 0            020000000000 
ST9	033635 035132 0   0   020000000000 0            020000000000 


*033635 XOR 	0,035062
INITIAL
C(AC)=020000 000000 
C(E)=000000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033635 033635 0   0   430000035062 0            0            
IT1	033635 0      0   0   430000035062 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 495
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0711

AT3	033635 0      0   0   000000035062 0            430000035062 
AT6	033635 035062 0   0   000000035062 0            430000035062 
FT0	033635 035062 0   0   0            0            430000035062 
FT1A	033635 035062 0   0   0            0            0            
FT2	033635 035062 0   0   0            0            0            
FT2RQ	033635 035062 0   0   020000000000 0            0            
FT3	033635 035062 0   0   020000000000 0            0            
FT9	033636 035062 0   0   020000000000 0            0            
ET0	033636 035062 0   0   020000000000 0            0            
ST1	033636 035062 0   0   020000000000 0            0            
ST2	033636 035062 0   0   020000000000 0            0            
ST9	033636 035062 0   0   020000000000 0            0            


*033636 SKIPN	0,000000
INITIAL
C(AC)=020000 000000 
C(E)=020000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033636 033636 0   0   336000000000 0            020000000000 
IT1	033636 0      0   0   336000000000 0            020000000000 
AT3	033636 0      0   0   0            0            336000000000 
AT6	033636 0      0   0   0            0            336000000000 
FT0	033636 0      0   0   020000000000 0            336000000000 
FT1A	033636 0      0   0   020000000000 0            020000000000 
FT9	033637 0      0   0   020000000000 0            020000000000 
ET0	033640 0      0   0   020000000000 0            020000000000 
ST1A	033640 0      0   0   020000000000 0            020000000000 
ST9	033640 0      0   0   020000000000 0            020000000000 


*033640 JUMPA	0,033641
INITIAL
C(AC)=020000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033640 033640 0   0   324000033641 0            000000033641 
IT1	033640 0      0   0   324000033641 0            000000033641 
AT3	033640 0      0   0   000000033641 0            324000033641 
AT6	033640 033641 0   0   000000033641 0            324000033641 
FT1A	033640 033641 0   0   000000033641 0            000000033641 
FT2	033640 033641 0   0   0            0            000000033641 
FT2RQ	033640 033641 0   0   020000000000 0            000000033641 
FT3	033640 033641 0   0   020000000000 0            000000033641 
FT9	033641 033641 0   0   020000000000 0            000000033641 
ET0	033641 033641 0   0   020000000000 0            000000033641 
ST1A	033641 033641 0   0   020000000000 0            000000033641 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 496
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0712

ST9	033641 033641 0   0   020000000000 0            000000033641 


*033641 MOVE 	0,035133
INITIAL
C(AC)=020000 000000 
C(E)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033641 033641 0   0   200000035133 0            040000000000 
IT1	033641 0      0   0   200000035133 0            040000000000 
AT3	033641 0      0   0   000000035133 0            200000035133 
AT6	033641 035133 0   0   000000035133 0            200000035133 
FT0	033641 035133 0   0   040000000000 0            200000035133 
FT1A	033641 035133 0   0   040000000000 0            040000000000 
FT9	033642 035133 0   0   040000000000 0            040000000000 
ET0	033642 035133 0   0   040000000000 0            040000000000 
ST1	033642 035133 0   0   040000000000 0            040000000000 
ST2	033642 035133 0   0   040000000000 0            040000000000 
ST9	033642 035133 0   0   040000000000 0            040000000000 


*033642 XOR 	0,035062
INITIAL
C(AC)=040000 000000 
C(E)=000000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033642 033642 0   0   430000035062 0            0            
IT1	033642 0      0   0   430000035062 0            0            
AT3	033642 0      0   0   000000035062 0            430000035062 
AT6	033642 035062 0   0   000000035062 0            430000035062 
FT0	033642 035062 0   0   0            0            430000035062 
FT1A	033642 035062 0   0   0            0            0            
FT2	033642 035062 0   0   0            0            0            
FT2RQ	033642 035062 0   0   040000000000 0            0            
FT3	033642 035062 0   0   040000000000 0            0            
FT9	033643 035062 0   0   040000000000 0            0            
ET0	033643 035062 0   0   040000000000 0            0            
ST1	033643 035062 0   0   040000000000 0            0            
ST2	033643 035062 0   0   040000000000 0            0            
ST9	033643 035062 0   0   040000000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 497
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0713

*033643 SKIPN	0,000000
INITIAL
C(AC)=040000 000000 
C(E)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033643 033643 0   0   336000000000 0            040000000000 
IT1	033643 0      0   0   336000000000 0            040000000000 
AT3	033643 0      0   0   0            0            336000000000 
AT6	033643 0      0   0   0            0            336000000000 
FT0	033643 0      0   0   040000000000 0            336000000000 
FT1A	033643 0      0   0   040000000000 0            040000000000 
FT9	033644 0      0   0   040000000000 0            040000000000 
ET0	033645 0      0   0   040000000000 0            040000000000 
ST1A	033645 0      0   0   040000000000 0            040000000000 
ST9	033645 0      0   0   040000000000 0            040000000000 


*033645 JUMPA	0,033646
INITIAL
C(AC)=040000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033645 033645 0   0   324000033646 0            000000033646 
IT1	033645 0      0   0   324000033646 0            000000033646 
AT3	033645 0      0   0   000000033646 0            324000033646 
AT6	033645 033646 0   0   000000033646 0            324000033646 
FT1A	033645 033646 0   0   000000033646 0            000000033646 
FT2	033645 033646 0   0   0            0            000000033646 
FT2RQ	033645 033646 0   0   040000000000 0            000000033646 
FT3	033645 033646 0   0   040000000000 0            000000033646 
FT9	033646 033646 0   0   040000000000 0            000000033646 
ET0	033646 033646 0   0   040000000000 0            000000033646 
ST1A	033646 033646 0   0   040000000000 0            000000033646 
ST9	033646 033646 0   0   040000000000 0            000000033646 


*033646 MOVE 	0,035134
INITIAL
C(AC)=040000 000000 
C(E)=100000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033646 033646 0   0   200000035134 0            100000000000 
IT1	033646 0      0   0   200000035134 0            100000000000 
AT3	033646 0      0   0   000000035134 0            200000035134 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 498
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0714

AT6	033646 035134 0   0   000000035134 0            200000035134 
FT0	033646 035134 0   0   100000000000 0            200000035134 
FT1A	033646 035134 0   0   100000000000 0            100000000000 
FT9	033647 035134 0   0   100000000000 0            100000000000 
ET0	033647 035134 0   0   100000000000 0            100000000000 
ST1	033647 035134 0   0   100000000000 0            100000000000 
ST2	033647 035134 0   0   100000000000 0            100000000000 
ST9	033647 035134 0   0   100000000000 0            100000000000 


*033647 XOR 	0,035062
INITIAL
C(AC)=100000 000000 
C(E)=000000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033647 033647 0   0   430000035062 0            0            
IT1	033647 0      0   0   430000035062 0            0            
AT3	033647 0      0   0   000000035062 0            430000035062 
AT6	033647 035062 0   0   000000035062 0            430000035062 
FT0	033647 035062 0   0   0            0            430000035062 
FT1A	033647 035062 0   0   0            0            0            
FT2	033647 035062 0   0   0            0            0            
FT2RQ	033647 035062 0   0   100000000000 0            0            
FT3	033647 035062 0   0   100000000000 0            0            
FT9	033650 035062 0   0   100000000000 0            0            
ET0	033650 035062 0   0   100000000000 0            0            
ST1	033650 035062 0   0   100000000000 0            0            
ST2	033650 035062 0   0   100000000000 0            0            
ST9	033650 035062 0   0   100000000000 0            0            


*033650 SKIPN	0,000000
INITIAL
C(AC)=100000 000000 
C(E)=100000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033650 033650 0   0   336000000000 0            100000000000 
IT1	033650 0      0   0   336000000000 0            100000000000 
AT3	033650 0      0   0   0            0            336000000000 
AT6	033650 0      0   0   0            0            336000000000 
FT0	033650 0      0   0   100000000000 0            336000000000 
FT1A	033650 0      0   0   100000000000 0            100000000000 
FT9	033651 0      0   0   100000000000 0            100000000000 
ET0	033652 0      0   0   100000000000 0            100000000000 
ST1A	033652 0      0   0   100000000000 0            100000000000 
ST9	033652 0      0   0   100000000000 0            100000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 499
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0715



*033652 JUMPA	0,033653
INITIAL
C(AC)=100000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033652 033652 0   0   324000033653 0            000000033653 
IT1	033652 0      0   0   324000033653 0            000000033653 
AT3	033652 0      0   0   000000033653 0            324000033653 
AT6	033652 033653 0   0   000000033653 0            324000033653 
FT1A	033652 033653 0   0   000000033653 0            000000033653 
FT2	033652 033653 0   0   0            0            000000033653 
FT2RQ	033652 033653 0   0   100000000000 0            000000033653 
FT3	033652 033653 0   0   100000000000 0            000000033653 
FT9	033653 033653 0   0   100000000000 0            000000033653 
ET0	033653 033653 0   0   100000000000 0            000000033653 
ST1A	033653 033653 0   0   100000000000 0            000000033653 
ST9	033653 033653 0   0   100000000000 0            000000033653 


*033653 MOVE 	0,035135
INITIAL
C(AC)=100000 000000 
C(E)=200000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033653 033653 0   0   200000035135 0            200000000000 
IT1	033653 0      0   0   200000035135 0            200000000000 
AT3	033653 0      0   0   000000035135 0            200000035135 
AT6	033653 035135 0   0   000000035135 0            200000035135 
FT0	033653 035135 0   0   200000000000 0            200000035135 
FT1A	033653 035135 0   0   200000000000 0            200000000000 
FT9	033654 035135 0   0   200000000000 0            200000000000 
ET0	033654 035135 0   0   200000000000 0            200000000000 
ST1	033654 035135 0   0   200000000000 0            200000000000 
ST2	033654 035135 0   0   200000000000 0            200000000000 
ST9	033654 035135 0   0   200000000000 0            200000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 500
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0716

*033654 XOR 	0,035062
INITIAL
C(AC)=200000 000000 
C(E)=000000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033654 033654 0   0   430000035062 0            0            
IT1	033654 0      0   0   430000035062 0            0            
AT3	033654 0      0   0   000000035062 0            430000035062 
AT6	033654 035062 0   0   000000035062 0            430000035062 
FT0	033654 035062 0   0   0            0            430000035062 
FT1A	033654 035062 0   0   0            0            0            
FT2	033654 035062 0   0   0            0            0            
FT2RQ	033654 035062 0   0   200000000000 0            0            
FT3	033654 035062 0   0   200000000000 0            0            
FT9	033655 035062 0   0   200000000000 0            0            
ET0	033655 035062 0   0   200000000000 0            0            
ST1	033655 035062 0   0   200000000000 0            0            
ST2	033655 035062 0   0   200000000000 0            0            
ST9	033655 035062 0   0   200000000000 0            0            


*033655 SKIPN	0,000000
INITIAL
C(AC)=200000 000000 
C(E)=200000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033655 033655 0   0   336000000000 0            200000000000 
IT1	033655 0      0   0   336000000000 0            200000000000 
AT3	033655 0      0   0   0            0            336000000000 
AT6	033655 0      0   0   0            0            336000000000 
FT0	033655 0      0   0   200000000000 0            336000000000 
FT1A	033655 0      0   0   200000000000 0            200000000000 
FT9	033656 0      0   0   200000000000 0            200000000000 
ET0	033657 0      0   0   200000000000 0            200000000000 
ST1A	033657 0      0   0   200000000000 0            200000000000 
ST9	033657 0      0   0   200000000000 0            200000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 501
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0717

*033657 JUMPA	0,033660
INITIAL
C(AC)=200000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033657 033657 0   0   324000033660 0            000000033660 
IT1	033657 0      0   0   324000033660 0            000000033660 
AT3	033657 0      0   0   000000033660 0            324000033660 
AT6	033657 033660 0   0   000000033660 0            324000033660 
FT1A	033657 033660 0   0   000000033660 0            000000033660 
FT2	033657 033660 0   0   0            0            000000033660 
FT2RQ	033657 033660 0   0   200000000000 0            000000033660 
FT3	033657 033660 0   0   200000000000 0            000000033660 
FT9	033660 033660 0   0   200000000000 0            000000033660 
ET0	033660 033660 0   0   200000000000 0            000000033660 
ST1A	033660 033660 0   0   200000000000 0            000000033660 
ST9	033660 033660 0   0   200000000000 0            000000033660 


*033660 MOVE 	0,035065
INITIAL
C(AC)=200000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033660 033660 0   0   200000035065 0            400000000000 
IT1	033660 0      0   0   200000035065 0            400000000000 
AT3	033660 0      0   0   000000035065 0            200000035065 
AT6	033660 035065 0   0   000000035065 0            200000035065 
FT0	033660 035065 0   0   400000000000 0            200000035065 
FT1A	033660 035065 0   0   400000000000 0            400000000000 
FT9	033661 035065 0   0   400000000000 0            400000000000 
ET0	033661 035065 0   0   400000000000 0            400000000000 
ST1	033661 035065 0   0   400000000000 0            400000000000 
ST2	033661 035065 0   0   400000000000 0            400000000000 
ST9	033661 035065 0   0   400000000000 0            400000000000 


*033661 XOR 	0,035062
INITIAL
C(AC)=400000 000000 
C(E)=000000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033661 033661 0   0   430000035062 0            0            
IT1	033661 0      0   0   430000035062 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 502
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0718

AT3	033661 0      0   0   000000035062 0            430000035062 
AT6	033661 035062 0   0   000000035062 0            430000035062 
FT0	033661 035062 0   0   0            0            430000035062 
FT1A	033661 035062 0   0   0            0            0            
FT2	033661 035062 0   0   0            0            0            
FT2RQ	033661 035062 0   0   400000000000 0            0            
FT3	033661 035062 0   0   400000000000 0            0            
FT9	033662 035062 0   0   400000000000 0            0            
ET0	033662 035062 0   0   400000000000 0            0            
ST1	033662 035062 0   0   400000000000 0            0            
ST2	033662 035062 0   0   400000000000 0            0            
ST9	033662 035062 0   0   400000000000 0            0            


*033662 SKIPN	0,000000
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033662 033662 0   0   336000000000 0            400000000000 
IT1	033662 0      0   0   336000000000 0            400000000000 
AT3	033662 0      0   0   0            0            336000000000 
AT6	033662 0      0   0   0            0            336000000000 
FT0	033662 0      0   0   400000000000 0            336000000000 
FT1A	033662 0      0   0   400000000000 0            400000000000 
FT9	033663 0      0   0   400000000000 0            400000000000 
ET0	033664 0      0   0   400000000000 0            400000000000 
ST1A	033664 0      0   0   400000000000 0            400000000000 
ST9	033664 0      0   0   400000000000 0            400000000000 


*033664 JUMPA	0,033665
INITIAL
C(AC)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033664 033664 0   0   324000033665 0            000000033665 
IT1	033664 0      0   0   324000033665 0            000000033665 
AT3	033664 0      0   0   000000033665 0            324000033665 
AT6	033664 033665 0   0   000000033665 0            324000033665 
FT1A	033664 033665 0   0   000000033665 0            000000033665 
FT2	033664 033665 0   0   0            0            000000033665 
FT2RQ	033664 033665 0   0   400000000000 0            000000033665 
FT3	033664 033665 0   0   400000000000 0            000000033665 
FT9	033665 033665 0   0   400000000000 0            000000033665 
ET0	033665 033665 0   0   400000000000 0            000000033665 
ST1A	033665 033665 0   0   400000000000 0            000000033665 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 503
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0719

ST9	033665 033665 0   0   400000000000 0            000000033665 


*033665 MOVE 	0,035074
INITIAL
C(AC)=400000 000000 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033665 033665 0   0   200000035074 0            000000000001 
IT1	033665 0      0   0   200000035074 0            000000000001 
AT3	033665 0      0   0   000000035074 0            200000035074 
AT6	033665 035074 0   0   000000035074 0            200000035074 
FT0	033665 035074 0   0   000000000001 0            200000035074 
FT1A	033665 035074 0   0   000000000001 0            000000000001 
FT9	033666 035074 0   0   000000000001 0            000000000001 
ET0	033666 035074 0   0   000000000001 0            000000000001 
ST1	033666 035074 0   0   000000000001 0            000000000001 
ST2	033666 035074 0   0   000000000001 0            000000000001 
ST9	033666 035074 0   0   000000000001 0            000000000001 


*033666 XOR 	0,035074
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033666 033666 0   0   430000035074 0            000000000001 
IT1	033666 0      0   0   430000035074 0            000000000001 
AT3	033666 0      0   0   000000035074 0            430000035074 
AT6	033666 035074 0   0   000000035074 0            430000035074 
FT0	033666 035074 0   0   000000000001 0            430000035074 
FT1A	033666 035074 0   0   000000000001 0            000000000001 
FT2	033666 035074 0   0   0            0            000000000001 
FT2RQ	033666 035074 0   0   000000000001 0            000000000001 
FT3	033666 035074 0   0   000000000001 0            000000000001 
FT9	033667 035074 0   0   000000000001 0            000000000001 
ET0	033667 035074 0   0   0            0            000000000001 
ST1	033667 035074 0   0   0            0            000000000001 
ST2	033667 035074 0   0   0            0            000000000001 
ST9	033667 035074 0   0   0            0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 504
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0720

*033667 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	033667 033667 0   0   332000000000 0            0            
IT1	033667 0      0   0   332000000000 0            0            
AT3	033667 0      0   0   0            0            332000000000 
AT6	033667 0      0   0   0            0            332000000000 
FT0	033667 0      0   0   0            0            332000000000 
FT1A	033667 0      0   0   0            0            0            
FT9	033670 0      0   0   0            0            0            
ET0	033671 0      0   0   0            0            0            
ST1A	033671 0      0   0   0            0            0            
ST9	033671 0      0   0   0            0            0            


*033671 JUMPA	0,033672
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033671 033671 0   0   324000033672 0            000000033672 
IT1	033671 0      0   0   324000033672 0            000000033672 
AT3	033671 0      0   0   000000033672 0            324000033672 
AT6	033671 033672 0   0   000000033672 0            324000033672 
FT1A	033671 033672 0   0   000000033672 0            000000033672 
FT2	033671 033672 0   0   0            0            000000033672 
FT2RQ	033671 033672 0   0   0            0            000000033672 
FT3	033671 033672 0   0   0            0            000000033672 
FT9	033672 033672 0   0   0            0            000000033672 
ET0	033672 033672 0   0   0            0            000000033672 
ST1A	033672 033672 0   0   0            0            000000033672 
ST9	033672 033672 0   0   0            0            000000033672 


*033672 MOVE 	0,035075
INITIAL
C(AC)=000000 000000 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033672 033672 0   0   200000035075 0            000000000002 
IT1	033672 0      0   0   200000035075 0            000000000002 
AT3	033672 0      0   0   000000035075 0            200000035075 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 505
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0721

AT6	033672 035075 0   0   000000035075 0            200000035075 
FT0	033672 035075 0   0   000000000002 0            200000035075 
FT1A	033672 035075 0   0   000000000002 0            000000000002 
FT9	033673 035075 0   0   000000000002 0            000000000002 
ET0	033673 035075 0   0   000000000002 0            000000000002 
ST1	033673 035075 0   0   000000000002 0            000000000002 
ST2	033673 035075 0   0   000000000002 0            000000000002 
ST9	033673 035075 0   0   000000000002 0            000000000002 


*033673 XOR 	0,035075
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033673 033673 0   0   430000035075 0            000000000002 
IT1	033673 0      0   0   430000035075 0            000000000002 
AT3	033673 0      0   0   000000035075 0            430000035075 
AT6	033673 035075 0   0   000000035075 0            430000035075 
FT0	033673 035075 0   0   000000000002 0            430000035075 
FT1A	033673 035075 0   0   000000000002 0            000000000002 
FT2	033673 035075 0   0   0            0            000000000002 
FT2RQ	033673 035075 0   0   000000000002 0            000000000002 
FT3	033673 035075 0   0   000000000002 0            000000000002 
FT9	033674 035075 0   0   000000000002 0            000000000002 
ET0	033674 035075 0   0   0            0            000000000002 
ST1	033674 035075 0   0   0            0            000000000002 
ST2	033674 035075 0   0   0            0            000000000002 
ST9	033674 035075 0   0   0            0            000000000002 


*033674 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	033674 033674 0   0   332000000000 0            0            
IT1	033674 0      0   0   332000000000 0            0            
AT3	033674 0      0   0   0            0            332000000000 
AT6	033674 0      0   0   0            0            332000000000 
FT0	033674 0      0   0   0            0            332000000000 
FT1A	033674 0      0   0   0            0            0            
FT9	033675 0      0   0   0            0            0            
ET0	033676 0      0   0   0            0            0            
ST1A	033676 0      0   0   0            0            0            
ST9	033676 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 506
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0722



*033676 JUMPA	0,033677
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033676 033676 0   0   324000033677 0            000000033677 
IT1	033676 0      0   0   324000033677 0            000000033677 
AT3	033676 0      0   0   000000033677 0            324000033677 
AT6	033676 033677 0   0   000000033677 0            324000033677 
FT1A	033676 033677 0   0   000000033677 0            000000033677 
FT2	033676 033677 0   0   0            0            000000033677 
FT2RQ	033676 033677 0   0   0            0            000000033677 
FT3	033676 033677 0   0   0            0            000000033677 
FT9	033677 033677 0   0   0            0            000000033677 
ET0	033677 033677 0   0   0            0            000000033677 
ST1A	033677 033677 0   0   0            0            000000033677 
ST9	033677 033677 0   0   0            0            000000033677 


*033677 MOVE 	0,035076
INITIAL
C(AC)=000000 000000 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033677 033677 0   0   200000035076 0            000000000004 
IT1	033677 0      0   0   200000035076 0            000000000004 
AT3	033677 0      0   0   000000035076 0            200000035076 
AT6	033677 035076 0   0   000000035076 0            200000035076 
FT0	033677 035076 0   0   000000000004 0            200000035076 
FT1A	033677 035076 0   0   000000000004 0            000000000004 
FT9	0      035076 0   0   000000000004 0            000000000004 
ET0	0      035076 0   0   000000000004 0            000000000004 
ST1	0      035076 0   0   000000000004 0            000000000004 
ST2	0      035076 0   0   000000000004 0            000000000004 
ST9	0      035076 0   0   000000000004 0            000000000004 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 507
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0723

*033700 XOR 	0,035076
INITIAL
C(AC)=000000 000004 
C(E)=000000 000004 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   430000035076 0            000000000004 
IT1	0      0      0   0   430000035076 0            000000000004 
AT3	0      0      0   0   000000035076 0            430000035076 
AT6	0      035076 0   0   000000035076 0            430000035076 
FT0	0      035076 0   0   000000000004 0            430000035076 
FT1A	0      035076 0   0   000000000004 0            000000000004 
FT2	0      035076 0   0   0            0            000000000004 
FT2RQ	0      035076 0   0   000000000004 0            000000000004 
FT3	0      035076 0   0   000000000004 0            000000000004 
FT9	033701 035076 0   0   000000000004 0            000000000004 
ET0	033701 035076 0   0   0            0            000000000004 
ST1	033701 035076 0   0   0            0            000000000004 
ST2	033701 035076 0   0   0            0            000000000004 
ST9	033701 035076 0   0   0            0            000000000004 


*033701 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	033701 033701 0   0   332000000000 0            0            
IT1	033701 0      0   0   332000000000 0            0            
AT3	033701 0      0   0   0            0            332000000000 
AT6	033701 0      0   0   0            0            332000000000 
FT0	033701 0      0   0   0            0            332000000000 
FT1A	033701 0      0   0   0            0            0            
FT9	033702 0      0   0   0            0            0            
ET0	033703 0      0   0   0            0            0            
ST1A	033703 0      0   0   0            0            0            
ST9	033703 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 508
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0724

*033703 JUMPA	0,033704
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033703 033703 0   0   324000033704 0            000000033704 
IT1	033703 0      0   0   324000033704 0            000000033704 
AT3	033703 0      0   0   000000033704 0            324000033704 
AT6	033703 033704 0   0   000000033704 0            324000033704 
FT1A	033703 033704 0   0   000000033704 0            000000033704 
FT2	033703 033704 0   0   0            0            000000033704 
FT2RQ	033703 033704 0   0   0            0            000000033704 
FT3	033703 033704 0   0   0            0            000000033704 
FT9	033704 033704 0   0   0            0            000000033704 
ET0	033704 033704 0   0   0            0            000000033704 
ST1A	033704 033704 0   0   0            0            000000033704 
ST9	033704 033704 0   0   0            0            000000033704 


*033704 MOVE 	0,035077
INITIAL
C(AC)=000000 000000 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033704 033704 0   0   200000035077 0            000000000010 
IT1	033704 0      0   0   200000035077 0            000000000010 
AT3	033704 0      0   0   000000035077 0            200000035077 
AT6	033704 035077 0   0   000000035077 0            200000035077 
FT0	033704 035077 0   0   000000000010 0            200000035077 
FT1A	033704 035077 0   0   000000000010 0            000000000010 
FT9	033705 035077 0   0   000000000010 0            000000000010 
ET0	033705 035077 0   0   000000000010 0            000000000010 
ST1	033705 035077 0   0   000000000010 0            000000000010 
ST2	033705 035077 0   0   000000000010 0            000000000010 
ST9	033705 035077 0   0   000000000010 0            000000000010 


*033705 XOR 	0,035077
INITIAL
C(AC)=000000 000010 
C(E)=000000 000010 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033705 033705 0   0   430000035077 0            000000000010 
IT1	033705 0      0   0   430000035077 0            000000000010 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 509
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0725

AT3	033705 0      0   0   000000035077 0            430000035077 
AT6	033705 035077 0   0   000000035077 0            430000035077 
FT0	033705 035077 0   0   000000000010 0            430000035077 
FT1A	033705 035077 0   0   000000000010 0            000000000010 
FT2	033705 035077 0   0   0            0            000000000010 
FT2RQ	033705 035077 0   0   000000000010 0            000000000010 
FT3	033705 035077 0   0   000000000010 0            000000000010 
FT9	033706 035077 0   0   000000000010 0            000000000010 
ET0	033706 035077 0   0   0            0            000000000010 
ST1	033706 035077 0   0   0            0            000000000010 
ST2	033706 035077 0   0   0            0            000000000010 
ST9	033706 035077 0   0   0            0            000000000010 


*033706 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	033706 033706 0   0   332000000000 0            0            
IT1	033706 0      0   0   332000000000 0            0            
AT3	033706 0      0   0   0            0            332000000000 
AT6	033706 0      0   0   0            0            332000000000 
FT0	033706 0      0   0   0            0            332000000000 
FT1A	033706 0      0   0   0            0            0            
FT9	033707 0      0   0   0            0            0            
ET0	033710 0      0   0   0            0            0            
ST1A	033710 0      0   0   0            0            0            
ST9	033710 0      0   0   0            0            0            


*033710 JUMPA	0,033711
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033710 033710 0   0   324000033711 0            000000033711 
IT1	033710 0      0   0   324000033711 0            000000033711 
AT3	033710 0      0   0   000000033711 0            324000033711 
AT6	033710 033711 0   0   000000033711 0            324000033711 
FT1A	033710 033711 0   0   000000033711 0            000000033711 
FT2	033710 033711 0   0   0            0            000000033711 
FT2RQ	033710 033711 0   0   0            0            000000033711 
FT3	033710 033711 0   0   0            0            000000033711 
FT9	033711 033711 0   0   0            0            000000033711 
ET0	033711 033711 0   0   0            0            000000033711 
ST1A	033711 033711 0   0   0            0            000000033711 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 510
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0726

ST9	033711 033711 0   0   0            0            000000033711 


*033711 MOVE 	0,035100
INITIAL
C(AC)=000000 000000 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033711 033711 0   0   200000035100 0            000000000020 
IT1	033711 0      0   0   200000035100 0            000000000020 
AT3	033711 0      0   0   000000035100 0            200000035100 
AT6	033711 0      0   0   000000035100 0            200000035100 
FT0	033711 0      0   0   000000000020 0            200000035100 
FT1A	033711 0      0   0   000000000020 0            000000000020 
FT9	033712 0      0   0   000000000020 0            000000000020 
ET0	033712 0      0   0   000000000020 0            000000000020 
ST1	033712 0      0   0   000000000020 0            000000000020 
ST2	033712 0      0   0   000000000020 0            000000000020 
ST9	033712 0      0   0   000000000020 0            000000000020 


*033712 XOR 	0,035100
INITIAL
C(AC)=000000 000020 
C(E)=000000 000020 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033712 033712 0   0   430000035100 0            000000000020 
IT1	033712 0      0   0   430000035100 0            000000000020 
AT3	033712 0      0   0   000000035100 0            430000035100 
AT6	033712 0      0   0   000000035100 0            430000035100 
FT0	033712 0      0   0   000000000020 0            430000035100 
FT1A	033712 0      0   0   000000000020 0            000000000020 
FT2	033712 0      0   0   0            0            000000000020 
FT2RQ	033712 0      0   0   000000000020 0            000000000020 
FT3	033712 0      0   0   000000000020 0            000000000020 
FT9	033713 0      0   0   000000000020 0            000000000020 
ET0	033713 0      0   0   0            0            000000000020 
ST1	033713 0      0   0   0            0            000000000020 
ST2	033713 0      0   0   0            0            000000000020 
ST9	033713 0      0   0   0            0            000000000020 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 511
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0727

*033713 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	033713 033713 0   0   332000000000 0            0            
IT1	033713 0      0   0   332000000000 0            0            
AT3	033713 0      0   0   0            0            332000000000 
AT6	033713 0      0   0   0            0            332000000000 
FT0	033713 0      0   0   0            0            332000000000 
FT1A	033713 0      0   0   0            0            0            
FT9	033714 0      0   0   0            0            0            
ET0	033715 0      0   0   0            0            0            
ST1A	033715 0      0   0   0            0            0            
ST9	033715 0      0   0   0            0            0            


*033715 JUMPA	0,033716
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033715 033715 0   0   324000033716 0            000000033716 
IT1	033715 0      0   0   324000033716 0            000000033716 
AT3	033715 0      0   0   000000033716 0            324000033716 
AT6	033715 033716 0   0   000000033716 0            324000033716 
FT1A	033715 033716 0   0   000000033716 0            000000033716 
FT2	033715 033716 0   0   0            0            000000033716 
FT2RQ	033715 033716 0   0   0            0            000000033716 
FT3	033715 033716 0   0   0            0            000000033716 
FT9	033716 033716 0   0   0            0            000000033716 
ET0	033716 033716 0   0   0            0            000000033716 
ST1A	033716 033716 0   0   0            0            000000033716 
ST9	033716 033716 0   0   0            0            000000033716 


*033716 MOVE 	0,035101
INITIAL
C(AC)=000000 000000 
C(E)=000000 000040 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033716 033716 0   0   200000035101 0            000000000040 
IT1	033716 0      0   0   200000035101 0            000000000040 
AT3	033716 0      0   0   000000035101 0            200000035101 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 512
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0728

AT6	033716 035101 0   0   000000035101 0            200000035101 
FT0	033716 035101 0   0   000000000040 0            200000035101 
FT1A	033716 035101 0   0   000000000040 0            000000000040 
FT9	033717 035101 0   0   000000000040 0            000000000040 
ET0	033717 035101 0   0   000000000040 0            000000000040 
ST1	033717 035101 0   0   000000000040 0            000000000040 
ST2	033717 035101 0   0   000000000040 0            000000000040 
ST9	033717 035101 0   0   000000000040 0            000000000040 


*033717 XOR 	0,035101
INITIAL
C(AC)=000000 000040 
C(E)=000000 000040 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033717 033717 0   0   430000035101 0            000000000040 
IT1	033717 0      0   0   430000035101 0            000000000040 
AT3	033717 0      0   0   000000035101 0            430000035101 
AT6	033717 035101 0   0   000000035101 0            430000035101 
FT0	033717 035101 0   0   000000000040 0            430000035101 
FT1A	033717 035101 0   0   000000000040 0            000000000040 
FT2	033717 035101 0   0   0            0            000000000040 
FT2RQ	033717 035101 0   0   000000000040 0            000000000040 
FT3	033717 035101 0   0   000000000040 0            000000000040 
FT9	033720 035101 0   0   000000000040 0            000000000040 
ET0	033720 035101 0   0   0            0            000000000040 
ST1	033720 035101 0   0   0            0            000000000040 
ST2	033720 035101 0   0   0            0            000000000040 
ST9	033720 035101 0   0   0            0            000000000040 


*033720 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	033720 033720 0   0   332000000000 0            0            
IT1	033720 0      0   0   332000000000 0            0            
AT3	033720 0      0   0   0            0            332000000000 
AT6	033720 0      0   0   0            0            332000000000 
FT0	033720 0      0   0   0            0            332000000000 
FT1A	033720 0      0   0   0            0            0            
FT9	033721 0      0   0   0            0            0            
ET0	033722 0      0   0   0            0            0            
ST1A	033722 0      0   0   0            0            0            
ST9	033722 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 513
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0729



*033722 JUMPA	0,033723
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033722 033722 0   0   324000033723 0            000000033723 
IT1	033722 0      0   0   324000033723 0            000000033723 
AT3	033722 0      0   0   000000033723 0            324000033723 
AT6	033722 033723 0   0   000000033723 0            324000033723 
FT1A	033722 033723 0   0   000000033723 0            000000033723 
FT2	033722 033723 0   0   0            0            000000033723 
FT2RQ	033722 033723 0   0   0            0            000000033723 
FT3	033722 033723 0   0   0            0            000000033723 
FT9	033723 033723 0   0   0            0            000000033723 
ET0	033723 033723 0   0   0            0            000000033723 
ST1A	033723 033723 0   0   0            0            000000033723 
ST9	033723 033723 0   0   0            0            000000033723 


*033723 MOVE 	0,035102
INITIAL
C(AC)=000000 000000 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033723 033723 0   0   200000035102 0            000000000100 
IT1	033723 0      0   0   200000035102 0            000000000100 
AT3	033723 0      0   0   000000035102 0            200000035102 
AT6	033723 035102 0   0   000000035102 0            200000035102 
FT0	033723 035102 0   0   000000000100 0            200000035102 
FT1A	033723 035102 0   0   000000000100 0            000000000100 
FT9	033724 035102 0   0   000000000100 0            000000000100 
ET0	033724 035102 0   0   000000000100 0            000000000100 
ST1	033724 035102 0   0   000000000100 0            000000000100 
ST2	033724 035102 0   0   000000000100 0            000000000100 
ST9	033724 035102 0   0   000000000100 0            000000000100 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 514
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0730

*033724 XOR 	0,035102
INITIAL
C(AC)=000000 000100 
C(E)=000000 000100 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033724 033724 0   0   430000035102 0            000000000100 
IT1	033724 0      0   0   430000035102 0            000000000100 
AT3	033724 0      0   0   000000035102 0            430000035102 
AT6	033724 035102 0   0   000000035102 0            430000035102 
FT0	033724 035102 0   0   000000000100 0            430000035102 
FT1A	033724 035102 0   0   000000000100 0            000000000100 
FT2	033724 035102 0   0   0            0            000000000100 
FT2RQ	033724 035102 0   0   000000000100 0            000000000100 
FT3	033724 035102 0   0   000000000100 0            000000000100 
FT9	033725 035102 0   0   000000000100 0            000000000100 
ET0	033725 035102 0   0   0            0            000000000100 
ST1	033725 035102 0   0   0            0            000000000100 
ST2	033725 035102 0   0   0            0            000000000100 
ST9	033725 035102 0   0   0            0            000000000100 


*033725 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	033725 033725 0   0   332000000000 0            0            
IT1	033725 0      0   0   332000000000 0            0            
AT3	033725 0      0   0   0            0            332000000000 
AT6	033725 0      0   0   0            0            332000000000 
FT0	033725 0      0   0   0            0            332000000000 
FT1A	033725 0      0   0   0            0            0            
FT9	033726 0      0   0   0            0            0            
ET0	033727 0      0   0   0            0            0            
ST1A	033727 0      0   0   0            0            0            
ST9	033727 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 515
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0731

*033727 JUMPA	0,033730
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033727 033727 0   0   324000033730 0            000000033730 
IT1	033727 0      0   0   324000033730 0            000000033730 
AT3	033727 0      0   0   000000033730 0            324000033730 
AT6	033727 033730 0   0   000000033730 0            324000033730 
FT1A	033727 033730 0   0   000000033730 0            000000033730 
FT2	033727 033730 0   0   0            0            000000033730 
FT2RQ	033727 033730 0   0   0            0            000000033730 
FT3	033727 033730 0   0   0            0            000000033730 
FT9	033730 033730 0   0   0            0            000000033730 
ET0	033730 033730 0   0   0            0            000000033730 
ST1A	033730 033730 0   0   0            0            000000033730 
ST9	033730 033730 0   0   0            0            000000033730 


*033730 MOVE 	0,035103
INITIAL
C(AC)=000000 000000 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033730 033730 0   0   200000035103 0            000000000200 
IT1	033730 0      0   0   200000035103 0            000000000200 
AT3	033730 0      0   0   000000035103 0            200000035103 
AT6	033730 035103 0   0   000000035103 0            200000035103 
FT0	033730 035103 0   0   000000000200 0            200000035103 
FT1A	033730 035103 0   0   000000000200 0            000000000200 
FT9	033731 035103 0   0   000000000200 0            000000000200 
ET0	033731 035103 0   0   000000000200 0            000000000200 
ST1	033731 035103 0   0   000000000200 0            000000000200 
ST2	033731 035103 0   0   000000000200 0            000000000200 
ST9	033731 035103 0   0   000000000200 0            000000000200 


*033731 XOR 	0,035103
INITIAL
C(AC)=000000 000200 
C(E)=000000 000200 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033731 033731 0   0   430000035103 0            000000000200 
IT1	033731 0      0   0   430000035103 0            000000000200 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 516
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0732

AT3	033731 0      0   0   000000035103 0            430000035103 
AT6	033731 035103 0   0   000000035103 0            430000035103 
FT0	033731 035103 0   0   000000000200 0            430000035103 
FT1A	033731 035103 0   0   000000000200 0            000000000200 
FT2	033731 035103 0   0   0            0            000000000200 
FT2RQ	033731 035103 0   0   000000000200 0            000000000200 
FT3	033731 035103 0   0   000000000200 0            000000000200 
FT9	033732 035103 0   0   000000000200 0            000000000200 
ET0	033732 035103 0   0   0            0            000000000200 
ST1	033732 035103 0   0   0            0            000000000200 
ST2	033732 035103 0   0   0            0            000000000200 
ST9	033732 035103 0   0   0            0            000000000200 


*033732 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	033732 033732 0   0   332000000000 0            0            
IT1	033732 0      0   0   332000000000 0            0            
AT3	033732 0      0   0   0            0            332000000000 
AT6	033732 0      0   0   0            0            332000000000 
FT0	033732 0      0   0   0            0            332000000000 
FT1A	033732 0      0   0   0            0            0            
FT9	033733 0      0   0   0            0            0            
ET0	033734 0      0   0   0            0            0            
ST1A	033734 0      0   0   0            0            0            
ST9	033734 0      0   0   0            0            0            


*033734 JUMPA	0,033735
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033734 033734 0   0   324000033735 0            000000033735 
IT1	033734 0      0   0   324000033735 0            000000033735 
AT3	033734 0      0   0   000000033735 0            324000033735 
AT6	033734 033735 0   0   000000033735 0            324000033735 
FT1A	033734 033735 0   0   000000033735 0            000000033735 
FT2	033734 033735 0   0   0            0            000000033735 
FT2RQ	033734 033735 0   0   0            0            000000033735 
FT3	033734 033735 0   0   0            0            000000033735 
FT9	033735 033735 0   0   0            0            000000033735 
ET0	033735 033735 0   0   0            0            000000033735 
ST1A	033735 033735 0   0   0            0            000000033735 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 517
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0733

ST9	033735 033735 0   0   0            0            000000033735 


*033735 MOVE 	0,035104
INITIAL
C(AC)=000000 000000 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033735 033735 0   0   200000035104 0            000000000400 
IT1	033735 0      0   0   200000035104 0            000000000400 
AT3	033735 0      0   0   000000035104 0            200000035104 
AT6	033735 035104 0   0   000000035104 0            200000035104 
FT0	033735 035104 0   0   000000000400 0            200000035104 
FT1A	033735 035104 0   0   000000000400 0            000000000400 
FT9	033736 035104 0   0   000000000400 0            000000000400 
ET0	033736 035104 0   0   000000000400 0            000000000400 
ST1	033736 035104 0   0   000000000400 0            000000000400 
ST2	033736 035104 0   0   000000000400 0            000000000400 
ST9	033736 035104 0   0   000000000400 0            000000000400 


*033736 XOR 	0,035104
INITIAL
C(AC)=000000 000400 
C(E)=000000 000400 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033736 033736 0   0   430000035104 0            000000000400 
IT1	033736 0      0   0   430000035104 0            000000000400 
AT3	033736 0      0   0   000000035104 0            430000035104 
AT6	033736 035104 0   0   000000035104 0            430000035104 
FT0	033736 035104 0   0   000000000400 0            430000035104 
FT1A	033736 035104 0   0   000000000400 0            000000000400 
FT2	033736 035104 0   0   0            0            000000000400 
FT2RQ	033736 035104 0   0   000000000400 0            000000000400 
FT3	033736 035104 0   0   000000000400 0            000000000400 
FT9	033737 035104 0   0   000000000400 0            000000000400 
ET0	033737 035104 0   0   0            0            000000000400 
ST1	033737 035104 0   0   0            0            000000000400 
ST2	033737 035104 0   0   0            0            000000000400 
ST9	033737 035104 0   0   0            0            000000000400 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 518
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0734

*033737 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	033737 033737 0   0   332000000000 0            0            
IT1	033737 0      0   0   332000000000 0            0            
AT3	033737 0      0   0   0            0            332000000000 
AT6	033737 0      0   0   0            0            332000000000 
FT0	033737 0      0   0   0            0            332000000000 
FT1A	033737 0      0   0   0            0            0            
FT9	033740 0      0   0   0            0            0            
ET0	033741 0      0   0   0            0            0            
ST1A	033741 0      0   0   0            0            0            
ST9	033741 0      0   0   0            0            0            


*033741 JUMPA	0,033742
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033741 033741 0   0   324000033742 0            000000033742 
IT1	033741 0      0   0   324000033742 0            000000033742 
AT3	033741 0      0   0   000000033742 0            324000033742 
AT6	033741 033742 0   0   000000033742 0            324000033742 
FT1A	033741 033742 0   0   000000033742 0            000000033742 
FT2	033741 033742 0   0   0            0            000000033742 
FT2RQ	033741 033742 0   0   0            0            000000033742 
FT3	033741 033742 0   0   0            0            000000033742 
FT9	033742 033742 0   0   0            0            000000033742 
ET0	033742 033742 0   0   0            0            000000033742 
ST1A	033742 033742 0   0   0            0            000000033742 
ST9	033742 033742 0   0   0            0            000000033742 


*033742 MOVE 	0,035105
INITIAL
C(AC)=000000 000000 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033742 033742 0   0   200000035105 0            000000001000 
IT1	033742 0      0   0   200000035105 0            000000001000 
AT3	033742 0      0   0   000000035105 0            200000035105 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 519
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0735

AT6	033742 035105 0   0   000000035105 0            200000035105 
FT0	033742 035105 0   0   000000001000 0            200000035105 
FT1A	033742 035105 0   0   000000001000 0            000000001000 
FT9	033743 035105 0   0   000000001000 0            000000001000 
ET0	033743 035105 0   0   000000001000 0            000000001000 
ST1	033743 035105 0   0   000000001000 0            000000001000 
ST2	033743 035105 0   0   000000001000 0            000000001000 
ST9	033743 035105 0   0   000000001000 0            000000001000 


*033743 XOR 	0,035105
INITIAL
C(AC)=000000 001000 
C(E)=000000 001000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033743 033743 0   0   430000035105 0            000000001000 
IT1	033743 0      0   0   430000035105 0            000000001000 
AT3	033743 0      0   0   000000035105 0            430000035105 
AT6	033743 035105 0   0   000000035105 0            430000035105 
FT0	033743 035105 0   0   000000001000 0            430000035105 
FT1A	033743 035105 0   0   000000001000 0            000000001000 
FT2	033743 035105 0   0   0            0            000000001000 
FT2RQ	033743 035105 0   0   000000001000 0            000000001000 
FT3	033743 035105 0   0   000000001000 0            000000001000 
FT9	033744 035105 0   0   000000001000 0            000000001000 
ET0	033744 035105 0   0   0            0            000000001000 
ST1	033744 035105 0   0   0            0            000000001000 
ST2	033744 035105 0   0   0            0            000000001000 
ST9	033744 035105 0   0   0            0            000000001000 


*033744 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	033744 033744 0   0   332000000000 0            0            
IT1	033744 0      0   0   332000000000 0            0            
AT3	033744 0      0   0   0            0            332000000000 
AT6	033744 0      0   0   0            0            332000000000 
FT0	033744 0      0   0   0            0            332000000000 
FT1A	033744 0      0   0   0            0            0            
FT9	033745 0      0   0   0            0            0            
ET0	033746 0      0   0   0            0            0            
ST1A	033746 0      0   0   0            0            0            
ST9	033746 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 520
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0736



*033746 JUMPA	0,033747
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033746 033746 0   0   324000033747 0            000000033747 
IT1	033746 0      0   0   324000033747 0            000000033747 
AT3	033746 0      0   0   000000033747 0            324000033747 
AT6	033746 033747 0   0   000000033747 0            324000033747 
FT1A	033746 033747 0   0   000000033747 0            000000033747 
FT2	033746 033747 0   0   0            0            000000033747 
FT2RQ	033746 033747 0   0   0            0            000000033747 
FT3	033746 033747 0   0   0            0            000000033747 
FT9	033747 033747 0   0   0            0            000000033747 
ET0	033747 033747 0   0   0            0            000000033747 
ST1A	033747 033747 0   0   0            0            000000033747 
ST9	033747 033747 0   0   0            0            000000033747 


*033747 MOVE 	0,035106
INITIAL
C(AC)=000000 000000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033747 033747 0   0   200000035106 0            000000002000 
IT1	033747 0      0   0   200000035106 0            000000002000 
AT3	033747 0      0   0   000000035106 0            200000035106 
AT6	033747 035106 0   0   000000035106 0            200000035106 
FT0	033747 035106 0   0   000000002000 0            200000035106 
FT1A	033747 035106 0   0   000000002000 0            000000002000 
FT9	033750 035106 0   0   000000002000 0            000000002000 
ET0	033750 035106 0   0   000000002000 0            000000002000 
ST1	033750 035106 0   0   000000002000 0            000000002000 
ST2	033750 035106 0   0   000000002000 0            000000002000 
ST9	033750 035106 0   0   000000002000 0            000000002000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 521
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0737

*033750 XOR 	0,035106
INITIAL
C(AC)=000000 002000 
C(E)=000000 002000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033750 033750 0   0   430000035106 0            000000002000 
IT1	033750 0      0   0   430000035106 0            000000002000 
AT3	033750 0      0   0   000000035106 0            430000035106 
AT6	033750 035106 0   0   000000035106 0            430000035106 
FT0	033750 035106 0   0   000000002000 0            430000035106 
FT1A	033750 035106 0   0   000000002000 0            000000002000 
FT2	033750 035106 0   0   0            0            000000002000 
FT2RQ	033750 035106 0   0   000000002000 0            000000002000 
FT3	033750 035106 0   0   000000002000 0            000000002000 
FT9	033751 035106 0   0   000000002000 0            000000002000 
ET0	033751 035106 0   0   0            0            000000002000 
ST1	033751 035106 0   0   0            0            000000002000 
ST2	033751 035106 0   0   0            0            000000002000 
ST9	033751 035106 0   0   0            0            000000002000 


*033751 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	033751 033751 0   0   332000000000 0            0            
IT1	033751 0      0   0   332000000000 0            0            
AT3	033751 0      0   0   0            0            332000000000 
AT6	033751 0      0   0   0            0            332000000000 
FT0	033751 0      0   0   0            0            332000000000 
FT1A	033751 0      0   0   0            0            0            
FT9	033752 0      0   0   0            0            0            
ET0	033753 0      0   0   0            0            0            
ST1A	033753 0      0   0   0            0            0            
ST9	033753 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 522
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0738

*033753 JUMPA	0,033754
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033753 033753 0   0   324000033754 0            000000033754 
IT1	033753 0      0   0   324000033754 0            000000033754 
AT3	033753 0      0   0   000000033754 0            324000033754 
AT6	033753 033754 0   0   000000033754 0            324000033754 
FT1A	033753 033754 0   0   000000033754 0            000000033754 
FT2	033753 033754 0   0   0            0            000000033754 
FT2RQ	033753 033754 0   0   0            0            000000033754 
FT3	033753 033754 0   0   0            0            000000033754 
FT9	033754 033754 0   0   0            0            000000033754 
ET0	033754 033754 0   0   0            0            000000033754 
ST1A	033754 033754 0   0   0            0            000000033754 
ST9	033754 033754 0   0   0            0            000000033754 


*033754 MOVE 	0,035107
INITIAL
C(AC)=000000 000000 
C(E)=000000 004000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033754 033754 0   0   200000035107 0            000000004000 
IT1	033754 0      0   0   200000035107 0            000000004000 
AT3	033754 0      0   0   000000035107 0            200000035107 
AT6	033754 035107 0   0   000000035107 0            200000035107 
FT0	033754 035107 0   0   000000004000 0            200000035107 
FT1A	033754 035107 0   0   000000004000 0            000000004000 
FT9	033755 035107 0   0   000000004000 0            000000004000 
ET0	033755 035107 0   0   000000004000 0            000000004000 
ST1	033755 035107 0   0   000000004000 0            000000004000 
ST2	033755 035107 0   0   000000004000 0            000000004000 
ST9	033755 035107 0   0   000000004000 0            000000004000 


*033755 XOR 	0,035107
INITIAL
C(AC)=000000 004000 
C(E)=000000 004000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033755 033755 0   0   430000035107 0            000000004000 
IT1	033755 0      0   0   430000035107 0            000000004000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 523
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0739

AT3	033755 0      0   0   000000035107 0            430000035107 
AT6	033755 035107 0   0   000000035107 0            430000035107 
FT0	033755 035107 0   0   000000004000 0            430000035107 
FT1A	033755 035107 0   0   000000004000 0            000000004000 
FT2	033755 035107 0   0   0            0            000000004000 
FT2RQ	033755 035107 0   0   000000004000 0            000000004000 
FT3	033755 035107 0   0   000000004000 0            000000004000 
FT9	033756 035107 0   0   000000004000 0            000000004000 
ET0	033756 035107 0   0   0            0            000000004000 
ST1	033756 035107 0   0   0            0            000000004000 
ST2	033756 035107 0   0   0            0            000000004000 
ST9	033756 035107 0   0   0            0            000000004000 


*033756 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	033756 033756 0   0   332000000000 0            0            
IT1	033756 0      0   0   332000000000 0            0            
AT3	033756 0      0   0   0            0            332000000000 
AT6	033756 0      0   0   0            0            332000000000 
FT0	033756 0      0   0   0            0            332000000000 
FT1A	033756 0      0   0   0            0            0            
FT9	033757 0      0   0   0            0            0            
ET0	033760 0      0   0   0            0            0            
ST1A	033760 0      0   0   0            0            0            
ST9	033760 0      0   0   0            0            0            


*033760 JUMPA	0,033761
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033760 033760 0   0   324000033761 0            000000033761 
IT1	033760 0      0   0   324000033761 0            000000033761 
AT3	033760 0      0   0   000000033761 0            324000033761 
AT6	033760 033761 0   0   000000033761 0            324000033761 
FT1A	033760 033761 0   0   000000033761 0            000000033761 
FT2	033760 033761 0   0   0            0            000000033761 
FT2RQ	033760 033761 0   0   0            0            000000033761 
FT3	033760 033761 0   0   0            0            000000033761 
FT9	033761 033761 0   0   0            0            000000033761 
ET0	033761 033761 0   0   0            0            000000033761 
ST1A	033761 033761 0   0   0            0            000000033761 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 524
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0740

ST9	033761 033761 0   0   0            0            000000033761 


*033761 MOVE 	0,035110
INITIAL
C(AC)=000000 000000 
C(E)=000000 010000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033761 033761 0   0   200000035110 0            000000010000 
IT1	033761 0      0   0   200000035110 0            000000010000 
AT3	033761 0      0   0   000000035110 0            200000035110 
AT6	033761 035110 0   0   000000035110 0            200000035110 
FT0	033761 035110 0   0   000000010000 0            200000035110 
FT1A	033761 035110 0   0   000000010000 0            000000010000 
FT9	033762 035110 0   0   000000010000 0            000000010000 
ET0	033762 035110 0   0   000000010000 0            000000010000 
ST1	033762 035110 0   0   000000010000 0            000000010000 
ST2	033762 035110 0   0   000000010000 0            000000010000 
ST9	033762 035110 0   0   000000010000 0            000000010000 


*033762 XOR 	0,035110
INITIAL
C(AC)=000000 010000 
C(E)=000000 010000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033762 033762 0   0   430000035110 0            000000010000 
IT1	033762 0      0   0   430000035110 0            000000010000 
AT3	033762 0      0   0   000000035110 0            430000035110 
AT6	033762 035110 0   0   000000035110 0            430000035110 
FT0	033762 035110 0   0   000000010000 0            430000035110 
FT1A	033762 035110 0   0   000000010000 0            000000010000 
FT2	033762 035110 0   0   0            0            000000010000 
FT2RQ	033762 035110 0   0   000000010000 0            000000010000 
FT3	033762 035110 0   0   000000010000 0            000000010000 
FT9	033763 035110 0   0   000000010000 0            000000010000 
ET0	033763 035110 0   0   0            0            000000010000 
ST1	033763 035110 0   0   0            0            000000010000 
ST2	033763 035110 0   0   0            0            000000010000 
ST9	033763 035110 0   0   0            0            000000010000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 525
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0741

*033763 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	033763 033763 0   0   332000000000 0            0            
IT1	033763 0      0   0   332000000000 0            0            
AT3	033763 0      0   0   0            0            332000000000 
AT6	033763 0      0   0   0            0            332000000000 
FT0	033763 0      0   0   0            0            332000000000 
FT1A	033763 0      0   0   0            0            0            
FT9	033764 0      0   0   0            0            0            
ET0	033765 0      0   0   0            0            0            
ST1A	033765 0      0   0   0            0            0            
ST9	033765 0      0   0   0            0            0            


*033765 JUMPA	0,033766
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033765 033765 0   0   324000033766 0            000000033766 
IT1	033765 0      0   0   324000033766 0            000000033766 
AT3	033765 0      0   0   000000033766 0            324000033766 
AT6	033765 033766 0   0   000000033766 0            324000033766 
FT1A	033765 033766 0   0   000000033766 0            000000033766 
FT2	033765 033766 0   0   0            0            000000033766 
FT2RQ	033765 033766 0   0   0            0            000000033766 
FT3	033765 033766 0   0   0            0            000000033766 
FT9	033766 033766 0   0   0            0            000000033766 
ET0	033766 033766 0   0   0            0            000000033766 
ST1A	033766 033766 0   0   0            0            000000033766 
ST9	033766 033766 0   0   0            0            000000033766 


*033766 MOVE 	0,035111
INITIAL
C(AC)=000000 000000 
C(E)=000000 020000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033766 033766 0   0   200000035111 0            000000020000 
IT1	033766 0      0   0   200000035111 0            000000020000 
AT3	033766 0      0   0   000000035111 0            200000035111 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 526
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0742

AT6	033766 035111 0   0   000000035111 0            200000035111 
FT0	033766 035111 0   0   000000020000 0            200000035111 
FT1A	033766 035111 0   0   000000020000 0            000000020000 
FT9	033767 035111 0   0   000000020000 0            000000020000 
ET0	033767 035111 0   0   000000020000 0            000000020000 
ST1	033767 035111 0   0   000000020000 0            000000020000 
ST2	033767 035111 0   0   000000020000 0            000000020000 
ST9	033767 035111 0   0   000000020000 0            000000020000 


*033767 XOR 	0,035111
INITIAL
C(AC)=000000 020000 
C(E)=000000 020000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033767 033767 0   0   430000035111 0            000000020000 
IT1	033767 0      0   0   430000035111 0            000000020000 
AT3	033767 0      0   0   000000035111 0            430000035111 
AT6	033767 035111 0   0   000000035111 0            430000035111 
FT0	033767 035111 0   0   000000020000 0            430000035111 
FT1A	033767 035111 0   0   000000020000 0            000000020000 
FT2	033767 035111 0   0   0            0            000000020000 
FT2RQ	033767 035111 0   0   000000020000 0            000000020000 
FT3	033767 035111 0   0   000000020000 0            000000020000 
FT9	033770 035111 0   0   000000020000 0            000000020000 
ET0	033770 035111 0   0   0            0            000000020000 
ST1	033770 035111 0   0   0            0            000000020000 
ST2	033770 035111 0   0   0            0            000000020000 
ST9	033770 035111 0   0   0            0            000000020000 


*033770 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	033770 033770 0   0   332000000000 0            0            
IT1	033770 0      0   0   332000000000 0            0            
AT3	033770 0      0   0   0            0            332000000000 
AT6	033770 0      0   0   0            0            332000000000 
FT0	033770 0      0   0   0            0            332000000000 
FT1A	033770 0      0   0   0            0            0            
FT9	033771 0      0   0   0            0            0            
ET0	033772 0      0   0   0            0            0            
ST1A	033772 0      0   0   0            0            0            
ST9	033772 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 527
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0743



*033772 JUMPA	0,033773
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033772 033772 0   0   324000033773 0            000000033773 
IT1	033772 0      0   0   324000033773 0            000000033773 
AT3	033772 0      0   0   000000033773 0            324000033773 
AT6	033772 033773 0   0   000000033773 0            324000033773 
FT1A	033772 033773 0   0   000000033773 0            000000033773 
FT2	033772 033773 0   0   0            0            000000033773 
FT2RQ	033772 033773 0   0   0            0            000000033773 
FT3	033772 033773 0   0   0            0            000000033773 
FT9	033773 033773 0   0   0            0            000000033773 
ET0	033773 033773 0   0   0            0            000000033773 
ST1A	033773 033773 0   0   0            0            000000033773 
ST9	033773 033773 0   0   0            0            000000033773 


*033773 MOVE 	0,035112
INITIAL
C(AC)=000000 000000 
C(E)=000000 040000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033773 033773 0   0   200000035112 0            000000040000 
IT1	033773 0      0   0   200000035112 0            000000040000 
AT3	033773 0      0   0   000000035112 0            200000035112 
AT6	033773 035112 0   0   000000035112 0            200000035112 
FT0	033773 035112 0   0   000000040000 0            200000035112 
FT1A	033773 035112 0   0   000000040000 0            000000040000 
FT9	033774 035112 0   0   000000040000 0            000000040000 
ET0	033774 035112 0   0   000000040000 0            000000040000 
ST1	033774 035112 0   0   000000040000 0            000000040000 
ST2	033774 035112 0   0   000000040000 0            000000040000 
ST9	033774 035112 0   0   000000040000 0            000000040000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 528
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0744

*033774 XOR 	0,035112
INITIAL
C(AC)=000000 040000 
C(E)=000000 040000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033774 033774 0   0   430000035112 0            000000040000 
IT1	033774 0      0   0   430000035112 0            000000040000 
AT3	033774 0      0   0   000000035112 0            430000035112 
AT6	033774 035112 0   0   000000035112 0            430000035112 
FT0	033774 035112 0   0   000000040000 0            430000035112 
FT1A	033774 035112 0   0   000000040000 0            000000040000 
FT2	033774 035112 0   0   0            0            000000040000 
FT2RQ	033774 035112 0   0   000000040000 0            000000040000 
FT3	033774 035112 0   0   000000040000 0            000000040000 
FT9	033775 035112 0   0   000000040000 0            000000040000 
ET0	033775 035112 0   0   0            0            000000040000 
ST1	033775 035112 0   0   0            0            000000040000 
ST2	033775 035112 0   0   0            0            000000040000 
ST9	033775 035112 0   0   0            0            000000040000 


*033775 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	033775 033775 0   0   332000000000 0            0            
IT1	033775 0      0   0   332000000000 0            0            
AT3	033775 0      0   0   0            0            332000000000 
AT6	033775 0      0   0   0            0            332000000000 
FT0	033775 0      0   0   0            0            332000000000 
FT1A	033775 0      0   0   0            0            0            
FT9	033776 0      0   0   0            0            0            
ET0	033777 0      0   0   0            0            0            
ST1A	033777 0      0   0   0            0            0            
ST9	033777 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 529
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0745

*033777 JUMPA	0,034000
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033777 033777 0   0   324000034000 0            000000034000 
IT1	033777 0      0   0   324000034000 0            000000034000 
AT3	033777 0      0   0   000000034000 0            324000034000 
AT6	033777 0      0   0   000000034000 0            324000034000 
FT1A	033777 0      0   0   000000034000 0            000000034000 
FT2	033777 0      0   0   0            0            000000034000 
FT2RQ	033777 0      0   0   0            0            000000034000 
FT3	033777 0      0   0   0            0            000000034000 
FT9	0      0      0   0   0            0            000000034000 
ET0	0      0      0   0   0            0            000000034000 
ST1A	0      0      0   0   0            0            000000034000 
ST9	0      0      0   0   0            0            000000034000 


*034000 MOVE 	0,035113
INITIAL
C(AC)=000000 000000 
C(E)=000000 100000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   200000035113 0            000000100000 
IT1	0      0      0   0   200000035113 0            000000100000 
AT3	0      0      0   0   000000035113 0            200000035113 
AT6	0      035113 0   0   000000035113 0            200000035113 
FT0	0      035113 0   0   000000100000 0            200000035113 
FT1A	0      035113 0   0   000000100000 0            000000100000 
FT9	034001 035113 0   0   000000100000 0            000000100000 
ET0	034001 035113 0   0   000000100000 0            000000100000 
ST1	034001 035113 0   0   000000100000 0            000000100000 
ST2	034001 035113 0   0   000000100000 0            000000100000 
ST9	034001 035113 0   0   000000100000 0            000000100000 


*034001 XOR 	0,035113
INITIAL
C(AC)=000000 100000 
C(E)=000000 100000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034001 034001 0   0   430000035113 0            000000100000 
IT1	034001 0      0   0   430000035113 0            000000100000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 530
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0746

AT3	034001 0      0   0   000000035113 0            430000035113 
AT6	034001 035113 0   0   000000035113 0            430000035113 
FT0	034001 035113 0   0   000000100000 0            430000035113 
FT1A	034001 035113 0   0   000000100000 0            000000100000 
FT2	034001 035113 0   0   0            0            000000100000 
FT2RQ	034001 035113 0   0   000000100000 0            000000100000 
FT3	034001 035113 0   0   000000100000 0            000000100000 
FT9	034002 035113 0   0   000000100000 0            000000100000 
ET0	034002 035113 0   0   0            0            000000100000 
ST1	034002 035113 0   0   0            0            000000100000 
ST2	034002 035113 0   0   0            0            000000100000 
ST9	034002 035113 0   0   0            0            000000100000 


*034002 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	034002 034002 0   0   332000000000 0            0            
IT1	034002 0      0   0   332000000000 0            0            
AT3	034002 0      0   0   0            0            332000000000 
AT6	034002 0      0   0   0            0            332000000000 
FT0	034002 0      0   0   0            0            332000000000 
FT1A	034002 0      0   0   0            0            0            
FT9	034003 0      0   0   0            0            0            
ET0	034004 0      0   0   0            0            0            
ST1A	034004 0      0   0   0            0            0            
ST9	034004 0      0   0   0            0            0            


*034004 JUMPA	0,034005
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034004 034004 0   0   324000034005 0            000000034005 
IT1	034004 0      0   0   324000034005 0            000000034005 
AT3	034004 0      0   0   000000034005 0            324000034005 
AT6	034004 034005 0   0   000000034005 0            324000034005 
FT1A	034004 034005 0   0   000000034005 0            000000034005 
FT2	034004 034005 0   0   0            0            000000034005 
FT2RQ	034004 034005 0   0   0            0            000000034005 
FT3	034004 034005 0   0   0            0            000000034005 
FT9	034005 034005 0   0   0            0            000000034005 
ET0	034005 034005 0   0   0            0            000000034005 
ST1A	034005 034005 0   0   0            0            000000034005 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 531
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0747

ST9	034005 034005 0   0   0            0            000000034005 


*034005 MOVE 	0,035114
INITIAL
C(AC)=000000 000000 
C(E)=000000 200000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034005 034005 0   0   200000035114 0            000000200000 
IT1	034005 0      0   0   200000035114 0            000000200000 
AT3	034005 0      0   0   000000035114 0            200000035114 
AT6	034005 035114 0   0   000000035114 0            200000035114 
FT0	034005 035114 0   0   000000200000 0            200000035114 
FT1A	034005 035114 0   0   000000200000 0            000000200000 
FT9	034006 035114 0   0   000000200000 0            000000200000 
ET0	034006 035114 0   0   000000200000 0            000000200000 
ST1	034006 035114 0   0   000000200000 0            000000200000 
ST2	034006 035114 0   0   000000200000 0            000000200000 
ST9	034006 035114 0   0   000000200000 0            000000200000 


*034006 XOR 	0,035114
INITIAL
C(AC)=000000 200000 
C(E)=000000 200000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034006 034006 0   0   430000035114 0            000000200000 
IT1	034006 0      0   0   430000035114 0            000000200000 
AT3	034006 0      0   0   000000035114 0            430000035114 
AT6	034006 035114 0   0   000000035114 0            430000035114 
FT0	034006 035114 0   0   000000200000 0            430000035114 
FT1A	034006 035114 0   0   000000200000 0            000000200000 
FT2	034006 035114 0   0   0            0            000000200000 
FT2RQ	034006 035114 0   0   000000200000 0            000000200000 
FT3	034006 035114 0   0   000000200000 0            000000200000 
FT9	034007 035114 0   0   000000200000 0            000000200000 
ET0	034007 035114 0   0   0            0            000000200000 
ST1	034007 035114 0   0   0            0            000000200000 
ST2	034007 035114 0   0   0            0            000000200000 
ST9	034007 035114 0   0   0            0            000000200000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 532
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0748

*034007 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	034007 034007 0   0   332000000000 0            0            
IT1	034007 0      0   0   332000000000 0            0            
AT3	034007 0      0   0   0            0            332000000000 
AT6	034007 0      0   0   0            0            332000000000 
FT0	034007 0      0   0   0            0            332000000000 
FT1A	034007 0      0   0   0            0            0            
FT9	034010 0      0   0   0            0            0            
ET0	034011 0      0   0   0            0            0            
ST1A	034011 0      0   0   0            0            0            
ST9	034011 0      0   0   0            0            0            


*034011 JUMPA	0,034012
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034011 034011 0   0   324000034012 0            000000034012 
IT1	034011 0      0   0   324000034012 0            000000034012 
AT3	034011 0      0   0   000000034012 0            324000034012 
AT6	034011 034012 0   0   000000034012 0            324000034012 
FT1A	034011 034012 0   0   000000034012 0            000000034012 
FT2	034011 034012 0   0   0            0            000000034012 
FT2RQ	034011 034012 0   0   0            0            000000034012 
FT3	034011 034012 0   0   0            0            000000034012 
FT9	034012 034012 0   0   0            0            000000034012 
ET0	034012 034012 0   0   0            0            000000034012 
ST1A	034012 034012 0   0   0            0            000000034012 
ST9	034012 034012 0   0   0            0            000000034012 


*034012 MOVE 	0,035115
INITIAL
C(AC)=000000 000000 
C(E)=000000 400000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034012 034012 0   0   200000035115 0            000000400000 
IT1	034012 0      0   0   200000035115 0            000000400000 
AT3	034012 0      0   0   000000035115 0            200000035115 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 533
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0749

AT6	034012 035115 0   0   000000035115 0            200000035115 
FT0	034012 035115 0   0   000000400000 0            200000035115 
FT1A	034012 035115 0   0   000000400000 0            000000400000 
FT9	034013 035115 0   0   000000400000 0            000000400000 
ET0	034013 035115 0   0   000000400000 0            000000400000 
ST1	034013 035115 0   0   000000400000 0            000000400000 
ST2	034013 035115 0   0   000000400000 0            000000400000 
ST9	034013 035115 0   0   000000400000 0            000000400000 


*034013 XOR 	0,035115
INITIAL
C(AC)=000000 400000 
C(E)=000000 400000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034013 034013 0   0   430000035115 0            000000400000 
IT1	034013 0      0   0   430000035115 0            000000400000 
AT3	034013 0      0   0   000000035115 0            430000035115 
AT6	034013 035115 0   0   000000035115 0            430000035115 
FT0	034013 035115 0   0   000000400000 0            430000035115 
FT1A	034013 035115 0   0   000000400000 0            000000400000 
FT2	034013 035115 0   0   0            0            000000400000 
FT2RQ	034013 035115 0   0   000000400000 0            000000400000 
FT3	034013 035115 0   0   000000400000 0            000000400000 
FT9	034014 035115 0   0   000000400000 0            000000400000 
ET0	034014 035115 0   0   0            0            000000400000 
ST1	034014 035115 0   0   0            0            000000400000 
ST2	034014 035115 0   0   0            0            000000400000 
ST9	034014 035115 0   0   0            0            000000400000 


*034014 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	034014 034014 0   0   332000000000 0            0            
IT1	034014 0      0   0   332000000000 0            0            
AT3	034014 0      0   0   0            0            332000000000 
AT6	034014 0      0   0   0            0            332000000000 
FT0	034014 0      0   0   0            0            332000000000 
FT1A	034014 0      0   0   0            0            0            
FT9	034015 0      0   0   0            0            0            
ET0	034016 0      0   0   0            0            0            
ST1A	034016 0      0   0   0            0            0            
ST9	034016 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 534
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0750



*034016 JUMPA	0,034017
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034016 034016 0   0   324000034017 0            000000034017 
IT1	034016 0      0   0   324000034017 0            000000034017 
AT3	034016 0      0   0   000000034017 0            324000034017 
AT6	034016 034017 0   0   000000034017 0            324000034017 
FT1A	034016 034017 0   0   000000034017 0            000000034017 
FT2	034016 034017 0   0   0            0            000000034017 
FT2RQ	034016 034017 0   0   0            0            000000034017 
FT3	034016 034017 0   0   0            0            000000034017 
FT9	034017 034017 0   0   0            0            000000034017 
ET0	034017 034017 0   0   0            0            000000034017 
ST1A	034017 034017 0   0   0            0            000000034017 
ST9	034017 034017 0   0   0            0            000000034017 


*034017 MOVE 	0,035116
INITIAL
C(AC)=000000 000000 
C(E)=000001 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034017 034017 0   0   200000035116 0            000001000000 
IT1	034017 0      0   0   200000035116 0            000001000000 
AT3	034017 0      0   0   000000035116 0            200000035116 
AT6	034017 035116 0   0   000000035116 0            200000035116 
FT0	034017 035116 0   0   000001000000 0            200000035116 
FT1A	034017 035116 0   0   000001000000 0            000001000000 
FT9	034020 035116 0   0   000001000000 0            000001000000 
ET0	034020 035116 0   0   000001000000 0            000001000000 
ST1	034020 035116 0   0   000001000000 0            000001000000 
ST2	034020 035116 0   0   000001000000 0            000001000000 
ST9	034020 035116 0   0   000001000000 0            000001000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 535
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0751

*034020 XOR 	0,035116
INITIAL
C(AC)=000001 000000 
C(E)=000001 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034020 034020 0   0   430000035116 0            000001000000 
IT1	034020 0      0   0   430000035116 0            000001000000 
AT3	034020 0      0   0   000000035116 0            430000035116 
AT6	034020 035116 0   0   000000035116 0            430000035116 
FT0	034020 035116 0   0   000001000000 0            430000035116 
FT1A	034020 035116 0   0   000001000000 0            000001000000 
FT2	034020 035116 0   0   0            0            000001000000 
FT2RQ	034020 035116 0   0   000001000000 0            000001000000 
FT3	034020 035116 0   0   000001000000 0            000001000000 
FT9	034021 035116 0   0   000001000000 0            000001000000 
ET0	034021 035116 0   0   0            0            000001000000 
ST1	034021 035116 0   0   0            0            000001000000 
ST2	034021 035116 0   0   0            0            000001000000 
ST9	034021 035116 0   0   0            0            000001000000 


*034021 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	034021 034021 0   0   332000000000 0            0            
IT1	034021 0      0   0   332000000000 0            0            
AT3	034021 0      0   0   0            0            332000000000 
AT6	034021 0      0   0   0            0            332000000000 
FT0	034021 0      0   0   0            0            332000000000 
FT1A	034021 0      0   0   0            0            0            
FT9	034022 0      0   0   0            0            0            
ET0	034023 0      0   0   0            0            0            
ST1A	034023 0      0   0   0            0            0            
ST9	034023 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 536
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0752

*034023 JUMPA	0,034024
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034023 034023 0   0   324000034024 0            000000034024 
IT1	034023 0      0   0   324000034024 0            000000034024 
AT3	034023 0      0   0   000000034024 0            324000034024 
AT6	034023 034024 0   0   000000034024 0            324000034024 
FT1A	034023 034024 0   0   000000034024 0            000000034024 
FT2	034023 034024 0   0   0            0            000000034024 
FT2RQ	034023 034024 0   0   0            0            000000034024 
FT3	034023 034024 0   0   0            0            000000034024 
FT9	034024 034024 0   0   0            0            000000034024 
ET0	034024 034024 0   0   0            0            000000034024 
ST1A	034024 034024 0   0   0            0            000000034024 
ST9	034024 034024 0   0   0            0            000000034024 


*034024 MOVE 	0,035117
INITIAL
C(AC)=000000 000000 
C(E)=000002 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034024 034024 0   0   200000035117 0            000002000000 
IT1	034024 0      0   0   200000035117 0            000002000000 
AT3	034024 0      0   0   000000035117 0            200000035117 
AT6	034024 035117 0   0   000000035117 0            200000035117 
FT0	034024 035117 0   0   000002000000 0            200000035117 
FT1A	034024 035117 0   0   000002000000 0            000002000000 
FT9	034025 035117 0   0   000002000000 0            000002000000 
ET0	034025 035117 0   0   000002000000 0            000002000000 
ST1	034025 035117 0   0   000002000000 0            000002000000 
ST2	034025 035117 0   0   000002000000 0            000002000000 
ST9	034025 035117 0   0   000002000000 0            000002000000 


*034025 XOR 	0,035117
INITIAL
C(AC)=000002 000000 
C(E)=000002 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034025 034025 0   0   430000035117 0            000002000000 
IT1	034025 0      0   0   430000035117 0            000002000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 537
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0753

AT3	034025 0      0   0   000000035117 0            430000035117 
AT6	034025 035117 0   0   000000035117 0            430000035117 
FT0	034025 035117 0   0   000002000000 0            430000035117 
FT1A	034025 035117 0   0   000002000000 0            000002000000 
FT2	034025 035117 0   0   0            0            000002000000 
FT2RQ	034025 035117 0   0   000002000000 0            000002000000 
FT3	034025 035117 0   0   000002000000 0            000002000000 
FT9	034026 035117 0   0   000002000000 0            000002000000 
ET0	034026 035117 0   0   0            0            000002000000 
ST1	034026 035117 0   0   0            0            000002000000 
ST2	034026 035117 0   0   0            0            000002000000 
ST9	034026 035117 0   0   0            0            000002000000 


*034026 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	034026 034026 0   0   332000000000 0            0            
IT1	034026 0      0   0   332000000000 0            0            
AT3	034026 0      0   0   0            0            332000000000 
AT6	034026 0      0   0   0            0            332000000000 
FT0	034026 0      0   0   0            0            332000000000 
FT1A	034026 0      0   0   0            0            0            
FT9	034027 0      0   0   0            0            0            
ET0	034030 0      0   0   0            0            0            
ST1A	034030 0      0   0   0            0            0            
ST9	034030 0      0   0   0            0            0            


*034030 JUMPA	0,034031
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034030 034030 0   0   324000034031 0            000000034031 
IT1	034030 0      0   0   324000034031 0            000000034031 
AT3	034030 0      0   0   000000034031 0            324000034031 
AT6	034030 034031 0   0   000000034031 0            324000034031 
FT1A	034030 034031 0   0   000000034031 0            000000034031 
FT2	034030 034031 0   0   0            0            000000034031 
FT2RQ	034030 034031 0   0   0            0            000000034031 
FT3	034030 034031 0   0   0            0            000000034031 
FT9	034031 034031 0   0   0            0            000000034031 
ET0	034031 034031 0   0   0            0            000000034031 
ST1A	034031 034031 0   0   0            0            000000034031 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 538
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0754

ST9	034031 034031 0   0   0            0            000000034031 


*034031 MOVE 	0,035120
INITIAL
C(AC)=000000 000000 
C(E)=000004 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034031 034031 0   0   200000035120 0            000004000000 
IT1	034031 0      0   0   200000035120 0            000004000000 
AT3	034031 0      0   0   000000035120 0            200000035120 
AT6	034031 035120 0   0   000000035120 0            200000035120 
FT0	034031 035120 0   0   000004000000 0            200000035120 
FT1A	034031 035120 0   0   000004000000 0            000004000000 
FT9	034032 035120 0   0   000004000000 0            000004000000 
ET0	034032 035120 0   0   000004000000 0            000004000000 
ST1	034032 035120 0   0   000004000000 0            000004000000 
ST2	034032 035120 0   0   000004000000 0            000004000000 
ST9	034032 035120 0   0   000004000000 0            000004000000 


*034032 XOR 	0,035120
INITIAL
C(AC)=000004 000000 
C(E)=000004 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034032 034032 0   0   430000035120 0            000004000000 
IT1	034032 0      0   0   430000035120 0            000004000000 
AT3	034032 0      0   0   000000035120 0            430000035120 
AT6	034032 035120 0   0   000000035120 0            430000035120 
FT0	034032 035120 0   0   000004000000 0            430000035120 
FT1A	034032 035120 0   0   000004000000 0            000004000000 
FT2	034032 035120 0   0   0            0            000004000000 
FT2RQ	034032 035120 0   0   000004000000 0            000004000000 
FT3	034032 035120 0   0   000004000000 0            000004000000 
FT9	034033 035120 0   0   000004000000 0            000004000000 
ET0	034033 035120 0   0   0            0            000004000000 
ST1	034033 035120 0   0   0            0            000004000000 
ST2	034033 035120 0   0   0            0            000004000000 
ST9	034033 035120 0   0   0            0            000004000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 539
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0755

*034033 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	034033 034033 0   0   332000000000 0            0            
IT1	034033 0      0   0   332000000000 0            0            
AT3	034033 0      0   0   0            0            332000000000 
AT6	034033 0      0   0   0            0            332000000000 
FT0	034033 0      0   0   0            0            332000000000 
FT1A	034033 0      0   0   0            0            0            
FT9	034034 0      0   0   0            0            0            
ET0	034035 0      0   0   0            0            0            
ST1A	034035 0      0   0   0            0            0            
ST9	034035 0      0   0   0            0            0            


*034035 JUMPA	0,034036
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034035 034035 0   0   324000034036 0            000000034036 
IT1	034035 0      0   0   324000034036 0            000000034036 
AT3	034035 0      0   0   000000034036 0            324000034036 
AT6	034035 034036 0   0   000000034036 0            324000034036 
FT1A	034035 034036 0   0   000000034036 0            000000034036 
FT2	034035 034036 0   0   0            0            000000034036 
FT2RQ	034035 034036 0   0   0            0            000000034036 
FT3	034035 034036 0   0   0            0            000000034036 
FT9	034036 034036 0   0   0            0            000000034036 
ET0	034036 034036 0   0   0            0            000000034036 
ST1A	034036 034036 0   0   0            0            000000034036 
ST9	034036 034036 0   0   0            0            000000034036 


*034036 MOVE 	0,035121
INITIAL
C(AC)=000000 000000 
C(E)=000010 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034036 034036 0   0   200000035121 0            000010000000 
IT1	034036 0      0   0   200000035121 0            000010000000 
AT3	034036 0      0   0   000000035121 0            200000035121 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 540
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0756

AT6	034036 035121 0   0   000000035121 0            200000035121 
FT0	034036 035121 0   0   000010000000 0            200000035121 
FT1A	034036 035121 0   0   000010000000 0            000010000000 
FT9	034037 035121 0   0   000010000000 0            000010000000 
ET0	034037 035121 0   0   000010000000 0            000010000000 
ST1	034037 035121 0   0   000010000000 0            000010000000 
ST2	034037 035121 0   0   000010000000 0            000010000000 
ST9	034037 035121 0   0   000010000000 0            000010000000 


*034037 XOR 	0,035121
INITIAL
C(AC)=000010 000000 
C(E)=000010 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034037 034037 0   0   430000035121 0            000010000000 
IT1	034037 0      0   0   430000035121 0            000010000000 
AT3	034037 0      0   0   000000035121 0            430000035121 
AT6	034037 035121 0   0   000000035121 0            430000035121 
FT0	034037 035121 0   0   000010000000 0            430000035121 
FT1A	034037 035121 0   0   000010000000 0            000010000000 
FT2	034037 035121 0   0   0            0            000010000000 
FT2RQ	034037 035121 0   0   000010000000 0            000010000000 
FT3	034037 035121 0   0   000010000000 0            000010000000 
FT9	034040 035121 0   0   000010000000 0            000010000000 
ET0	034040 035121 0   0   0            0            000010000000 
ST1	034040 035121 0   0   0            0            000010000000 
ST2	034040 035121 0   0   0            0            000010000000 
ST9	034040 035121 0   0   0            0            000010000000 


*034040 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	034040 034040 0   0   332000000000 0            0            
IT1	034040 0      0   0   332000000000 0            0            
AT3	034040 0      0   0   0            0            332000000000 
AT6	034040 0      0   0   0            0            332000000000 
FT0	034040 0      0   0   0            0            332000000000 
FT1A	034040 0      0   0   0            0            0            
FT9	034041 0      0   0   0            0            0            
ET0	034042 0      0   0   0            0            0            
ST1A	034042 0      0   0   0            0            0            
ST9	034042 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 541
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0757



*034042 JUMPA	0,034043
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034042 034042 0   0   324000034043 0            000000034043 
IT1	034042 0      0   0   324000034043 0            000000034043 
AT3	034042 0      0   0   000000034043 0            324000034043 
AT6	034042 034043 0   0   000000034043 0            324000034043 
FT1A	034042 034043 0   0   000000034043 0            000000034043 
FT2	034042 034043 0   0   0            0            000000034043 
FT2RQ	034042 034043 0   0   0            0            000000034043 
FT3	034042 034043 0   0   0            0            000000034043 
FT9	034043 034043 0   0   0            0            000000034043 
ET0	034043 034043 0   0   0            0            000000034043 
ST1A	034043 034043 0   0   0            0            000000034043 
ST9	034043 034043 0   0   0            0            000000034043 


*034043 MOVE 	0,035122
INITIAL
C(AC)=000000 000000 
C(E)=000020 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034043 034043 0   0   200000035122 0            000020000000 
IT1	034043 0      0   0   200000035122 0            000020000000 
AT3	034043 0      0   0   000000035122 0            200000035122 
AT6	034043 035122 0   0   000000035122 0            200000035122 
FT0	034043 035122 0   0   000020000000 0            200000035122 
FT1A	034043 035122 0   0   000020000000 0            000020000000 
FT9	034044 035122 0   0   000020000000 0            000020000000 
ET0	034044 035122 0   0   000020000000 0            000020000000 
ST1	034044 035122 0   0   000020000000 0            000020000000 
ST2	034044 035122 0   0   000020000000 0            000020000000 
ST9	034044 035122 0   0   000020000000 0            000020000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 542
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0758

*034044 XOR 	0,035122
INITIAL
C(AC)=000020 000000 
C(E)=000020 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034044 034044 0   0   430000035122 0            000020000000 
IT1	034044 0      0   0   430000035122 0            000020000000 
AT3	034044 0      0   0   000000035122 0            430000035122 
AT6	034044 035122 0   0   000000035122 0            430000035122 
FT0	034044 035122 0   0   000020000000 0            430000035122 
FT1A	034044 035122 0   0   000020000000 0            000020000000 
FT2	034044 035122 0   0   0            0            000020000000 
FT2RQ	034044 035122 0   0   000020000000 0            000020000000 
FT3	034044 035122 0   0   000020000000 0            000020000000 
FT9	034045 035122 0   0   000020000000 0            000020000000 
ET0	034045 035122 0   0   0            0            000020000000 
ST1	034045 035122 0   0   0            0            000020000000 
ST2	034045 035122 0   0   0            0            000020000000 
ST9	034045 035122 0   0   0            0            000020000000 


*034045 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	034045 034045 0   0   332000000000 0            0            
IT1	034045 0      0   0   332000000000 0            0            
AT3	034045 0      0   0   0            0            332000000000 
AT6	034045 0      0   0   0            0            332000000000 
FT0	034045 0      0   0   0            0            332000000000 
FT1A	034045 0      0   0   0            0            0            
FT9	034046 0      0   0   0            0            0            
ET0	034047 0      0   0   0            0            0            
ST1A	034047 0      0   0   0            0            0            
ST9	034047 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 543
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0759

*034047 JUMPA	0,034050
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034047 034047 0   0   324000034050 0            000000034050 
IT1	034047 0      0   0   324000034050 0            000000034050 
AT3	034047 0      0   0   000000034050 0            324000034050 
AT6	034047 034050 0   0   000000034050 0            324000034050 
FT1A	034047 034050 0   0   000000034050 0            000000034050 
FT2	034047 034050 0   0   0            0            000000034050 
FT2RQ	034047 034050 0   0   0            0            000000034050 
FT3	034047 034050 0   0   0            0            000000034050 
FT9	034050 034050 0   0   0            0            000000034050 
ET0	034050 034050 0   0   0            0            000000034050 
ST1A	034050 034050 0   0   0            0            000000034050 
ST9	034050 034050 0   0   0            0            000000034050 


*034050 MOVE 	0,035123
INITIAL
C(AC)=000000 000000 
C(E)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034050 034050 0   0   200000035123 0            000040000000 
IT1	034050 0      0   0   200000035123 0            000040000000 
AT3	034050 0      0   0   000000035123 0            200000035123 
AT6	034050 035123 0   0   000000035123 0            200000035123 
FT0	034050 035123 0   0   000040000000 0            200000035123 
FT1A	034050 035123 0   0   000040000000 0            000040000000 
FT9	034051 035123 0   0   000040000000 0            000040000000 
ET0	034051 035123 0   0   000040000000 0            000040000000 
ST1	034051 035123 0   0   000040000000 0            000040000000 
ST2	034051 035123 0   0   000040000000 0            000040000000 
ST9	034051 035123 0   0   000040000000 0            000040000000 


*034051 XOR 	0,035123
INITIAL
C(AC)=000040 000000 
C(E)=000040 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034051 034051 0   0   430000035123 0            000040000000 
IT1	034051 0      0   0   430000035123 0            000040000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 544
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0760

AT3	034051 0      0   0   000000035123 0            430000035123 
AT6	034051 035123 0   0   000000035123 0            430000035123 
FT0	034051 035123 0   0   000040000000 0            430000035123 
FT1A	034051 035123 0   0   000040000000 0            000040000000 
FT2	034051 035123 0   0   0            0            000040000000 
FT2RQ	034051 035123 0   0   000040000000 0            000040000000 
FT3	034051 035123 0   0   000040000000 0            000040000000 
FT9	034052 035123 0   0   000040000000 0            000040000000 
ET0	034052 035123 0   0   0            0            000040000000 
ST1	034052 035123 0   0   0            0            000040000000 
ST2	034052 035123 0   0   0            0            000040000000 
ST9	034052 035123 0   0   0            0            000040000000 


*034052 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	034052 034052 0   0   332000000000 0            0            
IT1	034052 0      0   0   332000000000 0            0            
AT3	034052 0      0   0   0            0            332000000000 
AT6	034052 0      0   0   0            0            332000000000 
FT0	034052 0      0   0   0            0            332000000000 
FT1A	034052 0      0   0   0            0            0            
FT9	034053 0      0   0   0            0            0            
ET0	034054 0      0   0   0            0            0            
ST1A	034054 0      0   0   0            0            0            
ST9	034054 0      0   0   0            0            0            


*034054 JUMPA	0,034055
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034054 034054 0   0   324000034055 0            000000034055 
IT1	034054 0      0   0   324000034055 0            000000034055 
AT3	034054 0      0   0   000000034055 0            324000034055 
AT6	034054 034055 0   0   000000034055 0            324000034055 
FT1A	034054 034055 0   0   000000034055 0            000000034055 
FT2	034054 034055 0   0   0            0            000000034055 
FT2RQ	034054 034055 0   0   0            0            000000034055 
FT3	034054 034055 0   0   0            0            000000034055 
FT9	034055 034055 0   0   0            0            000000034055 
ET0	034055 034055 0   0   0            0            000000034055 
ST1A	034055 034055 0   0   0            0            000000034055 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 545
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0761

ST9	034055 034055 0   0   0            0            000000034055 


*034055 MOVE 	0,035124
INITIAL
C(AC)=000000 000000 
C(E)=000100 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034055 034055 0   0   200000035124 0            000100000000 
IT1	034055 0      0   0   200000035124 0            000100000000 
AT3	034055 0      0   0   000000035124 0            200000035124 
AT6	034055 035124 0   0   000000035124 0            200000035124 
FT0	034055 035124 0   0   000100000000 0            200000035124 
FT1A	034055 035124 0   0   000100000000 0            000100000000 
FT9	034056 035124 0   0   000100000000 0            000100000000 
ET0	034056 035124 0   0   000100000000 0            000100000000 
ST1	034056 035124 0   0   000100000000 0            000100000000 
ST2	034056 035124 0   0   000100000000 0            000100000000 
ST9	034056 035124 0   0   000100000000 0            000100000000 


*034056 XOR 	0,035124
INITIAL
C(AC)=000100 000000 
C(E)=000100 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034056 034056 0   0   430000035124 0            000100000000 
IT1	034056 0      0   0   430000035124 0            000100000000 
AT3	034056 0      0   0   000000035124 0            430000035124 
AT6	034056 035124 0   0   000000035124 0            430000035124 
FT0	034056 035124 0   0   000100000000 0            430000035124 
FT1A	034056 035124 0   0   000100000000 0            000100000000 
FT2	034056 035124 0   0   0            0            000100000000 
FT2RQ	034056 035124 0   0   000100000000 0            000100000000 
FT3	034056 035124 0   0   000100000000 0            000100000000 
FT9	034057 035124 0   0   000100000000 0            000100000000 
ET0	034057 035124 0   0   0            0            000100000000 
ST1	034057 035124 0   0   0            0            000100000000 
ST2	034057 035124 0   0   0            0            000100000000 
ST9	034057 035124 0   0   0            0            000100000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 546
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0762

*034057 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	034057 034057 0   0   332000000000 0            0            
IT1	034057 0      0   0   332000000000 0            0            
AT3	034057 0      0   0   0            0            332000000000 
AT6	034057 0      0   0   0            0            332000000000 
FT0	034057 0      0   0   0            0            332000000000 
FT1A	034057 0      0   0   0            0            0            
FT9	034060 0      0   0   0            0            0            
ET0	034061 0      0   0   0            0            0            
ST1A	034061 0      0   0   0            0            0            
ST9	034061 0      0   0   0            0            0            


*034061 JUMPA	0,034062
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034061 034061 0   0   324000034062 0            000000034062 
IT1	034061 0      0   0   324000034062 0            000000034062 
AT3	034061 0      0   0   000000034062 0            324000034062 
AT6	034061 034062 0   0   000000034062 0            324000034062 
FT1A	034061 034062 0   0   000000034062 0            000000034062 
FT2	034061 034062 0   0   0            0            000000034062 
FT2RQ	034061 034062 0   0   0            0            000000034062 
FT3	034061 034062 0   0   0            0            000000034062 
FT9	034062 034062 0   0   0            0            000000034062 
ET0	034062 034062 0   0   0            0            000000034062 
ST1A	034062 034062 0   0   0            0            000000034062 
ST9	034062 034062 0   0   0            0            000000034062 


*034062 MOVE 	0,035125
INITIAL
C(AC)=000000 000000 
C(E)=000200 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034062 034062 0   0   200000035125 0            000200000000 
IT1	034062 0      0   0   200000035125 0            000200000000 
AT3	034062 0      0   0   000000035125 0            200000035125 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 547
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0763

AT6	034062 035125 0   0   000000035125 0            200000035125 
FT0	034062 035125 0   0   000200000000 0            200000035125 
FT1A	034062 035125 0   0   000200000000 0            000200000000 
FT9	034063 035125 0   0   000200000000 0            000200000000 
ET0	034063 035125 0   0   000200000000 0            000200000000 
ST1	034063 035125 0   0   000200000000 0            000200000000 
ST2	034063 035125 0   0   000200000000 0            000200000000 
ST9	034063 035125 0   0   000200000000 0            000200000000 


*034063 XOR 	0,035125
INITIAL
C(AC)=000200 000000 
C(E)=000200 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034063 034063 0   0   430000035125 0            000200000000 
IT1	034063 0      0   0   430000035125 0            000200000000 
AT3	034063 0      0   0   000000035125 0            430000035125 
AT6	034063 035125 0   0   000000035125 0            430000035125 
FT0	034063 035125 0   0   000200000000 0            430000035125 
FT1A	034063 035125 0   0   000200000000 0            000200000000 
FT2	034063 035125 0   0   0            0            000200000000 
FT2RQ	034063 035125 0   0   000200000000 0            000200000000 
FT3	034063 035125 0   0   000200000000 0            000200000000 
FT9	034064 035125 0   0   000200000000 0            000200000000 
ET0	034064 035125 0   0   0            0            000200000000 
ST1	034064 035125 0   0   0            0            000200000000 
ST2	034064 035125 0   0   0            0            000200000000 
ST9	034064 035125 0   0   0            0            000200000000 


*034064 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	034064 034064 0   0   332000000000 0            0            
IT1	034064 0      0   0   332000000000 0            0            
AT3	034064 0      0   0   0            0            332000000000 
AT6	034064 0      0   0   0            0            332000000000 
FT0	034064 0      0   0   0            0            332000000000 
FT1A	034064 0      0   0   0            0            0            
FT9	034065 0      0   0   0            0            0            
ET0	034066 0      0   0   0            0            0            
ST1A	034066 0      0   0   0            0            0            
ST9	034066 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 548
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0764



*034066 JUMPA	0,034067
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034066 034066 0   0   324000034067 0            000000034067 
IT1	034066 0      0   0   324000034067 0            000000034067 
AT3	034066 0      0   0   000000034067 0            324000034067 
AT6	034066 034067 0   0   000000034067 0            324000034067 
FT1A	034066 034067 0   0   000000034067 0            000000034067 
FT2	034066 034067 0   0   0            0            000000034067 
FT2RQ	034066 034067 0   0   0            0            000000034067 
FT3	034066 034067 0   0   0            0            000000034067 
FT9	034067 034067 0   0   0            0            000000034067 
ET0	034067 034067 0   0   0            0            000000034067 
ST1A	034067 034067 0   0   0            0            000000034067 
ST9	034067 034067 0   0   0            0            000000034067 


*034067 MOVE 	0,035073
INITIAL
C(AC)=000000 000000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034067 034067 0   0   200000035073 0            000400000000 
IT1	034067 0      0   0   200000035073 0            000400000000 
AT3	034067 0      0   0   000000035073 0            200000035073 
AT6	034067 035073 0   0   000000035073 0            200000035073 
FT0	034067 035073 0   0   000400000000 0            200000035073 
FT1A	034067 035073 0   0   000400000000 0            000400000000 
FT9	034070 035073 0   0   000400000000 0            000400000000 
ET0	034070 035073 0   0   000400000000 0            000400000000 
ST1	034070 035073 0   0   000400000000 0            000400000000 
ST2	034070 035073 0   0   000400000000 0            000400000000 
ST9	034070 035073 0   0   000400000000 0            000400000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 549
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0765

*034070 XOR 	0,035073
INITIAL
C(AC)=000400 000000 
C(E)=000400 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034070 034070 0   0   430000035073 0            000400000000 
IT1	034070 0      0   0   430000035073 0            000400000000 
AT3	034070 0      0   0   000000035073 0            430000035073 
AT6	034070 035073 0   0   000000035073 0            430000035073 
FT0	034070 035073 0   0   000400000000 0            430000035073 
FT1A	034070 035073 0   0   000400000000 0            000400000000 
FT2	034070 035073 0   0   0            0            000400000000 
FT2RQ	034070 035073 0   0   000400000000 0            000400000000 
FT3	034070 035073 0   0   000400000000 0            000400000000 
FT9	034071 035073 0   0   000400000000 0            000400000000 
ET0	034071 035073 0   0   0            0            000400000000 
ST1	034071 035073 0   0   0            0            000400000000 
ST2	034071 035073 0   0   0            0            000400000000 
ST9	034071 035073 0   0   0            0            000400000000 


*034071 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	034071 034071 0   0   332000000000 0            0            
IT1	034071 0      0   0   332000000000 0            0            
AT3	034071 0      0   0   0            0            332000000000 
AT6	034071 0      0   0   0            0            332000000000 
FT0	034071 0      0   0   0            0            332000000000 
FT1A	034071 0      0   0   0            0            0            
FT9	034072 0      0   0   0            0            0            
ET0	034073 0      0   0   0            0            0            
ST1A	034073 0      0   0   0            0            0            
ST9	034073 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 550
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0766

*034073 JUMPA	0,034074
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034073 034073 0   0   324000034074 0            000000034074 
IT1	034073 0      0   0   324000034074 0            000000034074 
AT3	034073 0      0   0   000000034074 0            324000034074 
AT6	034073 034074 0   0   000000034074 0            324000034074 
FT1A	034073 034074 0   0   000000034074 0            000000034074 
FT2	034073 034074 0   0   0            0            000000034074 
FT2RQ	034073 034074 0   0   0            0            000000034074 
FT3	034073 034074 0   0   0            0            000000034074 
FT9	034074 034074 0   0   0            0            000000034074 
ET0	034074 034074 0   0   0            0            000000034074 
ST1A	034074 034074 0   0   0            0            000000034074 
ST9	034074 034074 0   0   0            0            000000034074 


*034074 MOVE 	0,035126
INITIAL
C(AC)=000000 000000 
C(E)=001000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034074 034074 0   0   200000035126 0            001000000000 
IT1	034074 0      0   0   200000035126 0            001000000000 
AT3	034074 0      0   0   000000035126 0            200000035126 
AT6	034074 035126 0   0   000000035126 0            200000035126 
FT0	034074 035126 0   0   001000000000 0            200000035126 
FT1A	034074 035126 0   0   001000000000 0            001000000000 
FT9	034075 035126 0   0   001000000000 0            001000000000 
ET0	034075 035126 0   0   001000000000 0            001000000000 
ST1	034075 035126 0   0   001000000000 0            001000000000 
ST2	034075 035126 0   0   001000000000 0            001000000000 
ST9	034075 035126 0   0   001000000000 0            001000000000 


*034075 XOR 	0,035126
INITIAL
C(AC)=001000 000000 
C(E)=001000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034075 034075 0   0   430000035126 0            001000000000 
IT1	034075 0      0   0   430000035126 0            001000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 551
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0767

AT3	034075 0      0   0   000000035126 0            430000035126 
AT6	034075 035126 0   0   000000035126 0            430000035126 
FT0	034075 035126 0   0   001000000000 0            430000035126 
FT1A	034075 035126 0   0   001000000000 0            001000000000 
FT2	034075 035126 0   0   0            0            001000000000 
FT2RQ	034075 035126 0   0   001000000000 0            001000000000 
FT3	034075 035126 0   0   001000000000 0            001000000000 
FT9	034076 035126 0   0   001000000000 0            001000000000 
ET0	034076 035126 0   0   0            0            001000000000 
ST1	034076 035126 0   0   0            0            001000000000 
ST2	034076 035126 0   0   0            0            001000000000 
ST9	034076 035126 0   0   0            0            001000000000 


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


*034100 JUMPA	0,034101
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000034101 0            000000034101 
IT1	0      0      0   0   324000034101 0            000000034101 
AT3	0      0      0   0   000000034101 0            324000034101 
AT6	0      034101 0   0   000000034101 0            324000034101 
FT1A	0      034101 0   0   000000034101 0            000000034101 
FT2	0      034101 0   0   0            0            000000034101 
FT2RQ	0      034101 0   0   0            0            000000034101 
FT3	0      034101 0   0   0            0            000000034101 
FT9	034101 034101 0   0   0            0            000000034101 
ET0	034101 034101 0   0   0            0            000000034101 
ST1A	034101 034101 0   0   0            0            000000034101 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 552
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0768

ST9	034101 034101 0   0   0            0            000000034101 


*034101 MOVE 	0,035127
INITIAL
C(AC)=000000 000000 
C(E)=002000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034101 034101 0   0   200000035127 0            002000000000 
IT1	034101 0      0   0   200000035127 0            002000000000 
AT3	034101 0      0   0   000000035127 0            200000035127 
AT6	034101 035127 0   0   000000035127 0            200000035127 
FT0	034101 035127 0   0   002000000000 0            200000035127 
FT1A	034101 035127 0   0   002000000000 0            002000000000 
FT9	034102 035127 0   0   002000000000 0            002000000000 
ET0	034102 035127 0   0   002000000000 0            002000000000 
ST1	034102 035127 0   0   002000000000 0            002000000000 
ST2	034102 035127 0   0   002000000000 0            002000000000 
ST9	034102 035127 0   0   002000000000 0            002000000000 


*034102 XOR 	0,035127
INITIAL
C(AC)=002000 000000 
C(E)=002000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034102 034102 0   0   430000035127 0            002000000000 
IT1	034102 0      0   0   430000035127 0            002000000000 
AT3	034102 0      0   0   000000035127 0            430000035127 
AT6	034102 035127 0   0   000000035127 0            430000035127 
FT0	034102 035127 0   0   002000000000 0            430000035127 
FT1A	034102 035127 0   0   002000000000 0            002000000000 
FT2	034102 035127 0   0   0            0            002000000000 
FT2RQ	034102 035127 0   0   002000000000 0            002000000000 
FT3	034102 035127 0   0   002000000000 0            002000000000 
FT9	034103 035127 0   0   002000000000 0            002000000000 
ET0	034103 035127 0   0   0            0            002000000000 
ST1	034103 035127 0   0   0            0            002000000000 
ST2	034103 035127 0   0   0            0            002000000000 
ST9	034103 035127 0   0   0            0            002000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 553
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0769

*034103 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	034103 034103 0   0   332000000000 0            0            
IT1	034103 0      0   0   332000000000 0            0            
AT3	034103 0      0   0   0            0            332000000000 
AT6	034103 0      0   0   0            0            332000000000 
FT0	034103 0      0   0   0            0            332000000000 
FT1A	034103 0      0   0   0            0            0            
FT9	034104 0      0   0   0            0            0            
ET0	034105 0      0   0   0            0            0            
ST1A	034105 0      0   0   0            0            0            
ST9	034105 0      0   0   0            0            0            


*034105 JUMPA	0,034106
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034105 034105 0   0   324000034106 0            000000034106 
IT1	034105 0      0   0   324000034106 0            000000034106 
AT3	034105 0      0   0   000000034106 0            324000034106 
AT6	034105 034106 0   0   000000034106 0            324000034106 
FT1A	034105 034106 0   0   000000034106 0            000000034106 
FT2	034105 034106 0   0   0            0            000000034106 
FT2RQ	034105 034106 0   0   0            0            000000034106 
FT3	034105 034106 0   0   0            0            000000034106 
FT9	034106 034106 0   0   0            0            000000034106 
ET0	034106 034106 0   0   0            0            000000034106 
ST1A	034106 034106 0   0   0            0            000000034106 
ST9	034106 034106 0   0   0            0            000000034106 


*034106 MOVE 	0,035130
INITIAL
C(AC)=000000 000000 
C(E)=004000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034106 034106 0   0   200000035130 0            004000000000 
IT1	034106 0      0   0   200000035130 0            004000000000 
AT3	034106 0      0   0   000000035130 0            200000035130 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 554
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0770

AT6	034106 035130 0   0   000000035130 0            200000035130 
FT0	034106 035130 0   0   004000000000 0            200000035130 
FT1A	034106 035130 0   0   004000000000 0            004000000000 
FT9	034107 035130 0   0   004000000000 0            004000000000 
ET0	034107 035130 0   0   004000000000 0            004000000000 
ST1	034107 035130 0   0   004000000000 0            004000000000 
ST2	034107 035130 0   0   004000000000 0            004000000000 
ST9	034107 035130 0   0   004000000000 0            004000000000 


*034107 XOR 	0,035130
INITIAL
C(AC)=004000 000000 
C(E)=004000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034107 034107 0   0   430000035130 0            004000000000 
IT1	034107 0      0   0   430000035130 0            004000000000 
AT3	034107 0      0   0   000000035130 0            430000035130 
AT6	034107 035130 0   0   000000035130 0            430000035130 
FT0	034107 035130 0   0   004000000000 0            430000035130 
FT1A	034107 035130 0   0   004000000000 0            004000000000 
FT2	034107 035130 0   0   0            0            004000000000 
FT2RQ	034107 035130 0   0   004000000000 0            004000000000 
FT3	034107 035130 0   0   004000000000 0            004000000000 
FT9	034110 035130 0   0   004000000000 0            004000000000 
ET0	034110 035130 0   0   0            0            004000000000 
ST1	034110 035130 0   0   0            0            004000000000 
ST2	034110 035130 0   0   0            0            004000000000 
ST9	034110 035130 0   0   0            0            004000000000 


*034110 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	034110 034110 0   0   332000000000 0            0            
IT1	034110 0      0   0   332000000000 0            0            
AT3	034110 0      0   0   0            0            332000000000 
AT6	034110 0      0   0   0            0            332000000000 
FT0	034110 0      0   0   0            0            332000000000 
FT1A	034110 0      0   0   0            0            0            
FT9	034111 0      0   0   0            0            0            
ET0	034112 0      0   0   0            0            0            
ST1A	034112 0      0   0   0            0            0            
ST9	034112 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 555
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0771



*034112 JUMPA	0,034113
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034112 034112 0   0   324000034113 0            000000034113 
IT1	034112 0      0   0   324000034113 0            000000034113 
AT3	034112 0      0   0   000000034113 0            324000034113 
AT6	034112 034113 0   0   000000034113 0            324000034113 
FT1A	034112 034113 0   0   000000034113 0            000000034113 
FT2	034112 034113 0   0   0            0            000000034113 
FT2RQ	034112 034113 0   0   0            0            000000034113 
FT3	034112 034113 0   0   0            0            000000034113 
FT9	034113 034113 0   0   0            0            000000034113 
ET0	034113 034113 0   0   0            0            000000034113 
ST1A	034113 034113 0   0   0            0            000000034113 
ST9	034113 034113 0   0   0            0            000000034113 


*034113 MOVE 	0,035131
INITIAL
C(AC)=000000 000000 
C(E)=010000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034113 034113 0   0   200000035131 0            010000000000 
IT1	034113 0      0   0   200000035131 0            010000000000 
AT3	034113 0      0   0   000000035131 0            200000035131 
AT6	034113 035131 0   0   000000035131 0            200000035131 
FT0	034113 035131 0   0   010000000000 0            200000035131 
FT1A	034113 035131 0   0   010000000000 0            010000000000 
FT9	034114 035131 0   0   010000000000 0            010000000000 
ET0	034114 035131 0   0   010000000000 0            010000000000 
ST1	034114 035131 0   0   010000000000 0            010000000000 
ST2	034114 035131 0   0   010000000000 0            010000000000 
ST9	034114 035131 0   0   010000000000 0            010000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 556
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0772

*034114 XOR 	0,035131
INITIAL
C(AC)=010000 000000 
C(E)=010000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034114 034114 0   0   430000035131 0            010000000000 
IT1	034114 0      0   0   430000035131 0            010000000000 
AT3	034114 0      0   0   000000035131 0            430000035131 
AT6	034114 035131 0   0   000000035131 0            430000035131 
FT0	034114 035131 0   0   010000000000 0            430000035131 
FT1A	034114 035131 0   0   010000000000 0            010000000000 
FT2	034114 035131 0   0   0            0            010000000000 
FT2RQ	034114 035131 0   0   010000000000 0            010000000000 
FT3	034114 035131 0   0   010000000000 0            010000000000 
FT9	034115 035131 0   0   010000000000 0            010000000000 
ET0	034115 035131 0   0   0            0            010000000000 
ST1	034115 035131 0   0   0            0            010000000000 
ST2	034115 035131 0   0   0            0            010000000000 
ST9	034115 035131 0   0   0            0            010000000000 


*034115 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	034115 034115 0   0   332000000000 0            0            
IT1	034115 0      0   0   332000000000 0            0            
AT3	034115 0      0   0   0            0            332000000000 
AT6	034115 0      0   0   0            0            332000000000 
FT0	034115 0      0   0   0            0            332000000000 
FT1A	034115 0      0   0   0            0            0            
FT9	034116 0      0   0   0            0            0            
ET0	034117 0      0   0   0            0            0            
ST1A	034117 0      0   0   0            0            0            
ST9	034117 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 557
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0773

*034117 JUMPA	0,034120
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034117 034117 0   0   324000034120 0            000000034120 
IT1	034117 0      0   0   324000034120 0            000000034120 
AT3	034117 0      0   0   000000034120 0            324000034120 
AT6	034117 034120 0   0   000000034120 0            324000034120 
FT1A	034117 034120 0   0   000000034120 0            000000034120 
FT2	034117 034120 0   0   0            0            000000034120 
FT2RQ	034117 034120 0   0   0            0            000000034120 
FT3	034117 034120 0   0   0            0            000000034120 
FT9	034120 034120 0   0   0            0            000000034120 
ET0	034120 034120 0   0   0            0            000000034120 
ST1A	034120 034120 0   0   0            0            000000034120 
ST9	034120 034120 0   0   0            0            000000034120 


*034120 MOVE 	0,035132
INITIAL
C(AC)=000000 000000 
C(E)=020000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034120 034120 0   0   200000035132 0            020000000000 
IT1	034120 0      0   0   200000035132 0            020000000000 
AT3	034120 0      0   0   000000035132 0            200000035132 
AT6	034120 035132 0   0   000000035132 0            200000035132 
FT0	034120 035132 0   0   020000000000 0            200000035132 
FT1A	034120 035132 0   0   020000000000 0            020000000000 
FT9	034121 035132 0   0   020000000000 0            020000000000 
ET0	034121 035132 0   0   020000000000 0            020000000000 
ST1	034121 035132 0   0   020000000000 0            020000000000 
ST2	034121 035132 0   0   020000000000 0            020000000000 
ST9	034121 035132 0   0   020000000000 0            020000000000 


*034121 XOR 	0,035132
INITIAL
C(AC)=020000 000000 
C(E)=020000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034121 034121 0   0   430000035132 0            020000000000 
IT1	034121 0      0   0   430000035132 0            020000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 558
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0774

AT3	034121 0      0   0   000000035132 0            430000035132 
AT6	034121 035132 0   0   000000035132 0            430000035132 
FT0	034121 035132 0   0   020000000000 0            430000035132 
FT1A	034121 035132 0   0   020000000000 0            020000000000 
FT2	034121 035132 0   0   0            0            020000000000 
FT2RQ	034121 035132 0   0   020000000000 0            020000000000 
FT3	034121 035132 0   0   020000000000 0            020000000000 
FT9	034122 035132 0   0   020000000000 0            020000000000 
ET0	034122 035132 0   0   0            0            020000000000 
ST1	034122 035132 0   0   0            0            020000000000 
ST2	034122 035132 0   0   0            0            020000000000 
ST9	034122 035132 0   0   0            0            020000000000 


*034122 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	034122 034122 0   0   332000000000 0            0            
IT1	034122 0      0   0   332000000000 0            0            
AT3	034122 0      0   0   0            0            332000000000 
AT6	034122 0      0   0   0            0            332000000000 
FT0	034122 0      0   0   0            0            332000000000 
FT1A	034122 0      0   0   0            0            0            
FT9	034123 0      0   0   0            0            0            
ET0	034124 0      0   0   0            0            0            
ST1A	034124 0      0   0   0            0            0            
ST9	034124 0      0   0   0            0            0            


*034124 JUMPA	0,034125
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034124 034124 0   0   324000034125 0            000000034125 
IT1	034124 0      0   0   324000034125 0            000000034125 
AT3	034124 0      0   0   000000034125 0            324000034125 
AT6	034124 034125 0   0   000000034125 0            324000034125 
FT1A	034124 034125 0   0   000000034125 0            000000034125 
FT2	034124 034125 0   0   0            0            000000034125 
FT2RQ	034124 034125 0   0   0            0            000000034125 
FT3	034124 034125 0   0   0            0            000000034125 
FT9	034125 034125 0   0   0            0            000000034125 
ET0	034125 034125 0   0   0            0            000000034125 
ST1A	034125 034125 0   0   0            0            000000034125 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 559
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0775

ST9	034125 034125 0   0   0            0            000000034125 


*034125 MOVE 	0,035133
INITIAL
C(AC)=000000 000000 
C(E)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034125 034125 0   0   200000035133 0            040000000000 
IT1	034125 0      0   0   200000035133 0            040000000000 
AT3	034125 0      0   0   000000035133 0            200000035133 
AT6	034125 035133 0   0   000000035133 0            200000035133 
FT0	034125 035133 0   0   040000000000 0            200000035133 
FT1A	034125 035133 0   0   040000000000 0            040000000000 
FT9	034126 035133 0   0   040000000000 0            040000000000 
ET0	034126 035133 0   0   040000000000 0            040000000000 
ST1	034126 035133 0   0   040000000000 0            040000000000 
ST2	034126 035133 0   0   040000000000 0            040000000000 
ST9	034126 035133 0   0   040000000000 0            040000000000 


*034126 XOR 	0,035133
INITIAL
C(AC)=040000 000000 
C(E)=040000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034126 034126 0   0   430000035133 0            040000000000 
IT1	034126 0      0   0   430000035133 0            040000000000 
AT3	034126 0      0   0   000000035133 0            430000035133 
AT6	034126 035133 0   0   000000035133 0            430000035133 
FT0	034126 035133 0   0   040000000000 0            430000035133 
FT1A	034126 035133 0   0   040000000000 0            040000000000 
FT2	034126 035133 0   0   0            0            040000000000 
FT2RQ	034126 035133 0   0   040000000000 0            040000000000 
FT3	034126 035133 0   0   040000000000 0            040000000000 
FT9	034127 035133 0   0   040000000000 0            040000000000 
ET0	034127 035133 0   0   0            0            040000000000 
ST1	034127 035133 0   0   0            0            040000000000 
ST2	034127 035133 0   0   0            0            040000000000 
ST9	034127 035133 0   0   0            0            040000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 560
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0776

*034127 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	034127 034127 0   0   332000000000 0            0            
IT1	034127 0      0   0   332000000000 0            0            
AT3	034127 0      0   0   0            0            332000000000 
AT6	034127 0      0   0   0            0            332000000000 
FT0	034127 0      0   0   0            0            332000000000 
FT1A	034127 0      0   0   0            0            0            
FT9	034130 0      0   0   0            0            0            
ET0	034131 0      0   0   0            0            0            
ST1A	034131 0      0   0   0            0            0            
ST9	034131 0      0   0   0            0            0            


*034131 JUMPA	0,034132
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034131 034131 0   0   324000034132 0            000000034132 
IT1	034131 0      0   0   324000034132 0            000000034132 
AT3	034131 0      0   0   000000034132 0            324000034132 
AT6	034131 034132 0   0   000000034132 0            324000034132 
FT1A	034131 034132 0   0   000000034132 0            000000034132 
FT2	034131 034132 0   0   0            0            000000034132 
FT2RQ	034131 034132 0   0   0            0            000000034132 
FT3	034131 034132 0   0   0            0            000000034132 
FT9	034132 034132 0   0   0            0            000000034132 
ET0	034132 034132 0   0   0            0            000000034132 
ST1A	034132 034132 0   0   0            0            000000034132 
ST9	034132 034132 0   0   0            0            000000034132 


*034132 MOVE 	0,035134
INITIAL
C(AC)=000000 000000 
C(E)=100000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034132 034132 0   0   200000035134 0            100000000000 
IT1	034132 0      0   0   200000035134 0            100000000000 
AT3	034132 0      0   0   000000035134 0            200000035134 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 561
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0777

AT6	034132 035134 0   0   000000035134 0            200000035134 
FT0	034132 035134 0   0   100000000000 0            200000035134 
FT1A	034132 035134 0   0   100000000000 0            100000000000 
FT9	034133 035134 0   0   100000000000 0            100000000000 
ET0	034133 035134 0   0   100000000000 0            100000000000 
ST1	034133 035134 0   0   100000000000 0            100000000000 
ST2	034133 035134 0   0   100000000000 0            100000000000 
ST9	034133 035134 0   0   100000000000 0            100000000000 


*034133 XOR 	0,035134
INITIAL
C(AC)=100000 000000 
C(E)=100000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034133 034133 0   0   430000035134 0            100000000000 
IT1	034133 0      0   0   430000035134 0            100000000000 
AT3	034133 0      0   0   000000035134 0            430000035134 
AT6	034133 035134 0   0   000000035134 0            430000035134 
FT0	034133 035134 0   0   100000000000 0            430000035134 
FT1A	034133 035134 0   0   100000000000 0            100000000000 
FT2	034133 035134 0   0   0            0            100000000000 
FT2RQ	034133 035134 0   0   100000000000 0            100000000000 
FT3	034133 035134 0   0   100000000000 0            100000000000 
FT9	034134 035134 0   0   100000000000 0            100000000000 
ET0	034134 035134 0   0   0            0            100000000000 
ST1	034134 035134 0   0   0            0            100000000000 
ST2	034134 035134 0   0   0            0            100000000000 
ST9	034134 035134 0   0   0            0            100000000000 


*034134 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	034134 034134 0   0   332000000000 0            0            
IT1	034134 0      0   0   332000000000 0            0            
AT3	034134 0      0   0   0            0            332000000000 
AT6	034134 0      0   0   0            0            332000000000 
FT0	034134 0      0   0   0            0            332000000000 
FT1A	034134 0      0   0   0            0            0            
FT9	034135 0      0   0   0            0            0            
ET0	034136 0      0   0   0            0            0            
ST1A	034136 0      0   0   0            0            0            
ST9	034136 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 562
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0778



*034136 JUMPA	0,034137
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034136 034136 0   0   324000034137 0            000000034137 
IT1	034136 0      0   0   324000034137 0            000000034137 
AT3	034136 0      0   0   000000034137 0            324000034137 
AT6	034136 034137 0   0   000000034137 0            324000034137 
FT1A	034136 034137 0   0   000000034137 0            000000034137 
FT2	034136 034137 0   0   0            0            000000034137 
FT2RQ	034136 034137 0   0   0            0            000000034137 
FT3	034136 034137 0   0   0            0            000000034137 
FT9	034137 034137 0   0   0            0            000000034137 
ET0	034137 034137 0   0   0            0            000000034137 
ST1A	034137 034137 0   0   0            0            000000034137 
ST9	034137 034137 0   0   0            0            000000034137 


*034137 MOVE 	0,035135
INITIAL
C(AC)=000000 000000 
C(E)=200000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034137 034137 0   0   200000035135 0            200000000000 
IT1	034137 0      0   0   200000035135 0            200000000000 
AT3	034137 0      0   0   000000035135 0            200000035135 
AT6	034137 035135 0   0   000000035135 0            200000035135 
FT0	034137 035135 0   0   200000000000 0            200000035135 
FT1A	034137 035135 0   0   200000000000 0            200000000000 
FT9	034140 035135 0   0   200000000000 0            200000000000 
ET0	034140 035135 0   0   200000000000 0            200000000000 
ST1	034140 035135 0   0   200000000000 0            200000000000 
ST2	034140 035135 0   0   200000000000 0            200000000000 
ST9	034140 035135 0   0   200000000000 0            200000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 563
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0779

*034140 XOR 	0,035135
INITIAL
C(AC)=200000 000000 
C(E)=200000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034140 034140 0   0   430000035135 0            200000000000 
IT1	034140 0      0   0   430000035135 0            200000000000 
AT3	034140 0      0   0   000000035135 0            430000035135 
AT6	034140 035135 0   0   000000035135 0            430000035135 
FT0	034140 035135 0   0   200000000000 0            430000035135 
FT1A	034140 035135 0   0   200000000000 0            200000000000 
FT2	034140 035135 0   0   0            0            200000000000 
FT2RQ	034140 035135 0   0   200000000000 0            200000000000 
FT3	034140 035135 0   0   200000000000 0            200000000000 
FT9	034141 035135 0   0   200000000000 0            200000000000 
ET0	034141 035135 0   0   0            0            200000000000 
ST1	034141 035135 0   0   0            0            200000000000 
ST2	034141 035135 0   0   0            0            200000000000 
ST9	034141 035135 0   0   0            0            200000000000 


*034141 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	034141 034141 0   0   332000000000 0            0            
IT1	034141 0      0   0   332000000000 0            0            
AT3	034141 0      0   0   0            0            332000000000 
AT6	034141 0      0   0   0            0            332000000000 
FT0	034141 0      0   0   0            0            332000000000 
FT1A	034141 0      0   0   0            0            0            
FT9	034142 0      0   0   0            0            0            
ET0	034143 0      0   0   0            0            0            
ST1A	034143 0      0   0   0            0            0            
ST9	034143 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 564
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0780

*034143 JUMPA	0,034144
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034143 034143 0   0   324000034144 0            000000034144 
IT1	034143 0      0   0   324000034144 0            000000034144 
AT3	034143 0      0   0   000000034144 0            324000034144 
AT6	034143 034144 0   0   000000034144 0            324000034144 
FT1A	034143 034144 0   0   000000034144 0            000000034144 
FT2	034143 034144 0   0   0            0            000000034144 
FT2RQ	034143 034144 0   0   0            0            000000034144 
FT3	034143 034144 0   0   0            0            000000034144 
FT9	034144 034144 0   0   0            0            000000034144 
ET0	034144 034144 0   0   0            0            000000034144 
ST1A	034144 034144 0   0   0            0            000000034144 
ST9	034144 034144 0   0   0            0            000000034144 


*034144 MOVE 	0,035065
INITIAL
C(AC)=000000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034144 034144 0   0   200000035065 0            400000000000 
IT1	034144 0      0   0   200000035065 0            400000000000 
AT3	034144 0      0   0   000000035065 0            200000035065 
AT6	034144 035065 0   0   000000035065 0            200000035065 
FT0	034144 035065 0   0   400000000000 0            200000035065 
FT1A	034144 035065 0   0   400000000000 0            400000000000 
FT9	034145 035065 0   0   400000000000 0            400000000000 
ET0	034145 035065 0   0   400000000000 0            400000000000 
ST1	034145 035065 0   0   400000000000 0            400000000000 
ST2	034145 035065 0   0   400000000000 0            400000000000 
ST9	034145 035065 0   0   400000000000 0            400000000000 


*034145 XOR 	0,035065
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034145 034145 0   0   430000035065 0            400000000000 
IT1	034145 0      0   0   430000035065 0            400000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 565
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0781

AT3	034145 0      0   0   000000035065 0            430000035065 
AT6	034145 035065 0   0   000000035065 0            430000035065 
FT0	034145 035065 0   0   400000000000 0            430000035065 
FT1A	034145 035065 0   0   400000000000 0            400000000000 
FT2	034145 035065 0   0   0            0            400000000000 
FT2RQ	034145 035065 0   0   400000000000 0            400000000000 
FT3	034145 035065 0   0   400000000000 0            400000000000 
FT9	034146 035065 0   0   400000000000 0            400000000000 
ET0	034146 035065 0   0   0            0            400000000000 
ST1	034146 035065 0   0   0            0            400000000000 
ST2	034146 035065 0   0   0            0            400000000000 
ST9	034146 035065 0   0   0            0            400000000000 


*034146 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	034146 034146 0   0   332000000000 0            0            
IT1	034146 0      0   0   332000000000 0            0            
AT3	034146 0      0   0   0            0            332000000000 
AT6	034146 0      0   0   0            0            332000000000 
FT0	034146 0      0   0   0            0            332000000000 
FT1A	034146 0      0   0   0            0            0            
FT9	034147 0      0   0   0            0            0            
ET0	034150 0      0   0   0            0            0            
ST1A	034150 0      0   0   0            0            0            
ST9	034150 0      0   0   0            0            0            


*034150 JUMPA	0,034151
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034150 034150 0   0   324000034151 0            000000034151 
IT1	034150 0      0   0   324000034151 0            000000034151 
AT3	034150 0      0   0   000000034151 0            324000034151 
AT6	034150 034151 0   0   000000034151 0            324000034151 
FT1A	034150 034151 0   0   000000034151 0            000000034151 
FT2	034150 034151 0   0   0            0            000000034151 
FT2RQ	034150 034151 0   0   0            0            000000034151 
FT3	034150 034151 0   0   0            0            000000034151 
FT9	034151 034151 0   0   0            0            000000034151 
ET0	034151 034151 0   0   0            0            000000034151 
ST1A	034151 034151 0   0   0            0            000000034151 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 566
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0782

ST9	034151 034151 0   0   0            0            000000034151 


*034151 MOVE 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034151 034151 0   0   200000035062 0            0            
IT1	034151 0      0   0   200000035062 0            0            
AT3	034151 0      0   0   000000035062 0            200000035062 
AT6	034151 035062 0   0   000000035062 0            200000035062 
FT0	034151 035062 0   0   0            0            200000035062 
FT1A	034151 035062 0   0   0            0            0            
FT9	034152 035062 0   0   0            0            0            
ET0	034152 035062 0   0   0            0            0            
ST1	034152 035062 0   0   0            0            0            
ST2	034152 035062 0   0   0            0            0            
ST9	034152 035062 0   0   0            0            0            


*034152 XOR 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034152 034152 0   0   430000035062 0            0            
IT1	034152 0      0   0   430000035062 0            0            
AT3	034152 0      0   0   000000035062 0            430000035062 
AT6	034152 035062 0   0   000000035062 0            430000035062 
FT0	034152 035062 0   0   0            0            430000035062 
FT1A	034152 035062 0   0   0            0            0            
FT2	034152 035062 0   0   0            0            0            
FT2RQ	034152 035062 0   0   0            0            0            
FT3	034152 035062 0   0   0            0            0            
FT9	034153 035062 0   0   0            0            0            
ET0	034153 035062 0   0   0            0            0            
ST1	034153 035062 0   0   0            0            0            
ST2	034153 035062 0   0   0            0            0            
ST9	034153 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 567
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0783

*034153 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	034153 034153 0   0   332000000000 0            0            
IT1	034153 0      0   0   332000000000 0            0            
AT3	034153 0      0   0   0            0            332000000000 
AT6	034153 0      0   0   0            0            332000000000 
FT0	034153 0      0   0   0            0            332000000000 
FT1A	034153 0      0   0   0            0            0            
FT9	034154 0      0   0   0            0            0            
ET0	034155 0      0   0   0            0            0            
ST1A	034155 0      0   0   0            0            0            
ST9	034155 0      0   0   0            0            0            


*034155 JUMPA	0,034156
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034155 034155 0   0   324000034156 0            000000034156 
IT1	034155 0      0   0   324000034156 0            000000034156 
AT3	034155 0      0   0   000000034156 0            324000034156 
AT6	034155 034156 0   0   000000034156 0            324000034156 
FT1A	034155 034156 0   0   000000034156 0            000000034156 
FT2	034155 034156 0   0   0            0            000000034156 
FT2RQ	034155 034156 0   0   0            0            000000034156 
FT3	034155 034156 0   0   0            0            000000034156 
FT9	034156 034156 0   0   0            0            000000034156 
ET0	034156 034156 0   0   0            0            000000034156 
ST1A	034156 034156 0   0   0            0            000000034156 
ST9	034156 034156 0   0   0            0            000000034156 


*034156 MOVE 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034156 034156 0   0   200000035062 0            0            
IT1	034156 0      0   0   200000035062 0            0            
AT3	034156 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 568
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0784

AT6	034156 035062 0   0   000000035062 0            200000035062 
FT0	034156 035062 0   0   0            0            200000035062 
FT1A	034156 035062 0   0   0            0            0            
FT9	034157 035062 0   0   0            0            0            
ET0	034157 035062 0   0   0            0            0            
ST1	034157 035062 0   0   0            0            0            
ST2	034157 035062 0   0   0            0            0            
ST9	034157 035062 0   0   0            0            0            


*034157 EQV 	0,035063
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034157 034157 0   0   444000035063 0            777777777777 
IT1	034157 0      0   0   444000035063 0            777777777777 
AT3	034157 0      0   0   000000035063 0            444000035063 
AT6	034157 035063 0   0   000000035063 0            444000035063 
FT0	034157 035063 0   0   777777777777 0            444000035063 
FT1A	034157 035063 0   0   777777777777 0            777777777777 
FT2	034157 035063 0   0   0            0            777777777777 
FT2RQ	034157 035063 0   0   0            0            777777777777 
FT3	034157 035063 0   0   0            0            777777777777 
FT9	034160 035063 0   0   0            0            777777777777 
ET0	034160 035063 0   0   0            0            777777777777 
ST1	034160 035063 0   0   0            0            777777777777 
ST2	034160 035063 0   0   0            0            777777777777 
ST9	034160 035063 0   0   0            0            777777777777 


*034160 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	034160 034160 0   0   332000000000 0            0            
IT1	034160 0      0   0   332000000000 0            0            
AT3	034160 0      0   0   0            0            332000000000 
AT6	034160 0      0   0   0            0            332000000000 
FT0	034160 0      0   0   0            0            332000000000 
FT1A	034160 0      0   0   0            0            0            
FT9	034161 0      0   0   0            0            0            
ET0	034162 0      0   0   0            0            0            
ST1A	034162 0      0   0   0            0            0            
ST9	034162 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 569
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0785



*034162 JUMPA	0,034163
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034162 034162 0   0   324000034163 0            000000034163 
IT1	034162 0      0   0   324000034163 0            000000034163 
AT3	034162 0      0   0   000000034163 0            324000034163 
AT6	034162 034163 0   0   000000034163 0            324000034163 
FT1A	034162 034163 0   0   000000034163 0            000000034163 
FT2	034162 034163 0   0   0            0            000000034163 
FT2RQ	034162 034163 0   0   0            0            000000034163 
FT3	034162 034163 0   0   0            0            000000034163 
FT9	034163 034163 0   0   0            0            000000034163 
ET0	034163 034163 0   0   0            0            000000034163 
ST1A	034163 034163 0   0   0            0            000000034163 
ST9	034163 034163 0   0   0            0            000000034163 


*034163 MOVE 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034163 034163 0   0   200000035062 0            0            
IT1	034163 0      0   0   200000035062 0            0            
AT3	034163 0      0   0   000000035062 0            200000035062 
AT6	034163 035062 0   0   000000035062 0            200000035062 
FT0	034163 035062 0   0   0            0            200000035062 
FT1A	034163 035062 0   0   0            0            0            
FT9	034164 035062 0   0   0            0            0            
ET0	034164 035062 0   0   0            0            0            
ST1	034164 035062 0   0   0            0            0            
ST2	034164 035062 0   0   0            0            0            
ST9	034164 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 570
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0786

*034164 EQV 	0,035142
INITIAL
C(AC)=000000 000000 
C(E)=777777 777776 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034164 034164 0   0   444000035142 0            777777777776 
IT1	034164 0      0   0   444000035142 0            777777777776 
AT3	034164 0      0   0   000000035142 0            444000035142 
AT6	034164 035142 0   0   000000035142 0            444000035142 
FT0	034164 035142 0   0   777777777776 0            444000035142 
FT1A	034164 035142 0   0   777777777776 0            777777777776 
FT2	034164 035142 0   0   0            0            777777777776 
FT2RQ	034164 035142 0   0   0            0            777777777776 
FT3	034164 035142 0   0   0            0            777777777776 
FT9	034165 035142 0   0   0            0            777777777776 
ET0	034165 035142 0   0   000000000001 0            777777777776 
ST1	034165 035142 0   0   000000000001 0            777777777776 
ST2	034165 035142 0   0   000000000001 0            777777777776 
ST9	034165 035142 0   0   000000000001 0            777777777776 


*034165 SKIPN	0,000000
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034165 034165 0   0   336000000000 0            000000000001 
IT1	034165 0      0   0   336000000000 0            000000000001 
AT3	034165 0      0   0   0            0            336000000000 
AT6	034165 0      0   0   0            0            336000000000 
FT0	034165 0      0   0   000000000001 0            336000000000 
FT1A	034165 0      0   0   000000000001 0            000000000001 
FT9	034166 0      0   0   000000000001 0            000000000001 
ET0	034167 0      0   0   000000000001 0            000000000001 
ST1A	034167 0      0   0   000000000001 0            000000000001 
ST9	034167 0      0   0   000000000001 0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 571
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0787

*034167 JUMPA	0,034170
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034167 034167 0   0   324000034170 0            000000034170 
IT1	034167 0      0   0   324000034170 0            000000034170 
AT3	034167 0      0   0   000000034170 0            324000034170 
AT6	034167 034170 0   0   000000034170 0            324000034170 
FT1A	034167 034170 0   0   000000034170 0            000000034170 
FT2	034167 034170 0   0   0            0            000000034170 
FT2RQ	034167 034170 0   0   000000000001 0            000000034170 
FT3	034167 034170 0   0   000000000001 0            000000034170 
FT9	034170 034170 0   0   000000000001 0            000000034170 
ET0	034170 034170 0   0   000000000001 0            000000034170 
ST1A	034170 034170 0   0   000000000001 0            000000034170 
ST9	034170 034170 0   0   000000000001 0            000000034170 


*034170 MOVE 	0,035062
INITIAL
C(AC)=000000 000001 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034170 034170 0   0   200000035062 0            0            
IT1	034170 0      0   0   200000035062 0            0            
AT3	034170 0      0   0   000000035062 0            200000035062 
AT6	034170 035062 0   0   000000035062 0            200000035062 
FT0	034170 035062 0   0   0            0            200000035062 
FT1A	034170 035062 0   0   0            0            0            
FT9	034171 035062 0   0   0            0            0            
ET0	034171 035062 0   0   0            0            0            
ST1	034171 035062 0   0   0            0            0            
ST2	034171 035062 0   0   0            0            0            
ST9	034171 035062 0   0   0            0            0            


*034171 EQV 	0,035143
INITIAL
C(AC)=000000 000000 
C(E)=777777 777775 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034171 034171 0   0   444000035143 0            777777777775 
IT1	034171 0      0   0   444000035143 0            777777777775 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 572
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0788

AT3	034171 0      0   0   000000035143 0            444000035143 
AT6	034171 035143 0   0   000000035143 0            444000035143 
FT0	034171 035143 0   0   777777777775 0            444000035143 
FT1A	034171 035143 0   0   777777777775 0            777777777775 
FT2	034171 035143 0   0   0            0            777777777775 
FT2RQ	034171 035143 0   0   0            0            777777777775 
FT3	034171 035143 0   0   0            0            777777777775 
FT9	034172 035143 0   0   0            0            777777777775 
ET0	034172 035143 0   0   000000000002 0            777777777775 
ST1	034172 035143 0   0   000000000002 0            777777777775 
ST2	034172 035143 0   0   000000000002 0            777777777775 
ST9	034172 035143 0   0   000000000002 0            777777777775 


*034172 SKIPN	0,000000
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034172 034172 0   0   336000000000 0            000000000002 
IT1	034172 0      0   0   336000000000 0            000000000002 
AT3	034172 0      0   0   0            0            336000000000 
AT6	034172 0      0   0   0            0            336000000000 
FT0	034172 0      0   0   000000000002 0            336000000000 
FT1A	034172 0      0   0   000000000002 0            000000000002 
FT9	034173 0      0   0   000000000002 0            000000000002 
ET0	034174 0      0   0   000000000002 0            000000000002 
ST1A	034174 0      0   0   000000000002 0            000000000002 
ST9	034174 0      0   0   000000000002 0            000000000002 


*034174 JUMPA	0,034175
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034174 034174 0   0   324000034175 0            000000034175 
IT1	034174 0      0   0   324000034175 0            000000034175 
AT3	034174 0      0   0   000000034175 0            324000034175 
AT6	034174 034175 0   0   000000034175 0            324000034175 
FT1A	034174 034175 0   0   000000034175 0            000000034175 
FT2	034174 034175 0   0   0            0            000000034175 
FT2RQ	034174 034175 0   0   000000000002 0            000000034175 
FT3	034174 034175 0   0   000000000002 0            000000034175 
FT9	034175 034175 0   0   000000000002 0            000000034175 
ET0	034175 034175 0   0   000000000002 0            000000034175 
ST1A	034175 034175 0   0   000000000002 0            000000034175 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 573
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0789

ST9	034175 034175 0   0   000000000002 0            000000034175 


*034175 MOVE 	0,035062
INITIAL
C(AC)=000000 000002 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034175 034175 0   0   200000035062 0            0            
IT1	034175 0      0   0   200000035062 0            0            
AT3	034175 0      0   0   000000035062 0            200000035062 
AT6	034175 035062 0   0   000000035062 0            200000035062 
FT0	034175 035062 0   0   0            0            200000035062 
FT1A	034175 035062 0   0   0            0            0            
FT9	034176 035062 0   0   0            0            0            
ET0	034176 035062 0   0   0            0            0            
ST1	034176 035062 0   0   0            0            0            
ST2	034176 035062 0   0   0            0            0            
ST9	034176 035062 0   0   0            0            0            


*034176 EQV 	0,035144
INITIAL
C(AC)=000000 000000 
C(E)=777777 777773 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034176 034176 0   0   444000035144 0            777777777773 
IT1	034176 0      0   0   444000035144 0            777777777773 
AT3	034176 0      0   0   000000035144 0            444000035144 
AT6	034176 035144 0   0   000000035144 0            444000035144 
FT0	034176 035144 0   0   777777777773 0            444000035144 
FT1A	034176 035144 0   0   777777777773 0            777777777773 
FT2	034176 035144 0   0   0            0            777777777773 
FT2RQ	034176 035144 0   0   0            0            777777777773 
FT3	034176 035144 0   0   0            0            777777777773 
FT9	034177 035144 0   0   0            0            777777777773 
ET0	034177 035144 0   0   000000000004 0            777777777773 
ST1	034177 035144 0   0   000000000004 0            777777777773 
ST2	034177 035144 0   0   000000000004 0            777777777773 
ST9	034177 035144 0   0   000000000004 0            777777777773 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 574
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0790

*034177 SKIPN	0,000000
INITIAL
C(AC)=000000 000004 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034177 034177 0   0   336000000000 0            000000000004 
IT1	034177 0      0   0   336000000000 0            000000000004 
AT3	034177 0      0   0   0            0            336000000000 
AT6	034177 0      0   0   0            0            336000000000 
FT0	034177 0      0   0   000000000004 0            336000000000 
FT1A	034177 0      0   0   000000000004 0            000000000004 
FT9	0      0      0   0   000000000004 0            000000000004 
ET0	034201 0      0   0   000000000004 0            000000000004 
ST1A	034201 0      0   0   000000000004 0            000000000004 
ST9	034201 0      0   0   000000000004 0            000000000004 


*034201 JUMPA	0,034202
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034201 034201 0   0   324000034202 0            000000034202 
IT1	034201 0      0   0   324000034202 0            000000034202 
AT3	034201 0      0   0   000000034202 0            324000034202 
AT6	034201 034202 0   0   000000034202 0            324000034202 
FT1A	034201 034202 0   0   000000034202 0            000000034202 
FT2	034201 034202 0   0   0            0            000000034202 
FT2RQ	034201 034202 0   0   000000000004 0            000000034202 
FT3	034201 034202 0   0   000000000004 0            000000034202 
FT9	034202 034202 0   0   000000000004 0            000000034202 
ET0	034202 034202 0   0   000000000004 0            000000034202 
ST1A	034202 034202 0   0   000000000004 0            000000034202 
ST9	034202 034202 0   0   000000000004 0            000000034202 


*034202 MOVE 	0,035062
INITIAL
C(AC)=000000 000004 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034202 034202 0   0   200000035062 0            0            
IT1	034202 0      0   0   200000035062 0            0            
AT3	034202 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 575
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0791

AT6	034202 035062 0   0   000000035062 0            200000035062 
FT0	034202 035062 0   0   0            0            200000035062 
FT1A	034202 035062 0   0   0            0            0            
FT9	034203 035062 0   0   0            0            0            
ET0	034203 035062 0   0   0            0            0            
ST1	034203 035062 0   0   0            0            0            
ST2	034203 035062 0   0   0            0            0            
ST9	034203 035062 0   0   0            0            0            


*034203 EQV 	0,035145
INITIAL
C(AC)=000000 000000 
C(E)=777777 777767 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034203 034203 0   0   444000035145 0            777777777767 
IT1	034203 0      0   0   444000035145 0            777777777767 
AT3	034203 0      0   0   000000035145 0            444000035145 
AT6	034203 035145 0   0   000000035145 0            444000035145 
FT0	034203 035145 0   0   777777777767 0            444000035145 
FT1A	034203 035145 0   0   777777777767 0            777777777767 
FT2	034203 035145 0   0   0            0            777777777767 
FT2RQ	034203 035145 0   0   0            0            777777777767 
FT3	034203 035145 0   0   0            0            777777777767 
FT9	034204 035145 0   0   0            0            777777777767 
ET0	034204 035145 0   0   000000000010 0            777777777767 
ST1	034204 035145 0   0   000000000010 0            777777777767 
ST2	034204 035145 0   0   000000000010 0            777777777767 
ST9	034204 035145 0   0   000000000010 0            777777777767 


*034204 SKIPN	0,000000
INITIAL
C(AC)=000000 000010 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034204 034204 0   0   336000000000 0            000000000010 
IT1	034204 0      0   0   336000000000 0            000000000010 
AT3	034204 0      0   0   0            0            336000000000 
AT6	034204 0      0   0   0            0            336000000000 
FT0	034204 0      0   0   000000000010 0            336000000000 
FT1A	034204 0      0   0   000000000010 0            000000000010 
FT9	034205 0      0   0   000000000010 0            000000000010 
ET0	034206 0      0   0   000000000010 0            000000000010 
ST1A	034206 0      0   0   000000000010 0            000000000010 
ST9	034206 0      0   0   000000000010 0            000000000010 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 576
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0792



*034206 JUMPA	0,034207
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034206 034206 0   0   324000034207 0            000000034207 
IT1	034206 0      0   0   324000034207 0            000000034207 
AT3	034206 0      0   0   000000034207 0            324000034207 
AT6	034206 034207 0   0   000000034207 0            324000034207 
FT1A	034206 034207 0   0   000000034207 0            000000034207 
FT2	034206 034207 0   0   0            0            000000034207 
FT2RQ	034206 034207 0   0   000000000010 0            000000034207 
FT3	034206 034207 0   0   000000000010 0            000000034207 
FT9	034207 034207 0   0   000000000010 0            000000034207 
ET0	034207 034207 0   0   000000000010 0            000000034207 
ST1A	034207 034207 0   0   000000000010 0            000000034207 
ST9	034207 034207 0   0   000000000010 0            000000034207 


*034207 MOVE 	0,035062
INITIAL
C(AC)=000000 000010 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034207 034207 0   0   200000035062 0            0            
IT1	034207 0      0   0   200000035062 0            0            
AT3	034207 0      0   0   000000035062 0            200000035062 
AT6	034207 035062 0   0   000000035062 0            200000035062 
FT0	034207 035062 0   0   0            0            200000035062 
FT1A	034207 035062 0   0   0            0            0            
FT9	034210 035062 0   0   0            0            0            
ET0	034210 035062 0   0   0            0            0            
ST1	034210 035062 0   0   0            0            0            
ST2	034210 035062 0   0   0            0            0            
ST9	034210 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 577
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0793

*034210 EQV 	0,035146
INITIAL
C(AC)=000000 000000 
C(E)=777777 777757 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034210 034210 0   0   444000035146 0            777777777757 
IT1	034210 0      0   0   444000035146 0            777777777757 
AT3	034210 0      0   0   000000035146 0            444000035146 
AT6	034210 035146 0   0   000000035146 0            444000035146 
FT0	034210 035146 0   0   777777777757 0            444000035146 
FT1A	034210 035146 0   0   777777777757 0            777777777757 
FT2	034210 035146 0   0   0            0            777777777757 
FT2RQ	034210 035146 0   0   0            0            777777777757 
FT3	034210 035146 0   0   0            0            777777777757 
FT9	034211 035146 0   0   0            0            777777777757 
ET0	034211 035146 0   0   000000000020 0            777777777757 
ST1	034211 035146 0   0   000000000020 0            777777777757 
ST2	034211 035146 0   0   000000000020 0            777777777757 
ST9	034211 035146 0   0   000000000020 0            777777777757 


*034211 SKIPN	0,000000
INITIAL
C(AC)=000000 000020 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034211 034211 0   0   336000000000 0            000000000020 
IT1	034211 0      0   0   336000000000 0            000000000020 
AT3	034211 0      0   0   0            0            336000000000 
AT6	034211 0      0   0   0            0            336000000000 
FT0	034211 0      0   0   000000000020 0            336000000000 
FT1A	034211 0      0   0   000000000020 0            000000000020 
FT9	034212 0      0   0   000000000020 0            000000000020 
ET0	034213 0      0   0   000000000020 0            000000000020 
ST1A	034213 0      0   0   000000000020 0            000000000020 
ST9	034213 0      0   0   000000000020 0            000000000020 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 578
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0794

*034213 JUMPA	0,034214
INITIAL
C(AC)=000000 000020 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034213 034213 0   0   324000034214 0            000000034214 
IT1	034213 0      0   0   324000034214 0            000000034214 
AT3	034213 0      0   0   000000034214 0            324000034214 
AT6	034213 034214 0   0   000000034214 0            324000034214 
FT1A	034213 034214 0   0   000000034214 0            000000034214 
FT2	034213 034214 0   0   0            0            000000034214 
FT2RQ	034213 034214 0   0   000000000020 0            000000034214 
FT3	034213 034214 0   0   000000000020 0            000000034214 
FT9	034214 034214 0   0   000000000020 0            000000034214 
ET0	034214 034214 0   0   000000000020 0            000000034214 
ST1A	034214 034214 0   0   000000000020 0            000000034214 
ST9	034214 034214 0   0   000000000020 0            000000034214 


*034214 MOVE 	0,035062
INITIAL
C(AC)=000000 000020 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034214 034214 0   0   200000035062 0            0            
IT1	034214 0      0   0   200000035062 0            0            
AT3	034214 0      0   0   000000035062 0            200000035062 
AT6	034214 035062 0   0   000000035062 0            200000035062 
FT0	034214 035062 0   0   0            0            200000035062 
FT1A	034214 035062 0   0   0            0            0            
FT9	034215 035062 0   0   0            0            0            
ET0	034215 035062 0   0   0            0            0            
ST1	034215 035062 0   0   0            0            0            
ST2	034215 035062 0   0   0            0            0            
ST9	034215 035062 0   0   0            0            0            


*034215 EQV 	0,035147
INITIAL
C(AC)=000000 000000 
C(E)=777777 777737 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034215 034215 0   0   444000035147 0            777777777737 
IT1	034215 0      0   0   444000035147 0            777777777737 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 579
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0795

AT3	034215 0      0   0   000000035147 0            444000035147 
AT6	034215 035147 0   0   000000035147 0            444000035147 
FT0	034215 035147 0   0   777777777737 0            444000035147 
FT1A	034215 035147 0   0   777777777737 0            777777777737 
FT2	034215 035147 0   0   0            0            777777777737 
FT2RQ	034215 035147 0   0   0            0            777777777737 
FT3	034215 035147 0   0   0            0            777777777737 
FT9	034216 035147 0   0   0            0            777777777737 
ET0	034216 035147 0   0   000000000040 0            777777777737 
ST1	034216 035147 0   0   000000000040 0            777777777737 
ST2	034216 035147 0   0   000000000040 0            777777777737 
ST9	034216 035147 0   0   000000000040 0            777777777737 


*034216 SKIPN	0,000000
INITIAL
C(AC)=000000 000040 
C(E)=000000 000040 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034216 034216 0   0   336000000000 0            000000000040 
IT1	034216 0      0   0   336000000000 0            000000000040 
AT3	034216 0      0   0   0            0            336000000000 
AT6	034216 0      0   0   0            0            336000000000 
FT0	034216 0      0   0   000000000040 0            336000000000 
FT1A	034216 0      0   0   000000000040 0            000000000040 
FT9	034217 0      0   0   000000000040 0            000000000040 
ET0	034220 0      0   0   000000000040 0            000000000040 
ST1A	034220 0      0   0   000000000040 0            000000000040 
ST9	034220 0      0   0   000000000040 0            000000000040 


*034220 JUMPA	0,034221
INITIAL
C(AC)=000000 000040 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034220 034220 0   0   324000034221 0            000000034221 
IT1	034220 0      0   0   324000034221 0            000000034221 
AT3	034220 0      0   0   000000034221 0            324000034221 
AT6	034220 034221 0   0   000000034221 0            324000034221 
FT1A	034220 034221 0   0   000000034221 0            000000034221 
FT2	034220 034221 0   0   0            0            000000034221 
FT2RQ	034220 034221 0   0   000000000040 0            000000034221 
FT3	034220 034221 0   0   000000000040 0            000000034221 
FT9	034221 034221 0   0   000000000040 0            000000034221 
ET0	034221 034221 0   0   000000000040 0            000000034221 
ST1A	034221 034221 0   0   000000000040 0            000000034221 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 580
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0796

ST9	034221 034221 0   0   000000000040 0            000000034221 


*034221 MOVE 	0,035062
INITIAL
C(AC)=000000 000040 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034221 034221 0   0   200000035062 0            0            
IT1	034221 0      0   0   200000035062 0            0            
AT3	034221 0      0   0   000000035062 0            200000035062 
AT6	034221 035062 0   0   000000035062 0            200000035062 
FT0	034221 035062 0   0   0            0            200000035062 
FT1A	034221 035062 0   0   0            0            0            
FT9	034222 035062 0   0   0            0            0            
ET0	034222 035062 0   0   0            0            0            
ST1	034222 035062 0   0   0            0            0            
ST2	034222 035062 0   0   0            0            0            
ST9	034222 035062 0   0   0            0            0            


*034222 EQV 	0,035150
INITIAL
C(AC)=000000 000000 
C(E)=777777 777677 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034222 034222 0   0   444000035150 0            777777777677 
IT1	034222 0      0   0   444000035150 0            777777777677 
AT3	034222 0      0   0   000000035150 0            444000035150 
AT6	034222 035150 0   0   000000035150 0            444000035150 
FT0	034222 035150 0   0   777777777677 0            444000035150 
FT1A	034222 035150 0   0   777777777677 0            777777777677 
FT2	034222 035150 0   0   0            0            777777777677 
FT2RQ	034222 035150 0   0   0            0            777777777677 
FT3	034222 035150 0   0   0            0            777777777677 
FT9	034223 035150 0   0   0            0            777777777677 
ET0	034223 035150 0   0   000000000100 0            777777777677 
ST1	034223 035150 0   0   000000000100 0            777777777677 
ST2	034223 035150 0   0   000000000100 0            777777777677 
ST9	034223 035150 0   0   000000000100 0            777777777677 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 581
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0797

*034223 SKIPN	0,000000
INITIAL
C(AC)=000000 000100 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034223 034223 0   0   336000000000 0            000000000100 
IT1	034223 0      0   0   336000000000 0            000000000100 
AT3	034223 0      0   0   0            0            336000000000 
AT6	034223 0      0   0   0            0            336000000000 
FT0	034223 0      0   0   000000000100 0            336000000000 
FT1A	034223 0      0   0   000000000100 0            000000000100 
FT9	034224 0      0   0   000000000100 0            000000000100 
ET0	034225 0      0   0   000000000100 0            000000000100 
ST1A	034225 0      0   0   000000000100 0            000000000100 
ST9	034225 0      0   0   000000000100 0            000000000100 


*034225 JUMPA	0,034226
INITIAL
C(AC)=000000 000100 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034225 034225 0   0   324000034226 0            000000034226 
IT1	034225 0      0   0   324000034226 0            000000034226 
AT3	034225 0      0   0   000000034226 0            324000034226 
AT6	034225 034226 0   0   000000034226 0            324000034226 
FT1A	034225 034226 0   0   000000034226 0            000000034226 
FT2	034225 034226 0   0   0            0            000000034226 
FT2RQ	034225 034226 0   0   000000000100 0            000000034226 
FT3	034225 034226 0   0   000000000100 0            000000034226 
FT9	034226 034226 0   0   000000000100 0            000000034226 
ET0	034226 034226 0   0   000000000100 0            000000034226 
ST1A	034226 034226 0   0   000000000100 0            000000034226 
ST9	034226 034226 0   0   000000000100 0            000000034226 


*034226 MOVE 	0,035062
INITIAL
C(AC)=000000 000100 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034226 034226 0   0   200000035062 0            0            
IT1	034226 0      0   0   200000035062 0            0            
AT3	034226 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 582
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0798

AT6	034226 035062 0   0   000000035062 0            200000035062 
FT0	034226 035062 0   0   0            0            200000035062 
FT1A	034226 035062 0   0   0            0            0            
FT9	034227 035062 0   0   0            0            0            
ET0	034227 035062 0   0   0            0            0            
ST1	034227 035062 0   0   0            0            0            
ST2	034227 035062 0   0   0            0            0            
ST9	034227 035062 0   0   0            0            0            


*034227 EQV 	0,035151
INITIAL
C(AC)=000000 000000 
C(E)=777777 777577 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034227 034227 0   0   444000035151 0            777777777577 
IT1	034227 0      0   0   444000035151 0            777777777577 
AT3	034227 0      0   0   000000035151 0            444000035151 
AT6	034227 035151 0   0   000000035151 0            444000035151 
FT0	034227 035151 0   0   777777777577 0            444000035151 
FT1A	034227 035151 0   0   777777777577 0            777777777577 
FT2	034227 035151 0   0   0            0            777777777577 
FT2RQ	034227 035151 0   0   0            0            777777777577 
FT3	034227 035151 0   0   0            0            777777777577 
FT9	034230 035151 0   0   0            0            777777777577 
ET0	034230 035151 0   0   000000000200 0            777777777577 
ST1	034230 035151 0   0   000000000200 0            777777777577 
ST2	034230 035151 0   0   000000000200 0            777777777577 
ST9	034230 035151 0   0   000000000200 0            777777777577 


*034230 SKIPN	0,000000
INITIAL
C(AC)=000000 000200 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034230 034230 0   0   336000000000 0            000000000200 
IT1	034230 0      0   0   336000000000 0            000000000200 
AT3	034230 0      0   0   0            0            336000000000 
AT6	034230 0      0   0   0            0            336000000000 
FT0	034230 0      0   0   000000000200 0            336000000000 
FT1A	034230 0      0   0   000000000200 0            000000000200 
FT9	034231 0      0   0   000000000200 0            000000000200 
ET0	034232 0      0   0   000000000200 0            000000000200 
ST1A	034232 0      0   0   000000000200 0            000000000200 
ST9	034232 0      0   0   000000000200 0            000000000200 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 583
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0799



*034232 JUMPA	0,034233
INITIAL
C(AC)=000000 000200 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034232 034232 0   0   324000034233 0            000000034233 
IT1	034232 0      0   0   324000034233 0            000000034233 
AT3	034232 0      0   0   000000034233 0            324000034233 
AT6	034232 034233 0   0   000000034233 0            324000034233 
FT1A	034232 034233 0   0   000000034233 0            000000034233 
FT2	034232 034233 0   0   0            0            000000034233 
FT2RQ	034232 034233 0   0   000000000200 0            000000034233 
FT3	034232 034233 0   0   000000000200 0            000000034233 
FT9	034233 034233 0   0   000000000200 0            000000034233 
ET0	034233 034233 0   0   000000000200 0            000000034233 
ST1A	034233 034233 0   0   000000000200 0            000000034233 
ST9	034233 034233 0   0   000000000200 0            000000034233 


*034233 MOVE 	0,035062
INITIAL
C(AC)=000000 000200 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034233 034233 0   0   200000035062 0            0            
IT1	034233 0      0   0   200000035062 0            0            
AT3	034233 0      0   0   000000035062 0            200000035062 
AT6	034233 035062 0   0   000000035062 0            200000035062 
FT0	034233 035062 0   0   0            0            200000035062 
FT1A	034233 035062 0   0   0            0            0            
FT9	034234 035062 0   0   0            0            0            
ET0	034234 035062 0   0   0            0            0            
ST1	034234 035062 0   0   0            0            0            
ST2	034234 035062 0   0   0            0            0            
ST9	034234 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 584
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0800

*034234 EQV 	0,035152
INITIAL
C(AC)=000000 000000 
C(E)=777777 777377 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034234 034234 0   0   444000035152 0            777777777377 
IT1	034234 0      0   0   444000035152 0            777777777377 
AT3	034234 0      0   0   000000035152 0            444000035152 
AT6	034234 035152 0   0   000000035152 0            444000035152 
FT0	034234 035152 0   0   777777777377 0            444000035152 
FT1A	034234 035152 0   0   777777777377 0            777777777377 
FT2	034234 035152 0   0   0            0            777777777377 
FT2RQ	034234 035152 0   0   0            0            777777777377 
FT3	034234 035152 0   0   0            0            777777777377 
FT9	034235 035152 0   0   0            0            777777777377 
ET0	034235 035152 0   0   000000000400 0            777777777377 
ST1	034235 035152 0   0   000000000400 0            777777777377 
ST2	034235 035152 0   0   000000000400 0            777777777377 
ST9	034235 035152 0   0   000000000400 0            777777777377 


*034235 SKIPN	0,000000
INITIAL
C(AC)=000000 000400 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034235 034235 0   0   336000000000 0            000000000400 
IT1	034235 0      0   0   336000000000 0            000000000400 
AT3	034235 0      0   0   0            0            336000000000 
AT6	034235 0      0   0   0            0            336000000000 
FT0	034235 0      0   0   000000000400 0            336000000000 
FT1A	034235 0      0   0   000000000400 0            000000000400 
FT9	034236 0      0   0   000000000400 0            000000000400 
ET0	034237 0      0   0   000000000400 0            000000000400 
ST1A	034237 0      0   0   000000000400 0            000000000400 
ST9	034237 0      0   0   000000000400 0            000000000400 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 585
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0801

*034237 JUMPA	0,034240
INITIAL
C(AC)=000000 000400 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034237 034237 0   0   324000034240 0            000000034240 
IT1	034237 0      0   0   324000034240 0            000000034240 
AT3	034237 0      0   0   000000034240 0            324000034240 
AT6	034237 034240 0   0   000000034240 0            324000034240 
FT1A	034237 034240 0   0   000000034240 0            000000034240 
FT2	034237 034240 0   0   0            0            000000034240 
FT2RQ	034237 034240 0   0   000000000400 0            000000034240 
FT3	034237 034240 0   0   000000000400 0            000000034240 
FT9	034240 034240 0   0   000000000400 0            000000034240 
ET0	034240 034240 0   0   000000000400 0            000000034240 
ST1A	034240 034240 0   0   000000000400 0            000000034240 
ST9	034240 034240 0   0   000000000400 0            000000034240 


*034240 MOVE 	0,035062
INITIAL
C(AC)=000000 000400 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034240 034240 0   0   200000035062 0            0            
IT1	034240 0      0   0   200000035062 0            0            
AT3	034240 0      0   0   000000035062 0            200000035062 
AT6	034240 035062 0   0   000000035062 0            200000035062 
FT0	034240 035062 0   0   0            0            200000035062 
FT1A	034240 035062 0   0   0            0            0            
FT9	034241 035062 0   0   0            0            0            
ET0	034241 035062 0   0   0            0            0            
ST1	034241 035062 0   0   0            0            0            
ST2	034241 035062 0   0   0            0            0            
ST9	034241 035062 0   0   0            0            0            


*034241 EQV 	0,035153
INITIAL
C(AC)=000000 000000 
C(E)=777777 776777 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034241 034241 0   0   444000035153 0            777777776777 
IT1	034241 0      0   0   444000035153 0            777777776777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 586
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0802

AT3	034241 0      0   0   000000035153 0            444000035153 
AT6	034241 035153 0   0   000000035153 0            444000035153 
FT0	034241 035153 0   0   777777776777 0            444000035153 
FT1A	034241 035153 0   0   777777776777 0            777777776777 
FT2	034241 035153 0   0   0            0            777777776777 
FT2RQ	034241 035153 0   0   0            0            777777776777 
FT3	034241 035153 0   0   0            0            777777776777 
FT9	034242 035153 0   0   0            0            777777776777 
ET0	034242 035153 0   0   000000001000 0            777777776777 
ST1	034242 035153 0   0   000000001000 0            777777776777 
ST2	034242 035153 0   0   000000001000 0            777777776777 
ST9	034242 035153 0   0   000000001000 0            777777776777 


*034242 SKIPN	0,000000
INITIAL
C(AC)=000000 001000 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034242 034242 0   0   336000000000 0            000000001000 
IT1	034242 0      0   0   336000000000 0            000000001000 
AT3	034242 0      0   0   0            0            336000000000 
AT6	034242 0      0   0   0            0            336000000000 
FT0	034242 0      0   0   000000001000 0            336000000000 
FT1A	034242 0      0   0   000000001000 0            000000001000 
FT9	034243 0      0   0   000000001000 0            000000001000 
ET0	034244 0      0   0   000000001000 0            000000001000 
ST1A	034244 0      0   0   000000001000 0            000000001000 
ST9	034244 0      0   0   000000001000 0            000000001000 


*034244 JUMPA	0,034245
INITIAL
C(AC)=000000 001000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034244 034244 0   0   324000034245 0            000000034245 
IT1	034244 0      0   0   324000034245 0            000000034245 
AT3	034244 0      0   0   000000034245 0            324000034245 
AT6	034244 034245 0   0   000000034245 0            324000034245 
FT1A	034244 034245 0   0   000000034245 0            000000034245 
FT2	034244 034245 0   0   0            0            000000034245 
FT2RQ	034244 034245 0   0   000000001000 0            000000034245 
FT3	034244 034245 0   0   000000001000 0            000000034245 
FT9	034245 034245 0   0   000000001000 0            000000034245 
ET0	034245 034245 0   0   000000001000 0            000000034245 
ST1A	034245 034245 0   0   000000001000 0            000000034245 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 587
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0803

ST9	034245 034245 0   0   000000001000 0            000000034245 


*034245 MOVE 	0,035062
INITIAL
C(AC)=000000 001000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034245 034245 0   0   200000035062 0            0            
IT1	034245 0      0   0   200000035062 0            0            
AT3	034245 0      0   0   000000035062 0            200000035062 
AT6	034245 035062 0   0   000000035062 0            200000035062 
FT0	034245 035062 0   0   0            0            200000035062 
FT1A	034245 035062 0   0   0            0            0            
FT9	034246 035062 0   0   0            0            0            
ET0	034246 035062 0   0   0            0            0            
ST1	034246 035062 0   0   0            0            0            
ST2	034246 035062 0   0   0            0            0            
ST9	034246 035062 0   0   0            0            0            


*034246 EQV 	0,035154
INITIAL
C(AC)=000000 000000 
C(E)=777777 775777 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034246 034246 0   0   444000035154 0            777777775777 
IT1	034246 0      0   0   444000035154 0            777777775777 
AT3	034246 0      0   0   000000035154 0            444000035154 
AT6	034246 035154 0   0   000000035154 0            444000035154 
FT0	034246 035154 0   0   777777775777 0            444000035154 
FT1A	034246 035154 0   0   777777775777 0            777777775777 
FT2	034246 035154 0   0   0            0            777777775777 
FT2RQ	034246 035154 0   0   0            0            777777775777 
FT3	034246 035154 0   0   0            0            777777775777 
FT9	034247 035154 0   0   0            0            777777775777 
ET0	034247 035154 0   0   000000002000 0            777777775777 
ST1	034247 035154 0   0   000000002000 0            777777775777 
ST2	034247 035154 0   0   000000002000 0            777777775777 
ST9	034247 035154 0   0   000000002000 0            777777775777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 588
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0804

*034247 SKIPN	0,000000
INITIAL
C(AC)=000000 002000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034247 034247 0   0   336000000000 0            000000002000 
IT1	034247 0      0   0   336000000000 0            000000002000 
AT3	034247 0      0   0   0            0            336000000000 
AT6	034247 0      0   0   0            0            336000000000 
FT0	034247 0      0   0   000000002000 0            336000000000 
FT1A	034247 0      0   0   000000002000 0            000000002000 
FT9	034250 0      0   0   000000002000 0            000000002000 
ET0	034251 0      0   0   000000002000 0            000000002000 
ST1A	034251 0      0   0   000000002000 0            000000002000 
ST9	034251 0      0   0   000000002000 0            000000002000 


*034251 JUMPA	0,034252
INITIAL
C(AC)=000000 002000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034251 034251 0   0   324000034252 0            000000034252 
IT1	034251 0      0   0   324000034252 0            000000034252 
AT3	034251 0      0   0   000000034252 0            324000034252 
AT6	034251 034252 0   0   000000034252 0            324000034252 
FT1A	034251 034252 0   0   000000034252 0            000000034252 
FT2	034251 034252 0   0   0            0            000000034252 
FT2RQ	034251 034252 0   0   000000002000 0            000000034252 
FT3	034251 034252 0   0   000000002000 0            000000034252 
FT9	034252 034252 0   0   000000002000 0            000000034252 
ET0	034252 034252 0   0   000000002000 0            000000034252 
ST1A	034252 034252 0   0   000000002000 0            000000034252 
ST9	034252 034252 0   0   000000002000 0            000000034252 


*034252 MOVE 	0,035062
INITIAL
C(AC)=000000 002000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034252 034252 0   0   200000035062 0            0            
IT1	034252 0      0   0   200000035062 0            0            
AT3	034252 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 589
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0805

AT6	034252 035062 0   0   000000035062 0            200000035062 
FT0	034252 035062 0   0   0            0            200000035062 
FT1A	034252 035062 0   0   0            0            0            
FT9	034253 035062 0   0   0            0            0            
ET0	034253 035062 0   0   0            0            0            
ST1	034253 035062 0   0   0            0            0            
ST2	034253 035062 0   0   0            0            0            
ST9	034253 035062 0   0   0            0            0            


*034253 EQV 	0,035155
INITIAL
C(AC)=000000 000000 
C(E)=777777 773777 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034253 034253 0   0   444000035155 0            777777773777 
IT1	034253 0      0   0   444000035155 0            777777773777 
AT3	034253 0      0   0   000000035155 0            444000035155 
AT6	034253 035155 0   0   000000035155 0            444000035155 
FT0	034253 035155 0   0   777777773777 0            444000035155 
FT1A	034253 035155 0   0   777777773777 0            777777773777 
FT2	034253 035155 0   0   0            0            777777773777 
FT2RQ	034253 035155 0   0   0            0            777777773777 
FT3	034253 035155 0   0   0            0            777777773777 
FT9	034254 035155 0   0   0            0            777777773777 
ET0	034254 035155 0   0   000000004000 0            777777773777 
ST1	034254 035155 0   0   000000004000 0            777777773777 
ST2	034254 035155 0   0   000000004000 0            777777773777 
ST9	034254 035155 0   0   000000004000 0            777777773777 


*034254 SKIPN	0,000000
INITIAL
C(AC)=000000 004000 
C(E)=000000 004000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034254 034254 0   0   336000000000 0            000000004000 
IT1	034254 0      0   0   336000000000 0            000000004000 
AT3	034254 0      0   0   0            0            336000000000 
AT6	034254 0      0   0   0            0            336000000000 
FT0	034254 0      0   0   000000004000 0            336000000000 
FT1A	034254 0      0   0   000000004000 0            000000004000 
FT9	034255 0      0   0   000000004000 0            000000004000 
ET0	034256 0      0   0   000000004000 0            000000004000 
ST1A	034256 0      0   0   000000004000 0            000000004000 
ST9	034256 0      0   0   000000004000 0            000000004000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 590
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0806



*034256 JUMPA	0,034257
INITIAL
C(AC)=000000 004000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034256 034256 0   0   324000034257 0            000000034257 
IT1	034256 0      0   0   324000034257 0            000000034257 
AT3	034256 0      0   0   000000034257 0            324000034257 
AT6	034256 034257 0   0   000000034257 0            324000034257 
FT1A	034256 034257 0   0   000000034257 0            000000034257 
FT2	034256 034257 0   0   0            0            000000034257 
FT2RQ	034256 034257 0   0   000000004000 0            000000034257 
FT3	034256 034257 0   0   000000004000 0            000000034257 
FT9	034257 034257 0   0   000000004000 0            000000034257 
ET0	034257 034257 0   0   000000004000 0            000000034257 
ST1A	034257 034257 0   0   000000004000 0            000000034257 
ST9	034257 034257 0   0   000000004000 0            000000034257 


*034257 MOVE 	0,035062
INITIAL
C(AC)=000000 004000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034257 034257 0   0   200000035062 0            0            
IT1	034257 0      0   0   200000035062 0            0            
AT3	034257 0      0   0   000000035062 0            200000035062 
AT6	034257 035062 0   0   000000035062 0            200000035062 
FT0	034257 035062 0   0   0            0            200000035062 
FT1A	034257 035062 0   0   0            0            0            
FT9	034260 035062 0   0   0            0            0            
ET0	034260 035062 0   0   0            0            0            
ST1	034260 035062 0   0   0            0            0            
ST2	034260 035062 0   0   0            0            0            
ST9	034260 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 591
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0807

*034260 EQV 	0,035156
INITIAL
C(AC)=000000 000000 
C(E)=777777 767777 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034260 034260 0   0   444000035156 0            777777767777 
IT1	034260 0      0   0   444000035156 0            777777767777 
AT3	034260 0      0   0   000000035156 0            444000035156 
AT6	034260 035156 0   0   000000035156 0            444000035156 
FT0	034260 035156 0   0   777777767777 0            444000035156 
FT1A	034260 035156 0   0   777777767777 0            777777767777 
FT2	034260 035156 0   0   0            0            777777767777 
FT2RQ	034260 035156 0   0   0            0            777777767777 
FT3	034260 035156 0   0   0            0            777777767777 
FT9	034261 035156 0   0   0            0            777777767777 
ET0	034261 035156 0   0   000000010000 0            777777767777 
ST1	034261 035156 0   0   000000010000 0            777777767777 
ST2	034261 035156 0   0   000000010000 0            777777767777 
ST9	034261 035156 0   0   000000010000 0            777777767777 


*034261 SKIPN	0,000000
INITIAL
C(AC)=000000 010000 
C(E)=000000 010000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034261 034261 0   0   336000000000 0            000000010000 
IT1	034261 0      0   0   336000000000 0            000000010000 
AT3	034261 0      0   0   0            0            336000000000 
AT6	034261 0      0   0   0            0            336000000000 
FT0	034261 0      0   0   000000010000 0            336000000000 
FT1A	034261 0      0   0   000000010000 0            000000010000 
FT9	034262 0      0   0   000000010000 0            000000010000 
ET0	034263 0      0   0   000000010000 0            000000010000 
ST1A	034263 0      0   0   000000010000 0            000000010000 
ST9	034263 0      0   0   000000010000 0            000000010000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 592
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0808

*034263 JUMPA	0,034264
INITIAL
C(AC)=000000 010000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034263 034263 0   0   324000034264 0            000000034264 
IT1	034263 0      0   0   324000034264 0            000000034264 
AT3	034263 0      0   0   000000034264 0            324000034264 
AT6	034263 034264 0   0   000000034264 0            324000034264 
FT1A	034263 034264 0   0   000000034264 0            000000034264 
FT2	034263 034264 0   0   0            0            000000034264 
FT2RQ	034263 034264 0   0   000000010000 0            000000034264 
FT3	034263 034264 0   0   000000010000 0            000000034264 
FT9	034264 034264 0   0   000000010000 0            000000034264 
ET0	034264 034264 0   0   000000010000 0            000000034264 
ST1A	034264 034264 0   0   000000010000 0            000000034264 
ST9	034264 034264 0   0   000000010000 0            000000034264 


*034264 MOVE 	0,035062
INITIAL
C(AC)=000000 010000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034264 034264 0   0   200000035062 0            0            
IT1	034264 0      0   0   200000035062 0            0            
AT3	034264 0      0   0   000000035062 0            200000035062 
AT6	034264 035062 0   0   000000035062 0            200000035062 
FT0	034264 035062 0   0   0            0            200000035062 
FT1A	034264 035062 0   0   0            0            0            
FT9	034265 035062 0   0   0            0            0            
ET0	034265 035062 0   0   0            0            0            
ST1	034265 035062 0   0   0            0            0            
ST2	034265 035062 0   0   0            0            0            
ST9	034265 035062 0   0   0            0            0            


*034265 EQV 	0,035157
INITIAL
C(AC)=000000 000000 
C(E)=777777 757777 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034265 034265 0   0   444000035157 0            777777757777 
IT1	034265 0      0   0   444000035157 0            777777757777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 593
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0809

AT3	034265 0      0   0   000000035157 0            444000035157 
AT6	034265 035157 0   0   000000035157 0            444000035157 
FT0	034265 035157 0   0   777777757777 0            444000035157 
FT1A	034265 035157 0   0   777777757777 0            777777757777 
FT2	034265 035157 0   0   0            0            777777757777 
FT2RQ	034265 035157 0   0   0            0            777777757777 
FT3	034265 035157 0   0   0            0            777777757777 
FT9	034266 035157 0   0   0            0            777777757777 
ET0	034266 035157 0   0   000000020000 0            777777757777 
ST1	034266 035157 0   0   000000020000 0            777777757777 
ST2	034266 035157 0   0   000000020000 0            777777757777 
ST9	034266 035157 0   0   000000020000 0            777777757777 


*034266 SKIPN	0,000000
INITIAL
C(AC)=000000 020000 
C(E)=000000 020000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034266 034266 0   0   336000000000 0            000000020000 
IT1	034266 0      0   0   336000000000 0            000000020000 
AT3	034266 0      0   0   0            0            336000000000 
AT6	034266 0      0   0   0            0            336000000000 
FT0	034266 0      0   0   000000020000 0            336000000000 
FT1A	034266 0      0   0   000000020000 0            000000020000 
FT9	034267 0      0   0   000000020000 0            000000020000 
ET0	034270 0      0   0   000000020000 0            000000020000 
ST1A	034270 0      0   0   000000020000 0            000000020000 
ST9	034270 0      0   0   000000020000 0            000000020000 


*034270 JUMPA	0,034271
INITIAL
C(AC)=000000 020000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034270 034270 0   0   324000034271 0            000000034271 
IT1	034270 0      0   0   324000034271 0            000000034271 
AT3	034270 0      0   0   000000034271 0            324000034271 
AT6	034270 034271 0   0   000000034271 0            324000034271 
FT1A	034270 034271 0   0   000000034271 0            000000034271 
FT2	034270 034271 0   0   0            0            000000034271 
FT2RQ	034270 034271 0   0   000000020000 0            000000034271 
FT3	034270 034271 0   0   000000020000 0            000000034271 
FT9	034271 034271 0   0   000000020000 0            000000034271 
ET0	034271 034271 0   0   000000020000 0            000000034271 
ST1A	034271 034271 0   0   000000020000 0            000000034271 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 594
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0810

ST9	034271 034271 0   0   000000020000 0            000000034271 


*034271 MOVE 	0,035062
INITIAL
C(AC)=000000 020000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034271 034271 0   0   200000035062 0            0            
IT1	034271 0      0   0   200000035062 0            0            
AT3	034271 0      0   0   000000035062 0            200000035062 
AT6	034271 035062 0   0   000000035062 0            200000035062 
FT0	034271 035062 0   0   0            0            200000035062 
FT1A	034271 035062 0   0   0            0            0            
FT9	034272 035062 0   0   0            0            0            
ET0	034272 035062 0   0   0            0            0            
ST1	034272 035062 0   0   0            0            0            
ST2	034272 035062 0   0   0            0            0            
ST9	034272 035062 0   0   0            0            0            


*034272 EQV 	0,035160
INITIAL
C(AC)=000000 000000 
C(E)=777777 737777 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034272 034272 0   0   444000035160 0            777777737777 
IT1	034272 0      0   0   444000035160 0            777777737777 
AT3	034272 0      0   0   000000035160 0            444000035160 
AT6	034272 035160 0   0   000000035160 0            444000035160 
FT0	034272 035160 0   0   777777737777 0            444000035160 
FT1A	034272 035160 0   0   777777737777 0            777777737777 
FT2	034272 035160 0   0   0            0            777777737777 
FT2RQ	034272 035160 0   0   0            0            777777737777 
FT3	034272 035160 0   0   0            0            777777737777 
FT9	034273 035160 0   0   0            0            777777737777 
ET0	034273 035160 0   0   000000040000 0            777777737777 
ST1	034273 035160 0   0   000000040000 0            777777737777 
ST2	034273 035160 0   0   000000040000 0            777777737777 
ST9	034273 035160 0   0   000000040000 0            777777737777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 595
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0811

*034273 SKIPN	0,000000
INITIAL
C(AC)=000000 040000 
C(E)=000000 040000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034273 034273 0   0   336000000000 0            000000040000 
IT1	034273 0      0   0   336000000000 0            000000040000 
AT3	034273 0      0   0   0            0            336000000000 
AT6	034273 0      0   0   0            0            336000000000 
FT0	034273 0      0   0   000000040000 0            336000000000 
FT1A	034273 0      0   0   000000040000 0            000000040000 
FT9	034274 0      0   0   000000040000 0            000000040000 
ET0	034275 0      0   0   000000040000 0            000000040000 
ST1A	034275 0      0   0   000000040000 0            000000040000 
ST9	034275 0      0   0   000000040000 0            000000040000 


*034275 JUMPA	0,034276
INITIAL
C(AC)=000000 040000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034275 034275 0   0   324000034276 0            000000034276 
IT1	034275 0      0   0   324000034276 0            000000034276 
AT3	034275 0      0   0   000000034276 0            324000034276 
AT6	034275 034276 0   0   000000034276 0            324000034276 
FT1A	034275 034276 0   0   000000034276 0            000000034276 
FT2	034275 034276 0   0   0            0            000000034276 
FT2RQ	034275 034276 0   0   000000040000 0            000000034276 
FT3	034275 034276 0   0   000000040000 0            000000034276 
FT9	034276 034276 0   0   000000040000 0            000000034276 
ET0	034276 034276 0   0   000000040000 0            000000034276 
ST1A	034276 034276 0   0   000000040000 0            000000034276 
ST9	034276 034276 0   0   000000040000 0            000000034276 


*034276 MOVE 	0,035062
INITIAL
C(AC)=000000 040000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034276 034276 0   0   200000035062 0            0            
IT1	034276 0      0   0   200000035062 0            0            
AT3	034276 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 596
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0812

AT6	034276 035062 0   0   000000035062 0            200000035062 
FT0	034276 035062 0   0   0            0            200000035062 
FT1A	034276 035062 0   0   0            0            0            
FT9	034277 035062 0   0   0            0            0            
ET0	034277 035062 0   0   0            0            0            
ST1	034277 035062 0   0   0            0            0            
ST2	034277 035062 0   0   0            0            0            
ST9	034277 035062 0   0   0            0            0            


*034277 EQV 	0,035161
INITIAL
C(AC)=000000 000000 
C(E)=777777 677777 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034277 034277 0   0   444000035161 0            777777677777 
IT1	034277 0      0   0   444000035161 0            777777677777 
AT3	034277 0      0   0   000000035161 0            444000035161 
AT6	034277 035161 0   0   000000035161 0            444000035161 
FT0	034277 035161 0   0   777777677777 0            444000035161 
FT1A	034277 035161 0   0   777777677777 0            777777677777 
FT2	034277 035161 0   0   0            0            777777677777 
FT2RQ	034277 035161 0   0   0            0            777777677777 
FT3	034277 035161 0   0   0            0            777777677777 
FT9	0      035161 0   0   0            0            777777677777 
ET0	0      035161 0   0   000000100000 0            777777677777 
ST1	0      035161 0   0   000000100000 0            777777677777 
ST2	0      035161 0   0   000000100000 0            777777677777 
ST9	0      035161 0   0   000000100000 0            777777677777 


*034300 SKIPN	0,000000
INITIAL
C(AC)=000000 100000 
C(E)=000000 100000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   336000000000 0            000000100000 
IT1	0      0      0   0   336000000000 0            000000100000 
AT3	0      0      0   0   0            0            336000000000 
AT6	0      0      0   0   0            0            336000000000 
FT0	0      0      0   0   000000100000 0            336000000000 
FT1A	0      0      0   0   000000100000 0            000000100000 
FT9	034301 0      0   0   000000100000 0            000000100000 
ET0	034302 0      0   0   000000100000 0            000000100000 
ST1A	034302 0      0   0   000000100000 0            000000100000 
ST9	034302 0      0   0   000000100000 0            000000100000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 597
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0813



*034302 JUMPA	0,034303
INITIAL
C(AC)=000000 100000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034302 034302 0   0   324000034303 0            000000034303 
IT1	034302 0      0   0   324000034303 0            000000034303 
AT3	034302 0      0   0   000000034303 0            324000034303 
AT6	034302 034303 0   0   000000034303 0            324000034303 
FT1A	034302 034303 0   0   000000034303 0            000000034303 
FT2	034302 034303 0   0   0            0            000000034303 
FT2RQ	034302 034303 0   0   000000100000 0            000000034303 
FT3	034302 034303 0   0   000000100000 0            000000034303 
FT9	034303 034303 0   0   000000100000 0            000000034303 
ET0	034303 034303 0   0   000000100000 0            000000034303 
ST1A	034303 034303 0   0   000000100000 0            000000034303 
ST9	034303 034303 0   0   000000100000 0            000000034303 


*034303 MOVE 	0,035062
INITIAL
C(AC)=000000 100000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034303 034303 0   0   200000035062 0            0            
IT1	034303 0      0   0   200000035062 0            0            
AT3	034303 0      0   0   000000035062 0            200000035062 
AT6	034303 035062 0   0   000000035062 0            200000035062 
FT0	034303 035062 0   0   0            0            200000035062 
FT1A	034303 035062 0   0   0            0            0            
FT9	034304 035062 0   0   0            0            0            
ET0	034304 035062 0   0   0            0            0            
ST1	034304 035062 0   0   0            0            0            
ST2	034304 035062 0   0   0            0            0            
ST9	034304 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 598
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0814

*034304 EQV 	0,035162
INITIAL
C(AC)=000000 000000 
C(E)=777777 577777 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034304 034304 0   0   444000035162 0            777777577777 
IT1	034304 0      0   0   444000035162 0            777777577777 
AT3	034304 0      0   0   000000035162 0            444000035162 
AT6	034304 035162 0   0   000000035162 0            444000035162 
FT0	034304 035162 0   0   777777577777 0            444000035162 
FT1A	034304 035162 0   0   777777577777 0            777777577777 
FT2	034304 035162 0   0   0            0            777777577777 
FT2RQ	034304 035162 0   0   0            0            777777577777 
FT3	034304 035162 0   0   0            0            777777577777 
FT9	034305 035162 0   0   0            0            777777577777 
ET0	034305 035162 0   0   000000200000 0            777777577777 
ST1	034305 035162 0   0   000000200000 0            777777577777 
ST2	034305 035162 0   0   000000200000 0            777777577777 
ST9	034305 035162 0   0   000000200000 0            777777577777 


*034305 SKIPN	0,000000
INITIAL
C(AC)=000000 200000 
C(E)=000000 200000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034305 034305 0   0   336000000000 0            000000200000 
IT1	034305 0      0   0   336000000000 0            000000200000 
AT3	034305 0      0   0   0            0            336000000000 
AT6	034305 0      0   0   0            0            336000000000 
FT0	034305 0      0   0   000000200000 0            336000000000 
FT1A	034305 0      0   0   000000200000 0            000000200000 
FT9	034306 0      0   0   000000200000 0            000000200000 
ET0	034307 0      0   0   000000200000 0            000000200000 
ST1A	034307 0      0   0   000000200000 0            000000200000 
ST9	034307 0      0   0   000000200000 0            000000200000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 599
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0815

*034307 JUMPA	0,034310
INITIAL
C(AC)=000000 200000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034307 034307 0   0   324000034310 0            000000034310 
IT1	034307 0      0   0   324000034310 0            000000034310 
AT3	034307 0      0   0   000000034310 0            324000034310 
AT6	034307 034310 0   0   000000034310 0            324000034310 
FT1A	034307 034310 0   0   000000034310 0            000000034310 
FT2	034307 034310 0   0   0            0            000000034310 
FT2RQ	034307 034310 0   0   000000200000 0            000000034310 
FT3	034307 034310 0   0   000000200000 0            000000034310 
FT9	034310 034310 0   0   000000200000 0            000000034310 
ET0	034310 034310 0   0   000000200000 0            000000034310 
ST1A	034310 034310 0   0   000000200000 0            000000034310 
ST9	034310 034310 0   0   000000200000 0            000000034310 


*034310 MOVE 	0,035062
INITIAL
C(AC)=000000 200000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034310 034310 0   0   200000035062 0            0            
IT1	034310 0      0   0   200000035062 0            0            
AT3	034310 0      0   0   000000035062 0            200000035062 
AT6	034310 035062 0   0   000000035062 0            200000035062 
FT0	034310 035062 0   0   0            0            200000035062 
FT1A	034310 035062 0   0   0            0            0            
FT9	034311 035062 0   0   0            0            0            
ET0	034311 035062 0   0   0            0            0            
ST1	034311 035062 0   0   0            0            0            
ST2	034311 035062 0   0   0            0            0            
ST9	034311 035062 0   0   0            0            0            


*034311 EQV 	0,035163
INITIAL
C(AC)=000000 000000 
C(E)=777777 377777 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034311 034311 0   0   444000035163 0            777777377777 
IT1	034311 0      0   0   444000035163 0            777777377777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 600
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0816

AT3	034311 0      0   0   000000035163 0            444000035163 
AT6	034311 035163 0   0   000000035163 0            444000035163 
FT0	034311 035163 0   0   777777377777 0            444000035163 
FT1A	034311 035163 0   0   777777377777 0            777777377777 
FT2	034311 035163 0   0   0            0            777777377777 
FT2RQ	034311 035163 0   0   0            0            777777377777 
FT3	034311 035163 0   0   0            0            777777377777 
FT9	034312 035163 0   0   0            0            777777377777 
ET0	034312 035163 0   0   000000400000 0            777777377777 
ST1	034312 035163 0   0   000000400000 0            777777377777 
ST2	034312 035163 0   0   000000400000 0            777777377777 
ST9	034312 035163 0   0   000000400000 0            777777377777 


*034312 SKIPN	0,000000
INITIAL
C(AC)=000000 400000 
C(E)=000000 400000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034312 034312 0   0   336000000000 0            000000400000 
IT1	034312 0      0   0   336000000000 0            000000400000 
AT3	034312 0      0   0   0            0            336000000000 
AT6	034312 0      0   0   0            0            336000000000 
FT0	034312 0      0   0   000000400000 0            336000000000 
FT1A	034312 0      0   0   000000400000 0            000000400000 
FT9	034313 0      0   0   000000400000 0            000000400000 
ET0	034314 0      0   0   000000400000 0            000000400000 
ST1A	034314 0      0   0   000000400000 0            000000400000 
ST9	034314 0      0   0   000000400000 0            000000400000 


*034314 JUMPA	0,034315
INITIAL
C(AC)=000000 400000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034314 034314 0   0   324000034315 0            000000034315 
IT1	034314 0      0   0   324000034315 0            000000034315 
AT3	034314 0      0   0   000000034315 0            324000034315 
AT6	034314 034315 0   0   000000034315 0            324000034315 
FT1A	034314 034315 0   0   000000034315 0            000000034315 
FT2	034314 034315 0   0   0            0            000000034315 
FT2RQ	034314 034315 0   0   000000400000 0            000000034315 
FT3	034314 034315 0   0   000000400000 0            000000034315 
FT9	034315 034315 0   0   000000400000 0            000000034315 
ET0	034315 034315 0   0   000000400000 0            000000034315 
ST1A	034315 034315 0   0   000000400000 0            000000034315 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 601
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0817

ST9	034315 034315 0   0   000000400000 0            000000034315 


*034315 MOVE 	0,035062
INITIAL
C(AC)=000000 400000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034315 034315 0   0   200000035062 0            0            
IT1	034315 0      0   0   200000035062 0            0            
AT3	034315 0      0   0   000000035062 0            200000035062 
AT6	034315 035062 0   0   000000035062 0            200000035062 
FT0	034315 035062 0   0   0            0            200000035062 
FT1A	034315 035062 0   0   0            0            0            
FT9	034316 035062 0   0   0            0            0            
ET0	034316 035062 0   0   0            0            0            
ST1	034316 035062 0   0   0            0            0            
ST2	034316 035062 0   0   0            0            0            
ST9	034316 035062 0   0   0            0            0            


*034316 EQV 	0,035164
INITIAL
C(AC)=000000 000000 
C(E)=777776 777777 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034316 034316 0   0   444000035164 0            777776777777 
IT1	034316 0      0   0   444000035164 0            777776777777 
AT3	034316 0      0   0   000000035164 0            444000035164 
AT6	034316 035164 0   0   000000035164 0            444000035164 
FT0	034316 035164 0   0   777776777777 0            444000035164 
FT1A	034316 035164 0   0   777776777777 0            777776777777 
FT2	034316 035164 0   0   0            0            777776777777 
FT2RQ	034316 035164 0   0   0            0            777776777777 
FT3	034316 035164 0   0   0            0            777776777777 
FT9	034317 035164 0   0   0            0            777776777777 
ET0	034317 035164 0   0   000001000000 0            777776777777 
ST1	034317 035164 0   0   000001000000 0            777776777777 
ST2	034317 035164 0   0   000001000000 0            777776777777 
ST9	034317 035164 0   0   000001000000 0            777776777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 602
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0818

*034317 SKIPN	0,000000
INITIAL
C(AC)=000001 000000 
C(E)=000001 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034317 034317 0   0   336000000000 0            000001000000 
IT1	034317 0      0   0   336000000000 0            000001000000 
AT3	034317 0      0   0   0            0            336000000000 
AT6	034317 0      0   0   0            0            336000000000 
FT0	034317 0      0   0   000001000000 0            336000000000 
FT1A	034317 0      0   0   000001000000 0            000001000000 
FT9	034320 0      0   0   000001000000 0            000001000000 
ET0	034321 0      0   0   000001000000 0            000001000000 
ST1A	034321 0      0   0   000001000000 0            000001000000 
ST9	034321 0      0   0   000001000000 0            000001000000 


*034321 JUMPA	0,034322
INITIAL
C(AC)=000001 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034321 034321 0   0   324000034322 0            000000034322 
IT1	034321 0      0   0   324000034322 0            000000034322 
AT3	034321 0      0   0   000000034322 0            324000034322 
AT6	034321 034322 0   0   000000034322 0            324000034322 
FT1A	034321 034322 0   0   000000034322 0            000000034322 
FT2	034321 034322 0   0   0            0            000000034322 
FT2RQ	034321 034322 0   0   000001000000 0            000000034322 
FT3	034321 034322 0   0   000001000000 0            000000034322 
FT9	034322 034322 0   0   000001000000 0            000000034322 
ET0	034322 034322 0   0   000001000000 0            000000034322 
ST1A	034322 034322 0   0   000001000000 0            000000034322 
ST9	034322 034322 0   0   000001000000 0            000000034322 


*034322 MOVE 	0,035062
INITIAL
C(AC)=000001 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034322 034322 0   0   200000035062 0            0            
IT1	034322 0      0   0   200000035062 0            0            
AT3	034322 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 603
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0819

AT6	034322 035062 0   0   000000035062 0            200000035062 
FT0	034322 035062 0   0   0            0            200000035062 
FT1A	034322 035062 0   0   0            0            0            
FT9	034323 035062 0   0   0            0            0            
ET0	034323 035062 0   0   0            0            0            
ST1	034323 035062 0   0   0            0            0            
ST2	034323 035062 0   0   0            0            0            
ST9	034323 035062 0   0   0            0            0            


*034323 EQV 	0,035165
INITIAL
C(AC)=000000 000000 
C(E)=777775 777777 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034323 034323 0   0   444000035165 0            777775777777 
IT1	034323 0      0   0   444000035165 0            777775777777 
AT3	034323 0      0   0   000000035165 0            444000035165 
AT6	034323 035165 0   0   000000035165 0            444000035165 
FT0	034323 035165 0   0   777775777777 0            444000035165 
FT1A	034323 035165 0   0   777775777777 0            777775777777 
FT2	034323 035165 0   0   0            0            777775777777 
FT2RQ	034323 035165 0   0   0            0            777775777777 
FT3	034323 035165 0   0   0            0            777775777777 
FT9	034324 035165 0   0   0            0            777775777777 
ET0	034324 035165 0   0   000002000000 0            777775777777 
ST1	034324 035165 0   0   000002000000 0            777775777777 
ST2	034324 035165 0   0   000002000000 0            777775777777 
ST9	034324 035165 0   0   000002000000 0            777775777777 


*034324 SKIPN	0,000000
INITIAL
C(AC)=000002 000000 
C(E)=000002 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034324 034324 0   0   336000000000 0            000002000000 
IT1	034324 0      0   0   336000000000 0            000002000000 
AT3	034324 0      0   0   0            0            336000000000 
AT6	034324 0      0   0   0            0            336000000000 
FT0	034324 0      0   0   000002000000 0            336000000000 
FT1A	034324 0      0   0   000002000000 0            000002000000 
FT9	034325 0      0   0   000002000000 0            000002000000 
ET0	034326 0      0   0   000002000000 0            000002000000 
ST1A	034326 0      0   0   000002000000 0            000002000000 
ST9	034326 0      0   0   000002000000 0            000002000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 604
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0820



*034326 JUMPA	0,034327
INITIAL
C(AC)=000002 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034326 034326 0   0   324000034327 0            000000034327 
IT1	034326 0      0   0   324000034327 0            000000034327 
AT3	034326 0      0   0   000000034327 0            324000034327 
AT6	034326 034327 0   0   000000034327 0            324000034327 
FT1A	034326 034327 0   0   000000034327 0            000000034327 
FT2	034326 034327 0   0   0            0            000000034327 
FT2RQ	034326 034327 0   0   000002000000 0            000000034327 
FT3	034326 034327 0   0   000002000000 0            000000034327 
FT9	034327 034327 0   0   000002000000 0            000000034327 
ET0	034327 034327 0   0   000002000000 0            000000034327 
ST1A	034327 034327 0   0   000002000000 0            000000034327 
ST9	034327 034327 0   0   000002000000 0            000000034327 


*034327 MOVE 	0,035062
INITIAL
C(AC)=000002 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034327 034327 0   0   200000035062 0            0            
IT1	034327 0      0   0   200000035062 0            0            
AT3	034327 0      0   0   000000035062 0            200000035062 
AT6	034327 035062 0   0   000000035062 0            200000035062 
FT0	034327 035062 0   0   0            0            200000035062 
FT1A	034327 035062 0   0   0            0            0            
FT9	034330 035062 0   0   0            0            0            
ET0	034330 035062 0   0   0            0            0            
ST1	034330 035062 0   0   0            0            0            
ST2	034330 035062 0   0   0            0            0            
ST9	034330 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 605
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0821

*034330 EQV 	0,035166
INITIAL
C(AC)=000000 000000 
C(E)=777773 777777 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034330 034330 0   0   444000035166 0            777773777777 
IT1	034330 0      0   0   444000035166 0            777773777777 
AT3	034330 0      0   0   000000035166 0            444000035166 
AT6	034330 035166 0   0   000000035166 0            444000035166 
FT0	034330 035166 0   0   777773777777 0            444000035166 
FT1A	034330 035166 0   0   777773777777 0            777773777777 
FT2	034330 035166 0   0   0            0            777773777777 
FT2RQ	034330 035166 0   0   0            0            777773777777 
FT3	034330 035166 0   0   0            0            777773777777 
FT9	034331 035166 0   0   0            0            777773777777 
ET0	034331 035166 0   0   000004000000 0            777773777777 
ST1	034331 035166 0   0   000004000000 0            777773777777 
ST2	034331 035166 0   0   000004000000 0            777773777777 
ST9	034331 035166 0   0   000004000000 0            777773777777 


*034331 SKIPN	0,000000
INITIAL
C(AC)=000004 000000 
C(E)=000004 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034331 034331 0   0   336000000000 0            000004000000 
IT1	034331 0      0   0   336000000000 0            000004000000 
AT3	034331 0      0   0   0            0            336000000000 
AT6	034331 0      0   0   0            0            336000000000 
FT0	034331 0      0   0   000004000000 0            336000000000 
FT1A	034331 0      0   0   000004000000 0            000004000000 
FT9	034332 0      0   0   000004000000 0            000004000000 
ET0	034333 0      0   0   000004000000 0            000004000000 
ST1A	034333 0      0   0   000004000000 0            000004000000 
ST9	034333 0      0   0   000004000000 0            000004000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 606
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0822

*034333 JUMPA	0,034334
INITIAL
C(AC)=000004 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034333 034333 0   0   324000034334 0            000000034334 
IT1	034333 0      0   0   324000034334 0            000000034334 
AT3	034333 0      0   0   000000034334 0            324000034334 
AT6	034333 034334 0   0   000000034334 0            324000034334 
FT1A	034333 034334 0   0   000000034334 0            000000034334 
FT2	034333 034334 0   0   0            0            000000034334 
FT2RQ	034333 034334 0   0   000004000000 0            000000034334 
FT3	034333 034334 0   0   000004000000 0            000000034334 
FT9	034334 034334 0   0   000004000000 0            000000034334 
ET0	034334 034334 0   0   000004000000 0            000000034334 
ST1A	034334 034334 0   0   000004000000 0            000000034334 
ST9	034334 034334 0   0   000004000000 0            000000034334 


*034334 MOVE 	0,035062
INITIAL
C(AC)=000004 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034334 034334 0   0   200000035062 0            0            
IT1	034334 0      0   0   200000035062 0            0            
AT3	034334 0      0   0   000000035062 0            200000035062 
AT6	034334 035062 0   0   000000035062 0            200000035062 
FT0	034334 035062 0   0   0            0            200000035062 
FT1A	034334 035062 0   0   0            0            0            
FT9	034335 035062 0   0   0            0            0            
ET0	034335 035062 0   0   0            0            0            
ST1	034335 035062 0   0   0            0            0            
ST2	034335 035062 0   0   0            0            0            
ST9	034335 035062 0   0   0            0            0            


*034335 EQV 	0,035167
INITIAL
C(AC)=000000 000000 
C(E)=777767 777777 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034335 034335 0   0   444000035167 0            777767777777 
IT1	034335 0      0   0   444000035167 0            777767777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 607
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0823

AT3	034335 0      0   0   000000035167 0            444000035167 
AT6	034335 035167 0   0   000000035167 0            444000035167 
FT0	034335 035167 0   0   777767777777 0            444000035167 
FT1A	034335 035167 0   0   777767777777 0            777767777777 
FT2	034335 035167 0   0   0            0            777767777777 
FT2RQ	034335 035167 0   0   0            0            777767777777 
FT3	034335 035167 0   0   0            0            777767777777 
FT9	034336 035167 0   0   0            0            777767777777 
ET0	034336 035167 0   0   000010000000 0            777767777777 
ST1	034336 035167 0   0   000010000000 0            777767777777 
ST2	034336 035167 0   0   000010000000 0            777767777777 
ST9	034336 035167 0   0   000010000000 0            777767777777 


*034336 SKIPN	0,000000
INITIAL
C(AC)=000010 000000 
C(E)=000010 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034336 034336 0   0   336000000000 0            000010000000 
IT1	034336 0      0   0   336000000000 0            000010000000 
AT3	034336 0      0   0   0            0            336000000000 
AT6	034336 0      0   0   0            0            336000000000 
FT0	034336 0      0   0   000010000000 0            336000000000 
FT1A	034336 0      0   0   000010000000 0            000010000000 
FT9	034337 0      0   0   000010000000 0            000010000000 
ET0	034340 0      0   0   000010000000 0            000010000000 
ST1A	034340 0      0   0   000010000000 0            000010000000 
ST9	034340 0      0   0   000010000000 0            000010000000 


*034340 JUMPA	0,034341
INITIAL
C(AC)=000010 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034340 034340 0   0   324000034341 0            000000034341 
IT1	034340 0      0   0   324000034341 0            000000034341 
AT3	034340 0      0   0   000000034341 0            324000034341 
AT6	034340 034341 0   0   000000034341 0            324000034341 
FT1A	034340 034341 0   0   000000034341 0            000000034341 
FT2	034340 034341 0   0   0            0            000000034341 
FT2RQ	034340 034341 0   0   000010000000 0            000000034341 
FT3	034340 034341 0   0   000010000000 0            000000034341 
FT9	034341 034341 0   0   000010000000 0            000000034341 
ET0	034341 034341 0   0   000010000000 0            000000034341 
ST1A	034341 034341 0   0   000010000000 0            000000034341 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 608
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0824

ST9	034341 034341 0   0   000010000000 0            000000034341 


*034341 MOVE 	0,035062
INITIAL
C(AC)=000010 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034341 034341 0   0   200000035062 0            0            
IT1	034341 0      0   0   200000035062 0            0            
AT3	034341 0      0   0   000000035062 0            200000035062 
AT6	034341 035062 0   0   000000035062 0            200000035062 
FT0	034341 035062 0   0   0            0            200000035062 
FT1A	034341 035062 0   0   0            0            0            
FT9	034342 035062 0   0   0            0            0            
ET0	034342 035062 0   0   0            0            0            
ST1	034342 035062 0   0   0            0            0            
ST2	034342 035062 0   0   0            0            0            
ST9	034342 035062 0   0   0            0            0            


*034342 EQV 	0,035170
INITIAL
C(AC)=000000 000000 
C(E)=777757 777777 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034342 034342 0   0   444000035170 0            777757777777 
IT1	034342 0      0   0   444000035170 0            777757777777 
AT3	034342 0      0   0   000000035170 0            444000035170 
AT6	034342 035170 0   0   000000035170 0            444000035170 
FT0	034342 035170 0   0   777757777777 0            444000035170 
FT1A	034342 035170 0   0   777757777777 0            777757777777 
FT2	034342 035170 0   0   0            0            777757777777 
FT2RQ	034342 035170 0   0   0            0            777757777777 
FT3	034342 035170 0   0   0            0            777757777777 
FT9	034343 035170 0   0   0            0            777757777777 
ET0	034343 035170 0   0   000020000000 0            777757777777 
ST1	034343 035170 0   0   000020000000 0            777757777777 
ST2	034343 035170 0   0   000020000000 0            777757777777 
ST9	034343 035170 0   0   000020000000 0            777757777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 609
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0825

*034343 SKIPN	0,000000
INITIAL
C(AC)=000020 000000 
C(E)=000020 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034343 034343 0   0   336000000000 0            000020000000 
IT1	034343 0      0   0   336000000000 0            000020000000 
AT3	034343 0      0   0   0            0            336000000000 
AT6	034343 0      0   0   0            0            336000000000 
FT0	034343 0      0   0   000020000000 0            336000000000 
FT1A	034343 0      0   0   000020000000 0            000020000000 
FT9	034344 0      0   0   000020000000 0            000020000000 
ET0	034345 0      0   0   000020000000 0            000020000000 
ST1A	034345 0      0   0   000020000000 0            000020000000 
ST9	034345 0      0   0   000020000000 0            000020000000 


*034345 JUMPA	0,034346
INITIAL
C(AC)=000020 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034345 034345 0   0   324000034346 0            000000034346 
IT1	034345 0      0   0   324000034346 0            000000034346 
AT3	034345 0      0   0   000000034346 0            324000034346 
AT6	034345 034346 0   0   000000034346 0            324000034346 
FT1A	034345 034346 0   0   000000034346 0            000000034346 
FT2	034345 034346 0   0   0            0            000000034346 
FT2RQ	034345 034346 0   0   000020000000 0            000000034346 
FT3	034345 034346 0   0   000020000000 0            000000034346 
FT9	034346 034346 0   0   000020000000 0            000000034346 
ET0	034346 034346 0   0   000020000000 0            000000034346 
ST1A	034346 034346 0   0   000020000000 0            000000034346 
ST9	034346 034346 0   0   000020000000 0            000000034346 


*034346 MOVE 	0,035062
INITIAL
C(AC)=000020 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034346 034346 0   0   200000035062 0            0            
IT1	034346 0      0   0   200000035062 0            0            
AT3	034346 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 610
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0826

AT6	034346 035062 0   0   000000035062 0            200000035062 
FT0	034346 035062 0   0   0            0            200000035062 
FT1A	034346 035062 0   0   0            0            0            
FT9	034347 035062 0   0   0            0            0            
ET0	034347 035062 0   0   0            0            0            
ST1	034347 035062 0   0   0            0            0            
ST2	034347 035062 0   0   0            0            0            
ST9	034347 035062 0   0   0            0            0            


*034347 EQV 	0,035171
INITIAL
C(AC)=000000 000000 
C(E)=777737 777777 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034347 034347 0   0   444000035171 0            777737777777 
IT1	034347 0      0   0   444000035171 0            777737777777 
AT3	034347 0      0   0   000000035171 0            444000035171 
AT6	034347 035171 0   0   000000035171 0            444000035171 
FT0	034347 035171 0   0   777737777777 0            444000035171 
FT1A	034347 035171 0   0   777737777777 0            777737777777 
FT2	034347 035171 0   0   0            0            777737777777 
FT2RQ	034347 035171 0   0   0            0            777737777777 
FT3	034347 035171 0   0   0            0            777737777777 
FT9	034350 035171 0   0   0            0            777737777777 
ET0	034350 035171 0   0   000040000000 0            777737777777 
ST1	034350 035171 0   0   000040000000 0            777737777777 
ST2	034350 035171 0   0   000040000000 0            777737777777 
ST9	034350 035171 0   0   000040000000 0            777737777777 


*034350 SKIPN	0,000000
INITIAL
C(AC)=000040 000000 
C(E)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034350 034350 0   0   336000000000 0            000040000000 
IT1	034350 0      0   0   336000000000 0            000040000000 
AT3	034350 0      0   0   0            0            336000000000 
AT6	034350 0      0   0   0            0            336000000000 
FT0	034350 0      0   0   000040000000 0            336000000000 
FT1A	034350 0      0   0   000040000000 0            000040000000 
FT9	034351 0      0   0   000040000000 0            000040000000 
ET0	034352 0      0   0   000040000000 0            000040000000 
ST1A	034352 0      0   0   000040000000 0            000040000000 
ST9	034352 0      0   0   000040000000 0            000040000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 611
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0827



*034352 JUMPA	0,034353
INITIAL
C(AC)=000040 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034352 034352 0   0   324000034353 0            000000034353 
IT1	034352 0      0   0   324000034353 0            000000034353 
AT3	034352 0      0   0   000000034353 0            324000034353 
AT6	034352 034353 0   0   000000034353 0            324000034353 
FT1A	034352 034353 0   0   000000034353 0            000000034353 
FT2	034352 034353 0   0   0            0            000000034353 
FT2RQ	034352 034353 0   0   000040000000 0            000000034353 
FT3	034352 034353 0   0   000040000000 0            000000034353 
FT9	034353 034353 0   0   000040000000 0            000000034353 
ET0	034353 034353 0   0   000040000000 0            000000034353 
ST1A	034353 034353 0   0   000040000000 0            000000034353 
ST9	034353 034353 0   0   000040000000 0            000000034353 


*034353 MOVE 	0,035062
INITIAL
C(AC)=000040 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034353 034353 0   0   200000035062 0            0            
IT1	034353 0      0   0   200000035062 0            0            
AT3	034353 0      0   0   000000035062 0            200000035062 
AT6	034353 035062 0   0   000000035062 0            200000035062 
FT0	034353 035062 0   0   0            0            200000035062 
FT1A	034353 035062 0   0   0            0            0            
FT9	034354 035062 0   0   0            0            0            
ET0	034354 035062 0   0   0            0            0            
ST1	034354 035062 0   0   0            0            0            
ST2	034354 035062 0   0   0            0            0            
ST9	034354 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 612
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0828

*034354 EQV 	0,035172
INITIAL
C(AC)=000000 000000 
C(E)=777677 777777 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034354 034354 0   0   444000035172 0            777677777777 
IT1	034354 0      0   0   444000035172 0            777677777777 
AT3	034354 0      0   0   000000035172 0            444000035172 
AT6	034354 035172 0   0   000000035172 0            444000035172 
FT0	034354 035172 0   0   777677777777 0            444000035172 
FT1A	034354 035172 0   0   777677777777 0            777677777777 
FT2	034354 035172 0   0   0            0            777677777777 
FT2RQ	034354 035172 0   0   0            0            777677777777 
FT3	034354 035172 0   0   0            0            777677777777 
FT9	034355 035172 0   0   0            0            777677777777 
ET0	034355 035172 0   0   000100000000 0            777677777777 
ST1	034355 035172 0   0   000100000000 0            777677777777 
ST2	034355 035172 0   0   000100000000 0            777677777777 
ST9	034355 035172 0   0   000100000000 0            777677777777 


*034355 SKIPN	0,000000
INITIAL
C(AC)=000100 000000 
C(E)=000100 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034355 034355 0   0   336000000000 0            000100000000 
IT1	034355 0      0   0   336000000000 0            000100000000 
AT3	034355 0      0   0   0            0            336000000000 
AT6	034355 0      0   0   0            0            336000000000 
FT0	034355 0      0   0   000100000000 0            336000000000 
FT1A	034355 0      0   0   000100000000 0            000100000000 
FT9	034356 0      0   0   000100000000 0            000100000000 
ET0	034357 0      0   0   000100000000 0            000100000000 
ST1A	034357 0      0   0   000100000000 0            000100000000 
ST9	034357 0      0   0   000100000000 0            000100000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 613
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0829

*034357 JUMPA	0,034360
INITIAL
C(AC)=000100 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034357 034357 0   0   324000034360 0            000000034360 
IT1	034357 0      0   0   324000034360 0            000000034360 
AT3	034357 0      0   0   000000034360 0            324000034360 
AT6	034357 034360 0   0   000000034360 0            324000034360 
FT1A	034357 034360 0   0   000000034360 0            000000034360 
FT2	034357 034360 0   0   0            0            000000034360 
FT2RQ	034357 034360 0   0   000100000000 0            000000034360 
FT3	034357 034360 0   0   000100000000 0            000000034360 
FT9	034360 034360 0   0   000100000000 0            000000034360 
ET0	034360 034360 0   0   000100000000 0            000000034360 
ST1A	034360 034360 0   0   000100000000 0            000000034360 
ST9	034360 034360 0   0   000100000000 0            000000034360 


*034360 MOVE 	0,035062
INITIAL
C(AC)=000100 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034360 034360 0   0   200000035062 0            0            
IT1	034360 0      0   0   200000035062 0            0            
AT3	034360 0      0   0   000000035062 0            200000035062 
AT6	034360 035062 0   0   000000035062 0            200000035062 
FT0	034360 035062 0   0   0            0            200000035062 
FT1A	034360 035062 0   0   0            0            0            
FT9	034361 035062 0   0   0            0            0            
ET0	034361 035062 0   0   0            0            0            
ST1	034361 035062 0   0   0            0            0            
ST2	034361 035062 0   0   0            0            0            
ST9	034361 035062 0   0   0            0            0            


*034361 EQV 	0,035173
INITIAL
C(AC)=000000 000000 
C(E)=777577 777777 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034361 034361 0   0   444000035173 0            777577777777 
IT1	034361 0      0   0   444000035173 0            777577777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 614
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0830

AT3	034361 0      0   0   000000035173 0            444000035173 
AT6	034361 035173 0   0   000000035173 0            444000035173 
FT0	034361 035173 0   0   777577777777 0            444000035173 
FT1A	034361 035173 0   0   777577777777 0            777577777777 
FT2	034361 035173 0   0   0            0            777577777777 
FT2RQ	034361 035173 0   0   0            0            777577777777 
FT3	034361 035173 0   0   0            0            777577777777 
FT9	034362 035173 0   0   0            0            777577777777 
ET0	034362 035173 0   0   000200000000 0            777577777777 
ST1	034362 035173 0   0   000200000000 0            777577777777 
ST2	034362 035173 0   0   000200000000 0            777577777777 
ST9	034362 035173 0   0   000200000000 0            777577777777 


*034362 SKIPN	0,000000
INITIAL
C(AC)=000200 000000 
C(E)=000200 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034362 034362 0   0   336000000000 0            000200000000 
IT1	034362 0      0   0   336000000000 0            000200000000 
AT3	034362 0      0   0   0            0            336000000000 
AT6	034362 0      0   0   0            0            336000000000 
FT0	034362 0      0   0   000200000000 0            336000000000 
FT1A	034362 0      0   0   000200000000 0            000200000000 
FT9	034363 0      0   0   000200000000 0            000200000000 
ET0	034364 0      0   0   000200000000 0            000200000000 
ST1A	034364 0      0   0   000200000000 0            000200000000 
ST9	034364 0      0   0   000200000000 0            000200000000 


*034364 JUMPA	0,034365
INITIAL
C(AC)=000200 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034364 034364 0   0   324000034365 0            000000034365 
IT1	034364 0      0   0   324000034365 0            000000034365 
AT3	034364 0      0   0   000000034365 0            324000034365 
AT6	034364 034365 0   0   000000034365 0            324000034365 
FT1A	034364 034365 0   0   000000034365 0            000000034365 
FT2	034364 034365 0   0   0            0            000000034365 
FT2RQ	034364 034365 0   0   000200000000 0            000000034365 
FT3	034364 034365 0   0   000200000000 0            000000034365 
FT9	034365 034365 0   0   000200000000 0            000000034365 
ET0	034365 034365 0   0   000200000000 0            000000034365 
ST1A	034365 034365 0   0   000200000000 0            000000034365 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 615
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0831

ST9	034365 034365 0   0   000200000000 0            000000034365 


*034365 MOVE 	0,035062
INITIAL
C(AC)=000200 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034365 034365 0   0   200000035062 0            0            
IT1	034365 0      0   0   200000035062 0            0            
AT3	034365 0      0   0   000000035062 0            200000035062 
AT6	034365 035062 0   0   000000035062 0            200000035062 
FT0	034365 035062 0   0   0            0            200000035062 
FT1A	034365 035062 0   0   0            0            0            
FT9	034366 035062 0   0   0            0            0            
ET0	034366 035062 0   0   0            0            0            
ST1	034366 035062 0   0   0            0            0            
ST2	034366 035062 0   0   0            0            0            
ST9	034366 035062 0   0   0            0            0            


*034366 EQV 	0,035174
INITIAL
C(AC)=000000 000000 
C(E)=777377 777777 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034366 034366 0   0   444000035174 0            777377777777 
IT1	034366 0      0   0   444000035174 0            777377777777 
AT3	034366 0      0   0   000000035174 0            444000035174 
AT6	034366 035174 0   0   000000035174 0            444000035174 
FT0	034366 035174 0   0   777377777777 0            444000035174 
FT1A	034366 035174 0   0   777377777777 0            777377777777 
FT2	034366 035174 0   0   0            0            777377777777 
FT2RQ	034366 035174 0   0   0            0            777377777777 
FT3	034366 035174 0   0   0            0            777377777777 
FT9	034367 035174 0   0   0            0            777377777777 
ET0	034367 035174 0   0   000400000000 0            777377777777 
ST1	034367 035174 0   0   000400000000 0            777377777777 
ST2	034367 035174 0   0   000400000000 0            777377777777 
ST9	034367 035174 0   0   000400000000 0            777377777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 616
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0832

*034367 SKIPN	0,000000
INITIAL
C(AC)=000400 000000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034367 034367 0   0   336000000000 0            000400000000 
IT1	034367 0      0   0   336000000000 0            000400000000 
AT3	034367 0      0   0   0            0            336000000000 
AT6	034367 0      0   0   0            0            336000000000 
FT0	034367 0      0   0   000400000000 0            336000000000 
FT1A	034367 0      0   0   000400000000 0            000400000000 
FT9	034370 0      0   0   000400000000 0            000400000000 
ET0	034371 0      0   0   000400000000 0            000400000000 
ST1A	034371 0      0   0   000400000000 0            000400000000 
ST9	034371 0      0   0   000400000000 0            000400000000 


*034371 JUMPA	0,034372
INITIAL
C(AC)=000400 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034371 034371 0   0   324000034372 0            000000034372 
IT1	034371 0      0   0   324000034372 0            000000034372 
AT3	034371 0      0   0   000000034372 0            324000034372 
AT6	034371 034372 0   0   000000034372 0            324000034372 
FT1A	034371 034372 0   0   000000034372 0            000000034372 
FT2	034371 034372 0   0   0            0            000000034372 
FT2RQ	034371 034372 0   0   000400000000 0            000000034372 
FT3	034371 034372 0   0   000400000000 0            000000034372 
FT9	034372 034372 0   0   000400000000 0            000000034372 
ET0	034372 034372 0   0   000400000000 0            000000034372 
ST1A	034372 034372 0   0   000400000000 0            000000034372 
ST9	034372 034372 0   0   000400000000 0            000000034372 


*034372 MOVE 	0,035062
INITIAL
C(AC)=000400 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034372 034372 0   0   200000035062 0            0            
IT1	034372 0      0   0   200000035062 0            0            
AT3	034372 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 617
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0833

AT6	034372 035062 0   0   000000035062 0            200000035062 
FT0	034372 035062 0   0   0            0            200000035062 
FT1A	034372 035062 0   0   0            0            0            
FT9	034373 035062 0   0   0            0            0            
ET0	034373 035062 0   0   0            0            0            
ST1	034373 035062 0   0   0            0            0            
ST2	034373 035062 0   0   0            0            0            
ST9	034373 035062 0   0   0            0            0            


*034373 EQV 	0,035175
INITIAL
C(AC)=000000 000000 
C(E)=776777 777777 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034373 034373 0   0   444000035175 0            776777777777 
IT1	034373 0      0   0   444000035175 0            776777777777 
AT3	034373 0      0   0   000000035175 0            444000035175 
AT6	034373 035175 0   0   000000035175 0            444000035175 
FT0	034373 035175 0   0   776777777777 0            444000035175 
FT1A	034373 035175 0   0   776777777777 0            776777777777 
FT2	034373 035175 0   0   0            0            776777777777 
FT2RQ	034373 035175 0   0   0            0            776777777777 
FT3	034373 035175 0   0   0            0            776777777777 
FT9	034374 035175 0   0   0            0            776777777777 
ET0	034374 035175 0   0   001000000000 0            776777777777 
ST1	034374 035175 0   0   001000000000 0            776777777777 
ST2	034374 035175 0   0   001000000000 0            776777777777 
ST9	034374 035175 0   0   001000000000 0            776777777777 


*034374 SKIPN	0,000000
INITIAL
C(AC)=001000 000000 
C(E)=001000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034374 034374 0   0   336000000000 0            001000000000 
IT1	034374 0      0   0   336000000000 0            001000000000 
AT3	034374 0      0   0   0            0            336000000000 
AT6	034374 0      0   0   0            0            336000000000 
FT0	034374 0      0   0   001000000000 0            336000000000 
FT1A	034374 0      0   0   001000000000 0            001000000000 
FT9	034375 0      0   0   001000000000 0            001000000000 
ET0	034376 0      0   0   001000000000 0            001000000000 
ST1A	034376 0      0   0   001000000000 0            001000000000 
ST9	034376 0      0   0   001000000000 0            001000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 618
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0834



*034376 JUMPA	0,034377
INITIAL
C(AC)=001000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034376 034376 0   0   324000034377 0            000000034377 
IT1	034376 0      0   0   324000034377 0            000000034377 
AT3	034376 0      0   0   000000034377 0            324000034377 
AT6	034376 034377 0   0   000000034377 0            324000034377 
FT1A	034376 034377 0   0   000000034377 0            000000034377 
FT2	034376 034377 0   0   0            0            000000034377 
FT2RQ	034376 034377 0   0   001000000000 0            000000034377 
FT3	034376 034377 0   0   001000000000 0            000000034377 
FT9	034377 034377 0   0   001000000000 0            000000034377 
ET0	034377 034377 0   0   001000000000 0            000000034377 
ST1A	034377 034377 0   0   001000000000 0            000000034377 
ST9	034377 034377 0   0   001000000000 0            000000034377 


*034377 MOVE 	0,035062
INITIAL
C(AC)=001000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034377 034377 0   0   200000035062 0            0            
IT1	034377 0      0   0   200000035062 0            0            
AT3	034377 0      0   0   000000035062 0            200000035062 
AT6	034377 035062 0   0   000000035062 0            200000035062 
FT0	034377 035062 0   0   0            0            200000035062 
FT1A	034377 035062 0   0   0            0            0            
FT9	0      035062 0   0   0            0            0            
ET0	0      035062 0   0   0            0            0            
ST1	0      035062 0   0   0            0            0            
ST2	0      035062 0   0   0            0            0            
ST9	0      035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 619
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0835

*034400 EQV 	0,035176
INITIAL
C(AC)=000000 000000 
C(E)=775777 777777 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   444000035176 0            775777777777 
IT1	0      0      0   0   444000035176 0            775777777777 
AT3	0      0      0   0   000000035176 0            444000035176 
AT6	0      035176 0   0   000000035176 0            444000035176 
FT0	0      035176 0   0   775777777777 0            444000035176 
FT1A	0      035176 0   0   775777777777 0            775777777777 
FT2	0      035176 0   0   0            0            775777777777 
FT2RQ	0      035176 0   0   0            0            775777777777 
FT3	0      035176 0   0   0            0            775777777777 
FT9	034401 035176 0   0   0            0            775777777777 
ET0	034401 035176 0   0   002000000000 0            775777777777 
ST1	034401 035176 0   0   002000000000 0            775777777777 
ST2	034401 035176 0   0   002000000000 0            775777777777 
ST9	034401 035176 0   0   002000000000 0            775777777777 


*034401 SKIPN	0,000000
INITIAL
C(AC)=002000 000000 
C(E)=002000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034401 034401 0   0   336000000000 0            002000000000 
IT1	034401 0      0   0   336000000000 0            002000000000 
AT3	034401 0      0   0   0            0            336000000000 
AT6	034401 0      0   0   0            0            336000000000 
FT0	034401 0      0   0   002000000000 0            336000000000 
FT1A	034401 0      0   0   002000000000 0            002000000000 
FT9	034402 0      0   0   002000000000 0            002000000000 
ET0	034403 0      0   0   002000000000 0            002000000000 
ST1A	034403 0      0   0   002000000000 0            002000000000 
ST9	034403 0      0   0   002000000000 0            002000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 620
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0836

*034403 JUMPA	0,034404
INITIAL
C(AC)=002000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034403 034403 0   0   324000034404 0            000000034404 
IT1	034403 0      0   0   324000034404 0            000000034404 
AT3	034403 0      0   0   000000034404 0            324000034404 
AT6	034403 034404 0   0   000000034404 0            324000034404 
FT1A	034403 034404 0   0   000000034404 0            000000034404 
FT2	034403 034404 0   0   0            0            000000034404 
FT2RQ	034403 034404 0   0   002000000000 0            000000034404 
FT3	034403 034404 0   0   002000000000 0            000000034404 
FT9	034404 034404 0   0   002000000000 0            000000034404 
ET0	034404 034404 0   0   002000000000 0            000000034404 
ST1A	034404 034404 0   0   002000000000 0            000000034404 
ST9	034404 034404 0   0   002000000000 0            000000034404 


*034404 MOVE 	0,035062
INITIAL
C(AC)=002000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034404 034404 0   0   200000035062 0            0            
IT1	034404 0      0   0   200000035062 0            0            
AT3	034404 0      0   0   000000035062 0            200000035062 
AT6	034404 035062 0   0   000000035062 0            200000035062 
FT0	034404 035062 0   0   0            0            200000035062 
FT1A	034404 035062 0   0   0            0            0            
FT9	034405 035062 0   0   0            0            0            
ET0	034405 035062 0   0   0            0            0            
ST1	034405 035062 0   0   0            0            0            
ST2	034405 035062 0   0   0            0            0            
ST9	034405 035062 0   0   0            0            0            


*034405 EQV 	0,035177
INITIAL
C(AC)=000000 000000 
C(E)=773777 777777 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034405 034405 0   0   444000035177 0            773777777777 
IT1	034405 0      0   0   444000035177 0            773777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 621
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0837

AT3	034405 0      0   0   000000035177 0            444000035177 
AT6	034405 035177 0   0   000000035177 0            444000035177 
FT0	034405 035177 0   0   773777777777 0            444000035177 
FT1A	034405 035177 0   0   773777777777 0            773777777777 
FT2	034405 035177 0   0   0            0            773777777777 
FT2RQ	034405 035177 0   0   0            0            773777777777 
FT3	034405 035177 0   0   0            0            773777777777 
FT9	034406 035177 0   0   0            0            773777777777 
ET0	034406 035177 0   0   004000000000 0            773777777777 
ST1	034406 035177 0   0   004000000000 0            773777777777 
ST2	034406 035177 0   0   004000000000 0            773777777777 
ST9	034406 035177 0   0   004000000000 0            773777777777 


*034406 SKIPN	0,000000
INITIAL
C(AC)=004000 000000 
C(E)=004000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034406 034406 0   0   336000000000 0            004000000000 
IT1	034406 0      0   0   336000000000 0            004000000000 
AT3	034406 0      0   0   0            0            336000000000 
AT6	034406 0      0   0   0            0            336000000000 
FT0	034406 0      0   0   004000000000 0            336000000000 
FT1A	034406 0      0   0   004000000000 0            004000000000 
FT9	034407 0      0   0   004000000000 0            004000000000 
ET0	034410 0      0   0   004000000000 0            004000000000 
ST1A	034410 0      0   0   004000000000 0            004000000000 
ST9	034410 0      0   0   004000000000 0            004000000000 


*034410 JUMPA	0,034411
INITIAL
C(AC)=004000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034410 034410 0   0   324000034411 0            000000034411 
IT1	034410 0      0   0   324000034411 0            000000034411 
AT3	034410 0      0   0   000000034411 0            324000034411 
AT6	034410 034411 0   0   000000034411 0            324000034411 
FT1A	034410 034411 0   0   000000034411 0            000000034411 
FT2	034410 034411 0   0   0            0            000000034411 
FT2RQ	034410 034411 0   0   004000000000 0            000000034411 
FT3	034410 034411 0   0   004000000000 0            000000034411 
FT9	034411 034411 0   0   004000000000 0            000000034411 
ET0	034411 034411 0   0   004000000000 0            000000034411 
ST1A	034411 034411 0   0   004000000000 0            000000034411 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 622
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0838

ST9	034411 034411 0   0   004000000000 0            000000034411 


*034411 MOVE 	0,035062
INITIAL
C(AC)=004000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034411 034411 0   0   200000035062 0            0            
IT1	034411 0      0   0   200000035062 0            0            
AT3	034411 0      0   0   000000035062 0            200000035062 
AT6	034411 035062 0   0   000000035062 0            200000035062 
FT0	034411 035062 0   0   0            0            200000035062 
FT1A	034411 035062 0   0   0            0            0            
FT9	034412 035062 0   0   0            0            0            
ET0	034412 035062 0   0   0            0            0            
ST1	034412 035062 0   0   0            0            0            
ST2	034412 035062 0   0   0            0            0            
ST9	034412 035062 0   0   0            0            0            


*034412 EQV 	0,035200
INITIAL
C(AC)=000000 000000 
C(E)=767777 777777 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034412 034412 0   0   444000035200 0            767777777777 
IT1	034412 0      0   0   444000035200 0            767777777777 
AT3	034412 0      0   0   000000035200 0            444000035200 
AT6	034412 0      0   0   000000035200 0            444000035200 
FT0	034412 0      0   0   767777777777 0            444000035200 
FT1A	034412 0      0   0   767777777777 0            767777777777 
FT2	034412 0      0   0   0            0            767777777777 
FT2RQ	034412 0      0   0   0            0            767777777777 
FT3	034412 0      0   0   0            0            767777777777 
FT9	034413 0      0   0   0            0            767777777777 
ET0	034413 0      0   0   010000000000 0            767777777777 
ST1	034413 0      0   0   010000000000 0            767777777777 
ST2	034413 0      0   0   010000000000 0            767777777777 
ST9	034413 0      0   0   010000000000 0            767777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 623
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0839

*034413 SKIPN	0,000000
INITIAL
C(AC)=010000 000000 
C(E)=010000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034413 034413 0   0   336000000000 0            010000000000 
IT1	034413 0      0   0   336000000000 0            010000000000 
AT3	034413 0      0   0   0            0            336000000000 
AT6	034413 0      0   0   0            0            336000000000 
FT0	034413 0      0   0   010000000000 0            336000000000 
FT1A	034413 0      0   0   010000000000 0            010000000000 
FT9	034414 0      0   0   010000000000 0            010000000000 
ET0	034415 0      0   0   010000000000 0            010000000000 
ST1A	034415 0      0   0   010000000000 0            010000000000 
ST9	034415 0      0   0   010000000000 0            010000000000 


*034415 JUMPA	0,034416
INITIAL
C(AC)=010000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034415 034415 0   0   324000034416 0            000000034416 
IT1	034415 0      0   0   324000034416 0            000000034416 
AT3	034415 0      0   0   000000034416 0            324000034416 
AT6	034415 034416 0   0   000000034416 0            324000034416 
FT1A	034415 034416 0   0   000000034416 0            000000034416 
FT2	034415 034416 0   0   0            0            000000034416 
FT2RQ	034415 034416 0   0   010000000000 0            000000034416 
FT3	034415 034416 0   0   010000000000 0            000000034416 
FT9	034416 034416 0   0   010000000000 0            000000034416 
ET0	034416 034416 0   0   010000000000 0            000000034416 
ST1A	034416 034416 0   0   010000000000 0            000000034416 
ST9	034416 034416 0   0   010000000000 0            000000034416 


*034416 MOVE 	0,035062
INITIAL
C(AC)=010000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034416 034416 0   0   200000035062 0            0            
IT1	034416 0      0   0   200000035062 0            0            
AT3	034416 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 624
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0840

AT6	034416 035062 0   0   000000035062 0            200000035062 
FT0	034416 035062 0   0   0            0            200000035062 
FT1A	034416 035062 0   0   0            0            0            
FT9	034417 035062 0   0   0            0            0            
ET0	034417 035062 0   0   0            0            0            
ST1	034417 035062 0   0   0            0            0            
ST2	034417 035062 0   0   0            0            0            
ST9	034417 035062 0   0   0            0            0            


*034417 EQV 	0,035201
INITIAL
C(AC)=000000 000000 
C(E)=757777 777777 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034417 034417 0   0   444000035201 0            757777777777 
IT1	034417 0      0   0   444000035201 0            757777777777 
AT3	034417 0      0   0   000000035201 0            444000035201 
AT6	034417 035201 0   0   000000035201 0            444000035201 
FT0	034417 035201 0   0   757777777777 0            444000035201 
FT1A	034417 035201 0   0   757777777777 0            757777777777 
FT2	034417 035201 0   0   0            0            757777777777 
FT2RQ	034417 035201 0   0   0            0            757777777777 
FT3	034417 035201 0   0   0            0            757777777777 
FT9	034420 035201 0   0   0            0            757777777777 
ET0	034420 035201 0   0   020000000000 0            757777777777 
ST1	034420 035201 0   0   020000000000 0            757777777777 
ST2	034420 035201 0   0   020000000000 0            757777777777 
ST9	034420 035201 0   0   020000000000 0            757777777777 


*034420 SKIPN	0,000000
INITIAL
C(AC)=020000 000000 
C(E)=020000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034420 034420 0   0   336000000000 0            020000000000 
IT1	034420 0      0   0   336000000000 0            020000000000 
AT3	034420 0      0   0   0            0            336000000000 
AT6	034420 0      0   0   0            0            336000000000 
FT0	034420 0      0   0   020000000000 0            336000000000 
FT1A	034420 0      0   0   020000000000 0            020000000000 
FT9	034421 0      0   0   020000000000 0            020000000000 
ET0	034422 0      0   0   020000000000 0            020000000000 
ST1A	034422 0      0   0   020000000000 0            020000000000 
ST9	034422 0      0   0   020000000000 0            020000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 625
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0841



*034422 JUMPA	0,034423
INITIAL
C(AC)=020000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034422 034422 0   0   324000034423 0            000000034423 
IT1	034422 0      0   0   324000034423 0            000000034423 
AT3	034422 0      0   0   000000034423 0            324000034423 
AT6	034422 034423 0   0   000000034423 0            324000034423 
FT1A	034422 034423 0   0   000000034423 0            000000034423 
FT2	034422 034423 0   0   0            0            000000034423 
FT2RQ	034422 034423 0   0   020000000000 0            000000034423 
FT3	034422 034423 0   0   020000000000 0            000000034423 
FT9	034423 034423 0   0   020000000000 0            000000034423 
ET0	034423 034423 0   0   020000000000 0            000000034423 
ST1A	034423 034423 0   0   020000000000 0            000000034423 
ST9	034423 034423 0   0   020000000000 0            000000034423 


*034423 MOVE 	0,035062
INITIAL
C(AC)=020000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034423 034423 0   0   200000035062 0            0            
IT1	034423 0      0   0   200000035062 0            0            
AT3	034423 0      0   0   000000035062 0            200000035062 
AT6	034423 035062 0   0   000000035062 0            200000035062 
FT0	034423 035062 0   0   0            0            200000035062 
FT1A	034423 035062 0   0   0            0            0            
FT9	034424 035062 0   0   0            0            0            
ET0	034424 035062 0   0   0            0            0            
ST1	034424 035062 0   0   0            0            0            
ST2	034424 035062 0   0   0            0            0            
ST9	034424 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 626
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0842

*034424 EQV 	0,035202
INITIAL
C(AC)=000000 000000 
C(E)=737777 777777 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034424 034424 0   0   444000035202 0            737777777777 
IT1	034424 0      0   0   444000035202 0            737777777777 
AT3	034424 0      0   0   000000035202 0            444000035202 
AT6	034424 035202 0   0   000000035202 0            444000035202 
FT0	034424 035202 0   0   737777777777 0            444000035202 
FT1A	034424 035202 0   0   737777777777 0            737777777777 
FT2	034424 035202 0   0   0            0            737777777777 
FT2RQ	034424 035202 0   0   0            0            737777777777 
FT3	034424 035202 0   0   0            0            737777777777 
FT9	034425 035202 0   0   0            0            737777777777 
ET0	034425 035202 0   0   040000000000 0            737777777777 
ST1	034425 035202 0   0   040000000000 0            737777777777 
ST2	034425 035202 0   0   040000000000 0            737777777777 
ST9	034425 035202 0   0   040000000000 0            737777777777 


*034425 SKIPN	0,000000
INITIAL
C(AC)=040000 000000 
C(E)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034425 034425 0   0   336000000000 0            040000000000 
IT1	034425 0      0   0   336000000000 0            040000000000 
AT3	034425 0      0   0   0            0            336000000000 
AT6	034425 0      0   0   0            0            336000000000 
FT0	034425 0      0   0   040000000000 0            336000000000 
FT1A	034425 0      0   0   040000000000 0            040000000000 
FT9	034426 0      0   0   040000000000 0            040000000000 
ET0	034427 0      0   0   040000000000 0            040000000000 
ST1A	034427 0      0   0   040000000000 0            040000000000 
ST9	034427 0      0   0   040000000000 0            040000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 627
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0843

*034427 JUMPA	0,034430
INITIAL
C(AC)=040000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034427 034427 0   0   324000034430 0            000000034430 
IT1	034427 0      0   0   324000034430 0            000000034430 
AT3	034427 0      0   0   000000034430 0            324000034430 
AT6	034427 034430 0   0   000000034430 0            324000034430 
FT1A	034427 034430 0   0   000000034430 0            000000034430 
FT2	034427 034430 0   0   0            0            000000034430 
FT2RQ	034427 034430 0   0   040000000000 0            000000034430 
FT3	034427 034430 0   0   040000000000 0            000000034430 
FT9	034430 034430 0   0   040000000000 0            000000034430 
ET0	034430 034430 0   0   040000000000 0            000000034430 
ST1A	034430 034430 0   0   040000000000 0            000000034430 
ST9	034430 034430 0   0   040000000000 0            000000034430 


*034430 MOVE 	0,035062
INITIAL
C(AC)=040000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034430 034430 0   0   200000035062 0            0            
IT1	034430 0      0   0   200000035062 0            0            
AT3	034430 0      0   0   000000035062 0            200000035062 
AT6	034430 035062 0   0   000000035062 0            200000035062 
FT0	034430 035062 0   0   0            0            200000035062 
FT1A	034430 035062 0   0   0            0            0            
FT9	034431 035062 0   0   0            0            0            
ET0	034431 035062 0   0   0            0            0            
ST1	034431 035062 0   0   0            0            0            
ST2	034431 035062 0   0   0            0            0            
ST9	034431 035062 0   0   0            0            0            


*034431 EQV 	0,035203
INITIAL
C(AC)=000000 000000 
C(E)=677777 777777 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034431 034431 0   0   444000035203 0            677777777777 
IT1	034431 0      0   0   444000035203 0            677777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 628
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0844

AT3	034431 0      0   0   000000035203 0            444000035203 
AT6	034431 035203 0   0   000000035203 0            444000035203 
FT0	034431 035203 0   0   677777777777 0            444000035203 
FT1A	034431 035203 0   0   677777777777 0            677777777777 
FT2	034431 035203 0   0   0            0            677777777777 
FT2RQ	034431 035203 0   0   0            0            677777777777 
FT3	034431 035203 0   0   0            0            677777777777 
FT9	034432 035203 0   0   0            0            677777777777 
ET0	034432 035203 0   0   100000000000 0            677777777777 
ST1	034432 035203 0   0   100000000000 0            677777777777 
ST2	034432 035203 0   0   100000000000 0            677777777777 
ST9	034432 035203 0   0   100000000000 0            677777777777 


*034432 SKIPN	0,000000
INITIAL
C(AC)=100000 000000 
C(E)=100000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034432 034432 0   0   336000000000 0            100000000000 
IT1	034432 0      0   0   336000000000 0            100000000000 
AT3	034432 0      0   0   0            0            336000000000 
AT6	034432 0      0   0   0            0            336000000000 
FT0	034432 0      0   0   100000000000 0            336000000000 
FT1A	034432 0      0   0   100000000000 0            100000000000 
FT9	034433 0      0   0   100000000000 0            100000000000 
ET0	034434 0      0   0   100000000000 0            100000000000 
ST1A	034434 0      0   0   100000000000 0            100000000000 
ST9	034434 0      0   0   100000000000 0            100000000000 


*034434 JUMPA	0,034435
INITIAL
C(AC)=100000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034434 034434 0   0   324000034435 0            000000034435 
IT1	034434 0      0   0   324000034435 0            000000034435 
AT3	034434 0      0   0   000000034435 0            324000034435 
AT6	034434 034435 0   0   000000034435 0            324000034435 
FT1A	034434 034435 0   0   000000034435 0            000000034435 
FT2	034434 034435 0   0   0            0            000000034435 
FT2RQ	034434 034435 0   0   100000000000 0            000000034435 
FT3	034434 034435 0   0   100000000000 0            000000034435 
FT9	034435 034435 0   0   100000000000 0            000000034435 
ET0	034435 034435 0   0   100000000000 0            000000034435 
ST1A	034435 034435 0   0   100000000000 0            000000034435 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 629
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0845

ST9	034435 034435 0   0   100000000000 0            000000034435 


*034435 MOVE 	0,035062
INITIAL
C(AC)=100000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034435 034435 0   0   200000035062 0            0            
IT1	034435 0      0   0   200000035062 0            0            
AT3	034435 0      0   0   000000035062 0            200000035062 
AT6	034435 035062 0   0   000000035062 0            200000035062 
FT0	034435 035062 0   0   0            0            200000035062 
FT1A	034435 035062 0   0   0            0            0            
FT9	034436 035062 0   0   0            0            0            
ET0	034436 035062 0   0   0            0            0            
ST1	034436 035062 0   0   0            0            0            
ST2	034436 035062 0   0   0            0            0            
ST9	034436 035062 0   0   0            0            0            


*034436 EQV 	0,035204
INITIAL
C(AC)=000000 000000 
C(E)=577777 777777 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034436 034436 0   0   444000035204 0            577777777777 
IT1	034436 0      0   0   444000035204 0            577777777777 
AT3	034436 0      0   0   000000035204 0            444000035204 
AT6	034436 035204 0   0   000000035204 0            444000035204 
FT0	034436 035204 0   0   577777777777 0            444000035204 
FT1A	034436 035204 0   0   577777777777 0            577777777777 
FT2	034436 035204 0   0   0            0            577777777777 
FT2RQ	034436 035204 0   0   0            0            577777777777 
FT3	034436 035204 0   0   0            0            577777777777 
FT9	034437 035204 0   0   0            0            577777777777 
ET0	034437 035204 0   0   200000000000 0            577777777777 
ST1	034437 035204 0   0   200000000000 0            577777777777 
ST2	034437 035204 0   0   200000000000 0            577777777777 
ST9	034437 035204 0   0   200000000000 0            577777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 630
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0846

*034437 SKIPN	0,000000
INITIAL
C(AC)=200000 000000 
C(E)=200000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034437 034437 0   0   336000000000 0            200000000000 
IT1	034437 0      0   0   336000000000 0            200000000000 
AT3	034437 0      0   0   0            0            336000000000 
AT6	034437 0      0   0   0            0            336000000000 
FT0	034437 0      0   0   200000000000 0            336000000000 
FT1A	034437 0      0   0   200000000000 0            200000000000 
FT9	034440 0      0   0   200000000000 0            200000000000 
ET0	034441 0      0   0   200000000000 0            200000000000 
ST1A	034441 0      0   0   200000000000 0            200000000000 
ST9	034441 0      0   0   200000000000 0            200000000000 


*034441 JUMPA	0,034442
INITIAL
C(AC)=200000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034441 034441 0   0   324000034442 0            000000034442 
IT1	034441 0      0   0   324000034442 0            000000034442 
AT3	034441 0      0   0   000000034442 0            324000034442 
AT6	034441 034442 0   0   000000034442 0            324000034442 
FT1A	034441 034442 0   0   000000034442 0            000000034442 
FT2	034441 034442 0   0   0            0            000000034442 
FT2RQ	034441 034442 0   0   200000000000 0            000000034442 
FT3	034441 034442 0   0   200000000000 0            000000034442 
FT9	034442 034442 0   0   200000000000 0            000000034442 
ET0	034442 034442 0   0   200000000000 0            000000034442 
ST1A	034442 034442 0   0   200000000000 0            000000034442 
ST9	034442 034442 0   0   200000000000 0            000000034442 


*034442 MOVE 	0,035062
INITIAL
C(AC)=200000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034442 034442 0   0   200000035062 0            0            
IT1	034442 0      0   0   200000035062 0            0            
AT3	034442 0      0   0   000000035062 0            200000035062 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 631
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0847

AT6	034442 035062 0   0   000000035062 0            200000035062 
FT0	034442 035062 0   0   0            0            200000035062 
FT1A	034442 035062 0   0   0            0            0            
FT9	034443 035062 0   0   0            0            0            
ET0	034443 035062 0   0   0            0            0            
ST1	034443 035062 0   0   0            0            0            
ST2	034443 035062 0   0   0            0            0            
ST9	034443 035062 0   0   0            0            0            


*034443 EQV 	0,035064
INITIAL
C(AC)=000000 000000 
C(E)=377777 777777 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034443 034443 0   0   444000035064 0            377777777777 
IT1	034443 0      0   0   444000035064 0            377777777777 
AT3	034443 0      0   0   000000035064 0            444000035064 
AT6	034443 035064 0   0   000000035064 0            444000035064 
FT0	034443 035064 0   0   377777777777 0            444000035064 
FT1A	034443 035064 0   0   377777777777 0            377777777777 
FT2	034443 035064 0   0   0            0            377777777777 
FT2RQ	034443 035064 0   0   0            0            377777777777 
FT3	034443 035064 0   0   0            0            377777777777 
FT9	034444 035064 0   0   0            0            377777777777 
ET0	034444 035064 0   0   400000000000 0            377777777777 
ST1	034444 035064 0   0   400000000000 0            377777777777 
ST2	034444 035064 0   0   400000000000 0            377777777777 
ST9	034444 035064 0   0   400000000000 0            377777777777 


*034444 SKIPN	0,000000
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034444 034444 0   0   336000000000 0            400000000000 
IT1	034444 0      0   0   336000000000 0            400000000000 
AT3	034444 0      0   0   0            0            336000000000 
AT6	034444 0      0   0   0            0            336000000000 
FT0	034444 0      0   0   400000000000 0            336000000000 
FT1A	034444 0      0   0   400000000000 0            400000000000 
FT9	034445 0      0   0   400000000000 0            400000000000 
ET0	034446 0      0   0   400000000000 0            400000000000 
ST1A	034446 0      0   0   400000000000 0            400000000000 
ST9	034446 0      0   0   400000000000 0            400000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 632
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0848



*034446 JUMPA	0,034447
INITIAL
C(AC)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034446 034446 0   0   324000034447 0            000000034447 
IT1	034446 0      0   0   324000034447 0            000000034447 
AT3	034446 0      0   0   000000034447 0            324000034447 
AT6	034446 034447 0   0   000000034447 0            324000034447 
FT1A	034446 034447 0   0   000000034447 0            000000034447 
FT2	034446 034447 0   0   0            0            000000034447 
FT2RQ	034446 034447 0   0   400000000000 0            000000034447 
FT3	034446 034447 0   0   400000000000 0            000000034447 
FT9	034447 034447 0   0   400000000000 0            000000034447 
ET0	034447 034447 0   0   400000000000 0            000000034447 
ST1A	034447 034447 0   0   400000000000 0            000000034447 
ST9	034447 034447 0   0   400000000000 0            000000034447 


*034447 MOVE 	0,035062
INITIAL
C(AC)=400000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034447 034447 0   0   200000035062 0            0            
IT1	034447 0      0   0   200000035062 0            0            
AT3	034447 0      0   0   000000035062 0            200000035062 
AT6	034447 035062 0   0   000000035062 0            200000035062 
FT0	034447 035062 0   0   0            0            200000035062 
FT1A	034447 035062 0   0   0            0            0            
FT9	034450 035062 0   0   0            0            0            
ET0	034450 035062 0   0   0            0            0            
ST1	034450 035062 0   0   0            0            0            
ST2	034450 035062 0   0   0            0            0            
ST9	034450 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 633
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0849

*034450 EQV 	0,035062
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034450 034450 0   0   444000035062 0            0            
IT1	034450 0      0   0   444000035062 0            0            
AT3	034450 0      0   0   000000035062 0            444000035062 
AT6	034450 035062 0   0   000000035062 0            444000035062 
FT0	034450 035062 0   0   0            0            444000035062 
FT1A	034450 035062 0   0   0            0            0            
FT2	034450 035062 0   0   0            0            0            
FT2RQ	034450 035062 0   0   0            0            0            
FT3	034450 035062 0   0   0            0            0            
FT9	034451 035062 0   0   0            0            0            
ET0	034451 035062 0   0   777777777777 0            0            
ST1	034451 035062 0   0   777777777777 0            0            
ST2	034451 035062 0   0   777777777777 0            0            
ST9	034451 035062 0   0   777777777777 0            0            


*034451 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034451 034451 0   0   444000035062 0            0            
IT1	034451 0      0   0   444000035062 0            0            
AT3	034451 0      0   0   000000035062 0            444000035062 
AT6	034451 035062 0   0   000000035062 0            444000035062 
FT0	034451 035062 0   0   0            0            444000035062 
FT1A	034451 035062 0   0   0            0            0            
FT2	034451 035062 0   0   0            0            0            
FT2RQ	034451 035062 0   0   777777777777 0            0            
FT3	034451 035062 0   0   777777777777 0            0            
FT9	034452 035062 0   0   777777777777 0            0            
ET0	034452 035062 0   0   0            0            0            
ST1	034452 035062 0   0   0            0            0            
ST2	034452 035062 0   0   0            0            0            
ST9	034452 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 634
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0850

*034452 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	034452 034452 0   0   332000000000 0            0            
IT1	034452 0      0   0   332000000000 0            0            
AT3	034452 0      0   0   0            0            332000000000 
AT6	034452 0      0   0   0            0            332000000000 
FT0	034452 0      0   0   0            0            332000000000 
FT1A	034452 0      0   0   0            0            0            
FT9	034453 0      0   0   0            0            0            
ET0	034454 0      0   0   0            0            0            
ST1A	034454 0      0   0   0            0            0            
ST9	034454 0      0   0   0            0            0            


*034454 JUMPA	0,034455
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034454 034454 0   0   324000034455 0            000000034455 
IT1	034454 0      0   0   324000034455 0            000000034455 
AT3	034454 0      0   0   000000034455 0            324000034455 
AT6	034454 034455 0   0   000000034455 0            324000034455 
FT1A	034454 034455 0   0   000000034455 0            000000034455 
FT2	034454 034455 0   0   0            0            000000034455 
FT2RQ	034454 034455 0   0   0            0            000000034455 
FT3	034454 034455 0   0   0            0            000000034455 
FT9	034455 034455 0   0   0            0            000000034455 
ET0	034455 034455 0   0   0            0            000000034455 
ST1A	034455 034455 0   0   0            0            000000034455 
ST9	034455 034455 0   0   0            0            000000034455 


*034455 MOVE 	0,035063
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034455 034455 0   0   200000035063 0            777777777777 
IT1	034455 0      0   0   200000035063 0            777777777777 
AT3	034455 0      0   0   000000035063 0            200000035063 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 635
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0851

AT6	034455 035063 0   0   000000035063 0            200000035063 
FT0	034455 035063 0   0   777777777777 0            200000035063 
FT1A	034455 035063 0   0   777777777777 0            777777777777 
FT9	034456 035063 0   0   777777777777 0            777777777777 
ET0	034456 035063 0   0   777777777777 0            777777777777 
ST1	034456 035063 0   0   777777777777 0            777777777777 
ST2	034456 035063 0   0   777777777777 0            777777777777 
ST9	034456 035063 0   0   777777777777 0            777777777777 


*034456 EQV 	0,035063
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034456 034456 0   0   444000035063 0            777777777777 
IT1	034456 0      0   0   444000035063 0            777777777777 
AT3	034456 0      0   0   000000035063 0            444000035063 
AT6	034456 035063 0   0   000000035063 0            444000035063 
FT0	034456 035063 0   0   777777777777 0            444000035063 
FT1A	034456 035063 0   0   777777777777 0            777777777777 
FT2	034456 035063 0   0   0            0            777777777777 
FT2RQ	034456 035063 0   0   777777777777 0            777777777777 
FT3	034456 035063 0   0   777777777777 0            777777777777 
FT9	034457 035063 0   0   777777777777 0            777777777777 
ET0	034457 035063 0   0   777777777777 0            777777777777 
ST1	034457 035063 0   0   777777777777 0            777777777777 
ST2	034457 035063 0   0   777777777777 0            777777777777 
ST9	034457 035063 0   0   777777777777 0            777777777777 


*034457 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034457 034457 0   0   444000035062 0            0            
IT1	034457 0      0   0   444000035062 0            0            
AT3	034457 0      0   0   000000035062 0            444000035062 
AT6	034457 035062 0   0   000000035062 0            444000035062 
FT0	034457 035062 0   0   0            0            444000035062 
FT1A	034457 035062 0   0   0            0            0            
FT2	034457 035062 0   0   0            0            0            
FT2RQ	034457 035062 0   0   777777777777 0            0            
FT3	034457 035062 0   0   777777777777 0            0            
FT9	034460 035062 0   0   777777777777 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 636
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0852

ET0	034460 035062 0   0   0            0            0            
ST1	034460 035062 0   0   0            0            0            
ST2	034460 035062 0   0   0            0            0            
ST9	034460 035062 0   0   0            0            0            


*034460 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	034460 034460 0   0   332000000000 0            0            
IT1	034460 0      0   0   332000000000 0            0            
AT3	034460 0      0   0   0            0            332000000000 
AT6	034460 0      0   0   0            0            332000000000 
FT0	034460 0      0   0   0            0            332000000000 
FT1A	034460 0      0   0   0            0            0            
FT9	034461 0      0   0   0            0            0            
ET0	034462 0      0   0   0            0            0            
ST1A	034462 0      0   0   0            0            0            
ST9	034462 0      0   0   0            0            0            


*034462 JUMPA	0,034463
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034462 034462 0   0   324000034463 0            000000034463 
IT1	034462 0      0   0   324000034463 0            000000034463 
AT3	034462 0      0   0   000000034463 0            324000034463 
AT6	034462 034463 0   0   000000034463 0            324000034463 
FT1A	034462 034463 0   0   000000034463 0            000000034463 
FT2	034462 034463 0   0   0            0            000000034463 
FT2RQ	034462 034463 0   0   0            0            000000034463 
FT3	034462 034463 0   0   0            0            000000034463 
FT9	034463 034463 0   0   0            0            000000034463 
ET0	034463 034463 0   0   0            0            000000034463 
ST1A	034463 034463 0   0   0            0            000000034463 
ST9	034463 034463 0   0   0            0            000000034463 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 637
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0853

*034463 MOVE 	0,035074
INITIAL
C(AC)=000000 000000 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034463 034463 0   0   200000035074 0            000000000001 
IT1	034463 0      0   0   200000035074 0            000000000001 
AT3	034463 0      0   0   000000035074 0            200000035074 
AT6	034463 035074 0   0   000000035074 0            200000035074 
FT0	034463 035074 0   0   000000000001 0            200000035074 
FT1A	034463 035074 0   0   000000000001 0            000000000001 
FT9	034464 035074 0   0   000000000001 0            000000000001 
ET0	034464 035074 0   0   000000000001 0            000000000001 
ST1	034464 035074 0   0   000000000001 0            000000000001 
ST2	034464 035074 0   0   000000000001 0            000000000001 
ST9	034464 035074 0   0   000000000001 0            000000000001 


*034464 AND 	0,035074
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034464 034464 0   0   404000035074 0            000000000001 
IT1	034464 0      0   0   404000035074 0            000000000001 
AT3	034464 0      0   0   000000035074 0            404000035074 
AT6	034464 035074 0   0   000000035074 0            404000035074 
FT0	034464 035074 0   0   000000000001 0            404000035074 
FT1A	034464 035074 0   0   000000000001 0            000000000001 
FT2	034464 035074 0   0   0            0            000000000001 
FT2RQ	034464 035074 0   0   000000000001 0            000000000001 
FT3	034464 035074 0   0   000000000001 0            000000000001 
FT9	034465 035074 0   0   000000000001 0            000000000001 
ET0	034465 035074 0   0   000000000001 0            000000000001 
ST1	034465 035074 0   0   000000000001 0            000000000001 
ST2	034465 035074 0   0   000000000001 0            000000000001 
ST9	034465 035074 0   0   000000000001 0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 638
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0854

*034465 EQV 	0,035074
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034465 034465 0   0   444000035074 0            000000000001 
IT1	034465 0      0   0   444000035074 0            000000000001 
AT3	034465 0      0   0   000000035074 0            444000035074 
AT6	034465 035074 0   0   000000035074 0            444000035074 
FT0	034465 035074 0   0   000000000001 0            444000035074 
FT1A	034465 035074 0   0   000000000001 0            000000000001 
FT2	034465 035074 0   0   0            0            000000000001 
FT2RQ	034465 035074 0   0   000000000001 0            000000000001 
FT3	034465 035074 0   0   000000000001 0            000000000001 
FT9	034466 035074 0   0   000000000001 0            000000000001 
ET0	034466 035074 0   0   777777777777 0            000000000001 
ST1	034466 035074 0   0   777777777777 0            000000000001 
ST2	034466 035074 0   0   777777777777 0            000000000001 
ST9	034466 035074 0   0   777777777777 0            000000000001 


*034466 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034466 034466 0   0   444000035062 0            0            
IT1	034466 0      0   0   444000035062 0            0            
AT3	034466 0      0   0   000000035062 0            444000035062 
AT6	034466 035062 0   0   000000035062 0            444000035062 
FT0	034466 035062 0   0   0            0            444000035062 
FT1A	034466 035062 0   0   0            0            0            
FT2	034466 035062 0   0   0            0            0            
FT2RQ	034466 035062 0   0   777777777777 0            0            
FT3	034466 035062 0   0   777777777777 0            0            
FT9	034467 035062 0   0   777777777777 0            0            
ET0	034467 035062 0   0   0            0            0            
ST1	034467 035062 0   0   0            0            0            
ST2	034467 035062 0   0   0            0            0            
ST9	034467 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 639
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0855

*034467 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	034467 034467 0   0   332000000000 0            0            
IT1	034467 0      0   0   332000000000 0            0            
AT3	034467 0      0   0   0            0            332000000000 
AT6	034467 0      0   0   0            0            332000000000 
FT0	034467 0      0   0   0            0            332000000000 
FT1A	034467 0      0   0   0            0            0            
FT9	034470 0      0   0   0            0            0            
ET0	034471 0      0   0   0            0            0            
ST1A	034471 0      0   0   0            0            0            
ST9	034471 0      0   0   0            0            0            


*034471 JUMPA	0,034472
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034471 034471 0   0   324000034472 0            000000034472 
IT1	034471 0      0   0   324000034472 0            000000034472 
AT3	034471 0      0   0   000000034472 0            324000034472 
AT6	034471 034472 0   0   000000034472 0            324000034472 
FT1A	034471 034472 0   0   000000034472 0            000000034472 
FT2	034471 034472 0   0   0            0            000000034472 
FT2RQ	034471 034472 0   0   0            0            000000034472 
FT3	034471 034472 0   0   0            0            000000034472 
FT9	034472 034472 0   0   0            0            000000034472 
ET0	034472 034472 0   0   0            0            000000034472 
ST1A	034472 034472 0   0   0            0            000000034472 
ST9	034472 034472 0   0   0            0            000000034472 


*034472 MOVE 	0,035075
INITIAL
C(AC)=000000 000000 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034472 034472 0   0   200000035075 0            000000000002 
IT1	034472 0      0   0   200000035075 0            000000000002 
AT3	034472 0      0   0   000000035075 0            200000035075 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 640
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0856

AT6	034472 035075 0   0   000000035075 0            200000035075 
FT0	034472 035075 0   0   000000000002 0            200000035075 
FT1A	034472 035075 0   0   000000000002 0            000000000002 
FT9	034473 035075 0   0   000000000002 0            000000000002 
ET0	034473 035075 0   0   000000000002 0            000000000002 
ST1	034473 035075 0   0   000000000002 0            000000000002 
ST2	034473 035075 0   0   000000000002 0            000000000002 
ST9	034473 035075 0   0   000000000002 0            000000000002 


*034473 AND 	0,035075
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034473 034473 0   0   404000035075 0            000000000002 
IT1	034473 0      0   0   404000035075 0            000000000002 
AT3	034473 0      0   0   000000035075 0            404000035075 
AT6	034473 035075 0   0   000000035075 0            404000035075 
FT0	034473 035075 0   0   000000000002 0            404000035075 
FT1A	034473 035075 0   0   000000000002 0            000000000002 
FT2	034473 035075 0   0   0            0            000000000002 
FT2RQ	034473 035075 0   0   000000000002 0            000000000002 
FT3	034473 035075 0   0   000000000002 0            000000000002 
FT9	034474 035075 0   0   000000000002 0            000000000002 
ET0	034474 035075 0   0   000000000002 0            000000000002 
ST1	034474 035075 0   0   000000000002 0            000000000002 
ST2	034474 035075 0   0   000000000002 0            000000000002 
ST9	034474 035075 0   0   000000000002 0            000000000002 


*034474 EQV 	0,035075
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034474 034474 0   0   444000035075 0            000000000002 
IT1	034474 0      0   0   444000035075 0            000000000002 
AT3	034474 0      0   0   000000035075 0            444000035075 
AT6	034474 035075 0   0   000000035075 0            444000035075 
FT0	034474 035075 0   0   000000000002 0            444000035075 
FT1A	034474 035075 0   0   000000000002 0            000000000002 
FT2	034474 035075 0   0   0            0            000000000002 
FT2RQ	034474 035075 0   0   000000000002 0            000000000002 
FT3	034474 035075 0   0   000000000002 0            000000000002 
FT9	034475 035075 0   0   000000000002 0            000000000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 641
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0857

ET0	034475 035075 0   0   777777777777 0            000000000002 
ST1	034475 035075 0   0   777777777777 0            000000000002 
ST2	034475 035075 0   0   777777777777 0            000000000002 
ST9	034475 035075 0   0   777777777777 0            000000000002 


*034475 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034475 034475 0   0   444000035062 0            0            
IT1	034475 0      0   0   444000035062 0            0            
AT3	034475 0      0   0   000000035062 0            444000035062 
AT6	034475 035062 0   0   000000035062 0            444000035062 
FT0	034475 035062 0   0   0            0            444000035062 
FT1A	034475 035062 0   0   0            0            0            
FT2	034475 035062 0   0   0            0            0            
FT2RQ	034475 035062 0   0   777777777777 0            0            
FT3	034475 035062 0   0   777777777777 0            0            
FT9	034476 035062 0   0   777777777777 0            0            
ET0	034476 035062 0   0   0            0            0            
ST1	034476 035062 0   0   0            0            0            
ST2	034476 035062 0   0   0            0            0            
ST9	034476 035062 0   0   0            0            0            


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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 642
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0858

*034500 JUMPA	0,034501
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000034501 0            000000034501 
IT1	0      0      0   0   324000034501 0            000000034501 
AT3	0      0      0   0   000000034501 0            324000034501 
AT6	0      034501 0   0   000000034501 0            324000034501 
FT1A	0      034501 0   0   000000034501 0            000000034501 
FT2	0      034501 0   0   0            0            000000034501 
FT2RQ	0      034501 0   0   0            0            000000034501 
FT3	0      034501 0   0   0            0            000000034501 
FT9	034501 034501 0   0   0            0            000000034501 
ET0	034501 034501 0   0   0            0            000000034501 
ST1A	034501 034501 0   0   0            0            000000034501 
ST9	034501 034501 0   0   0            0            000000034501 


*034501 MOVE 	0,035076
INITIAL
C(AC)=000000 000000 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034501 034501 0   0   200000035076 0            000000000004 
IT1	034501 0      0   0   200000035076 0            000000000004 
AT3	034501 0      0   0   000000035076 0            200000035076 
AT6	034501 035076 0   0   000000035076 0            200000035076 
FT0	034501 035076 0   0   000000000004 0            200000035076 
FT1A	034501 035076 0   0   000000000004 0            000000000004 
FT9	034502 035076 0   0   000000000004 0            000000000004 
ET0	034502 035076 0   0   000000000004 0            000000000004 
ST1	034502 035076 0   0   000000000004 0            000000000004 
ST2	034502 035076 0   0   000000000004 0            000000000004 
ST9	034502 035076 0   0   000000000004 0            000000000004 


*034502 AND 	0,035076
INITIAL
C(AC)=000000 000004 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034502 034502 0   0   404000035076 0            000000000004 
IT1	034502 0      0   0   404000035076 0            000000000004 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 643
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0859

AT3	034502 0      0   0   000000035076 0            404000035076 
AT6	034502 035076 0   0   000000035076 0            404000035076 
FT0	034502 035076 0   0   000000000004 0            404000035076 
FT1A	034502 035076 0   0   000000000004 0            000000000004 
FT2	034502 035076 0   0   0            0            000000000004 
FT2RQ	034502 035076 0   0   000000000004 0            000000000004 
FT3	034502 035076 0   0   000000000004 0            000000000004 
FT9	034503 035076 0   0   000000000004 0            000000000004 
ET0	034503 035076 0   0   000000000004 0            000000000004 
ST1	034503 035076 0   0   000000000004 0            000000000004 
ST2	034503 035076 0   0   000000000004 0            000000000004 
ST9	034503 035076 0   0   000000000004 0            000000000004 


*034503 EQV 	0,035076
INITIAL
C(AC)=000000 000004 
C(E)=000000 000004 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034503 034503 0   0   444000035076 0            000000000004 
IT1	034503 0      0   0   444000035076 0            000000000004 
AT3	034503 0      0   0   000000035076 0            444000035076 
AT6	034503 035076 0   0   000000035076 0            444000035076 
FT0	034503 035076 0   0   000000000004 0            444000035076 
FT1A	034503 035076 0   0   000000000004 0            000000000004 
FT2	034503 035076 0   0   0            0            000000000004 
FT2RQ	034503 035076 0   0   000000000004 0            000000000004 
FT3	034503 035076 0   0   000000000004 0            000000000004 
FT9	034504 035076 0   0   000000000004 0            000000000004 
ET0	034504 035076 0   0   777777777777 0            000000000004 
ST1	034504 035076 0   0   777777777777 0            000000000004 
ST2	034504 035076 0   0   777777777777 0            000000000004 
ST9	034504 035076 0   0   777777777777 0            000000000004 


*034504 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034504 034504 0   0   444000035062 0            0            
IT1	034504 0      0   0   444000035062 0            0            
AT3	034504 0      0   0   000000035062 0            444000035062 
AT6	034504 035062 0   0   000000035062 0            444000035062 
FT0	034504 035062 0   0   0            0            444000035062 
FT1A	034504 035062 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 644
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0860

FT2	034504 035062 0   0   0            0            0            
FT2RQ	034504 035062 0   0   777777777777 0            0            
FT3	034504 035062 0   0   777777777777 0            0            
FT9	034505 035062 0   0   777777777777 0            0            
ET0	034505 035062 0   0   0            0            0            
ST1	034505 035062 0   0   0            0            0            
ST2	034505 035062 0   0   0            0            0            
ST9	034505 035062 0   0   0            0            0            


*034505 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	034505 034505 0   0   332000000000 0            0            
IT1	034505 0      0   0   332000000000 0            0            
AT3	034505 0      0   0   0            0            332000000000 
AT6	034505 0      0   0   0            0            332000000000 
FT0	034505 0      0   0   0            0            332000000000 
FT1A	034505 0      0   0   0            0            0            
FT9	034506 0      0   0   0            0            0            
ET0	034507 0      0   0   0            0            0            
ST1A	034507 0      0   0   0            0            0            
ST9	034507 0      0   0   0            0            0            


*034507 JUMPA	0,034510
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034507 034507 0   0   324000034510 0            000000034510 
IT1	034507 0      0   0   324000034510 0            000000034510 
AT3	034507 0      0   0   000000034510 0            324000034510 
AT6	034507 034510 0   0   000000034510 0            324000034510 
FT1A	034507 034510 0   0   000000034510 0            000000034510 
FT2	034507 034510 0   0   0            0            000000034510 
FT2RQ	034507 034510 0   0   0            0            000000034510 
FT3	034507 034510 0   0   0            0            000000034510 
FT9	034510 034510 0   0   0            0            000000034510 
ET0	034510 034510 0   0   0            0            000000034510 
ST1A	034510 034510 0   0   0            0            000000034510 
ST9	034510 034510 0   0   0            0            000000034510 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 645
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0861

*034510 MOVE 	0,035077
INITIAL
C(AC)=000000 000000 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034510 034510 0   0   200000035077 0            000000000010 
IT1	034510 0      0   0   200000035077 0            000000000010 
AT3	034510 0      0   0   000000035077 0            200000035077 
AT6	034510 035077 0   0   000000035077 0            200000035077 
FT0	034510 035077 0   0   000000000010 0            200000035077 
FT1A	034510 035077 0   0   000000000010 0            000000000010 
FT9	034511 035077 0   0   000000000010 0            000000000010 
ET0	034511 035077 0   0   000000000010 0            000000000010 
ST1	034511 035077 0   0   000000000010 0            000000000010 
ST2	034511 035077 0   0   000000000010 0            000000000010 
ST9	034511 035077 0   0   000000000010 0            000000000010 


*034511 AND 	0,035077
INITIAL
C(AC)=000000 000010 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034511 034511 0   0   404000035077 0            000000000010 
IT1	034511 0      0   0   404000035077 0            000000000010 
AT3	034511 0      0   0   000000035077 0            404000035077 
AT6	034511 035077 0   0   000000035077 0            404000035077 
FT0	034511 035077 0   0   000000000010 0            404000035077 
FT1A	034511 035077 0   0   000000000010 0            000000000010 
FT2	034511 035077 0   0   0            0            000000000010 
FT2RQ	034511 035077 0   0   000000000010 0            000000000010 
FT3	034511 035077 0   0   000000000010 0            000000000010 
FT9	034512 035077 0   0   000000000010 0            000000000010 
ET0	034512 035077 0   0   000000000010 0            000000000010 
ST1	034512 035077 0   0   000000000010 0            000000000010 
ST2	034512 035077 0   0   000000000010 0            000000000010 
ST9	034512 035077 0   0   000000000010 0            000000000010 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 646
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0862

*034512 EQV 	0,035077
INITIAL
C(AC)=000000 000010 
C(E)=000000 000010 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034512 034512 0   0   444000035077 0            000000000010 
IT1	034512 0      0   0   444000035077 0            000000000010 
AT3	034512 0      0   0   000000035077 0            444000035077 
AT6	034512 035077 0   0   000000035077 0            444000035077 
FT0	034512 035077 0   0   000000000010 0            444000035077 
FT1A	034512 035077 0   0   000000000010 0            000000000010 
FT2	034512 035077 0   0   0            0            000000000010 
FT2RQ	034512 035077 0   0   000000000010 0            000000000010 
FT3	034512 035077 0   0   000000000010 0            000000000010 
FT9	034513 035077 0   0   000000000010 0            000000000010 
ET0	034513 035077 0   0   777777777777 0            000000000010 
ST1	034513 035077 0   0   777777777777 0            000000000010 
ST2	034513 035077 0   0   777777777777 0            000000000010 
ST9	034513 035077 0   0   777777777777 0            000000000010 


*034513 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034513 034513 0   0   444000035062 0            0            
IT1	034513 0      0   0   444000035062 0            0            
AT3	034513 0      0   0   000000035062 0            444000035062 
AT6	034513 035062 0   0   000000035062 0            444000035062 
FT0	034513 035062 0   0   0            0            444000035062 
FT1A	034513 035062 0   0   0            0            0            
FT2	034513 035062 0   0   0            0            0            
FT2RQ	034513 035062 0   0   777777777777 0            0            
FT3	034513 035062 0   0   777777777777 0            0            
FT9	034514 035062 0   0   777777777777 0            0            
ET0	034514 035062 0   0   0            0            0            
ST1	034514 035062 0   0   0            0            0            
ST2	034514 035062 0   0   0            0            0            
ST9	034514 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 647
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0863

*034514 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	034514 034514 0   0   332000000000 0            0            
IT1	034514 0      0   0   332000000000 0            0            
AT3	034514 0      0   0   0            0            332000000000 
AT6	034514 0      0   0   0            0            332000000000 
FT0	034514 0      0   0   0            0            332000000000 
FT1A	034514 0      0   0   0            0            0            
FT9	034515 0      0   0   0            0            0            
ET0	034516 0      0   0   0            0            0            
ST1A	034516 0      0   0   0            0            0            
ST9	034516 0      0   0   0            0            0            


*034516 JUMPA	0,034517
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034516 034516 0   0   324000034517 0            000000034517 
IT1	034516 0      0   0   324000034517 0            000000034517 
AT3	034516 0      0   0   000000034517 0            324000034517 
AT6	034516 034517 0   0   000000034517 0            324000034517 
FT1A	034516 034517 0   0   000000034517 0            000000034517 
FT2	034516 034517 0   0   0            0            000000034517 
FT2RQ	034516 034517 0   0   0            0            000000034517 
FT3	034516 034517 0   0   0            0            000000034517 
FT9	034517 034517 0   0   0            0            000000034517 
ET0	034517 034517 0   0   0            0            000000034517 
ST1A	034517 034517 0   0   0            0            000000034517 
ST9	034517 034517 0   0   0            0            000000034517 


*034517 MOVE 	0,035100
INITIAL
C(AC)=000000 000000 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034517 034517 0   0   200000035100 0            000000000020 
IT1	034517 0      0   0   200000035100 0            000000000020 
AT3	034517 0      0   0   000000035100 0            200000035100 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 648
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0864

AT6	034517 0      0   0   000000035100 0            200000035100 
FT0	034517 0      0   0   000000000020 0            200000035100 
FT1A	034517 0      0   0   000000000020 0            000000000020 
FT9	034520 0      0   0   000000000020 0            000000000020 
ET0	034520 0      0   0   000000000020 0            000000000020 
ST1	034520 0      0   0   000000000020 0            000000000020 
ST2	034520 0      0   0   000000000020 0            000000000020 
ST9	034520 0      0   0   000000000020 0            000000000020 


*034520 AND 	0,035100
INITIAL
C(AC)=000000 000020 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034520 034520 0   0   404000035100 0            000000000020 
IT1	034520 0      0   0   404000035100 0            000000000020 
AT3	034520 0      0   0   000000035100 0            404000035100 
AT6	034520 0      0   0   000000035100 0            404000035100 
FT0	034520 0      0   0   000000000020 0            404000035100 
FT1A	034520 0      0   0   000000000020 0            000000000020 
FT2	034520 0      0   0   0            0            000000000020 
FT2RQ	034520 0      0   0   000000000020 0            000000000020 
FT3	034520 0      0   0   000000000020 0            000000000020 
FT9	034521 0      0   0   000000000020 0            000000000020 
ET0	034521 0      0   0   000000000020 0            000000000020 
ST1	034521 0      0   0   000000000020 0            000000000020 
ST2	034521 0      0   0   000000000020 0            000000000020 
ST9	034521 0      0   0   000000000020 0            000000000020 


*034521 EQV 	0,035100
INITIAL
C(AC)=000000 000020 
C(E)=000000 000020 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034521 034521 0   0   444000035100 0            000000000020 
IT1	034521 0      0   0   444000035100 0            000000000020 
AT3	034521 0      0   0   000000035100 0            444000035100 
AT6	034521 0      0   0   000000035100 0            444000035100 
FT0	034521 0      0   0   000000000020 0            444000035100 
FT1A	034521 0      0   0   000000000020 0            000000000020 
FT2	034521 0      0   0   0            0            000000000020 
FT2RQ	034521 0      0   0   000000000020 0            000000000020 
FT3	034521 0      0   0   000000000020 0            000000000020 
FT9	034522 0      0   0   000000000020 0            000000000020 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 649
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0865

ET0	034522 0      0   0   777777777777 0            000000000020 
ST1	034522 0      0   0   777777777777 0            000000000020 
ST2	034522 0      0   0   777777777777 0            000000000020 
ST9	034522 0      0   0   777777777777 0            000000000020 


*034522 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034522 034522 0   0   444000035062 0            0            
IT1	034522 0      0   0   444000035062 0            0            
AT3	034522 0      0   0   000000035062 0            444000035062 
AT6	034522 035062 0   0   000000035062 0            444000035062 
FT0	034522 035062 0   0   0            0            444000035062 
FT1A	034522 035062 0   0   0            0            0            
FT2	034522 035062 0   0   0            0            0            
FT2RQ	034522 035062 0   0   777777777777 0            0            
FT3	034522 035062 0   0   777777777777 0            0            
FT9	034523 035062 0   0   777777777777 0            0            
ET0	034523 035062 0   0   0            0            0            
ST1	034523 035062 0   0   0            0            0            
ST2	034523 035062 0   0   0            0            0            
ST9	034523 035062 0   0   0            0            0            


*034523 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	034523 034523 0   0   332000000000 0            0            
IT1	034523 0      0   0   332000000000 0            0            
AT3	034523 0      0   0   0            0            332000000000 
AT6	034523 0      0   0   0            0            332000000000 
FT0	034523 0      0   0   0            0            332000000000 
FT1A	034523 0      0   0   0            0            0            
FT9	034524 0      0   0   0            0            0            
ET0	034525 0      0   0   0            0            0            
ST1A	034525 0      0   0   0            0            0            
ST9	034525 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 650
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0866

*034525 JUMPA	0,034526
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034525 034525 0   0   324000034526 0            000000034526 
IT1	034525 0      0   0   324000034526 0            000000034526 
AT3	034525 0      0   0   000000034526 0            324000034526 
AT6	034525 034526 0   0   000000034526 0            324000034526 
FT1A	034525 034526 0   0   000000034526 0            000000034526 
FT2	034525 034526 0   0   0            0            000000034526 
FT2RQ	034525 034526 0   0   0            0            000000034526 
FT3	034525 034526 0   0   0            0            000000034526 
FT9	034526 034526 0   0   0            0            000000034526 
ET0	034526 034526 0   0   0            0            000000034526 
ST1A	034526 034526 0   0   0            0            000000034526 
ST9	034526 034526 0   0   0            0            000000034526 


*034526 MOVE 	0,035101
INITIAL
C(AC)=000000 000000 
C(E)=000000 000040 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034526 034526 0   0   200000035101 0            000000000040 
IT1	034526 0      0   0   200000035101 0            000000000040 
AT3	034526 0      0   0   000000035101 0            200000035101 
AT6	034526 035101 0   0   000000035101 0            200000035101 
FT0	034526 035101 0   0   000000000040 0            200000035101 
FT1A	034526 035101 0   0   000000000040 0            000000000040 
FT9	034527 035101 0   0   000000000040 0            000000000040 
ET0	034527 035101 0   0   000000000040 0            000000000040 
ST1	034527 035101 0   0   000000000040 0            000000000040 
ST2	034527 035101 0   0   000000000040 0            000000000040 
ST9	034527 035101 0   0   000000000040 0            000000000040 


*034527 AND 	0,035101
INITIAL
C(AC)=000000 000040 
C(E)=000000 000040 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034527 034527 0   0   404000035101 0            000000000040 
IT1	034527 0      0   0   404000035101 0            000000000040 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 651
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0867

AT3	034527 0      0   0   000000035101 0            404000035101 
AT6	034527 035101 0   0   000000035101 0            404000035101 
FT0	034527 035101 0   0   000000000040 0            404000035101 
FT1A	034527 035101 0   0   000000000040 0            000000000040 
FT2	034527 035101 0   0   0            0            000000000040 
FT2RQ	034527 035101 0   0   000000000040 0            000000000040 
FT3	034527 035101 0   0   000000000040 0            000000000040 
FT9	034530 035101 0   0   000000000040 0            000000000040 
ET0	034530 035101 0   0   000000000040 0            000000000040 
ST1	034530 035101 0   0   000000000040 0            000000000040 
ST2	034530 035101 0   0   000000000040 0            000000000040 
ST9	034530 035101 0   0   000000000040 0            000000000040 


*034530 EQV 	0,035101
INITIAL
C(AC)=000000 000040 
C(E)=000000 000040 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034530 034530 0   0   444000035101 0            000000000040 
IT1	034530 0      0   0   444000035101 0            000000000040 
AT3	034530 0      0   0   000000035101 0            444000035101 
AT6	034530 035101 0   0   000000035101 0            444000035101 
FT0	034530 035101 0   0   000000000040 0            444000035101 
FT1A	034530 035101 0   0   000000000040 0            000000000040 
FT2	034530 035101 0   0   0            0            000000000040 
FT2RQ	034530 035101 0   0   000000000040 0            000000000040 
FT3	034530 035101 0   0   000000000040 0            000000000040 
FT9	034531 035101 0   0   000000000040 0            000000000040 
ET0	034531 035101 0   0   777777777777 0            000000000040 
ST1	034531 035101 0   0   777777777777 0            000000000040 
ST2	034531 035101 0   0   777777777777 0            000000000040 
ST9	034531 035101 0   0   777777777777 0            000000000040 


*034531 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034531 034531 0   0   444000035062 0            0            
IT1	034531 0      0   0   444000035062 0            0            
AT3	034531 0      0   0   000000035062 0            444000035062 
AT6	034531 035062 0   0   000000035062 0            444000035062 
FT0	034531 035062 0   0   0            0            444000035062 
FT1A	034531 035062 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 652
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0868

FT2	034531 035062 0   0   0            0            0            
FT2RQ	034531 035062 0   0   777777777777 0            0            
FT3	034531 035062 0   0   777777777777 0            0            
FT9	034532 035062 0   0   777777777777 0            0            
ET0	034532 035062 0   0   0            0            0            
ST1	034532 035062 0   0   0            0            0            
ST2	034532 035062 0   0   0            0            0            
ST9	034532 035062 0   0   0            0            0            


*034532 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	034532 034532 0   0   332000000000 0            0            
IT1	034532 0      0   0   332000000000 0            0            
AT3	034532 0      0   0   0            0            332000000000 
AT6	034532 0      0   0   0            0            332000000000 
FT0	034532 0      0   0   0            0            332000000000 
FT1A	034532 0      0   0   0            0            0            
FT9	034533 0      0   0   0            0            0            
ET0	034534 0      0   0   0            0            0            
ST1A	034534 0      0   0   0            0            0            
ST9	034534 0      0   0   0            0            0            


*034534 JUMPA	0,034535
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034534 034534 0   0   324000034535 0            000000034535 
IT1	034534 0      0   0   324000034535 0            000000034535 
AT3	034534 0      0   0   000000034535 0            324000034535 
AT6	034534 034535 0   0   000000034535 0            324000034535 
FT1A	034534 034535 0   0   000000034535 0            000000034535 
FT2	034534 034535 0   0   0            0            000000034535 
FT2RQ	034534 034535 0   0   0            0            000000034535 
FT3	034534 034535 0   0   0            0            000000034535 
FT9	034535 034535 0   0   0            0            000000034535 
ET0	034535 034535 0   0   0            0            000000034535 
ST1A	034535 034535 0   0   0            0            000000034535 
ST9	034535 034535 0   0   0            0            000000034535 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 653
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0869

*034535 MOVE 	0,035102
INITIAL
C(AC)=000000 000000 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034535 034535 0   0   200000035102 0            000000000100 
IT1	034535 0      0   0   200000035102 0            000000000100 
AT3	034535 0      0   0   000000035102 0            200000035102 
AT6	034535 035102 0   0   000000035102 0            200000035102 
FT0	034535 035102 0   0   000000000100 0            200000035102 
FT1A	034535 035102 0   0   000000000100 0            000000000100 
FT9	034536 035102 0   0   000000000100 0            000000000100 
ET0	034536 035102 0   0   000000000100 0            000000000100 
ST1	034536 035102 0   0   000000000100 0            000000000100 
ST2	034536 035102 0   0   000000000100 0            000000000100 
ST9	034536 035102 0   0   000000000100 0            000000000100 


*034536 AND 	0,035102
INITIAL
C(AC)=000000 000100 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034536 034536 0   0   404000035102 0            000000000100 
IT1	034536 0      0   0   404000035102 0            000000000100 
AT3	034536 0      0   0   000000035102 0            404000035102 
AT6	034536 035102 0   0   000000035102 0            404000035102 
FT0	034536 035102 0   0   000000000100 0            404000035102 
FT1A	034536 035102 0   0   000000000100 0            000000000100 
FT2	034536 035102 0   0   0            0            000000000100 
FT2RQ	034536 035102 0   0   000000000100 0            000000000100 
FT3	034536 035102 0   0   000000000100 0            000000000100 
FT9	034537 035102 0   0   000000000100 0            000000000100 
ET0	034537 035102 0   0   000000000100 0            000000000100 
ST1	034537 035102 0   0   000000000100 0            000000000100 
ST2	034537 035102 0   0   000000000100 0            000000000100 
ST9	034537 035102 0   0   000000000100 0            000000000100 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 654
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0870

*034537 EQV 	0,035102
INITIAL
C(AC)=000000 000100 
C(E)=000000 000100 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034537 034537 0   0   444000035102 0            000000000100 
IT1	034537 0      0   0   444000035102 0            000000000100 
AT3	034537 0      0   0   000000035102 0            444000035102 
AT6	034537 035102 0   0   000000035102 0            444000035102 
FT0	034537 035102 0   0   000000000100 0            444000035102 
FT1A	034537 035102 0   0   000000000100 0            000000000100 
FT2	034537 035102 0   0   0            0            000000000100 
FT2RQ	034537 035102 0   0   000000000100 0            000000000100 
FT3	034537 035102 0   0   000000000100 0            000000000100 
FT9	034540 035102 0   0   000000000100 0            000000000100 
ET0	034540 035102 0   0   777777777777 0            000000000100 
ST1	034540 035102 0   0   777777777777 0            000000000100 
ST2	034540 035102 0   0   777777777777 0            000000000100 
ST9	034540 035102 0   0   777777777777 0            000000000100 


*034540 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034540 034540 0   0   444000035062 0            0            
IT1	034540 0      0   0   444000035062 0            0            
AT3	034540 0      0   0   000000035062 0            444000035062 
AT6	034540 035062 0   0   000000035062 0            444000035062 
FT0	034540 035062 0   0   0            0            444000035062 
FT1A	034540 035062 0   0   0            0            0            
FT2	034540 035062 0   0   0            0            0            
FT2RQ	034540 035062 0   0   777777777777 0            0            
FT3	034540 035062 0   0   777777777777 0            0            
FT9	034541 035062 0   0   777777777777 0            0            
ET0	034541 035062 0   0   0            0            0            
ST1	034541 035062 0   0   0            0            0            
ST2	034541 035062 0   0   0            0            0            
ST9	034541 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 655
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0871

*034541 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	034541 034541 0   0   332000000000 0            0            
IT1	034541 0      0   0   332000000000 0            0            
AT3	034541 0      0   0   0            0            332000000000 
AT6	034541 0      0   0   0            0            332000000000 
FT0	034541 0      0   0   0            0            332000000000 
FT1A	034541 0      0   0   0            0            0            
FT9	034542 0      0   0   0            0            0            
ET0	034543 0      0   0   0            0            0            
ST1A	034543 0      0   0   0            0            0            
ST9	034543 0      0   0   0            0            0            


*034543 JUMPA	0,034544
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034543 034543 0   0   324000034544 0            000000034544 
IT1	034543 0      0   0   324000034544 0            000000034544 
AT3	034543 0      0   0   000000034544 0            324000034544 
AT6	034543 034544 0   0   000000034544 0            324000034544 
FT1A	034543 034544 0   0   000000034544 0            000000034544 
FT2	034543 034544 0   0   0            0            000000034544 
FT2RQ	034543 034544 0   0   0            0            000000034544 
FT3	034543 034544 0   0   0            0            000000034544 
FT9	034544 034544 0   0   0            0            000000034544 
ET0	034544 034544 0   0   0            0            000000034544 
ST1A	034544 034544 0   0   0            0            000000034544 
ST9	034544 034544 0   0   0            0            000000034544 


*034544 MOVE 	0,035103
INITIAL
C(AC)=000000 000000 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034544 034544 0   0   200000035103 0            000000000200 
IT1	034544 0      0   0   200000035103 0            000000000200 
AT3	034544 0      0   0   000000035103 0            200000035103 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 656
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0872

AT6	034544 035103 0   0   000000035103 0            200000035103 
FT0	034544 035103 0   0   000000000200 0            200000035103 
FT1A	034544 035103 0   0   000000000200 0            000000000200 
FT9	034545 035103 0   0   000000000200 0            000000000200 
ET0	034545 035103 0   0   000000000200 0            000000000200 
ST1	034545 035103 0   0   000000000200 0            000000000200 
ST2	034545 035103 0   0   000000000200 0            000000000200 
ST9	034545 035103 0   0   000000000200 0            000000000200 


*034545 AND 	0,035103
INITIAL
C(AC)=000000 000200 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034545 034545 0   0   404000035103 0            000000000200 
IT1	034545 0      0   0   404000035103 0            000000000200 
AT3	034545 0      0   0   000000035103 0            404000035103 
AT6	034545 035103 0   0   000000035103 0            404000035103 
FT0	034545 035103 0   0   000000000200 0            404000035103 
FT1A	034545 035103 0   0   000000000200 0            000000000200 
FT2	034545 035103 0   0   0            0            000000000200 
FT2RQ	034545 035103 0   0   000000000200 0            000000000200 
FT3	034545 035103 0   0   000000000200 0            000000000200 
FT9	034546 035103 0   0   000000000200 0            000000000200 
ET0	034546 035103 0   0   000000000200 0            000000000200 
ST1	034546 035103 0   0   000000000200 0            000000000200 
ST2	034546 035103 0   0   000000000200 0            000000000200 
ST9	034546 035103 0   0   000000000200 0            000000000200 


*034546 EQV 	0,035103
INITIAL
C(AC)=000000 000200 
C(E)=000000 000200 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034546 034546 0   0   444000035103 0            000000000200 
IT1	034546 0      0   0   444000035103 0            000000000200 
AT3	034546 0      0   0   000000035103 0            444000035103 
AT6	034546 035103 0   0   000000035103 0            444000035103 
FT0	034546 035103 0   0   000000000200 0            444000035103 
FT1A	034546 035103 0   0   000000000200 0            000000000200 
FT2	034546 035103 0   0   0            0            000000000200 
FT2RQ	034546 035103 0   0   000000000200 0            000000000200 
FT3	034546 035103 0   0   000000000200 0            000000000200 
FT9	034547 035103 0   0   000000000200 0            000000000200 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 657
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0873

ET0	034547 035103 0   0   777777777777 0            000000000200 
ST1	034547 035103 0   0   777777777777 0            000000000200 
ST2	034547 035103 0   0   777777777777 0            000000000200 
ST9	034547 035103 0   0   777777777777 0            000000000200 


*034547 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034547 034547 0   0   444000035062 0            0            
IT1	034547 0      0   0   444000035062 0            0            
AT3	034547 0      0   0   000000035062 0            444000035062 
AT6	034547 035062 0   0   000000035062 0            444000035062 
FT0	034547 035062 0   0   0            0            444000035062 
FT1A	034547 035062 0   0   0            0            0            
FT2	034547 035062 0   0   0            0            0            
FT2RQ	034547 035062 0   0   777777777777 0            0            
FT3	034547 035062 0   0   777777777777 0            0            
FT9	034550 035062 0   0   777777777777 0            0            
ET0	034550 035062 0   0   0            0            0            
ST1	034550 035062 0   0   0            0            0            
ST2	034550 035062 0   0   0            0            0            
ST9	034550 035062 0   0   0            0            0            


*034550 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	034550 034550 0   0   332000000000 0            0            
IT1	034550 0      0   0   332000000000 0            0            
AT3	034550 0      0   0   0            0            332000000000 
AT6	034550 0      0   0   0            0            332000000000 
FT0	034550 0      0   0   0            0            332000000000 
FT1A	034550 0      0   0   0            0            0            
FT9	034551 0      0   0   0            0            0            
ET0	034552 0      0   0   0            0            0            
ST1A	034552 0      0   0   0            0            0            
ST9	034552 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 658
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0874

*034552 JUMPA	0,034553
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034552 034552 0   0   324000034553 0            000000034553 
IT1	034552 0      0   0   324000034553 0            000000034553 
AT3	034552 0      0   0   000000034553 0            324000034553 
AT6	034552 034553 0   0   000000034553 0            324000034553 
FT1A	034552 034553 0   0   000000034553 0            000000034553 
FT2	034552 034553 0   0   0            0            000000034553 
FT2RQ	034552 034553 0   0   0            0            000000034553 
FT3	034552 034553 0   0   0            0            000000034553 
FT9	034553 034553 0   0   0            0            000000034553 
ET0	034553 034553 0   0   0            0            000000034553 
ST1A	034553 034553 0   0   0            0            000000034553 
ST9	034553 034553 0   0   0            0            000000034553 


*034553 MOVE 	0,035104
INITIAL
C(AC)=000000 000000 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034553 034553 0   0   200000035104 0            000000000400 
IT1	034553 0      0   0   200000035104 0            000000000400 
AT3	034553 0      0   0   000000035104 0            200000035104 
AT6	034553 035104 0   0   000000035104 0            200000035104 
FT0	034553 035104 0   0   000000000400 0            200000035104 
FT1A	034553 035104 0   0   000000000400 0            000000000400 
FT9	034554 035104 0   0   000000000400 0            000000000400 
ET0	034554 035104 0   0   000000000400 0            000000000400 
ST1	034554 035104 0   0   000000000400 0            000000000400 
ST2	034554 035104 0   0   000000000400 0            000000000400 
ST9	034554 035104 0   0   000000000400 0            000000000400 


*034554 AND 	0,035104
INITIAL
C(AC)=000000 000400 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034554 034554 0   0   404000035104 0            000000000400 
IT1	034554 0      0   0   404000035104 0            000000000400 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 659
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0875

AT3	034554 0      0   0   000000035104 0            404000035104 
AT6	034554 035104 0   0   000000035104 0            404000035104 
FT0	034554 035104 0   0   000000000400 0            404000035104 
FT1A	034554 035104 0   0   000000000400 0            000000000400 
FT2	034554 035104 0   0   0            0            000000000400 
FT2RQ	034554 035104 0   0   000000000400 0            000000000400 
FT3	034554 035104 0   0   000000000400 0            000000000400 
FT9	034555 035104 0   0   000000000400 0            000000000400 
ET0	034555 035104 0   0   000000000400 0            000000000400 
ST1	034555 035104 0   0   000000000400 0            000000000400 
ST2	034555 035104 0   0   000000000400 0            000000000400 
ST9	034555 035104 0   0   000000000400 0            000000000400 


*034555 EQV 	0,035104
INITIAL
C(AC)=000000 000400 
C(E)=000000 000400 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034555 034555 0   0   444000035104 0            000000000400 
IT1	034555 0      0   0   444000035104 0            000000000400 
AT3	034555 0      0   0   000000035104 0            444000035104 
AT6	034555 035104 0   0   000000035104 0            444000035104 
FT0	034555 035104 0   0   000000000400 0            444000035104 
FT1A	034555 035104 0   0   000000000400 0            000000000400 
FT2	034555 035104 0   0   0            0            000000000400 
FT2RQ	034555 035104 0   0   000000000400 0            000000000400 
FT3	034555 035104 0   0   000000000400 0            000000000400 
FT9	034556 035104 0   0   000000000400 0            000000000400 
ET0	034556 035104 0   0   777777777777 0            000000000400 
ST1	034556 035104 0   0   777777777777 0            000000000400 
ST2	034556 035104 0   0   777777777777 0            000000000400 
ST9	034556 035104 0   0   777777777777 0            000000000400 


*034556 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034556 034556 0   0   444000035062 0            0            
IT1	034556 0      0   0   444000035062 0            0            
AT3	034556 0      0   0   000000035062 0            444000035062 
AT6	034556 035062 0   0   000000035062 0            444000035062 
FT0	034556 035062 0   0   0            0            444000035062 
FT1A	034556 035062 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 660
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0876

FT2	034556 035062 0   0   0            0            0            
FT2RQ	034556 035062 0   0   777777777777 0            0            
FT3	034556 035062 0   0   777777777777 0            0            
FT9	034557 035062 0   0   777777777777 0            0            
ET0	034557 035062 0   0   0            0            0            
ST1	034557 035062 0   0   0            0            0            
ST2	034557 035062 0   0   0            0            0            
ST9	034557 035062 0   0   0            0            0            


*034557 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	034557 034557 0   0   332000000000 0            0            
IT1	034557 0      0   0   332000000000 0            0            
AT3	034557 0      0   0   0            0            332000000000 
AT6	034557 0      0   0   0            0            332000000000 
FT0	034557 0      0   0   0            0            332000000000 
FT1A	034557 0      0   0   0            0            0            
FT9	034560 0      0   0   0            0            0            
ET0	034561 0      0   0   0            0            0            
ST1A	034561 0      0   0   0            0            0            
ST9	034561 0      0   0   0            0            0            


*034561 JUMPA	0,034562
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034561 034561 0   0   324000034562 0            000000034562 
IT1	034561 0      0   0   324000034562 0            000000034562 
AT3	034561 0      0   0   000000034562 0            324000034562 
AT6	034561 034562 0   0   000000034562 0            324000034562 
FT1A	034561 034562 0   0   000000034562 0            000000034562 
FT2	034561 034562 0   0   0            0            000000034562 
FT2RQ	034561 034562 0   0   0            0            000000034562 
FT3	034561 034562 0   0   0            0            000000034562 
FT9	034562 034562 0   0   0            0            000000034562 
ET0	034562 034562 0   0   0            0            000000034562 
ST1A	034562 034562 0   0   0            0            000000034562 
ST9	034562 034562 0   0   0            0            000000034562 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 661
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0877

*034562 MOVE 	0,035105
INITIAL
C(AC)=000000 000000 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034562 034562 0   0   200000035105 0            000000001000 
IT1	034562 0      0   0   200000035105 0            000000001000 
AT3	034562 0      0   0   000000035105 0            200000035105 
AT6	034562 035105 0   0   000000035105 0            200000035105 
FT0	034562 035105 0   0   000000001000 0            200000035105 
FT1A	034562 035105 0   0   000000001000 0            000000001000 
FT9	034563 035105 0   0   000000001000 0            000000001000 
ET0	034563 035105 0   0   000000001000 0            000000001000 
ST1	034563 035105 0   0   000000001000 0            000000001000 
ST2	034563 035105 0   0   000000001000 0            000000001000 
ST9	034563 035105 0   0   000000001000 0            000000001000 


*034563 AND 	0,035105
INITIAL
C(AC)=000000 001000 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034563 034563 0   0   404000035105 0            000000001000 
IT1	034563 0      0   0   404000035105 0            000000001000 
AT3	034563 0      0   0   000000035105 0            404000035105 
AT6	034563 035105 0   0   000000035105 0            404000035105 
FT0	034563 035105 0   0   000000001000 0            404000035105 
FT1A	034563 035105 0   0   000000001000 0            000000001000 
FT2	034563 035105 0   0   0            0            000000001000 
FT2RQ	034563 035105 0   0   000000001000 0            000000001000 
FT3	034563 035105 0   0   000000001000 0            000000001000 
FT9	034564 035105 0   0   000000001000 0            000000001000 
ET0	034564 035105 0   0   000000001000 0            000000001000 
ST1	034564 035105 0   0   000000001000 0            000000001000 
ST2	034564 035105 0   0   000000001000 0            000000001000 
ST9	034564 035105 0   0   000000001000 0            000000001000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 662
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0878

*034564 EQV 	0,035105
INITIAL
C(AC)=000000 001000 
C(E)=000000 001000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034564 034564 0   0   444000035105 0            000000001000 
IT1	034564 0      0   0   444000035105 0            000000001000 
AT3	034564 0      0   0   000000035105 0            444000035105 
AT6	034564 035105 0   0   000000035105 0            444000035105 
FT0	034564 035105 0   0   000000001000 0            444000035105 
FT1A	034564 035105 0   0   000000001000 0            000000001000 
FT2	034564 035105 0   0   0            0            000000001000 
FT2RQ	034564 035105 0   0   000000001000 0            000000001000 
FT3	034564 035105 0   0   000000001000 0            000000001000 
FT9	034565 035105 0   0   000000001000 0            000000001000 
ET0	034565 035105 0   0   777777777777 0            000000001000 
ST1	034565 035105 0   0   777777777777 0            000000001000 
ST2	034565 035105 0   0   777777777777 0            000000001000 
ST9	034565 035105 0   0   777777777777 0            000000001000 


*034565 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034565 034565 0   0   444000035062 0            0            
IT1	034565 0      0   0   444000035062 0            0            
AT3	034565 0      0   0   000000035062 0            444000035062 
AT6	034565 035062 0   0   000000035062 0            444000035062 
FT0	034565 035062 0   0   0            0            444000035062 
FT1A	034565 035062 0   0   0            0            0            
FT2	034565 035062 0   0   0            0            0            
FT2RQ	034565 035062 0   0   777777777777 0            0            
FT3	034565 035062 0   0   777777777777 0            0            
FT9	034566 035062 0   0   777777777777 0            0            
ET0	034566 035062 0   0   0            0            0            
ST1	034566 035062 0   0   0            0            0            
ST2	034566 035062 0   0   0            0            0            
ST9	034566 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 663
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0879

*034566 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	034566 034566 0   0   332000000000 0            0            
IT1	034566 0      0   0   332000000000 0            0            
AT3	034566 0      0   0   0            0            332000000000 
AT6	034566 0      0   0   0            0            332000000000 
FT0	034566 0      0   0   0            0            332000000000 
FT1A	034566 0      0   0   0            0            0            
FT9	034567 0      0   0   0            0            0            
ET0	034570 0      0   0   0            0            0            
ST1A	034570 0      0   0   0            0            0            
ST9	034570 0      0   0   0            0            0            


*034570 JUMPA	0,034571
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034570 034570 0   0   324000034571 0            000000034571 
IT1	034570 0      0   0   324000034571 0            000000034571 
AT3	034570 0      0   0   000000034571 0            324000034571 
AT6	034570 034571 0   0   000000034571 0            324000034571 
FT1A	034570 034571 0   0   000000034571 0            000000034571 
FT2	034570 034571 0   0   0            0            000000034571 
FT2RQ	034570 034571 0   0   0            0            000000034571 
FT3	034570 034571 0   0   0            0            000000034571 
FT9	034571 034571 0   0   0            0            000000034571 
ET0	034571 034571 0   0   0            0            000000034571 
ST1A	034571 034571 0   0   0            0            000000034571 
ST9	034571 034571 0   0   0            0            000000034571 


*034571 MOVE 	0,035106
INITIAL
C(AC)=000000 000000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034571 034571 0   0   200000035106 0            000000002000 
IT1	034571 0      0   0   200000035106 0            000000002000 
AT3	034571 0      0   0   000000035106 0            200000035106 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 664
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0880

AT6	034571 035106 0   0   000000035106 0            200000035106 
FT0	034571 035106 0   0   000000002000 0            200000035106 
FT1A	034571 035106 0   0   000000002000 0            000000002000 
FT9	034572 035106 0   0   000000002000 0            000000002000 
ET0	034572 035106 0   0   000000002000 0            000000002000 
ST1	034572 035106 0   0   000000002000 0            000000002000 
ST2	034572 035106 0   0   000000002000 0            000000002000 
ST9	034572 035106 0   0   000000002000 0            000000002000 


*034572 AND 	0,035106
INITIAL
C(AC)=000000 002000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034572 034572 0   0   404000035106 0            000000002000 
IT1	034572 0      0   0   404000035106 0            000000002000 
AT3	034572 0      0   0   000000035106 0            404000035106 
AT6	034572 035106 0   0   000000035106 0            404000035106 
FT0	034572 035106 0   0   000000002000 0            404000035106 
FT1A	034572 035106 0   0   000000002000 0            000000002000 
FT2	034572 035106 0   0   0            0            000000002000 
FT2RQ	034572 035106 0   0   000000002000 0            000000002000 
FT3	034572 035106 0   0   000000002000 0            000000002000 
FT9	034573 035106 0   0   000000002000 0            000000002000 
ET0	034573 035106 0   0   000000002000 0            000000002000 
ST1	034573 035106 0   0   000000002000 0            000000002000 
ST2	034573 035106 0   0   000000002000 0            000000002000 
ST9	034573 035106 0   0   000000002000 0            000000002000 


*034573 EQV 	0,035106
INITIAL
C(AC)=000000 002000 
C(E)=000000 002000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034573 034573 0   0   444000035106 0            000000002000 
IT1	034573 0      0   0   444000035106 0            000000002000 
AT3	034573 0      0   0   000000035106 0            444000035106 
AT6	034573 035106 0   0   000000035106 0            444000035106 
FT0	034573 035106 0   0   000000002000 0            444000035106 
FT1A	034573 035106 0   0   000000002000 0            000000002000 
FT2	034573 035106 0   0   0            0            000000002000 
FT2RQ	034573 035106 0   0   000000002000 0            000000002000 
FT3	034573 035106 0   0   000000002000 0            000000002000 
FT9	034574 035106 0   0   000000002000 0            000000002000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 665
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0881

ET0	034574 035106 0   0   777777777777 0            000000002000 
ST1	034574 035106 0   0   777777777777 0            000000002000 
ST2	034574 035106 0   0   777777777777 0            000000002000 
ST9	034574 035106 0   0   777777777777 0            000000002000 


*034574 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034574 034574 0   0   444000035062 0            0            
IT1	034574 0      0   0   444000035062 0            0            
AT3	034574 0      0   0   000000035062 0            444000035062 
AT6	034574 035062 0   0   000000035062 0            444000035062 
FT0	034574 035062 0   0   0            0            444000035062 
FT1A	034574 035062 0   0   0            0            0            
FT2	034574 035062 0   0   0            0            0            
FT2RQ	034574 035062 0   0   777777777777 0            0            
FT3	034574 035062 0   0   777777777777 0            0            
FT9	034575 035062 0   0   777777777777 0            0            
ET0	034575 035062 0   0   0            0            0            
ST1	034575 035062 0   0   0            0            0            
ST2	034575 035062 0   0   0            0            0            
ST9	034575 035062 0   0   0            0            0            


*034575 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	034575 034575 0   0   332000000000 0            0            
IT1	034575 0      0   0   332000000000 0            0            
AT3	034575 0      0   0   0            0            332000000000 
AT6	034575 0      0   0   0            0            332000000000 
FT0	034575 0      0   0   0            0            332000000000 
FT1A	034575 0      0   0   0            0            0            
FT9	034576 0      0   0   0            0            0            
ET0	034577 0      0   0   0            0            0            
ST1A	034577 0      0   0   0            0            0            
ST9	034577 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 666
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0882

*034577 JUMPA	0,034600
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034577 034577 0   0   324000034600 0            000000034600 
IT1	034577 0      0   0   324000034600 0            000000034600 
AT3	034577 0      0   0   000000034600 0            324000034600 
AT6	034577 0      0   0   000000034600 0            324000034600 
FT1A	034577 0      0   0   000000034600 0            000000034600 
FT2	034577 0      0   0   0            0            000000034600 
FT2RQ	034577 0      0   0   0            0            000000034600 
FT3	034577 0      0   0   0            0            000000034600 
FT9	0      0      0   0   0            0            000000034600 
ET0	0      0      0   0   0            0            000000034600 
ST1A	0      0      0   0   0            0            000000034600 
ST9	0      0      0   0   0            0            000000034600 


*034600 MOVE 	0,035107
INITIAL
C(AC)=000000 000000 
C(E)=000000 004000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   200000035107 0            000000004000 
IT1	0      0      0   0   200000035107 0            000000004000 
AT3	0      0      0   0   000000035107 0            200000035107 
AT6	0      035107 0   0   000000035107 0            200000035107 
FT0	0      035107 0   0   000000004000 0            200000035107 
FT1A	0      035107 0   0   000000004000 0            000000004000 
FT9	034601 035107 0   0   000000004000 0            000000004000 
ET0	034601 035107 0   0   000000004000 0            000000004000 
ST1	034601 035107 0   0   000000004000 0            000000004000 
ST2	034601 035107 0   0   000000004000 0            000000004000 
ST9	034601 035107 0   0   000000004000 0            000000004000 


*034601 AND 	0,035107
INITIAL
C(AC)=000000 004000 
C(E)=000000 004000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034601 034601 0   0   404000035107 0            000000004000 
IT1	034601 0      0   0   404000035107 0            000000004000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 667
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0883

AT3	034601 0      0   0   000000035107 0            404000035107 
AT6	034601 035107 0   0   000000035107 0            404000035107 
FT0	034601 035107 0   0   000000004000 0            404000035107 
FT1A	034601 035107 0   0   000000004000 0            000000004000 
FT2	034601 035107 0   0   0            0            000000004000 
FT2RQ	034601 035107 0   0   000000004000 0            000000004000 
FT3	034601 035107 0   0   000000004000 0            000000004000 
FT9	034602 035107 0   0   000000004000 0            000000004000 
ET0	034602 035107 0   0   000000004000 0            000000004000 
ST1	034602 035107 0   0   000000004000 0            000000004000 
ST2	034602 035107 0   0   000000004000 0            000000004000 
ST9	034602 035107 0   0   000000004000 0            000000004000 


*034602 EQV 	0,035107
INITIAL
C(AC)=000000 004000 
C(E)=000000 004000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034602 034602 0   0   444000035107 0            000000004000 
IT1	034602 0      0   0   444000035107 0            000000004000 
AT3	034602 0      0   0   000000035107 0            444000035107 
AT6	034602 035107 0   0   000000035107 0            444000035107 
FT0	034602 035107 0   0   000000004000 0            444000035107 
FT1A	034602 035107 0   0   000000004000 0            000000004000 
FT2	034602 035107 0   0   0            0            000000004000 
FT2RQ	034602 035107 0   0   000000004000 0            000000004000 
FT3	034602 035107 0   0   000000004000 0            000000004000 
FT9	034603 035107 0   0   000000004000 0            000000004000 
ET0	034603 035107 0   0   777777777777 0            000000004000 
ST1	034603 035107 0   0   777777777777 0            000000004000 
ST2	034603 035107 0   0   777777777777 0            000000004000 
ST9	034603 035107 0   0   777777777777 0            000000004000 


*034603 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034603 034603 0   0   444000035062 0            0            
IT1	034603 0      0   0   444000035062 0            0            
AT3	034603 0      0   0   000000035062 0            444000035062 
AT6	034603 035062 0   0   000000035062 0            444000035062 
FT0	034603 035062 0   0   0            0            444000035062 
FT1A	034603 035062 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 668
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0884

FT2	034603 035062 0   0   0            0            0            
FT2RQ	034603 035062 0   0   777777777777 0            0            
FT3	034603 035062 0   0   777777777777 0            0            
FT9	034604 035062 0   0   777777777777 0            0            
ET0	034604 035062 0   0   0            0            0            
ST1	034604 035062 0   0   0            0            0            
ST2	034604 035062 0   0   0            0            0            
ST9	034604 035062 0   0   0            0            0            


*034604 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	034604 034604 0   0   332000000000 0            0            
IT1	034604 0      0   0   332000000000 0            0            
AT3	034604 0      0   0   0            0            332000000000 
AT6	034604 0      0   0   0            0            332000000000 
FT0	034604 0      0   0   0            0            332000000000 
FT1A	034604 0      0   0   0            0            0            
FT9	034605 0      0   0   0            0            0            
ET0	034606 0      0   0   0            0            0            
ST1A	034606 0      0   0   0            0            0            
ST9	034606 0      0   0   0            0            0            


*034606 JUMPA	0,034607
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034606 034606 0   0   324000034607 0            000000034607 
IT1	034606 0      0   0   324000034607 0            000000034607 
AT3	034606 0      0   0   000000034607 0            324000034607 
AT6	034606 034607 0   0   000000034607 0            324000034607 
FT1A	034606 034607 0   0   000000034607 0            000000034607 
FT2	034606 034607 0   0   0            0            000000034607 
FT2RQ	034606 034607 0   0   0            0            000000034607 
FT3	034606 034607 0   0   0            0            000000034607 
FT9	034607 034607 0   0   0            0            000000034607 
ET0	034607 034607 0   0   0            0            000000034607 
ST1A	034607 034607 0   0   0            0            000000034607 
ST9	034607 034607 0   0   0            0            000000034607 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 669
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0885

*034607 MOVE 	0,035110
INITIAL
C(AC)=000000 000000 
C(E)=000000 010000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034607 034607 0   0   200000035110 0            000000010000 
IT1	034607 0      0   0   200000035110 0            000000010000 
AT3	034607 0      0   0   000000035110 0            200000035110 
AT6	034607 035110 0   0   000000035110 0            200000035110 
FT0	034607 035110 0   0   000000010000 0            200000035110 
FT1A	034607 035110 0   0   000000010000 0            000000010000 
FT9	034610 035110 0   0   000000010000 0            000000010000 
ET0	034610 035110 0   0   000000010000 0            000000010000 
ST1	034610 035110 0   0   000000010000 0            000000010000 
ST2	034610 035110 0   0   000000010000 0            000000010000 
ST9	034610 035110 0   0   000000010000 0            000000010000 


*034610 AND 	0,035110
INITIAL
C(AC)=000000 010000 
C(E)=000000 010000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034610 034610 0   0   404000035110 0            000000010000 
IT1	034610 0      0   0   404000035110 0            000000010000 
AT3	034610 0      0   0   000000035110 0            404000035110 
AT6	034610 035110 0   0   000000035110 0            404000035110 
FT0	034610 035110 0   0   000000010000 0            404000035110 
FT1A	034610 035110 0   0   000000010000 0            000000010000 
FT2	034610 035110 0   0   0            0            000000010000 
FT2RQ	034610 035110 0   0   000000010000 0            000000010000 
FT3	034610 035110 0   0   000000010000 0            000000010000 
FT9	034611 035110 0   0   000000010000 0            000000010000 
ET0	034611 035110 0   0   000000010000 0            000000010000 
ST1	034611 035110 0   0   000000010000 0            000000010000 
ST2	034611 035110 0   0   000000010000 0            000000010000 
ST9	034611 035110 0   0   000000010000 0            000000010000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 670
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0886

*034611 EQV 	0,035110
INITIAL
C(AC)=000000 010000 
C(E)=000000 010000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034611 034611 0   0   444000035110 0            000000010000 
IT1	034611 0      0   0   444000035110 0            000000010000 
AT3	034611 0      0   0   000000035110 0            444000035110 
AT6	034611 035110 0   0   000000035110 0            444000035110 
FT0	034611 035110 0   0   000000010000 0            444000035110 
FT1A	034611 035110 0   0   000000010000 0            000000010000 
FT2	034611 035110 0   0   0            0            000000010000 
FT2RQ	034611 035110 0   0   000000010000 0            000000010000 
FT3	034611 035110 0   0   000000010000 0            000000010000 
FT9	034612 035110 0   0   000000010000 0            000000010000 
ET0	034612 035110 0   0   777777777777 0            000000010000 
ST1	034612 035110 0   0   777777777777 0            000000010000 
ST2	034612 035110 0   0   777777777777 0            000000010000 
ST9	034612 035110 0   0   777777777777 0            000000010000 


*034612 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034612 034612 0   0   444000035062 0            0            
IT1	034612 0      0   0   444000035062 0            0            
AT3	034612 0      0   0   000000035062 0            444000035062 
AT6	034612 035062 0   0   000000035062 0            444000035062 
FT0	034612 035062 0   0   0            0            444000035062 
FT1A	034612 035062 0   0   0            0            0            
FT2	034612 035062 0   0   0            0            0            
FT2RQ	034612 035062 0   0   777777777777 0            0            
FT3	034612 035062 0   0   777777777777 0            0            
FT9	034613 035062 0   0   777777777777 0            0            
ET0	034613 035062 0   0   0            0            0            
ST1	034613 035062 0   0   0            0            0            
ST2	034613 035062 0   0   0            0            0            
ST9	034613 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 671
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0887

*034613 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	034613 034613 0   0   332000000000 0            0            
IT1	034613 0      0   0   332000000000 0            0            
AT3	034613 0      0   0   0            0            332000000000 
AT6	034613 0      0   0   0            0            332000000000 
FT0	034613 0      0   0   0            0            332000000000 
FT1A	034613 0      0   0   0            0            0            
FT9	034614 0      0   0   0            0            0            
ET0	034615 0      0   0   0            0            0            
ST1A	034615 0      0   0   0            0            0            
ST9	034615 0      0   0   0            0            0            


*034615 JUMPA	0,034616
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034615 034615 0   0   324000034616 0            000000034616 
IT1	034615 0      0   0   324000034616 0            000000034616 
AT3	034615 0      0   0   000000034616 0            324000034616 
AT6	034615 034616 0   0   000000034616 0            324000034616 
FT1A	034615 034616 0   0   000000034616 0            000000034616 
FT2	034615 034616 0   0   0            0            000000034616 
FT2RQ	034615 034616 0   0   0            0            000000034616 
FT3	034615 034616 0   0   0            0            000000034616 
FT9	034616 034616 0   0   0            0            000000034616 
ET0	034616 034616 0   0   0            0            000000034616 
ST1A	034616 034616 0   0   0            0            000000034616 
ST9	034616 034616 0   0   0            0            000000034616 


*034616 MOVE 	0,035111
INITIAL
C(AC)=000000 000000 
C(E)=000000 020000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034616 034616 0   0   200000035111 0            000000020000 
IT1	034616 0      0   0   200000035111 0            000000020000 
AT3	034616 0      0   0   000000035111 0            200000035111 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 672
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0888

AT6	034616 035111 0   0   000000035111 0            200000035111 
FT0	034616 035111 0   0   000000020000 0            200000035111 
FT1A	034616 035111 0   0   000000020000 0            000000020000 
FT9	034617 035111 0   0   000000020000 0            000000020000 
ET0	034617 035111 0   0   000000020000 0            000000020000 
ST1	034617 035111 0   0   000000020000 0            000000020000 
ST2	034617 035111 0   0   000000020000 0            000000020000 
ST9	034617 035111 0   0   000000020000 0            000000020000 


*034617 AND 	0,035111
INITIAL
C(AC)=000000 020000 
C(E)=000000 020000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034617 034617 0   0   404000035111 0            000000020000 
IT1	034617 0      0   0   404000035111 0            000000020000 
AT3	034617 0      0   0   000000035111 0            404000035111 
AT6	034617 035111 0   0   000000035111 0            404000035111 
FT0	034617 035111 0   0   000000020000 0            404000035111 
FT1A	034617 035111 0   0   000000020000 0            000000020000 
FT2	034617 035111 0   0   0            0            000000020000 
FT2RQ	034617 035111 0   0   000000020000 0            000000020000 
FT3	034617 035111 0   0   000000020000 0            000000020000 
FT9	034620 035111 0   0   000000020000 0            000000020000 
ET0	034620 035111 0   0   000000020000 0            000000020000 
ST1	034620 035111 0   0   000000020000 0            000000020000 
ST2	034620 035111 0   0   000000020000 0            000000020000 
ST9	034620 035111 0   0   000000020000 0            000000020000 


*034620 EQV 	0,035111
INITIAL
C(AC)=000000 020000 
C(E)=000000 020000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034620 034620 0   0   444000035111 0            000000020000 
IT1	034620 0      0   0   444000035111 0            000000020000 
AT3	034620 0      0   0   000000035111 0            444000035111 
AT6	034620 035111 0   0   000000035111 0            444000035111 
FT0	034620 035111 0   0   000000020000 0            444000035111 
FT1A	034620 035111 0   0   000000020000 0            000000020000 
FT2	034620 035111 0   0   0            0            000000020000 
FT2RQ	034620 035111 0   0   000000020000 0            000000020000 
FT3	034620 035111 0   0   000000020000 0            000000020000 
FT9	034621 035111 0   0   000000020000 0            000000020000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 673
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0889

ET0	034621 035111 0   0   777777777777 0            000000020000 
ST1	034621 035111 0   0   777777777777 0            000000020000 
ST2	034621 035111 0   0   777777777777 0            000000020000 
ST9	034621 035111 0   0   777777777777 0            000000020000 


*034621 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034621 034621 0   0   444000035062 0            0            
IT1	034621 0      0   0   444000035062 0            0            
AT3	034621 0      0   0   000000035062 0            444000035062 
AT6	034621 035062 0   0   000000035062 0            444000035062 
FT0	034621 035062 0   0   0            0            444000035062 
FT1A	034621 035062 0   0   0            0            0            
FT2	034621 035062 0   0   0            0            0            
FT2RQ	034621 035062 0   0   777777777777 0            0            
FT3	034621 035062 0   0   777777777777 0            0            
FT9	034622 035062 0   0   777777777777 0            0            
ET0	034622 035062 0   0   0            0            0            
ST1	034622 035062 0   0   0            0            0            
ST2	034622 035062 0   0   0            0            0            
ST9	034622 035062 0   0   0            0            0            


*034622 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	034622 034622 0   0   332000000000 0            0            
IT1	034622 0      0   0   332000000000 0            0            
AT3	034622 0      0   0   0            0            332000000000 
AT6	034622 0      0   0   0            0            332000000000 
FT0	034622 0      0   0   0            0            332000000000 
FT1A	034622 0      0   0   0            0            0            
FT9	034623 0      0   0   0            0            0            
ET0	034624 0      0   0   0            0            0            
ST1A	034624 0      0   0   0            0            0            
ST9	034624 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 674
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0890

*034624 JUMPA	0,034625
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034624 034624 0   0   324000034625 0            000000034625 
IT1	034624 0      0   0   324000034625 0            000000034625 
AT3	034624 0      0   0   000000034625 0            324000034625 
AT6	034624 034625 0   0   000000034625 0            324000034625 
FT1A	034624 034625 0   0   000000034625 0            000000034625 
FT2	034624 034625 0   0   0            0            000000034625 
FT2RQ	034624 034625 0   0   0            0            000000034625 
FT3	034624 034625 0   0   0            0            000000034625 
FT9	034625 034625 0   0   0            0            000000034625 
ET0	034625 034625 0   0   0            0            000000034625 
ST1A	034625 034625 0   0   0            0            000000034625 
ST9	034625 034625 0   0   0            0            000000034625 


*034625 MOVE 	0,035112
INITIAL
C(AC)=000000 000000 
C(E)=000000 040000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034625 034625 0   0   200000035112 0            000000040000 
IT1	034625 0      0   0   200000035112 0            000000040000 
AT3	034625 0      0   0   000000035112 0            200000035112 
AT6	034625 035112 0   0   000000035112 0            200000035112 
FT0	034625 035112 0   0   000000040000 0            200000035112 
FT1A	034625 035112 0   0   000000040000 0            000000040000 
FT9	034626 035112 0   0   000000040000 0            000000040000 
ET0	034626 035112 0   0   000000040000 0            000000040000 
ST1	034626 035112 0   0   000000040000 0            000000040000 
ST2	034626 035112 0   0   000000040000 0            000000040000 
ST9	034626 035112 0   0   000000040000 0            000000040000 


*034626 AND 	0,035112
INITIAL
C(AC)=000000 040000 
C(E)=000000 040000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034626 034626 0   0   404000035112 0            000000040000 
IT1	034626 0      0   0   404000035112 0            000000040000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 675
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0891

AT3	034626 0      0   0   000000035112 0            404000035112 
AT6	034626 035112 0   0   000000035112 0            404000035112 
FT0	034626 035112 0   0   000000040000 0            404000035112 
FT1A	034626 035112 0   0   000000040000 0            000000040000 
FT2	034626 035112 0   0   0            0            000000040000 
FT2RQ	034626 035112 0   0   000000040000 0            000000040000 
FT3	034626 035112 0   0   000000040000 0            000000040000 
FT9	034627 035112 0   0   000000040000 0            000000040000 
ET0	034627 035112 0   0   000000040000 0            000000040000 
ST1	034627 035112 0   0   000000040000 0            000000040000 
ST2	034627 035112 0   0   000000040000 0            000000040000 
ST9	034627 035112 0   0   000000040000 0            000000040000 


*034627 EQV 	0,035112
INITIAL
C(AC)=000000 040000 
C(E)=000000 040000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034627 034627 0   0   444000035112 0            000000040000 
IT1	034627 0      0   0   444000035112 0            000000040000 
AT3	034627 0      0   0   000000035112 0            444000035112 
AT6	034627 035112 0   0   000000035112 0            444000035112 
FT0	034627 035112 0   0   000000040000 0            444000035112 
FT1A	034627 035112 0   0   000000040000 0            000000040000 
FT2	034627 035112 0   0   0            0            000000040000 
FT2RQ	034627 035112 0   0   000000040000 0            000000040000 
FT3	034627 035112 0   0   000000040000 0            000000040000 
FT9	034630 035112 0   0   000000040000 0            000000040000 
ET0	034630 035112 0   0   777777777777 0            000000040000 
ST1	034630 035112 0   0   777777777777 0            000000040000 
ST2	034630 035112 0   0   777777777777 0            000000040000 
ST9	034630 035112 0   0   777777777777 0            000000040000 


*034630 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034630 034630 0   0   444000035062 0            0            
IT1	034630 0      0   0   444000035062 0            0            
AT3	034630 0      0   0   000000035062 0            444000035062 
AT6	034630 035062 0   0   000000035062 0            444000035062 
FT0	034630 035062 0   0   0            0            444000035062 
FT1A	034630 035062 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 676
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0892

FT2	034630 035062 0   0   0            0            0            
FT2RQ	034630 035062 0   0   777777777777 0            0            
FT3	034630 035062 0   0   777777777777 0            0            
FT9	034631 035062 0   0   777777777777 0            0            
ET0	034631 035062 0   0   0            0            0            
ST1	034631 035062 0   0   0            0            0            
ST2	034631 035062 0   0   0            0            0            
ST9	034631 035062 0   0   0            0            0            


*034631 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	034631 034631 0   0   332000000000 0            0            
IT1	034631 0      0   0   332000000000 0            0            
AT3	034631 0      0   0   0            0            332000000000 
AT6	034631 0      0   0   0            0            332000000000 
FT0	034631 0      0   0   0            0            332000000000 
FT1A	034631 0      0   0   0            0            0            
FT9	034632 0      0   0   0            0            0            
ET0	034633 0      0   0   0            0            0            
ST1A	034633 0      0   0   0            0            0            
ST9	034633 0      0   0   0            0            0            


*034633 JUMPA	0,034634
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034633 034633 0   0   324000034634 0            000000034634 
IT1	034633 0      0   0   324000034634 0            000000034634 
AT3	034633 0      0   0   000000034634 0            324000034634 
AT6	034633 034634 0   0   000000034634 0            324000034634 
FT1A	034633 034634 0   0   000000034634 0            000000034634 
FT2	034633 034634 0   0   0            0            000000034634 
FT2RQ	034633 034634 0   0   0            0            000000034634 
FT3	034633 034634 0   0   0            0            000000034634 
FT9	034634 034634 0   0   0            0            000000034634 
ET0	034634 034634 0   0   0            0            000000034634 
ST1A	034634 034634 0   0   0            0            000000034634 
ST9	034634 034634 0   0   0            0            000000034634 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 677
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0893

*034634 MOVE 	0,035113
INITIAL
C(AC)=000000 000000 
C(E)=000000 100000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034634 034634 0   0   200000035113 0            000000100000 
IT1	034634 0      0   0   200000035113 0            000000100000 
AT3	034634 0      0   0   000000035113 0            200000035113 
AT6	034634 035113 0   0   000000035113 0            200000035113 
FT0	034634 035113 0   0   000000100000 0            200000035113 
FT1A	034634 035113 0   0   000000100000 0            000000100000 
FT9	034635 035113 0   0   000000100000 0            000000100000 
ET0	034635 035113 0   0   000000100000 0            000000100000 
ST1	034635 035113 0   0   000000100000 0            000000100000 
ST2	034635 035113 0   0   000000100000 0            000000100000 
ST9	034635 035113 0   0   000000100000 0            000000100000 


*034635 AND 	0,035113
INITIAL
C(AC)=000000 100000 
C(E)=000000 100000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034635 034635 0   0   404000035113 0            000000100000 
IT1	034635 0      0   0   404000035113 0            000000100000 
AT3	034635 0      0   0   000000035113 0            404000035113 
AT6	034635 035113 0   0   000000035113 0            404000035113 
FT0	034635 035113 0   0   000000100000 0            404000035113 
FT1A	034635 035113 0   0   000000100000 0            000000100000 
FT2	034635 035113 0   0   0            0            000000100000 
FT2RQ	034635 035113 0   0   000000100000 0            000000100000 
FT3	034635 035113 0   0   000000100000 0            000000100000 
FT9	034636 035113 0   0   000000100000 0            000000100000 
ET0	034636 035113 0   0   000000100000 0            000000100000 
ST1	034636 035113 0   0   000000100000 0            000000100000 
ST2	034636 035113 0   0   000000100000 0            000000100000 
ST9	034636 035113 0   0   000000100000 0            000000100000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 678
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0894

*034636 EQV 	0,035113
INITIAL
C(AC)=000000 100000 
C(E)=000000 100000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034636 034636 0   0   444000035113 0            000000100000 
IT1	034636 0      0   0   444000035113 0            000000100000 
AT3	034636 0      0   0   000000035113 0            444000035113 
AT6	034636 035113 0   0   000000035113 0            444000035113 
FT0	034636 035113 0   0   000000100000 0            444000035113 
FT1A	034636 035113 0   0   000000100000 0            000000100000 
FT2	034636 035113 0   0   0            0            000000100000 
FT2RQ	034636 035113 0   0   000000100000 0            000000100000 
FT3	034636 035113 0   0   000000100000 0            000000100000 
FT9	034637 035113 0   0   000000100000 0            000000100000 
ET0	034637 035113 0   0   777777777777 0            000000100000 
ST1	034637 035113 0   0   777777777777 0            000000100000 
ST2	034637 035113 0   0   777777777777 0            000000100000 
ST9	034637 035113 0   0   777777777777 0            000000100000 


*034637 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034637 034637 0   0   444000035062 0            0            
IT1	034637 0      0   0   444000035062 0            0            
AT3	034637 0      0   0   000000035062 0            444000035062 
AT6	034637 035062 0   0   000000035062 0            444000035062 
FT0	034637 035062 0   0   0            0            444000035062 
FT1A	034637 035062 0   0   0            0            0            
FT2	034637 035062 0   0   0            0            0            
FT2RQ	034637 035062 0   0   777777777777 0            0            
FT3	034637 035062 0   0   777777777777 0            0            
FT9	034640 035062 0   0   777777777777 0            0            
ET0	034640 035062 0   0   0            0            0            
ST1	034640 035062 0   0   0            0            0            
ST2	034640 035062 0   0   0            0            0            
ST9	034640 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 679
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0895

*034640 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	034640 034640 0   0   332000000000 0            0            
IT1	034640 0      0   0   332000000000 0            0            
AT3	034640 0      0   0   0            0            332000000000 
AT6	034640 0      0   0   0            0            332000000000 
FT0	034640 0      0   0   0            0            332000000000 
FT1A	034640 0      0   0   0            0            0            
FT9	034641 0      0   0   0            0            0            
ET0	034642 0      0   0   0            0            0            
ST1A	034642 0      0   0   0            0            0            
ST9	034642 0      0   0   0            0            0            


*034642 JUMPA	0,034643
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034642 034642 0   0   324000034643 0            000000034643 
IT1	034642 0      0   0   324000034643 0            000000034643 
AT3	034642 0      0   0   000000034643 0            324000034643 
AT6	034642 034643 0   0   000000034643 0            324000034643 
FT1A	034642 034643 0   0   000000034643 0            000000034643 
FT2	034642 034643 0   0   0            0            000000034643 
FT2RQ	034642 034643 0   0   0            0            000000034643 
FT3	034642 034643 0   0   0            0            000000034643 
FT9	034643 034643 0   0   0            0            000000034643 
ET0	034643 034643 0   0   0            0            000000034643 
ST1A	034643 034643 0   0   0            0            000000034643 
ST9	034643 034643 0   0   0            0            000000034643 


*034643 MOVE 	0,035114
INITIAL
C(AC)=000000 000000 
C(E)=000000 200000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034643 034643 0   0   200000035114 0            000000200000 
IT1	034643 0      0   0   200000035114 0            000000200000 
AT3	034643 0      0   0   000000035114 0            200000035114 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 680
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0896

AT6	034643 035114 0   0   000000035114 0            200000035114 
FT0	034643 035114 0   0   000000200000 0            200000035114 
FT1A	034643 035114 0   0   000000200000 0            000000200000 
FT9	034644 035114 0   0   000000200000 0            000000200000 
ET0	034644 035114 0   0   000000200000 0            000000200000 
ST1	034644 035114 0   0   000000200000 0            000000200000 
ST2	034644 035114 0   0   000000200000 0            000000200000 
ST9	034644 035114 0   0   000000200000 0            000000200000 


*034644 AND 	0,035114
INITIAL
C(AC)=000000 200000 
C(E)=000000 200000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034644 034644 0   0   404000035114 0            000000200000 
IT1	034644 0      0   0   404000035114 0            000000200000 
AT3	034644 0      0   0   000000035114 0            404000035114 
AT6	034644 035114 0   0   000000035114 0            404000035114 
FT0	034644 035114 0   0   000000200000 0            404000035114 
FT1A	034644 035114 0   0   000000200000 0            000000200000 
FT2	034644 035114 0   0   0            0            000000200000 
FT2RQ	034644 035114 0   0   000000200000 0            000000200000 
FT3	034644 035114 0   0   000000200000 0            000000200000 
FT9	034645 035114 0   0   000000200000 0            000000200000 
ET0	034645 035114 0   0   000000200000 0            000000200000 
ST1	034645 035114 0   0   000000200000 0            000000200000 
ST2	034645 035114 0   0   000000200000 0            000000200000 
ST9	034645 035114 0   0   000000200000 0            000000200000 


*034645 EQV 	0,035114
INITIAL
C(AC)=000000 200000 
C(E)=000000 200000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034645 034645 0   0   444000035114 0            000000200000 
IT1	034645 0      0   0   444000035114 0            000000200000 
AT3	034645 0      0   0   000000035114 0            444000035114 
AT6	034645 035114 0   0   000000035114 0            444000035114 
FT0	034645 035114 0   0   000000200000 0            444000035114 
FT1A	034645 035114 0   0   000000200000 0            000000200000 
FT2	034645 035114 0   0   0            0            000000200000 
FT2RQ	034645 035114 0   0   000000200000 0            000000200000 
FT3	034645 035114 0   0   000000200000 0            000000200000 
FT9	034646 035114 0   0   000000200000 0            000000200000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 681
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0897

ET0	034646 035114 0   0   777777777777 0            000000200000 
ST1	034646 035114 0   0   777777777777 0            000000200000 
ST2	034646 035114 0   0   777777777777 0            000000200000 
ST9	034646 035114 0   0   777777777777 0            000000200000 


*034646 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034646 034646 0   0   444000035062 0            0            
IT1	034646 0      0   0   444000035062 0            0            
AT3	034646 0      0   0   000000035062 0            444000035062 
AT6	034646 035062 0   0   000000035062 0            444000035062 
FT0	034646 035062 0   0   0            0            444000035062 
FT1A	034646 035062 0   0   0            0            0            
FT2	034646 035062 0   0   0            0            0            
FT2RQ	034646 035062 0   0   777777777777 0            0            
FT3	034646 035062 0   0   777777777777 0            0            
FT9	034647 035062 0   0   777777777777 0            0            
ET0	034647 035062 0   0   0            0            0            
ST1	034647 035062 0   0   0            0            0            
ST2	034647 035062 0   0   0            0            0            
ST9	034647 035062 0   0   0            0            0            


*034647 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	034647 034647 0   0   332000000000 0            0            
IT1	034647 0      0   0   332000000000 0            0            
AT3	034647 0      0   0   0            0            332000000000 
AT6	034647 0      0   0   0            0            332000000000 
FT0	034647 0      0   0   0            0            332000000000 
FT1A	034647 0      0   0   0            0            0            
FT9	034650 0      0   0   0            0            0            
ET0	034651 0      0   0   0            0            0            
ST1A	034651 0      0   0   0            0            0            
ST9	034651 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 682
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0898

*034651 JUMPA	0,034652
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034651 034651 0   0   324000034652 0            000000034652 
IT1	034651 0      0   0   324000034652 0            000000034652 
AT3	034651 0      0   0   000000034652 0            324000034652 
AT6	034651 034652 0   0   000000034652 0            324000034652 
FT1A	034651 034652 0   0   000000034652 0            000000034652 
FT2	034651 034652 0   0   0            0            000000034652 
FT2RQ	034651 034652 0   0   0            0            000000034652 
FT3	034651 034652 0   0   0            0            000000034652 
FT9	034652 034652 0   0   0            0            000000034652 
ET0	034652 034652 0   0   0            0            000000034652 
ST1A	034652 034652 0   0   0            0            000000034652 
ST9	034652 034652 0   0   0            0            000000034652 


*034652 MOVE 	0,035115
INITIAL
C(AC)=000000 000000 
C(E)=000000 400000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034652 034652 0   0   200000035115 0            000000400000 
IT1	034652 0      0   0   200000035115 0            000000400000 
AT3	034652 0      0   0   000000035115 0            200000035115 
AT6	034652 035115 0   0   000000035115 0            200000035115 
FT0	034652 035115 0   0   000000400000 0            200000035115 
FT1A	034652 035115 0   0   000000400000 0            000000400000 
FT9	034653 035115 0   0   000000400000 0            000000400000 
ET0	034653 035115 0   0   000000400000 0            000000400000 
ST1	034653 035115 0   0   000000400000 0            000000400000 
ST2	034653 035115 0   0   000000400000 0            000000400000 
ST9	034653 035115 0   0   000000400000 0            000000400000 


*034653 AND 	0,035115
INITIAL
C(AC)=000000 400000 
C(E)=000000 400000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034653 034653 0   0   404000035115 0            000000400000 
IT1	034653 0      0   0   404000035115 0            000000400000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 683
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0899

AT3	034653 0      0   0   000000035115 0            404000035115 
AT6	034653 035115 0   0   000000035115 0            404000035115 
FT0	034653 035115 0   0   000000400000 0            404000035115 
FT1A	034653 035115 0   0   000000400000 0            000000400000 
FT2	034653 035115 0   0   0            0            000000400000 
FT2RQ	034653 035115 0   0   000000400000 0            000000400000 
FT3	034653 035115 0   0   000000400000 0            000000400000 
FT9	034654 035115 0   0   000000400000 0            000000400000 
ET0	034654 035115 0   0   000000400000 0            000000400000 
ST1	034654 035115 0   0   000000400000 0            000000400000 
ST2	034654 035115 0   0   000000400000 0            000000400000 
ST9	034654 035115 0   0   000000400000 0            000000400000 


*034654 EQV 	0,035115
INITIAL
C(AC)=000000 400000 
C(E)=000000 400000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034654 034654 0   0   444000035115 0            000000400000 
IT1	034654 0      0   0   444000035115 0            000000400000 
AT3	034654 0      0   0   000000035115 0            444000035115 
AT6	034654 035115 0   0   000000035115 0            444000035115 
FT0	034654 035115 0   0   000000400000 0            444000035115 
FT1A	034654 035115 0   0   000000400000 0            000000400000 
FT2	034654 035115 0   0   0            0            000000400000 
FT2RQ	034654 035115 0   0   000000400000 0            000000400000 
FT3	034654 035115 0   0   000000400000 0            000000400000 
FT9	034655 035115 0   0   000000400000 0            000000400000 
ET0	034655 035115 0   0   777777777777 0            000000400000 
ST1	034655 035115 0   0   777777777777 0            000000400000 
ST2	034655 035115 0   0   777777777777 0            000000400000 
ST9	034655 035115 0   0   777777777777 0            000000400000 


*034655 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034655 034655 0   0   444000035062 0            0            
IT1	034655 0      0   0   444000035062 0            0            
AT3	034655 0      0   0   000000035062 0            444000035062 
AT6	034655 035062 0   0   000000035062 0            444000035062 
FT0	034655 035062 0   0   0            0            444000035062 
FT1A	034655 035062 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 684
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0900

FT2	034655 035062 0   0   0            0            0            
FT2RQ	034655 035062 0   0   777777777777 0            0            
FT3	034655 035062 0   0   777777777777 0            0            
FT9	034656 035062 0   0   777777777777 0            0            
ET0	034656 035062 0   0   0            0            0            
ST1	034656 035062 0   0   0            0            0            
ST2	034656 035062 0   0   0            0            0            
ST9	034656 035062 0   0   0            0            0            


*034656 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	034656 034656 0   0   332000000000 0            0            
IT1	034656 0      0   0   332000000000 0            0            
AT3	034656 0      0   0   0            0            332000000000 
AT6	034656 0      0   0   0            0            332000000000 
FT0	034656 0      0   0   0            0            332000000000 
FT1A	034656 0      0   0   0            0            0            
FT9	034657 0      0   0   0            0            0            
ET0	034660 0      0   0   0            0            0            
ST1A	034660 0      0   0   0            0            0            
ST9	034660 0      0   0   0            0            0            


*034660 JUMPA	0,034661
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034660 034660 0   0   324000034661 0            000000034661 
IT1	034660 0      0   0   324000034661 0            000000034661 
AT3	034660 0      0   0   000000034661 0            324000034661 
AT6	034660 034661 0   0   000000034661 0            324000034661 
FT1A	034660 034661 0   0   000000034661 0            000000034661 
FT2	034660 034661 0   0   0            0            000000034661 
FT2RQ	034660 034661 0   0   0            0            000000034661 
FT3	034660 034661 0   0   0            0            000000034661 
FT9	034661 034661 0   0   0            0            000000034661 
ET0	034661 034661 0   0   0            0            000000034661 
ST1A	034661 034661 0   0   0            0            000000034661 
ST9	034661 034661 0   0   0            0            000000034661 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 685
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0901

*034661 MOVE 	0,035116
INITIAL
C(AC)=000000 000000 
C(E)=000001 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034661 034661 0   0   200000035116 0            000001000000 
IT1	034661 0      0   0   200000035116 0            000001000000 
AT3	034661 0      0   0   000000035116 0            200000035116 
AT6	034661 035116 0   0   000000035116 0            200000035116 
FT0	034661 035116 0   0   000001000000 0            200000035116 
FT1A	034661 035116 0   0   000001000000 0            000001000000 
FT9	034662 035116 0   0   000001000000 0            000001000000 
ET0	034662 035116 0   0   000001000000 0            000001000000 
ST1	034662 035116 0   0   000001000000 0            000001000000 
ST2	034662 035116 0   0   000001000000 0            000001000000 
ST9	034662 035116 0   0   000001000000 0            000001000000 


*034662 AND 	0,035116
INITIAL
C(AC)=000001 000000 
C(E)=000001 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034662 034662 0   0   404000035116 0            000001000000 
IT1	034662 0      0   0   404000035116 0            000001000000 
AT3	034662 0      0   0   000000035116 0            404000035116 
AT6	034662 035116 0   0   000000035116 0            404000035116 
FT0	034662 035116 0   0   000001000000 0            404000035116 
FT1A	034662 035116 0   0   000001000000 0            000001000000 
FT2	034662 035116 0   0   0            0            000001000000 
FT2RQ	034662 035116 0   0   000001000000 0            000001000000 
FT3	034662 035116 0   0   000001000000 0            000001000000 
FT9	034663 035116 0   0   000001000000 0            000001000000 
ET0	034663 035116 0   0   000001000000 0            000001000000 
ST1	034663 035116 0   0   000001000000 0            000001000000 
ST2	034663 035116 0   0   000001000000 0            000001000000 
ST9	034663 035116 0   0   000001000000 0            000001000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 686
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0902

*034663 EQV 	0,035116
INITIAL
C(AC)=000001 000000 
C(E)=000001 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034663 034663 0   0   444000035116 0            000001000000 
IT1	034663 0      0   0   444000035116 0            000001000000 
AT3	034663 0      0   0   000000035116 0            444000035116 
AT6	034663 035116 0   0   000000035116 0            444000035116 
FT0	034663 035116 0   0   000001000000 0            444000035116 
FT1A	034663 035116 0   0   000001000000 0            000001000000 
FT2	034663 035116 0   0   0            0            000001000000 
FT2RQ	034663 035116 0   0   000001000000 0            000001000000 
FT3	034663 035116 0   0   000001000000 0            000001000000 
FT9	034664 035116 0   0   000001000000 0            000001000000 
ET0	034664 035116 0   0   777777777777 0            000001000000 
ST1	034664 035116 0   0   777777777777 0            000001000000 
ST2	034664 035116 0   0   777777777777 0            000001000000 
ST9	034664 035116 0   0   777777777777 0            000001000000 


*034664 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034664 034664 0   0   444000035062 0            0            
IT1	034664 0      0   0   444000035062 0            0            
AT3	034664 0      0   0   000000035062 0            444000035062 
AT6	034664 035062 0   0   000000035062 0            444000035062 
FT0	034664 035062 0   0   0            0            444000035062 
FT1A	034664 035062 0   0   0            0            0            
FT2	034664 035062 0   0   0            0            0            
FT2RQ	034664 035062 0   0   777777777777 0            0            
FT3	034664 035062 0   0   777777777777 0            0            
FT9	034665 035062 0   0   777777777777 0            0            
ET0	034665 035062 0   0   0            0            0            
ST1	034665 035062 0   0   0            0            0            
ST2	034665 035062 0   0   0            0            0            
ST9	034665 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 687
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0903

*034665 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	034665 034665 0   0   332000000000 0            0            
IT1	034665 0      0   0   332000000000 0            0            
AT3	034665 0      0   0   0            0            332000000000 
AT6	034665 0      0   0   0            0            332000000000 
FT0	034665 0      0   0   0            0            332000000000 
FT1A	034665 0      0   0   0            0            0            
FT9	034666 0      0   0   0            0            0            
ET0	034667 0      0   0   0            0            0            
ST1A	034667 0      0   0   0            0            0            
ST9	034667 0      0   0   0            0            0            


*034667 JUMPA	0,034670
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034667 034667 0   0   324000034670 0            000000034670 
IT1	034667 0      0   0   324000034670 0            000000034670 
AT3	034667 0      0   0   000000034670 0            324000034670 
AT6	034667 034670 0   0   000000034670 0            324000034670 
FT1A	034667 034670 0   0   000000034670 0            000000034670 
FT2	034667 034670 0   0   0            0            000000034670 
FT2RQ	034667 034670 0   0   0            0            000000034670 
FT3	034667 034670 0   0   0            0            000000034670 
FT9	034670 034670 0   0   0            0            000000034670 
ET0	034670 034670 0   0   0            0            000000034670 
ST1A	034670 034670 0   0   0            0            000000034670 
ST9	034670 034670 0   0   0            0            000000034670 


*034670 MOVE 	0,035117
INITIAL
C(AC)=000000 000000 
C(E)=000002 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034670 034670 0   0   200000035117 0            000002000000 
IT1	034670 0      0   0   200000035117 0            000002000000 
AT3	034670 0      0   0   000000035117 0            200000035117 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 688
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0904

AT6	034670 035117 0   0   000000035117 0            200000035117 
FT0	034670 035117 0   0   000002000000 0            200000035117 
FT1A	034670 035117 0   0   000002000000 0            000002000000 
FT9	034671 035117 0   0   000002000000 0            000002000000 
ET0	034671 035117 0   0   000002000000 0            000002000000 
ST1	034671 035117 0   0   000002000000 0            000002000000 
ST2	034671 035117 0   0   000002000000 0            000002000000 
ST9	034671 035117 0   0   000002000000 0            000002000000 


*034671 AND 	0,035117
INITIAL
C(AC)=000002 000000 
C(E)=000002 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034671 034671 0   0   404000035117 0            000002000000 
IT1	034671 0      0   0   404000035117 0            000002000000 
AT3	034671 0      0   0   000000035117 0            404000035117 
AT6	034671 035117 0   0   000000035117 0            404000035117 
FT0	034671 035117 0   0   000002000000 0            404000035117 
FT1A	034671 035117 0   0   000002000000 0            000002000000 
FT2	034671 035117 0   0   0            0            000002000000 
FT2RQ	034671 035117 0   0   000002000000 0            000002000000 
FT3	034671 035117 0   0   000002000000 0            000002000000 
FT9	034672 035117 0   0   000002000000 0            000002000000 
ET0	034672 035117 0   0   000002000000 0            000002000000 
ST1	034672 035117 0   0   000002000000 0            000002000000 
ST2	034672 035117 0   0   000002000000 0            000002000000 
ST9	034672 035117 0   0   000002000000 0            000002000000 


*034672 EQV 	0,035117
INITIAL
C(AC)=000002 000000 
C(E)=000002 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034672 034672 0   0   444000035117 0            000002000000 
IT1	034672 0      0   0   444000035117 0            000002000000 
AT3	034672 0      0   0   000000035117 0            444000035117 
AT6	034672 035117 0   0   000000035117 0            444000035117 
FT0	034672 035117 0   0   000002000000 0            444000035117 
FT1A	034672 035117 0   0   000002000000 0            000002000000 
FT2	034672 035117 0   0   0            0            000002000000 
FT2RQ	034672 035117 0   0   000002000000 0            000002000000 
FT3	034672 035117 0   0   000002000000 0            000002000000 
FT9	034673 035117 0   0   000002000000 0            000002000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 689
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0905

ET0	034673 035117 0   0   777777777777 0            000002000000 
ST1	034673 035117 0   0   777777777777 0            000002000000 
ST2	034673 035117 0   0   777777777777 0            000002000000 
ST9	034673 035117 0   0   777777777777 0            000002000000 


*034673 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034673 034673 0   0   444000035062 0            0            
IT1	034673 0      0   0   444000035062 0            0            
AT3	034673 0      0   0   000000035062 0            444000035062 
AT6	034673 035062 0   0   000000035062 0            444000035062 
FT0	034673 035062 0   0   0            0            444000035062 
FT1A	034673 035062 0   0   0            0            0            
FT2	034673 035062 0   0   0            0            0            
FT2RQ	034673 035062 0   0   777777777777 0            0            
FT3	034673 035062 0   0   777777777777 0            0            
FT9	034674 035062 0   0   777777777777 0            0            
ET0	034674 035062 0   0   0            0            0            
ST1	034674 035062 0   0   0            0            0            
ST2	034674 035062 0   0   0            0            0            
ST9	034674 035062 0   0   0            0            0            


*034674 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	034674 034674 0   0   332000000000 0            0            
IT1	034674 0      0   0   332000000000 0            0            
AT3	034674 0      0   0   0            0            332000000000 
AT6	034674 0      0   0   0            0            332000000000 
FT0	034674 0      0   0   0            0            332000000000 
FT1A	034674 0      0   0   0            0            0            
FT9	034675 0      0   0   0            0            0            
ET0	034676 0      0   0   0            0            0            
ST1A	034676 0      0   0   0            0            0            
ST9	034676 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 690
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0906

*034676 JUMPA	0,034677
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034676 034676 0   0   324000034677 0            000000034677 
IT1	034676 0      0   0   324000034677 0            000000034677 
AT3	034676 0      0   0   000000034677 0            324000034677 
AT6	034676 034677 0   0   000000034677 0            324000034677 
FT1A	034676 034677 0   0   000000034677 0            000000034677 
FT2	034676 034677 0   0   0            0            000000034677 
FT2RQ	034676 034677 0   0   0            0            000000034677 
FT3	034676 034677 0   0   0            0            000000034677 
FT9	034677 034677 0   0   0            0            000000034677 
ET0	034677 034677 0   0   0            0            000000034677 
ST1A	034677 034677 0   0   0            0            000000034677 
ST9	034677 034677 0   0   0            0            000000034677 


*034677 MOVE 	0,035120
INITIAL
C(AC)=000000 000000 
C(E)=000004 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034677 034677 0   0   200000035120 0            000004000000 
IT1	034677 0      0   0   200000035120 0            000004000000 
AT3	034677 0      0   0   000000035120 0            200000035120 
AT6	034677 035120 0   0   000000035120 0            200000035120 
FT0	034677 035120 0   0   000004000000 0            200000035120 
FT1A	034677 035120 0   0   000004000000 0            000004000000 
FT9	0      035120 0   0   000004000000 0            000004000000 
ET0	0      035120 0   0   000004000000 0            000004000000 
ST1	0      035120 0   0   000004000000 0            000004000000 
ST2	0      035120 0   0   000004000000 0            000004000000 
ST9	0      035120 0   0   000004000000 0            000004000000 


*034700 AND 	0,035120
INITIAL
C(AC)=000004 000000 
C(E)=000004 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   404000035120 0            000004000000 
IT1	0      0      0   0   404000035120 0            000004000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 691
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0907

AT3	0      0      0   0   000000035120 0            404000035120 
AT6	0      035120 0   0   000000035120 0            404000035120 
FT0	0      035120 0   0   000004000000 0            404000035120 
FT1A	0      035120 0   0   000004000000 0            000004000000 
FT2	0      035120 0   0   0            0            000004000000 
FT2RQ	0      035120 0   0   000004000000 0            000004000000 
FT3	0      035120 0   0   000004000000 0            000004000000 
FT9	034701 035120 0   0   000004000000 0            000004000000 
ET0	034701 035120 0   0   000004000000 0            000004000000 
ST1	034701 035120 0   0   000004000000 0            000004000000 
ST2	034701 035120 0   0   000004000000 0            000004000000 
ST9	034701 035120 0   0   000004000000 0            000004000000 


*034701 EQV 	0,035120
INITIAL
C(AC)=000004 000000 
C(E)=000004 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034701 034701 0   0   444000035120 0            000004000000 
IT1	034701 0      0   0   444000035120 0            000004000000 
AT3	034701 0      0   0   000000035120 0            444000035120 
AT6	034701 035120 0   0   000000035120 0            444000035120 
FT0	034701 035120 0   0   000004000000 0            444000035120 
FT1A	034701 035120 0   0   000004000000 0            000004000000 
FT2	034701 035120 0   0   0            0            000004000000 
FT2RQ	034701 035120 0   0   000004000000 0            000004000000 
FT3	034701 035120 0   0   000004000000 0            000004000000 
FT9	034702 035120 0   0   000004000000 0            000004000000 
ET0	034702 035120 0   0   777777777777 0            000004000000 
ST1	034702 035120 0   0   777777777777 0            000004000000 
ST2	034702 035120 0   0   777777777777 0            000004000000 
ST9	034702 035120 0   0   777777777777 0            000004000000 


*034702 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034702 034702 0   0   444000035062 0            0            
IT1	034702 0      0   0   444000035062 0            0            
AT3	034702 0      0   0   000000035062 0            444000035062 
AT6	034702 035062 0   0   000000035062 0            444000035062 
FT0	034702 035062 0   0   0            0            444000035062 
FT1A	034702 035062 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 692
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0908

FT2	034702 035062 0   0   0            0            0            
FT2RQ	034702 035062 0   0   777777777777 0            0            
FT3	034702 035062 0   0   777777777777 0            0            
FT9	034703 035062 0   0   777777777777 0            0            
ET0	034703 035062 0   0   0            0            0            
ST1	034703 035062 0   0   0            0            0            
ST2	034703 035062 0   0   0            0            0            
ST9	034703 035062 0   0   0            0            0            


*034703 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	034703 034703 0   0   332000000000 0            0            
IT1	034703 0      0   0   332000000000 0            0            
AT3	034703 0      0   0   0            0            332000000000 
AT6	034703 0      0   0   0            0            332000000000 
FT0	034703 0      0   0   0            0            332000000000 
FT1A	034703 0      0   0   0            0            0            
FT9	034704 0      0   0   0            0            0            
ET0	034705 0      0   0   0            0            0            
ST1A	034705 0      0   0   0            0            0            
ST9	034705 0      0   0   0            0            0            


*034705 JUMPA	0,034706
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034705 034705 0   0   324000034706 0            000000034706 
IT1	034705 0      0   0   324000034706 0            000000034706 
AT3	034705 0      0   0   000000034706 0            324000034706 
AT6	034705 034706 0   0   000000034706 0            324000034706 
FT1A	034705 034706 0   0   000000034706 0            000000034706 
FT2	034705 034706 0   0   0            0            000000034706 
FT2RQ	034705 034706 0   0   0            0            000000034706 
FT3	034705 034706 0   0   0            0            000000034706 
FT9	034706 034706 0   0   0            0            000000034706 
ET0	034706 034706 0   0   0            0            000000034706 
ST1A	034706 034706 0   0   0            0            000000034706 
ST9	034706 034706 0   0   0            0            000000034706 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 693
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0909

*034706 MOVE 	0,035121
INITIAL
C(AC)=000000 000000 
C(E)=000010 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034706 034706 0   0   200000035121 0            000010000000 
IT1	034706 0      0   0   200000035121 0            000010000000 
AT3	034706 0      0   0   000000035121 0            200000035121 
AT6	034706 035121 0   0   000000035121 0            200000035121 
FT0	034706 035121 0   0   000010000000 0            200000035121 
FT1A	034706 035121 0   0   000010000000 0            000010000000 
FT9	034707 035121 0   0   000010000000 0            000010000000 
ET0	034707 035121 0   0   000010000000 0            000010000000 
ST1	034707 035121 0   0   000010000000 0            000010000000 
ST2	034707 035121 0   0   000010000000 0            000010000000 
ST9	034707 035121 0   0   000010000000 0            000010000000 


*034707 AND 	0,035121
INITIAL
C(AC)=000010 000000 
C(E)=000010 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034707 034707 0   0   404000035121 0            000010000000 
IT1	034707 0      0   0   404000035121 0            000010000000 
AT3	034707 0      0   0   000000035121 0            404000035121 
AT6	034707 035121 0   0   000000035121 0            404000035121 
FT0	034707 035121 0   0   000010000000 0            404000035121 
FT1A	034707 035121 0   0   000010000000 0            000010000000 
FT2	034707 035121 0   0   0            0            000010000000 
FT2RQ	034707 035121 0   0   000010000000 0            000010000000 
FT3	034707 035121 0   0   000010000000 0            000010000000 
FT9	034710 035121 0   0   000010000000 0            000010000000 
ET0	034710 035121 0   0   000010000000 0            000010000000 
ST1	034710 035121 0   0   000010000000 0            000010000000 
ST2	034710 035121 0   0   000010000000 0            000010000000 
ST9	034710 035121 0   0   000010000000 0            000010000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 694
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0910

*034710 EQV 	0,035121
INITIAL
C(AC)=000010 000000 
C(E)=000010 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034710 034710 0   0   444000035121 0            000010000000 
IT1	034710 0      0   0   444000035121 0            000010000000 
AT3	034710 0      0   0   000000035121 0            444000035121 
AT6	034710 035121 0   0   000000035121 0            444000035121 
FT0	034710 035121 0   0   000010000000 0            444000035121 
FT1A	034710 035121 0   0   000010000000 0            000010000000 
FT2	034710 035121 0   0   0            0            000010000000 
FT2RQ	034710 035121 0   0   000010000000 0            000010000000 
FT3	034710 035121 0   0   000010000000 0            000010000000 
FT9	034711 035121 0   0   000010000000 0            000010000000 
ET0	034711 035121 0   0   777777777777 0            000010000000 
ST1	034711 035121 0   0   777777777777 0            000010000000 
ST2	034711 035121 0   0   777777777777 0            000010000000 
ST9	034711 035121 0   0   777777777777 0            000010000000 


*034711 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034711 034711 0   0   444000035062 0            0            
IT1	034711 0      0   0   444000035062 0            0            
AT3	034711 0      0   0   000000035062 0            444000035062 
AT6	034711 035062 0   0   000000035062 0            444000035062 
FT0	034711 035062 0   0   0            0            444000035062 
FT1A	034711 035062 0   0   0            0            0            
FT2	034711 035062 0   0   0            0            0            
FT2RQ	034711 035062 0   0   777777777777 0            0            
FT3	034711 035062 0   0   777777777777 0            0            
FT9	034712 035062 0   0   777777777777 0            0            
ET0	034712 035062 0   0   0            0            0            
ST1	034712 035062 0   0   0            0            0            
ST2	034712 035062 0   0   0            0            0            
ST9	034712 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 695
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0911

*034712 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	034712 034712 0   0   332000000000 0            0            
IT1	034712 0      0   0   332000000000 0            0            
AT3	034712 0      0   0   0            0            332000000000 
AT6	034712 0      0   0   0            0            332000000000 
FT0	034712 0      0   0   0            0            332000000000 
FT1A	034712 0      0   0   0            0            0            
FT9	034713 0      0   0   0            0            0            
ET0	034714 0      0   0   0            0            0            
ST1A	034714 0      0   0   0            0            0            
ST9	034714 0      0   0   0            0            0            


*034714 JUMPA	0,034715
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034714 034714 0   0   324000034715 0            000000034715 
IT1	034714 0      0   0   324000034715 0            000000034715 
AT3	034714 0      0   0   000000034715 0            324000034715 
AT6	034714 034715 0   0   000000034715 0            324000034715 
FT1A	034714 034715 0   0   000000034715 0            000000034715 
FT2	034714 034715 0   0   0            0            000000034715 
FT2RQ	034714 034715 0   0   0            0            000000034715 
FT3	034714 034715 0   0   0            0            000000034715 
FT9	034715 034715 0   0   0            0            000000034715 
ET0	034715 034715 0   0   0            0            000000034715 
ST1A	034715 034715 0   0   0            0            000000034715 
ST9	034715 034715 0   0   0            0            000000034715 


*034715 MOVE 	0,035122
INITIAL
C(AC)=000000 000000 
C(E)=000020 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034715 034715 0   0   200000035122 0            000020000000 
IT1	034715 0      0   0   200000035122 0            000020000000 
AT3	034715 0      0   0   000000035122 0            200000035122 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 696
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0912

AT6	034715 035122 0   0   000000035122 0            200000035122 
FT0	034715 035122 0   0   000020000000 0            200000035122 
FT1A	034715 035122 0   0   000020000000 0            000020000000 
FT9	034716 035122 0   0   000020000000 0            000020000000 
ET0	034716 035122 0   0   000020000000 0            000020000000 
ST1	034716 035122 0   0   000020000000 0            000020000000 
ST2	034716 035122 0   0   000020000000 0            000020000000 
ST9	034716 035122 0   0   000020000000 0            000020000000 


*034716 AND 	0,035122
INITIAL
C(AC)=000020 000000 
C(E)=000020 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034716 034716 0   0   404000035122 0            000020000000 
IT1	034716 0      0   0   404000035122 0            000020000000 
AT3	034716 0      0   0   000000035122 0            404000035122 
AT6	034716 035122 0   0   000000035122 0            404000035122 
FT0	034716 035122 0   0   000020000000 0            404000035122 
FT1A	034716 035122 0   0   000020000000 0            000020000000 
FT2	034716 035122 0   0   0            0            000020000000 
FT2RQ	034716 035122 0   0   000020000000 0            000020000000 
FT3	034716 035122 0   0   000020000000 0            000020000000 
FT9	034717 035122 0   0   000020000000 0            000020000000 
ET0	034717 035122 0   0   000020000000 0            000020000000 
ST1	034717 035122 0   0   000020000000 0            000020000000 
ST2	034717 035122 0   0   000020000000 0            000020000000 
ST9	034717 035122 0   0   000020000000 0            000020000000 


*034717 EQV 	0,035122
INITIAL
C(AC)=000020 000000 
C(E)=000020 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034717 034717 0   0   444000035122 0            000020000000 
IT1	034717 0      0   0   444000035122 0            000020000000 
AT3	034717 0      0   0   000000035122 0            444000035122 
AT6	034717 035122 0   0   000000035122 0            444000035122 
FT0	034717 035122 0   0   000020000000 0            444000035122 
FT1A	034717 035122 0   0   000020000000 0            000020000000 
FT2	034717 035122 0   0   0            0            000020000000 
FT2RQ	034717 035122 0   0   000020000000 0            000020000000 
FT3	034717 035122 0   0   000020000000 0            000020000000 
FT9	034720 035122 0   0   000020000000 0            000020000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 697
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0913

ET0	034720 035122 0   0   777777777777 0            000020000000 
ST1	034720 035122 0   0   777777777777 0            000020000000 
ST2	034720 035122 0   0   777777777777 0            000020000000 
ST9	034720 035122 0   0   777777777777 0            000020000000 


*034720 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034720 034720 0   0   444000035062 0            0            
IT1	034720 0      0   0   444000035062 0            0            
AT3	034720 0      0   0   000000035062 0            444000035062 
AT6	034720 035062 0   0   000000035062 0            444000035062 
FT0	034720 035062 0   0   0            0            444000035062 
FT1A	034720 035062 0   0   0            0            0            
FT2	034720 035062 0   0   0            0            0            
FT2RQ	034720 035062 0   0   777777777777 0            0            
FT3	034720 035062 0   0   777777777777 0            0            
FT9	034721 035062 0   0   777777777777 0            0            
ET0	034721 035062 0   0   0            0            0            
ST1	034721 035062 0   0   0            0            0            
ST2	034721 035062 0   0   0            0            0            
ST9	034721 035062 0   0   0            0            0            


*034721 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	034721 034721 0   0   332000000000 0            0            
IT1	034721 0      0   0   332000000000 0            0            
AT3	034721 0      0   0   0            0            332000000000 
AT6	034721 0      0   0   0            0            332000000000 
FT0	034721 0      0   0   0            0            332000000000 
FT1A	034721 0      0   0   0            0            0            
FT9	034722 0      0   0   0            0            0            
ET0	034723 0      0   0   0            0            0            
ST1A	034723 0      0   0   0            0            0            
ST9	034723 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 698
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0914

*034723 JUMPA	0,034724
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034723 034723 0   0   324000034724 0            000000034724 
IT1	034723 0      0   0   324000034724 0            000000034724 
AT3	034723 0      0   0   000000034724 0            324000034724 
AT6	034723 034724 0   0   000000034724 0            324000034724 
FT1A	034723 034724 0   0   000000034724 0            000000034724 
FT2	034723 034724 0   0   0            0            000000034724 
FT2RQ	034723 034724 0   0   0            0            000000034724 
FT3	034723 034724 0   0   0            0            000000034724 
FT9	034724 034724 0   0   0            0            000000034724 
ET0	034724 034724 0   0   0            0            000000034724 
ST1A	034724 034724 0   0   0            0            000000034724 
ST9	034724 034724 0   0   0            0            000000034724 


*034724 MOVE 	0,035123
INITIAL
C(AC)=000000 000000 
C(E)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034724 034724 0   0   200000035123 0            000040000000 
IT1	034724 0      0   0   200000035123 0            000040000000 
AT3	034724 0      0   0   000000035123 0            200000035123 
AT6	034724 035123 0   0   000000035123 0            200000035123 
FT0	034724 035123 0   0   000040000000 0            200000035123 
FT1A	034724 035123 0   0   000040000000 0            000040000000 
FT9	034725 035123 0   0   000040000000 0            000040000000 
ET0	034725 035123 0   0   000040000000 0            000040000000 
ST1	034725 035123 0   0   000040000000 0            000040000000 
ST2	034725 035123 0   0   000040000000 0            000040000000 
ST9	034725 035123 0   0   000040000000 0            000040000000 


*034725 AND 	0,035123
INITIAL
C(AC)=000040 000000 
C(E)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034725 034725 0   0   404000035123 0            000040000000 
IT1	034725 0      0   0   404000035123 0            000040000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 699
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0915

AT3	034725 0      0   0   000000035123 0            404000035123 
AT6	034725 035123 0   0   000000035123 0            404000035123 
FT0	034725 035123 0   0   000040000000 0            404000035123 
FT1A	034725 035123 0   0   000040000000 0            000040000000 
FT2	034725 035123 0   0   0            0            000040000000 
FT2RQ	034725 035123 0   0   000040000000 0            000040000000 
FT3	034725 035123 0   0   000040000000 0            000040000000 
FT9	034726 035123 0   0   000040000000 0            000040000000 
ET0	034726 035123 0   0   000040000000 0            000040000000 
ST1	034726 035123 0   0   000040000000 0            000040000000 
ST2	034726 035123 0   0   000040000000 0            000040000000 
ST9	034726 035123 0   0   000040000000 0            000040000000 


*034726 EQV 	0,035123
INITIAL
C(AC)=000040 000000 
C(E)=000040 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034726 034726 0   0   444000035123 0            000040000000 
IT1	034726 0      0   0   444000035123 0            000040000000 
AT3	034726 0      0   0   000000035123 0            444000035123 
AT6	034726 035123 0   0   000000035123 0            444000035123 
FT0	034726 035123 0   0   000040000000 0            444000035123 
FT1A	034726 035123 0   0   000040000000 0            000040000000 
FT2	034726 035123 0   0   0            0            000040000000 
FT2RQ	034726 035123 0   0   000040000000 0            000040000000 
FT3	034726 035123 0   0   000040000000 0            000040000000 
FT9	034727 035123 0   0   000040000000 0            000040000000 
ET0	034727 035123 0   0   777777777777 0            000040000000 
ST1	034727 035123 0   0   777777777777 0            000040000000 
ST2	034727 035123 0   0   777777777777 0            000040000000 
ST9	034727 035123 0   0   777777777777 0            000040000000 


*034727 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034727 034727 0   0   444000035062 0            0            
IT1	034727 0      0   0   444000035062 0            0            
AT3	034727 0      0   0   000000035062 0            444000035062 
AT6	034727 035062 0   0   000000035062 0            444000035062 
FT0	034727 035062 0   0   0            0            444000035062 
FT1A	034727 035062 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 700
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0916

FT2	034727 035062 0   0   0            0            0            
FT2RQ	034727 035062 0   0   777777777777 0            0            
FT3	034727 035062 0   0   777777777777 0            0            
FT9	034730 035062 0   0   777777777777 0            0            
ET0	034730 035062 0   0   0            0            0            
ST1	034730 035062 0   0   0            0            0            
ST2	034730 035062 0   0   0            0            0            
ST9	034730 035062 0   0   0            0            0            


*034730 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	034730 034730 0   0   332000000000 0            0            
IT1	034730 0      0   0   332000000000 0            0            
AT3	034730 0      0   0   0            0            332000000000 
AT6	034730 0      0   0   0            0            332000000000 
FT0	034730 0      0   0   0            0            332000000000 
FT1A	034730 0      0   0   0            0            0            
FT9	034731 0      0   0   0            0            0            
ET0	034732 0      0   0   0            0            0            
ST1A	034732 0      0   0   0            0            0            
ST9	034732 0      0   0   0            0            0            


*034732 JUMPA	0,034733
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034732 034732 0   0   324000034733 0            000000034733 
IT1	034732 0      0   0   324000034733 0            000000034733 
AT3	034732 0      0   0   000000034733 0            324000034733 
AT6	034732 034733 0   0   000000034733 0            324000034733 
FT1A	034732 034733 0   0   000000034733 0            000000034733 
FT2	034732 034733 0   0   0            0            000000034733 
FT2RQ	034732 034733 0   0   0            0            000000034733 
FT3	034732 034733 0   0   0            0            000000034733 
FT9	034733 034733 0   0   0            0            000000034733 
ET0	034733 034733 0   0   0            0            000000034733 
ST1A	034733 034733 0   0   0            0            000000034733 
ST9	034733 034733 0   0   0            0            000000034733 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 701
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0917

*034733 MOVE 	0,035124
INITIAL
C(AC)=000000 000000 
C(E)=000100 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034733 034733 0   0   200000035124 0            000100000000 
IT1	034733 0      0   0   200000035124 0            000100000000 
AT3	034733 0      0   0   000000035124 0            200000035124 
AT6	034733 035124 0   0   000000035124 0            200000035124 
FT0	034733 035124 0   0   000100000000 0            200000035124 
FT1A	034733 035124 0   0   000100000000 0            000100000000 
FT9	034734 035124 0   0   000100000000 0            000100000000 
ET0	034734 035124 0   0   000100000000 0            000100000000 
ST1	034734 035124 0   0   000100000000 0            000100000000 
ST2	034734 035124 0   0   000100000000 0            000100000000 
ST9	034734 035124 0   0   000100000000 0            000100000000 


*034734 AND 	0,035124
INITIAL
C(AC)=000100 000000 
C(E)=000100 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034734 034734 0   0   404000035124 0            000100000000 
IT1	034734 0      0   0   404000035124 0            000100000000 
AT3	034734 0      0   0   000000035124 0            404000035124 
AT6	034734 035124 0   0   000000035124 0            404000035124 
FT0	034734 035124 0   0   000100000000 0            404000035124 
FT1A	034734 035124 0   0   000100000000 0            000100000000 
FT2	034734 035124 0   0   0            0            000100000000 
FT2RQ	034734 035124 0   0   000100000000 0            000100000000 
FT3	034734 035124 0   0   000100000000 0            000100000000 
FT9	034735 035124 0   0   000100000000 0            000100000000 
ET0	034735 035124 0   0   000100000000 0            000100000000 
ST1	034735 035124 0   0   000100000000 0            000100000000 
ST2	034735 035124 0   0   000100000000 0            000100000000 
ST9	034735 035124 0   0   000100000000 0            000100000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 702
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0918

*034735 EQV 	0,035124
INITIAL
C(AC)=000100 000000 
C(E)=000100 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034735 034735 0   0   444000035124 0            000100000000 
IT1	034735 0      0   0   444000035124 0            000100000000 
AT3	034735 0      0   0   000000035124 0            444000035124 
AT6	034735 035124 0   0   000000035124 0            444000035124 
FT0	034735 035124 0   0   000100000000 0            444000035124 
FT1A	034735 035124 0   0   000100000000 0            000100000000 
FT2	034735 035124 0   0   0            0            000100000000 
FT2RQ	034735 035124 0   0   000100000000 0            000100000000 
FT3	034735 035124 0   0   000100000000 0            000100000000 
FT9	034736 035124 0   0   000100000000 0            000100000000 
ET0	034736 035124 0   0   777777777777 0            000100000000 
ST1	034736 035124 0   0   777777777777 0            000100000000 
ST2	034736 035124 0   0   777777777777 0            000100000000 
ST9	034736 035124 0   0   777777777777 0            000100000000 


*034736 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034736 034736 0   0   444000035062 0            0            
IT1	034736 0      0   0   444000035062 0            0            
AT3	034736 0      0   0   000000035062 0            444000035062 
AT6	034736 035062 0   0   000000035062 0            444000035062 
FT0	034736 035062 0   0   0            0            444000035062 
FT1A	034736 035062 0   0   0            0            0            
FT2	034736 035062 0   0   0            0            0            
FT2RQ	034736 035062 0   0   777777777777 0            0            
FT3	034736 035062 0   0   777777777777 0            0            
FT9	034737 035062 0   0   777777777777 0            0            
ET0	034737 035062 0   0   0            0            0            
ST1	034737 035062 0   0   0            0            0            
ST2	034737 035062 0   0   0            0            0            
ST9	034737 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 703
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0919

*034737 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	034737 034737 0   0   332000000000 0            0            
IT1	034737 0      0   0   332000000000 0            0            
AT3	034737 0      0   0   0            0            332000000000 
AT6	034737 0      0   0   0            0            332000000000 
FT0	034737 0      0   0   0            0            332000000000 
FT1A	034737 0      0   0   0            0            0            
FT9	034740 0      0   0   0            0            0            
ET0	034741 0      0   0   0            0            0            
ST1A	034741 0      0   0   0            0            0            
ST9	034741 0      0   0   0            0            0            


*034741 JUMPA	0,034742
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034741 034741 0   0   324000034742 0            000000034742 
IT1	034741 0      0   0   324000034742 0            000000034742 
AT3	034741 0      0   0   000000034742 0            324000034742 
AT6	034741 034742 0   0   000000034742 0            324000034742 
FT1A	034741 034742 0   0   000000034742 0            000000034742 
FT2	034741 034742 0   0   0            0            000000034742 
FT2RQ	034741 034742 0   0   0            0            000000034742 
FT3	034741 034742 0   0   0            0            000000034742 
FT9	034742 034742 0   0   0            0            000000034742 
ET0	034742 034742 0   0   0            0            000000034742 
ST1A	034742 034742 0   0   0            0            000000034742 
ST9	034742 034742 0   0   0            0            000000034742 


*034742 MOVE 	0,035125
INITIAL
C(AC)=000000 000000 
C(E)=000200 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034742 034742 0   0   200000035125 0            000200000000 
IT1	034742 0      0   0   200000035125 0            000200000000 
AT3	034742 0      0   0   000000035125 0            200000035125 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 704
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0920

AT6	034742 035125 0   0   000000035125 0            200000035125 
FT0	034742 035125 0   0   000200000000 0            200000035125 
FT1A	034742 035125 0   0   000200000000 0            000200000000 
FT9	034743 035125 0   0   000200000000 0            000200000000 
ET0	034743 035125 0   0   000200000000 0            000200000000 
ST1	034743 035125 0   0   000200000000 0            000200000000 
ST2	034743 035125 0   0   000200000000 0            000200000000 
ST9	034743 035125 0   0   000200000000 0            000200000000 


*034743 AND 	0,035125
INITIAL
C(AC)=000200 000000 
C(E)=000200 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034743 034743 0   0   404000035125 0            000200000000 
IT1	034743 0      0   0   404000035125 0            000200000000 
AT3	034743 0      0   0   000000035125 0            404000035125 
AT6	034743 035125 0   0   000000035125 0            404000035125 
FT0	034743 035125 0   0   000200000000 0            404000035125 
FT1A	034743 035125 0   0   000200000000 0            000200000000 
FT2	034743 035125 0   0   0            0            000200000000 
FT2RQ	034743 035125 0   0   000200000000 0            000200000000 
FT3	034743 035125 0   0   000200000000 0            000200000000 
FT9	034744 035125 0   0   000200000000 0            000200000000 
ET0	034744 035125 0   0   000200000000 0            000200000000 
ST1	034744 035125 0   0   000200000000 0            000200000000 
ST2	034744 035125 0   0   000200000000 0            000200000000 
ST9	034744 035125 0   0   000200000000 0            000200000000 


*034744 EQV 	0,035125
INITIAL
C(AC)=000200 000000 
C(E)=000200 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034744 034744 0   0   444000035125 0            000200000000 
IT1	034744 0      0   0   444000035125 0            000200000000 
AT3	034744 0      0   0   000000035125 0            444000035125 
AT6	034744 035125 0   0   000000035125 0            444000035125 
FT0	034744 035125 0   0   000200000000 0            444000035125 
FT1A	034744 035125 0   0   000200000000 0            000200000000 
FT2	034744 035125 0   0   0            0            000200000000 
FT2RQ	034744 035125 0   0   000200000000 0            000200000000 
FT3	034744 035125 0   0   000200000000 0            000200000000 
FT9	034745 035125 0   0   000200000000 0            000200000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 705
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0921

ET0	034745 035125 0   0   777777777777 0            000200000000 
ST1	034745 035125 0   0   777777777777 0            000200000000 
ST2	034745 035125 0   0   777777777777 0            000200000000 
ST9	034745 035125 0   0   777777777777 0            000200000000 


*034745 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034745 034745 0   0   444000035062 0            0            
IT1	034745 0      0   0   444000035062 0            0            
AT3	034745 0      0   0   000000035062 0            444000035062 
AT6	034745 035062 0   0   000000035062 0            444000035062 
FT0	034745 035062 0   0   0            0            444000035062 
FT1A	034745 035062 0   0   0            0            0            
FT2	034745 035062 0   0   0            0            0            
FT2RQ	034745 035062 0   0   777777777777 0            0            
FT3	034745 035062 0   0   777777777777 0            0            
FT9	034746 035062 0   0   777777777777 0            0            
ET0	034746 035062 0   0   0            0            0            
ST1	034746 035062 0   0   0            0            0            
ST2	034746 035062 0   0   0            0            0            
ST9	034746 035062 0   0   0            0            0            


*034746 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	034746 034746 0   0   332000000000 0            0            
IT1	034746 0      0   0   332000000000 0            0            
AT3	034746 0      0   0   0            0            332000000000 
AT6	034746 0      0   0   0            0            332000000000 
FT0	034746 0      0   0   0            0            332000000000 
FT1A	034746 0      0   0   0            0            0            
FT9	034747 0      0   0   0            0            0            
ET0	034750 0      0   0   0            0            0            
ST1A	034750 0      0   0   0            0            0            
ST9	034750 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 706
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0922

*034750 JUMPA	0,034751
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034750 034750 0   0   324000034751 0            000000034751 
IT1	034750 0      0   0   324000034751 0            000000034751 
AT3	034750 0      0   0   000000034751 0            324000034751 
AT6	034750 034751 0   0   000000034751 0            324000034751 
FT1A	034750 034751 0   0   000000034751 0            000000034751 
FT2	034750 034751 0   0   0            0            000000034751 
FT2RQ	034750 034751 0   0   0            0            000000034751 
FT3	034750 034751 0   0   0            0            000000034751 
FT9	034751 034751 0   0   0            0            000000034751 
ET0	034751 034751 0   0   0            0            000000034751 
ST1A	034751 034751 0   0   0            0            000000034751 
ST9	034751 034751 0   0   0            0            000000034751 


*034751 MOVE 	0,035073
INITIAL
C(AC)=000000 000000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034751 034751 0   0   200000035073 0            000400000000 
IT1	034751 0      0   0   200000035073 0            000400000000 
AT3	034751 0      0   0   000000035073 0            200000035073 
AT6	034751 035073 0   0   000000035073 0            200000035073 
FT0	034751 035073 0   0   000400000000 0            200000035073 
FT1A	034751 035073 0   0   000400000000 0            000400000000 
FT9	034752 035073 0   0   000400000000 0            000400000000 
ET0	034752 035073 0   0   000400000000 0            000400000000 
ST1	034752 035073 0   0   000400000000 0            000400000000 
ST2	034752 035073 0   0   000400000000 0            000400000000 
ST9	034752 035073 0   0   000400000000 0            000400000000 


*034752 AND 	0,035073
INITIAL
C(AC)=000400 000000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034752 034752 0   0   404000035073 0            000400000000 
IT1	034752 0      0   0   404000035073 0            000400000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 707
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0923

AT3	034752 0      0   0   000000035073 0            404000035073 
AT6	034752 035073 0   0   000000035073 0            404000035073 
FT0	034752 035073 0   0   000400000000 0            404000035073 
FT1A	034752 035073 0   0   000400000000 0            000400000000 
FT2	034752 035073 0   0   0            0            000400000000 
FT2RQ	034752 035073 0   0   000400000000 0            000400000000 
FT3	034752 035073 0   0   000400000000 0            000400000000 
FT9	034753 035073 0   0   000400000000 0            000400000000 
ET0	034753 035073 0   0   000400000000 0            000400000000 
ST1	034753 035073 0   0   000400000000 0            000400000000 
ST2	034753 035073 0   0   000400000000 0            000400000000 
ST9	034753 035073 0   0   000400000000 0            000400000000 


*034753 EQV 	0,035073
INITIAL
C(AC)=000400 000000 
C(E)=000400 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034753 034753 0   0   444000035073 0            000400000000 
IT1	034753 0      0   0   444000035073 0            000400000000 
AT3	034753 0      0   0   000000035073 0            444000035073 
AT6	034753 035073 0   0   000000035073 0            444000035073 
FT0	034753 035073 0   0   000400000000 0            444000035073 
FT1A	034753 035073 0   0   000400000000 0            000400000000 
FT2	034753 035073 0   0   0            0            000400000000 
FT2RQ	034753 035073 0   0   000400000000 0            000400000000 
FT3	034753 035073 0   0   000400000000 0            000400000000 
FT9	034754 035073 0   0   000400000000 0            000400000000 
ET0	034754 035073 0   0   777777777777 0            000400000000 
ST1	034754 035073 0   0   777777777777 0            000400000000 
ST2	034754 035073 0   0   777777777777 0            000400000000 
ST9	034754 035073 0   0   777777777777 0            000400000000 


*034754 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034754 034754 0   0   444000035062 0            0            
IT1	034754 0      0   0   444000035062 0            0            
AT3	034754 0      0   0   000000035062 0            444000035062 
AT6	034754 035062 0   0   000000035062 0            444000035062 
FT0	034754 035062 0   0   0            0            444000035062 
FT1A	034754 035062 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 708
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0924

FT2	034754 035062 0   0   0            0            0            
FT2RQ	034754 035062 0   0   777777777777 0            0            
FT3	034754 035062 0   0   777777777777 0            0            
FT9	034755 035062 0   0   777777777777 0            0            
ET0	034755 035062 0   0   0            0            0            
ST1	034755 035062 0   0   0            0            0            
ST2	034755 035062 0   0   0            0            0            
ST9	034755 035062 0   0   0            0            0            


*034755 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	034755 034755 0   0   332000000000 0            0            
IT1	034755 0      0   0   332000000000 0            0            
AT3	034755 0      0   0   0            0            332000000000 
AT6	034755 0      0   0   0            0            332000000000 
FT0	034755 0      0   0   0            0            332000000000 
FT1A	034755 0      0   0   0            0            0            
FT9	034756 0      0   0   0            0            0            
ET0	034757 0      0   0   0            0            0            
ST1A	034757 0      0   0   0            0            0            
ST9	034757 0      0   0   0            0            0            


*034757 JUMPA	0,034760
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034757 034757 0   0   324000034760 0            000000034760 
IT1	034757 0      0   0   324000034760 0            000000034760 
AT3	034757 0      0   0   000000034760 0            324000034760 
AT6	034757 034760 0   0   000000034760 0            324000034760 
FT1A	034757 034760 0   0   000000034760 0            000000034760 
FT2	034757 034760 0   0   0            0            000000034760 
FT2RQ	034757 034760 0   0   0            0            000000034760 
FT3	034757 034760 0   0   0            0            000000034760 
FT9	034760 034760 0   0   0            0            000000034760 
ET0	034760 034760 0   0   0            0            000000034760 
ST1A	034760 034760 0   0   0            0            000000034760 
ST9	034760 034760 0   0   0            0            000000034760 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 709
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0925

*034760 MOVE 	0,035126
INITIAL
C(AC)=000000 000000 
C(E)=001000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034760 034760 0   0   200000035126 0            001000000000 
IT1	034760 0      0   0   200000035126 0            001000000000 
AT3	034760 0      0   0   000000035126 0            200000035126 
AT6	034760 035126 0   0   000000035126 0            200000035126 
FT0	034760 035126 0   0   001000000000 0            200000035126 
FT1A	034760 035126 0   0   001000000000 0            001000000000 
FT9	034761 035126 0   0   001000000000 0            001000000000 
ET0	034761 035126 0   0   001000000000 0            001000000000 
ST1	034761 035126 0   0   001000000000 0            001000000000 
ST2	034761 035126 0   0   001000000000 0            001000000000 
ST9	034761 035126 0   0   001000000000 0            001000000000 


*034761 AND 	0,035126
INITIAL
C(AC)=001000 000000 
C(E)=001000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034761 034761 0   0   404000035126 0            001000000000 
IT1	034761 0      0   0   404000035126 0            001000000000 
AT3	034761 0      0   0   000000035126 0            404000035126 
AT6	034761 035126 0   0   000000035126 0            404000035126 
FT0	034761 035126 0   0   001000000000 0            404000035126 
FT1A	034761 035126 0   0   001000000000 0            001000000000 
FT2	034761 035126 0   0   0            0            001000000000 
FT2RQ	034761 035126 0   0   001000000000 0            001000000000 
FT3	034761 035126 0   0   001000000000 0            001000000000 
FT9	034762 035126 0   0   001000000000 0            001000000000 
ET0	034762 035126 0   0   001000000000 0            001000000000 
ST1	034762 035126 0   0   001000000000 0            001000000000 
ST2	034762 035126 0   0   001000000000 0            001000000000 
ST9	034762 035126 0   0   001000000000 0            001000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 710
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0926

*034762 EQV 	0,035126
INITIAL
C(AC)=001000 000000 
C(E)=001000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034762 034762 0   0   444000035126 0            001000000000 
IT1	034762 0      0   0   444000035126 0            001000000000 
AT3	034762 0      0   0   000000035126 0            444000035126 
AT6	034762 035126 0   0   000000035126 0            444000035126 
FT0	034762 035126 0   0   001000000000 0            444000035126 
FT1A	034762 035126 0   0   001000000000 0            001000000000 
FT2	034762 035126 0   0   0            0            001000000000 
FT2RQ	034762 035126 0   0   001000000000 0            001000000000 
FT3	034762 035126 0   0   001000000000 0            001000000000 
FT9	034763 035126 0   0   001000000000 0            001000000000 
ET0	034763 035126 0   0   777777777777 0            001000000000 
ST1	034763 035126 0   0   777777777777 0            001000000000 
ST2	034763 035126 0   0   777777777777 0            001000000000 
ST9	034763 035126 0   0   777777777777 0            001000000000 


*034763 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034763 034763 0   0   444000035062 0            0            
IT1	034763 0      0   0   444000035062 0            0            
AT3	034763 0      0   0   000000035062 0            444000035062 
AT6	034763 035062 0   0   000000035062 0            444000035062 
FT0	034763 035062 0   0   0            0            444000035062 
FT1A	034763 035062 0   0   0            0            0            
FT2	034763 035062 0   0   0            0            0            
FT2RQ	034763 035062 0   0   777777777777 0            0            
FT3	034763 035062 0   0   777777777777 0            0            
FT9	034764 035062 0   0   777777777777 0            0            
ET0	034764 035062 0   0   0            0            0            
ST1	034764 035062 0   0   0            0            0            
ST2	034764 035062 0   0   0            0            0            
ST9	034764 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 711
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0927

*034764 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	034764 034764 0   0   332000000000 0            0            
IT1	034764 0      0   0   332000000000 0            0            
AT3	034764 0      0   0   0            0            332000000000 
AT6	034764 0      0   0   0            0            332000000000 
FT0	034764 0      0   0   0            0            332000000000 
FT1A	034764 0      0   0   0            0            0            
FT9	034765 0      0   0   0            0            0            
ET0	034766 0      0   0   0            0            0            
ST1A	034766 0      0   0   0            0            0            
ST9	034766 0      0   0   0            0            0            


*034766 JUMPA	0,034767
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034766 034766 0   0   324000034767 0            000000034767 
IT1	034766 0      0   0   324000034767 0            000000034767 
AT3	034766 0      0   0   000000034767 0            324000034767 
AT6	034766 034767 0   0   000000034767 0            324000034767 
FT1A	034766 034767 0   0   000000034767 0            000000034767 
FT2	034766 034767 0   0   0            0            000000034767 
FT2RQ	034766 034767 0   0   0            0            000000034767 
FT3	034766 034767 0   0   0            0            000000034767 
FT9	034767 034767 0   0   0            0            000000034767 
ET0	034767 034767 0   0   0            0            000000034767 
ST1A	034767 034767 0   0   0            0            000000034767 
ST9	034767 034767 0   0   0            0            000000034767 


*034767 MOVE 	0,035127
INITIAL
C(AC)=000000 000000 
C(E)=002000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034767 034767 0   0   200000035127 0            002000000000 
IT1	034767 0      0   0   200000035127 0            002000000000 
AT3	034767 0      0   0   000000035127 0            200000035127 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 712
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0928

AT6	034767 035127 0   0   000000035127 0            200000035127 
FT0	034767 035127 0   0   002000000000 0            200000035127 
FT1A	034767 035127 0   0   002000000000 0            002000000000 
FT9	034770 035127 0   0   002000000000 0            002000000000 
ET0	034770 035127 0   0   002000000000 0            002000000000 
ST1	034770 035127 0   0   002000000000 0            002000000000 
ST2	034770 035127 0   0   002000000000 0            002000000000 
ST9	034770 035127 0   0   002000000000 0            002000000000 


*034770 AND 	0,035127
INITIAL
C(AC)=002000 000000 
C(E)=002000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034770 034770 0   0   404000035127 0            002000000000 
IT1	034770 0      0   0   404000035127 0            002000000000 
AT3	034770 0      0   0   000000035127 0            404000035127 
AT6	034770 035127 0   0   000000035127 0            404000035127 
FT0	034770 035127 0   0   002000000000 0            404000035127 
FT1A	034770 035127 0   0   002000000000 0            002000000000 
FT2	034770 035127 0   0   0            0            002000000000 
FT2RQ	034770 035127 0   0   002000000000 0            002000000000 
FT3	034770 035127 0   0   002000000000 0            002000000000 
FT9	034771 035127 0   0   002000000000 0            002000000000 
ET0	034771 035127 0   0   002000000000 0            002000000000 
ST1	034771 035127 0   0   002000000000 0            002000000000 
ST2	034771 035127 0   0   002000000000 0            002000000000 
ST9	034771 035127 0   0   002000000000 0            002000000000 


*034771 EQV 	0,035127
INITIAL
C(AC)=002000 000000 
C(E)=002000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034771 034771 0   0   444000035127 0            002000000000 
IT1	034771 0      0   0   444000035127 0            002000000000 
AT3	034771 0      0   0   000000035127 0            444000035127 
AT6	034771 035127 0   0   000000035127 0            444000035127 
FT0	034771 035127 0   0   002000000000 0            444000035127 
FT1A	034771 035127 0   0   002000000000 0            002000000000 
FT2	034771 035127 0   0   0            0            002000000000 
FT2RQ	034771 035127 0   0   002000000000 0            002000000000 
FT3	034771 035127 0   0   002000000000 0            002000000000 
FT9	034772 035127 0   0   002000000000 0            002000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 713
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0929

ET0	034772 035127 0   0   777777777777 0            002000000000 
ST1	034772 035127 0   0   777777777777 0            002000000000 
ST2	034772 035127 0   0   777777777777 0            002000000000 
ST9	034772 035127 0   0   777777777777 0            002000000000 


*034772 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034772 034772 0   0   444000035062 0            0            
IT1	034772 0      0   0   444000035062 0            0            
AT3	034772 0      0   0   000000035062 0            444000035062 
AT6	034772 035062 0   0   000000035062 0            444000035062 
FT0	034772 035062 0   0   0            0            444000035062 
FT1A	034772 035062 0   0   0            0            0            
FT2	034772 035062 0   0   0            0            0            
FT2RQ	034772 035062 0   0   777777777777 0            0            
FT3	034772 035062 0   0   777777777777 0            0            
FT9	034773 035062 0   0   777777777777 0            0            
ET0	034773 035062 0   0   0            0            0            
ST1	034773 035062 0   0   0            0            0            
ST2	034773 035062 0   0   0            0            0            
ST9	034773 035062 0   0   0            0            0            


*034773 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	034773 034773 0   0   332000000000 0            0            
IT1	034773 0      0   0   332000000000 0            0            
AT3	034773 0      0   0   0            0            332000000000 
AT6	034773 0      0   0   0            0            332000000000 
FT0	034773 0      0   0   0            0            332000000000 
FT1A	034773 0      0   0   0            0            0            
FT9	034774 0      0   0   0            0            0            
ET0	034775 0      0   0   0            0            0            
ST1A	034775 0      0   0   0            0            0            
ST9	034775 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 714
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0930

*034775 JUMPA	0,034776
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034775 034775 0   0   324000034776 0            000000034776 
IT1	034775 0      0   0   324000034776 0            000000034776 
AT3	034775 0      0   0   000000034776 0            324000034776 
AT6	034775 034776 0   0   000000034776 0            324000034776 
FT1A	034775 034776 0   0   000000034776 0            000000034776 
FT2	034775 034776 0   0   0            0            000000034776 
FT2RQ	034775 034776 0   0   0            0            000000034776 
FT3	034775 034776 0   0   0            0            000000034776 
FT9	034776 034776 0   0   0            0            000000034776 
ET0	034776 034776 0   0   0            0            000000034776 
ST1A	034776 034776 0   0   0            0            000000034776 
ST9	034776 034776 0   0   0            0            000000034776 


*034776 MOVE 	0,035130
INITIAL
C(AC)=000000 000000 
C(E)=004000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034776 034776 0   0   200000035130 0            004000000000 
IT1	034776 0      0   0   200000035130 0            004000000000 
AT3	034776 0      0   0   000000035130 0            200000035130 
AT6	034776 035130 0   0   000000035130 0            200000035130 
FT0	034776 035130 0   0   004000000000 0            200000035130 
FT1A	034776 035130 0   0   004000000000 0            004000000000 
FT9	034777 035130 0   0   004000000000 0            004000000000 
ET0	034777 035130 0   0   004000000000 0            004000000000 
ST1	034777 035130 0   0   004000000000 0            004000000000 
ST2	034777 035130 0   0   004000000000 0            004000000000 
ST9	034777 035130 0   0   004000000000 0            004000000000 


*034777 AND 	0,035130
INITIAL
C(AC)=004000 000000 
C(E)=004000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034777 034777 0   0   404000035130 0            004000000000 
IT1	034777 0      0   0   404000035130 0            004000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 715
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0931

AT3	034777 0      0   0   000000035130 0            404000035130 
AT6	034777 035130 0   0   000000035130 0            404000035130 
FT0	034777 035130 0   0   004000000000 0            404000035130 
FT1A	034777 035130 0   0   004000000000 0            004000000000 
FT2	034777 035130 0   0   0            0            004000000000 
FT2RQ	034777 035130 0   0   004000000000 0            004000000000 
FT3	034777 035130 0   0   004000000000 0            004000000000 
FT9	0      035130 0   0   004000000000 0            004000000000 
ET0	0      035130 0   0   004000000000 0            004000000000 
ST1	0      035130 0   0   004000000000 0            004000000000 
ST2	0      035130 0   0   004000000000 0            004000000000 
ST9	0      035130 0   0   004000000000 0            004000000000 


*035000 EQV 	0,035130
INITIAL
C(AC)=004000 000000 
C(E)=004000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   444000035130 0            004000000000 
IT1	0      0      0   0   444000035130 0            004000000000 
AT3	0      0      0   0   000000035130 0            444000035130 
AT6	0      035130 0   0   000000035130 0            444000035130 
FT0	0      035130 0   0   004000000000 0            444000035130 
FT1A	0      035130 0   0   004000000000 0            004000000000 
FT2	0      035130 0   0   0            0            004000000000 
FT2RQ	0      035130 0   0   004000000000 0            004000000000 
FT3	0      035130 0   0   004000000000 0            004000000000 
FT9	035001 035130 0   0   004000000000 0            004000000000 
ET0	035001 035130 0   0   777777777777 0            004000000000 
ST1	035001 035130 0   0   777777777777 0            004000000000 
ST2	035001 035130 0   0   777777777777 0            004000000000 
ST9	035001 035130 0   0   777777777777 0            004000000000 


*035001 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035001 035001 0   0   444000035062 0            0            
IT1	035001 0      0   0   444000035062 0            0            
AT3	035001 0      0   0   000000035062 0            444000035062 
AT6	035001 035062 0   0   000000035062 0            444000035062 
FT0	035001 035062 0   0   0            0            444000035062 
FT1A	035001 035062 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 716
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0932

FT2	035001 035062 0   0   0            0            0            
FT2RQ	035001 035062 0   0   777777777777 0            0            
FT3	035001 035062 0   0   777777777777 0            0            
FT9	035002 035062 0   0   777777777777 0            0            
ET0	035002 035062 0   0   0            0            0            
ST1	035002 035062 0   0   0            0            0            
ST2	035002 035062 0   0   0            0            0            
ST9	035002 035062 0   0   0            0            0            


*035002 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	035002 035002 0   0   332000000000 0            0            
IT1	035002 0      0   0   332000000000 0            0            
AT3	035002 0      0   0   0            0            332000000000 
AT6	035002 0      0   0   0            0            332000000000 
FT0	035002 0      0   0   0            0            332000000000 
FT1A	035002 0      0   0   0            0            0            
FT9	035003 0      0   0   0            0            0            
ET0	035004 0      0   0   0            0            0            
ST1A	035004 0      0   0   0            0            0            
ST9	035004 0      0   0   0            0            0            


*035004 JUMPA	0,035005
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035004 035004 0   0   324000035005 0            000000035005 
IT1	035004 0      0   0   324000035005 0            000000035005 
AT3	035004 0      0   0   000000035005 0            324000035005 
AT6	035004 035005 0   0   000000035005 0            324000035005 
FT1A	035004 035005 0   0   000000035005 0            000000035005 
FT2	035004 035005 0   0   0            0            000000035005 
FT2RQ	035004 035005 0   0   0            0            000000035005 
FT3	035004 035005 0   0   0            0            000000035005 
FT9	035005 035005 0   0   0            0            000000035005 
ET0	035005 035005 0   0   0            0            000000035005 
ST1A	035005 035005 0   0   0            0            000000035005 
ST9	035005 035005 0   0   0            0            000000035005 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 717
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0933

*035005 MOVE 	0,035131
INITIAL
C(AC)=000000 000000 
C(E)=010000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035005 035005 0   0   200000035131 0            010000000000 
IT1	035005 0      0   0   200000035131 0            010000000000 
AT3	035005 0      0   0   000000035131 0            200000035131 
AT6	035005 035131 0   0   000000035131 0            200000035131 
FT0	035005 035131 0   0   010000000000 0            200000035131 
FT1A	035005 035131 0   0   010000000000 0            010000000000 
FT9	035006 035131 0   0   010000000000 0            010000000000 
ET0	035006 035131 0   0   010000000000 0            010000000000 
ST1	035006 035131 0   0   010000000000 0            010000000000 
ST2	035006 035131 0   0   010000000000 0            010000000000 
ST9	035006 035131 0   0   010000000000 0            010000000000 


*035006 AND 	0,035131
INITIAL
C(AC)=010000 000000 
C(E)=010000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035006 035006 0   0   404000035131 0            010000000000 
IT1	035006 0      0   0   404000035131 0            010000000000 
AT3	035006 0      0   0   000000035131 0            404000035131 
AT6	035006 035131 0   0   000000035131 0            404000035131 
FT0	035006 035131 0   0   010000000000 0            404000035131 
FT1A	035006 035131 0   0   010000000000 0            010000000000 
FT2	035006 035131 0   0   0            0            010000000000 
FT2RQ	035006 035131 0   0   010000000000 0            010000000000 
FT3	035006 035131 0   0   010000000000 0            010000000000 
FT9	035007 035131 0   0   010000000000 0            010000000000 
ET0	035007 035131 0   0   010000000000 0            010000000000 
ST1	035007 035131 0   0   010000000000 0            010000000000 
ST2	035007 035131 0   0   010000000000 0            010000000000 
ST9	035007 035131 0   0   010000000000 0            010000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 718
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0934

*035007 EQV 	0,035131
INITIAL
C(AC)=010000 000000 
C(E)=010000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035007 035007 0   0   444000035131 0            010000000000 
IT1	035007 0      0   0   444000035131 0            010000000000 
AT3	035007 0      0   0   000000035131 0            444000035131 
AT6	035007 035131 0   0   000000035131 0            444000035131 
FT0	035007 035131 0   0   010000000000 0            444000035131 
FT1A	035007 035131 0   0   010000000000 0            010000000000 
FT2	035007 035131 0   0   0            0            010000000000 
FT2RQ	035007 035131 0   0   010000000000 0            010000000000 
FT3	035007 035131 0   0   010000000000 0            010000000000 
FT9	035010 035131 0   0   010000000000 0            010000000000 
ET0	035010 035131 0   0   777777777777 0            010000000000 
ST1	035010 035131 0   0   777777777777 0            010000000000 
ST2	035010 035131 0   0   777777777777 0            010000000000 
ST9	035010 035131 0   0   777777777777 0            010000000000 


*035010 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035010 035010 0   0   444000035062 0            0            
IT1	035010 0      0   0   444000035062 0            0            
AT3	035010 0      0   0   000000035062 0            444000035062 
AT6	035010 035062 0   0   000000035062 0            444000035062 
FT0	035010 035062 0   0   0            0            444000035062 
FT1A	035010 035062 0   0   0            0            0            
FT2	035010 035062 0   0   0            0            0            
FT2RQ	035010 035062 0   0   777777777777 0            0            
FT3	035010 035062 0   0   777777777777 0            0            
FT9	035011 035062 0   0   777777777777 0            0            
ET0	035011 035062 0   0   0            0            0            
ST1	035011 035062 0   0   0            0            0            
ST2	035011 035062 0   0   0            0            0            
ST9	035011 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 719
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0935

*035011 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	035011 035011 0   0   332000000000 0            0            
IT1	035011 0      0   0   332000000000 0            0            
AT3	035011 0      0   0   0            0            332000000000 
AT6	035011 0      0   0   0            0            332000000000 
FT0	035011 0      0   0   0            0            332000000000 
FT1A	035011 0      0   0   0            0            0            
FT9	035012 0      0   0   0            0            0            
ET0	035013 0      0   0   0            0            0            
ST1A	035013 0      0   0   0            0            0            
ST9	035013 0      0   0   0            0            0            


*035013 JUMPA	0,035014
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035013 035013 0   0   324000035014 0            000000035014 
IT1	035013 0      0   0   324000035014 0            000000035014 
AT3	035013 0      0   0   000000035014 0            324000035014 
AT6	035013 035014 0   0   000000035014 0            324000035014 
FT1A	035013 035014 0   0   000000035014 0            000000035014 
FT2	035013 035014 0   0   0            0            000000035014 
FT2RQ	035013 035014 0   0   0            0            000000035014 
FT3	035013 035014 0   0   0            0            000000035014 
FT9	035014 035014 0   0   0            0            000000035014 
ET0	035014 035014 0   0   0            0            000000035014 
ST1A	035014 035014 0   0   0            0            000000035014 
ST9	035014 035014 0   0   0            0            000000035014 


*035014 MOVE 	0,035132
INITIAL
C(AC)=000000 000000 
C(E)=020000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035014 035014 0   0   200000035132 0            020000000000 
IT1	035014 0      0   0   200000035132 0            020000000000 
AT3	035014 0      0   0   000000035132 0            200000035132 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 720
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0936

AT6	035014 035132 0   0   000000035132 0            200000035132 
FT0	035014 035132 0   0   020000000000 0            200000035132 
FT1A	035014 035132 0   0   020000000000 0            020000000000 
FT9	035015 035132 0   0   020000000000 0            020000000000 
ET0	035015 035132 0   0   020000000000 0            020000000000 
ST1	035015 035132 0   0   020000000000 0            020000000000 
ST2	035015 035132 0   0   020000000000 0            020000000000 
ST9	035015 035132 0   0   020000000000 0            020000000000 


*035015 AND 	0,035132
INITIAL
C(AC)=020000 000000 
C(E)=020000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035015 035015 0   0   404000035132 0            020000000000 
IT1	035015 0      0   0   404000035132 0            020000000000 
AT3	035015 0      0   0   000000035132 0            404000035132 
AT6	035015 035132 0   0   000000035132 0            404000035132 
FT0	035015 035132 0   0   020000000000 0            404000035132 
FT1A	035015 035132 0   0   020000000000 0            020000000000 
FT2	035015 035132 0   0   0            0            020000000000 
FT2RQ	035015 035132 0   0   020000000000 0            020000000000 
FT3	035015 035132 0   0   020000000000 0            020000000000 
FT9	035016 035132 0   0   020000000000 0            020000000000 
ET0	035016 035132 0   0   020000000000 0            020000000000 
ST1	035016 035132 0   0   020000000000 0            020000000000 
ST2	035016 035132 0   0   020000000000 0            020000000000 
ST9	035016 035132 0   0   020000000000 0            020000000000 


*035016 EQV 	0,035132
INITIAL
C(AC)=020000 000000 
C(E)=020000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035016 035016 0   0   444000035132 0            020000000000 
IT1	035016 0      0   0   444000035132 0            020000000000 
AT3	035016 0      0   0   000000035132 0            444000035132 
AT6	035016 035132 0   0   000000035132 0            444000035132 
FT0	035016 035132 0   0   020000000000 0            444000035132 
FT1A	035016 035132 0   0   020000000000 0            020000000000 
FT2	035016 035132 0   0   0            0            020000000000 
FT2RQ	035016 035132 0   0   020000000000 0            020000000000 
FT3	035016 035132 0   0   020000000000 0            020000000000 
FT9	035017 035132 0   0   020000000000 0            020000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 721
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0937

ET0	035017 035132 0   0   777777777777 0            020000000000 
ST1	035017 035132 0   0   777777777777 0            020000000000 
ST2	035017 035132 0   0   777777777777 0            020000000000 
ST9	035017 035132 0   0   777777777777 0            020000000000 


*035017 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035017 035017 0   0   444000035062 0            0            
IT1	035017 0      0   0   444000035062 0            0            
AT3	035017 0      0   0   000000035062 0            444000035062 
AT6	035017 035062 0   0   000000035062 0            444000035062 
FT0	035017 035062 0   0   0            0            444000035062 
FT1A	035017 035062 0   0   0            0            0            
FT2	035017 035062 0   0   0            0            0            
FT2RQ	035017 035062 0   0   777777777777 0            0            
FT3	035017 035062 0   0   777777777777 0            0            
FT9	035020 035062 0   0   777777777777 0            0            
ET0	035020 035062 0   0   0            0            0            
ST1	035020 035062 0   0   0            0            0            
ST2	035020 035062 0   0   0            0            0            
ST9	035020 035062 0   0   0            0            0            


*035020 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	035020 035020 0   0   332000000000 0            0            
IT1	035020 0      0   0   332000000000 0            0            
AT3	035020 0      0   0   0            0            332000000000 
AT6	035020 0      0   0   0            0            332000000000 
FT0	035020 0      0   0   0            0            332000000000 
FT1A	035020 0      0   0   0            0            0            
FT9	035021 0      0   0   0            0            0            
ET0	035022 0      0   0   0            0            0            
ST1A	035022 0      0   0   0            0            0            
ST9	035022 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 722
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0938

*035022 JUMPA	0,035023
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035022 035022 0   0   324000035023 0            000000035023 
IT1	035022 0      0   0   324000035023 0            000000035023 
AT3	035022 0      0   0   000000035023 0            324000035023 
AT6	035022 035023 0   0   000000035023 0            324000035023 
FT1A	035022 035023 0   0   000000035023 0            000000035023 
FT2	035022 035023 0   0   0            0            000000035023 
FT2RQ	035022 035023 0   0   0            0            000000035023 
FT3	035022 035023 0   0   0            0            000000035023 
FT9	035023 035023 0   0   0            0            000000035023 
ET0	035023 035023 0   0   0            0            000000035023 
ST1A	035023 035023 0   0   0            0            000000035023 
ST9	035023 035023 0   0   0            0            000000035023 


*035023 MOVE 	0,035133
INITIAL
C(AC)=000000 000000 
C(E)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035023 035023 0   0   200000035133 0            040000000000 
IT1	035023 0      0   0   200000035133 0            040000000000 
AT3	035023 0      0   0   000000035133 0            200000035133 
AT6	035023 035133 0   0   000000035133 0            200000035133 
FT0	035023 035133 0   0   040000000000 0            200000035133 
FT1A	035023 035133 0   0   040000000000 0            040000000000 
FT9	035024 035133 0   0   040000000000 0            040000000000 
ET0	035024 035133 0   0   040000000000 0            040000000000 
ST1	035024 035133 0   0   040000000000 0            040000000000 
ST2	035024 035133 0   0   040000000000 0            040000000000 
ST9	035024 035133 0   0   040000000000 0            040000000000 


*035024 AND 	0,035133
INITIAL
C(AC)=040000 000000 
C(E)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035024 035024 0   0   404000035133 0            040000000000 
IT1	035024 0      0   0   404000035133 0            040000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 723
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0939

AT3	035024 0      0   0   000000035133 0            404000035133 
AT6	035024 035133 0   0   000000035133 0            404000035133 
FT0	035024 035133 0   0   040000000000 0            404000035133 
FT1A	035024 035133 0   0   040000000000 0            040000000000 
FT2	035024 035133 0   0   0            0            040000000000 
FT2RQ	035024 035133 0   0   040000000000 0            040000000000 
FT3	035024 035133 0   0   040000000000 0            040000000000 
FT9	035025 035133 0   0   040000000000 0            040000000000 
ET0	035025 035133 0   0   040000000000 0            040000000000 
ST1	035025 035133 0   0   040000000000 0            040000000000 
ST2	035025 035133 0   0   040000000000 0            040000000000 
ST9	035025 035133 0   0   040000000000 0            040000000000 


*035025 EQV 	0,035133
INITIAL
C(AC)=040000 000000 
C(E)=040000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035025 035025 0   0   444000035133 0            040000000000 
IT1	035025 0      0   0   444000035133 0            040000000000 
AT3	035025 0      0   0   000000035133 0            444000035133 
AT6	035025 035133 0   0   000000035133 0            444000035133 
FT0	035025 035133 0   0   040000000000 0            444000035133 
FT1A	035025 035133 0   0   040000000000 0            040000000000 
FT2	035025 035133 0   0   0            0            040000000000 
FT2RQ	035025 035133 0   0   040000000000 0            040000000000 
FT3	035025 035133 0   0   040000000000 0            040000000000 
FT9	035026 035133 0   0   040000000000 0            040000000000 
ET0	035026 035133 0   0   777777777777 0            040000000000 
ST1	035026 035133 0   0   777777777777 0            040000000000 
ST2	035026 035133 0   0   777777777777 0            040000000000 
ST9	035026 035133 0   0   777777777777 0            040000000000 


*035026 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035026 035026 0   0   444000035062 0            0            
IT1	035026 0      0   0   444000035062 0            0            
AT3	035026 0      0   0   000000035062 0            444000035062 
AT6	035026 035062 0   0   000000035062 0            444000035062 
FT0	035026 035062 0   0   0            0            444000035062 
FT1A	035026 035062 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 724
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0940

FT2	035026 035062 0   0   0            0            0            
FT2RQ	035026 035062 0   0   777777777777 0            0            
FT3	035026 035062 0   0   777777777777 0            0            
FT9	035027 035062 0   0   777777777777 0            0            
ET0	035027 035062 0   0   0            0            0            
ST1	035027 035062 0   0   0            0            0            
ST2	035027 035062 0   0   0            0            0            
ST9	035027 035062 0   0   0            0            0            


*035027 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	035027 035027 0   0   332000000000 0            0            
IT1	035027 0      0   0   332000000000 0            0            
AT3	035027 0      0   0   0            0            332000000000 
AT6	035027 0      0   0   0            0            332000000000 
FT0	035027 0      0   0   0            0            332000000000 
FT1A	035027 0      0   0   0            0            0            
FT9	035030 0      0   0   0            0            0            
ET0	035031 0      0   0   0            0            0            
ST1A	035031 0      0   0   0            0            0            
ST9	035031 0      0   0   0            0            0            


*035031 JUMPA	0,035032
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035031 035031 0   0   324000035032 0            000000035032 
IT1	035031 0      0   0   324000035032 0            000000035032 
AT3	035031 0      0   0   000000035032 0            324000035032 
AT6	035031 035032 0   0   000000035032 0            324000035032 
FT1A	035031 035032 0   0   000000035032 0            000000035032 
FT2	035031 035032 0   0   0            0            000000035032 
FT2RQ	035031 035032 0   0   0            0            000000035032 
FT3	035031 035032 0   0   0            0            000000035032 
FT9	035032 035032 0   0   0            0            000000035032 
ET0	035032 035032 0   0   0            0            000000035032 
ST1A	035032 035032 0   0   0            0            000000035032 
ST9	035032 035032 0   0   0            0            000000035032 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 725
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0941

*035032 MOVE 	0,035134
INITIAL
C(AC)=000000 000000 
C(E)=100000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035032 035032 0   0   200000035134 0            100000000000 
IT1	035032 0      0   0   200000035134 0            100000000000 
AT3	035032 0      0   0   000000035134 0            200000035134 
AT6	035032 035134 0   0   000000035134 0            200000035134 
FT0	035032 035134 0   0   100000000000 0            200000035134 
FT1A	035032 035134 0   0   100000000000 0            100000000000 
FT9	035033 035134 0   0   100000000000 0            100000000000 
ET0	035033 035134 0   0   100000000000 0            100000000000 
ST1	035033 035134 0   0   100000000000 0            100000000000 
ST2	035033 035134 0   0   100000000000 0            100000000000 
ST9	035033 035134 0   0   100000000000 0            100000000000 


*035033 AND 	0,035134
INITIAL
C(AC)=100000 000000 
C(E)=100000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035033 035033 0   0   404000035134 0            100000000000 
IT1	035033 0      0   0   404000035134 0            100000000000 
AT3	035033 0      0   0   000000035134 0            404000035134 
AT6	035033 035134 0   0   000000035134 0            404000035134 
FT0	035033 035134 0   0   100000000000 0            404000035134 
FT1A	035033 035134 0   0   100000000000 0            100000000000 
FT2	035033 035134 0   0   0            0            100000000000 
FT2RQ	035033 035134 0   0   100000000000 0            100000000000 
FT3	035033 035134 0   0   100000000000 0            100000000000 
FT9	035034 035134 0   0   100000000000 0            100000000000 
ET0	035034 035134 0   0   100000000000 0            100000000000 
ST1	035034 035134 0   0   100000000000 0            100000000000 
ST2	035034 035134 0   0   100000000000 0            100000000000 
ST9	035034 035134 0   0   100000000000 0            100000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 726
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0942

*035034 EQV 	0,035134
INITIAL
C(AC)=100000 000000 
C(E)=100000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035034 035034 0   0   444000035134 0            100000000000 
IT1	035034 0      0   0   444000035134 0            100000000000 
AT3	035034 0      0   0   000000035134 0            444000035134 
AT6	035034 035134 0   0   000000035134 0            444000035134 
FT0	035034 035134 0   0   100000000000 0            444000035134 
FT1A	035034 035134 0   0   100000000000 0            100000000000 
FT2	035034 035134 0   0   0            0            100000000000 
FT2RQ	035034 035134 0   0   100000000000 0            100000000000 
FT3	035034 035134 0   0   100000000000 0            100000000000 
FT9	035035 035134 0   0   100000000000 0            100000000000 
ET0	035035 035134 0   0   777777777777 0            100000000000 
ST1	035035 035134 0   0   777777777777 0            100000000000 
ST2	035035 035134 0   0   777777777777 0            100000000000 
ST9	035035 035134 0   0   777777777777 0            100000000000 


*035035 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035035 035035 0   0   444000035062 0            0            
IT1	035035 0      0   0   444000035062 0            0            
AT3	035035 0      0   0   000000035062 0            444000035062 
AT6	035035 035062 0   0   000000035062 0            444000035062 
FT0	035035 035062 0   0   0            0            444000035062 
FT1A	035035 035062 0   0   0            0            0            
FT2	035035 035062 0   0   0            0            0            
FT2RQ	035035 035062 0   0   777777777777 0            0            
FT3	035035 035062 0   0   777777777777 0            0            
FT9	035036 035062 0   0   777777777777 0            0            
ET0	035036 035062 0   0   0            0            0            
ST1	035036 035062 0   0   0            0            0            
ST2	035036 035062 0   0   0            0            0            
ST9	035036 035062 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 727
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0943

*035036 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	035036 035036 0   0   332000000000 0            0            
IT1	035036 0      0   0   332000000000 0            0            
AT3	035036 0      0   0   0            0            332000000000 
AT6	035036 0      0   0   0            0            332000000000 
FT0	035036 0      0   0   0            0            332000000000 
FT1A	035036 0      0   0   0            0            0            
FT9	035037 0      0   0   0            0            0            
ET0	035040 0      0   0   0            0            0            
ST1A	035040 0      0   0   0            0            0            
ST9	035040 0      0   0   0            0            0            


*035040 JUMPA	0,035041
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035040 035040 0   0   324000035041 0            000000035041 
IT1	035040 0      0   0   324000035041 0            000000035041 
AT3	035040 0      0   0   000000035041 0            324000035041 
AT6	035040 035041 0   0   000000035041 0            324000035041 
FT1A	035040 035041 0   0   000000035041 0            000000035041 
FT2	035040 035041 0   0   0            0            000000035041 
FT2RQ	035040 035041 0   0   0            0            000000035041 
FT3	035040 035041 0   0   0            0            000000035041 
FT9	035041 035041 0   0   0            0            000000035041 
ET0	035041 035041 0   0   0            0            000000035041 
ST1A	035041 035041 0   0   0            0            000000035041 
ST9	035041 035041 0   0   0            0            000000035041 


*035041 MOVE 	0,035135
INITIAL
C(AC)=000000 000000 
C(E)=200000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035041 035041 0   0   200000035135 0            200000000000 
IT1	035041 0      0   0   200000035135 0            200000000000 
AT3	035041 0      0   0   000000035135 0            200000035135 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 728
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0944

AT6	035041 035135 0   0   000000035135 0            200000035135 
FT0	035041 035135 0   0   200000000000 0            200000035135 
FT1A	035041 035135 0   0   200000000000 0            200000000000 
FT9	035042 035135 0   0   200000000000 0            200000000000 
ET0	035042 035135 0   0   200000000000 0            200000000000 
ST1	035042 035135 0   0   200000000000 0            200000000000 
ST2	035042 035135 0   0   200000000000 0            200000000000 
ST9	035042 035135 0   0   200000000000 0            200000000000 


*035042 AND 	0,035135
INITIAL
C(AC)=200000 000000 
C(E)=200000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035042 035042 0   0   404000035135 0            200000000000 
IT1	035042 0      0   0   404000035135 0            200000000000 
AT3	035042 0      0   0   000000035135 0            404000035135 
AT6	035042 035135 0   0   000000035135 0            404000035135 
FT0	035042 035135 0   0   200000000000 0            404000035135 
FT1A	035042 035135 0   0   200000000000 0            200000000000 
FT2	035042 035135 0   0   0            0            200000000000 
FT2RQ	035042 035135 0   0   200000000000 0            200000000000 
FT3	035042 035135 0   0   200000000000 0            200000000000 
FT9	035043 035135 0   0   200000000000 0            200000000000 
ET0	035043 035135 0   0   200000000000 0            200000000000 
ST1	035043 035135 0   0   200000000000 0            200000000000 
ST2	035043 035135 0   0   200000000000 0            200000000000 
ST9	035043 035135 0   0   200000000000 0            200000000000 


*035043 EQV 	0,035135
INITIAL
C(AC)=200000 000000 
C(E)=200000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035043 035043 0   0   444000035135 0            200000000000 
IT1	035043 0      0   0   444000035135 0            200000000000 
AT3	035043 0      0   0   000000035135 0            444000035135 
AT6	035043 035135 0   0   000000035135 0            444000035135 
FT0	035043 035135 0   0   200000000000 0            444000035135 
FT1A	035043 035135 0   0   200000000000 0            200000000000 
FT2	035043 035135 0   0   0            0            200000000000 
FT2RQ	035043 035135 0   0   200000000000 0            200000000000 
FT3	035043 035135 0   0   200000000000 0            200000000000 
FT9	035044 035135 0   0   200000000000 0            200000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 729
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0945

ET0	035044 035135 0   0   777777777777 0            200000000000 
ST1	035044 035135 0   0   777777777777 0            200000000000 
ST2	035044 035135 0   0   777777777777 0            200000000000 
ST9	035044 035135 0   0   777777777777 0            200000000000 


*035044 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035044 035044 0   0   444000035062 0            0            
IT1	035044 0      0   0   444000035062 0            0            
AT3	035044 0      0   0   000000035062 0            444000035062 
AT6	035044 035062 0   0   000000035062 0            444000035062 
FT0	035044 035062 0   0   0            0            444000035062 
FT1A	035044 035062 0   0   0            0            0            
FT2	035044 035062 0   0   0            0            0            
FT2RQ	035044 035062 0   0   777777777777 0            0            
FT3	035044 035062 0   0   777777777777 0            0            
FT9	035045 035062 0   0   777777777777 0            0            
ET0	035045 035062 0   0   0            0            0            
ST1	035045 035062 0   0   0            0            0            
ST2	035045 035062 0   0   0            0            0            
ST9	035045 035062 0   0   0            0            0            


*035045 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	035045 035045 0   0   332000000000 0            0            
IT1	035045 0      0   0   332000000000 0            0            
AT3	035045 0      0   0   0            0            332000000000 
AT6	035045 0      0   0   0            0            332000000000 
FT0	035045 0      0   0   0            0            332000000000 
FT1A	035045 0      0   0   0            0            0            
FT9	035046 0      0   0   0            0            0            
ET0	035047 0      0   0   0            0            0            
ST1A	035047 0      0   0   0            0            0            
ST9	035047 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 730
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0946

*035047 JUMPA	0,035050
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035047 035047 0   0   324000035050 0            000000035050 
IT1	035047 0      0   0   324000035050 0            000000035050 
AT3	035047 0      0   0   000000035050 0            324000035050 
AT6	035047 035050 0   0   000000035050 0            324000035050 
FT1A	035047 035050 0   0   000000035050 0            000000035050 
FT2	035047 035050 0   0   0            0            000000035050 
FT2RQ	035047 035050 0   0   0            0            000000035050 
FT3	035047 035050 0   0   0            0            000000035050 
FT9	035050 035050 0   0   0            0            000000035050 
ET0	035050 035050 0   0   0            0            000000035050 
ST1A	035050 035050 0   0   0            0            000000035050 
ST9	035050 035050 0   0   0            0            000000035050 


*035050 MOVE 	0,035065
INITIAL
C(AC)=000000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035050 035050 0   0   200000035065 0            400000000000 
IT1	035050 0      0   0   200000035065 0            400000000000 
AT3	035050 0      0   0   000000035065 0            200000035065 
AT6	035050 035065 0   0   000000035065 0            200000035065 
FT0	035050 035065 0   0   400000000000 0            200000035065 
FT1A	035050 035065 0   0   400000000000 0            400000000000 
FT9	035051 035065 0   0   400000000000 0            400000000000 
ET0	035051 035065 0   0   400000000000 0            400000000000 
ST1	035051 035065 0   0   400000000000 0            400000000000 
ST2	035051 035065 0   0   400000000000 0            400000000000 
ST9	035051 035065 0   0   400000000000 0            400000000000 


*035051 AND 	0,035065
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035051 035051 0   0   404000035065 0            400000000000 
IT1	035051 0      0   0   404000035065 0            400000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 731
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0947

AT3	035051 0      0   0   000000035065 0            404000035065 
AT6	035051 035065 0   0   000000035065 0            404000035065 
FT0	035051 035065 0   0   400000000000 0            404000035065 
FT1A	035051 035065 0   0   400000000000 0            400000000000 
FT2	035051 035065 0   0   0            0            400000000000 
FT2RQ	035051 035065 0   0   400000000000 0            400000000000 
FT3	035051 035065 0   0   400000000000 0            400000000000 
FT9	035052 035065 0   0   400000000000 0            400000000000 
ET0	035052 035065 0   0   400000000000 0            400000000000 
ST1	035052 035065 0   0   400000000000 0            400000000000 
ST2	035052 035065 0   0   400000000000 0            400000000000 
ST9	035052 035065 0   0   400000000000 0            400000000000 


*035052 EQV 	0,035065
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035052 035052 0   0   444000035065 0            400000000000 
IT1	035052 0      0   0   444000035065 0            400000000000 
AT3	035052 0      0   0   000000035065 0            444000035065 
AT6	035052 035065 0   0   000000035065 0            444000035065 
FT0	035052 035065 0   0   400000000000 0            444000035065 
FT1A	035052 035065 0   0   400000000000 0            400000000000 
FT2	035052 035065 0   0   0            0            400000000000 
FT2RQ	035052 035065 0   0   400000000000 0            400000000000 
FT3	035052 035065 0   0   400000000000 0            400000000000 
FT9	035053 035065 0   0   400000000000 0            400000000000 
ET0	035053 035065 0   0   777777777777 0            400000000000 
ST1	035053 035065 0   0   777777777777 0            400000000000 
ST2	035053 035065 0   0   777777777777 0            400000000000 
ST9	035053 035065 0   0   777777777777 0            400000000000 


*035053 EQV 	0,035062
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035053 035053 0   0   444000035062 0            0            
IT1	035053 0      0   0   444000035062 0            0            
AT3	035053 0      0   0   000000035062 0            444000035062 
AT6	035053 035062 0   0   000000035062 0            444000035062 
FT0	035053 035062 0   0   0            0            444000035062 
FT1A	035053 035062 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 732
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0948

FT2	035053 035062 0   0   0            0            0            
FT2RQ	035053 035062 0   0   777777777777 0            0            
FT3	035053 035062 0   0   777777777777 0            0            
FT9	035054 035062 0   0   777777777777 0            0            
ET0	035054 035062 0   0   0            0            0            
ST1	035054 035062 0   0   0            0            0            
ST2	035054 035062 0   0   0            0            0            
ST9	035054 035062 0   0   0            0            0            


*035054 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	035054 035054 0   0   332000000000 0            0            
IT1	035054 0      0   0   332000000000 0            0            
AT3	035054 0      0   0   0            0            332000000000 
AT6	035054 0      0   0   0            0            332000000000 
FT0	035054 0      0   0   0            0            332000000000 
FT1A	035054 0      0   0   0            0            0            
FT9	035055 0      0   0   0            0            0            
ET0	035056 0      0   0   0            0            0            
ST1A	035056 0      0   0   0            0            0            
ST9	035056 0      0   0   0            0            0            


*035056 JUMPA	0,035057
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035056 035056 0   0   324000035057 0            000000035057 
IT1	035056 0      0   0   324000035057 0            000000035057 
AT3	035056 0      0   0   000000035057 0            324000035057 
AT6	035056 035057 0   0   000000035057 0            324000035057 
FT1A	035056 035057 0   0   000000035057 0            000000035057 
FT2	035056 035057 0   0   0            0            000000035057 
FT2RQ	035056 035057 0   0   0            0            000000035057 
FT3	035056 035057 0   0   0            0            000000035057 
FT9	035057 035057 0   0   0            0            000000035057 
ET0	035057 035057 0   0   0            0            000000035057 
ST1A	035057 035057 0   0   0            0            000000035057 
ST9	035057 035057 0   0   0            0            000000035057 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 733
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0949

*035057 JRST	0,030057
INITIAL
C(AC)=000000 000000 
C(E)=254000 030641 
FINAL

C(E)=254000 030641 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035057 035057 0   0   254000030057 0            254000030057 
IT1	035057 0      0   0   254000030057 0            254000030057 
AT3	035057 0      0   0   000000030057 0            254000030057 
AT6	035057 030057 0   0   000000030057 0            254000030057 
FT1A	035057 030057 0   0   000000030057 0            254000030057 
FT9	035060 030057 0   0   000000030057 0            254000030057 
ET0	030057 035060 0   0   000000030057 0            254000030057 
ST1A	030057 035060 0   0   000000030057 0            254000030057 
ST9	030057 035060 0   0   000000030057 0            254000030057 


*030057 JRST	0,030641
INITIAL
C(AC)=000000 000000 
C(E)=350000 030047 
FINAL

C(E)=350000 030047 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030057 030057 0   0   254000030641 0            254000030641 
IT1	030057 0      0   0   254000030641 0            254000030641 
AT3	030057 0      0   0   000000030641 0            254000030641 
AT6	030057 030641 0   0   000000030641 0            254000030641 
FT1A	030057 030641 0   0   000000030641 0            254000030641 
FT9	030060 030641 0   0   000000030641 0            254000030641 
ET0	030641 030060 0   0   000000030641 0            254000030641 
ST1A	030641 030060 0   0   000000030641 0            254000030641 
ST9	030641 030060 0   0   000000030641 0            254000030641 


*030641 AOS 	0,030047
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030641 030641 0   0   350000030047 0            0            
IT1	030641 0      0   0   350000030047 0            0            
AT3	030641 0      0   0   000000030047 0            350000030047 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 734
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0950

AT6	030641 030047 0   0   000000030047 0            350000030047 
FT0	030641 030047 0   0   0            0            350000030047 
FT1A	030641 030047 0   0   0            0            0            
FT9	030642 030047 0   0   0            0            0            
ET0	030642 030047 0   0   000000000001 0            0            
ST5	030642 030047 0   0   000000000001 0            0            
ST6A	030642 030047 0   0   000000000001 0            0            
ST9	030642 030047 0   0   000000000001 0            0            


*030642 SOS 	0,030024
INITIAL
C(AC)=000000 000000 
C(E)=000000 000001 
FINAL
C(AC)=000000 000000 
C(E)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030642 030642 0   0   370000030024 0            000000000001 
IT1	030642 0      0   0   370000030024 0            000000000001 
AT3	030642 0      0   0   000000030024 0            370000030024 
AT6	030642 030024 0   0   000000030024 0            370000030024 
FT0	030642 030024 0   0   000000000001 0            370000030024 
FT1A	030642 030024 0   0   000000000001 0            000000000001 
FT9	030643 030024 0   0   000000000001 0            000000000001 
ET0	030643 030024 0   0   0            0            000000000001 
ST5	030643 030024 0   0   0            0            000000000001 
ST6A	030643 030024 0   0   0            0            000000000001 
ST9	030643 030024 0   0   0            0            000000000001 


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

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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 735
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0951

*030644 JRST	0,030652
INITIAL
C(AC)=000000 000000 
C(E)=332000 030041 
FINAL

C(E)=332000 030041 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030644 030644 0   0   254000030652 0            254000030652 
IT1	030644 0      0   0   254000030652 0            254000030652 
AT3	030644 0      0   0   000000030652 0            254000030652 
AT6	030644 030652 0   0   000000030652 0            254000030652 
FT1A	030644 030652 0   0   000000030652 0            254000030652 
FT9	030645 030652 0   0   000000030652 0            254000030652 
ET0	030652 030645 0   0   000000030652 0            254000030652 
ST1A	030652 030645 0   0   000000030652 0            254000030652 
ST9	030652 030645 0   0   000000030652 0            254000030652 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030652 030652 0   0   332000030041 0            0            
IT1	030652 0      0   0   332000030041 0            0            
AT3	030652 0      0   0   000000030041 0            332000030041 
AT6	030652 030041 0   0   000000030041 0            332000030041 
FT0	030652 030041 0   0   0            0            332000030041 
FT1A	030652 030041 0   0   0            0            0            
FT9	030653 030041 0   0   0            0            0            
ET0	030654 030041 0   0   0            0            0            
ST1A	030654 030041 0   0   0            0            0            
ST9	030654 030041 0   0   0            0            0            


*030654 DATAO	4,030024

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030654 030654 0   0   700540030024 0            000000030024 
IT1	030654 0      0   0   700540030024 0            000000030024 
AT3	030654 0      0   0   000000030024 0            700540030024 
AT6	030654 030024 0   0   000000030024 0            700540030024 
FT1A	030654 030024 0   0   000000030024 0            000000030024 
FT2	030654 030024 0   0   0            0            000000030024 
FT2RQ	030654 030024 0   0   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  19-JAN-77   PAGE 736
DAKAA	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0952

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 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030655 030655 0   0   332000030024 0            0            
IT1	030655 0      0   0   332000030024 0            0            
AT3	030655 0      0   0   000000030024 0            332000030024 
AT6	030655 030024 0   0   000000030024 0            332000030024 
FT0	030655 030024 0   0   0            0            332000030024 
FT1A	030655 030024 0   0   0            0            0            
FT9	030656 030024 0   0   0            0            0            
ET0	030657 030024 0   0   0            0            0            
ST1A	030657 030024 0   0   0            0            0            
ST9	030657 030024 0   0   0            0            0            


*030657 JRST	0,@030012
INITIAL
C(AC)=000000 000000 
C(E)=000000 431100 
FINAL

C(E)=000000 431100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030657 030657 0   0   254020030012 0            000000431100 
IT1	030657 0      0   0   254020030012 0            000000431100 
AT3	030657 0      0   0   000000030012 0            254020030012 
AT4	030657 030012 0   0   000000431100 0            254020030012 
IT1	030657 0      0   0   000000431100 0            254020030012 
AT3	030657 0      0   0   000000431100 0            000000431100 
AT6	030657 0      0   0   000000431100 0            000000431100 
FT1A	030657 0      0   0   000000431100 0            000000431100 
FT9	030660 0      0   0   000000431100 0            000000431100 
ET0	0      030660 0   0   000000431100 0            000000431100 
ST1A	0      030660 0   0   000000431100 0            000000431100 
ST9	0      030660 0   0   000000431100 0            000000431100