Google
 

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




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

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

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

	FUNCTION:	LOGICAL, HALF WORD, ADDER

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


1.0	ABSTRACT

	THIS PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC IS THE
	THIRD IN A SERIES OF PDP-10 KA10 PROCESSOR DIAGNOSTICS.
	THE DIAGNOSTIC TESTS SOME FOLLOWING INSTRUCTIONS.
	LOGICAL TEST, HALF WORD INSTRUCTIONS AND THE ADDER.

2.0	REQUIREMENTS

2.1	EQUIPMENT

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

	PAPER-TAPE READER
	DECTAPE (OPTIONAL)
	CONSOLE TELETYPE

2.2	STORAGE

	THE PROGRAM RUNS WITHIN 32K OF MEMORY.

2.3	PRELIMINARY PROGRAMS

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

PRODUCT CODE:		MAINDEC-10-DAKAC

PRODUCT NAME:		BASIC INSTRUCTION DIAGNOSTIC #3

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

************************************************************************
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 1
DAKACT	MAC	19-JAN-77 13:36		DIAGNOSTIC PARAMETERS                                                              SEQ 0007

     1					;DAKAC
     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	DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 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
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 2
DAKACT	MAC	19-JAN-77 13:36		DIAGNOSTIC PARAMETERS                                                              SEQ 0008

    30					SUBTTL	DIAGNOSTIC PARAMETERS
    31					;PARAMETER DEFINITIONS
    32			000001		EXCASB==1
    33			000001		USRASB==1
    34			000001		PGMEND==1
    35			000100		DEBUG==100
    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			030741		SADR1=STARTA
    55			030741		SADR2=STARTA
    56			030741		SADR3=STARTA
    57			030741		SADR4=STARTA
    58		254000	030741		SADR5=JRST STARTA
    59		254000	030741		SADR6=JRST STARTA
    60		254000	030741		SADR7=JRST STARTA
    61		254000	030741		SADR8=JRST STARTA
    62		254000	030741		SADR9=JRST STARTA
    63		254000	030741		SADR10=JRST STARTA
    64		254000	030741		SADR11=JRST STARTA
    65
    66			000000		PAREA0=0
    67			000000		PAREA1=0
    68			000000		PAREA2=0
    69		444153	414300		PAREA3=SIXBIT/DAKAC/
    70		645560	000000		PAREA4=SIXBIT/TMP/
    71			000000		PAREA5=0
    72			000000		PAREA6=0
    73			001000		ITERAT==1000
    74			000001		PGMEND==1
    75						.DIRECTIVE	.OKOVL
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 1
PARAM	KLM	18-JAN-77 11:38		*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977                               SEQ 0009

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

   877					SUBTTL	TEST OF LOGICAL TEST INSTRUCTIONS
   878
   879					;**********
   880
   881					;THIS TEST VERIFIES THAT TDN DOES NOT MODIFY THE AC BECAUSE
   882					;TDN IS A NO-OP
   883					;FIRST, THE AC IS PRELOADED WITH 0.  THEN,
   884					;TDN IS EXECUTED.  THE AC IS THEN CHECKED FOR
   885					;NO MODIFICATION.  IF C(AC) IS UNALTERED, THE TEST PASSES
   886	030742	400 00 0 00 000000 	B12600:	SETZ			;PRELOAD AC WITH 0
   887	030743	610 00 0 00 034012 		TDN	[-1]		;*TDN IS A NO-OP
   888	030744	310 00 0 00 000000 		CAM			;CAM IS A NO-OP.  IT IS HERE IN CASE TDN SKIPS
   889	030745	302 00 0 00 000000 		CAIE			;PASS TEST IF C(AC) IS UNMODIFIED BY TDN
   890						STOP^
   891	030746	254 04 0 00 030747 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   892	030747	324 00 0 00 030750 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   893									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
   894									;IN THE SUBTEST) TO LOOP ON ERROR^
   895
   896					;*****     FAILURE ANALYSIS     *****
   897					;C(AC0)		C(AC1)		FAILING SIGNAL
   898
   899					;-1,,-1				FC: AD FM + EN
   900
   901					;**********
   902
   903					;THIS TEST VERIFIES THAT TSN DOES NOT MODIFY THE AC BECAUSE
   904					;TSN IS A NO-OP
   905					;FIRST, THE AC IS PRELOADED WITH -1.  THEN,
   906					;TSN IS EXECUTED.  THE AC IS THEN CHECKED FOR
   907					;NO MODIFICATION.  IF C(AC) IS UNALTERED, THIS TEST PASSES
   908
   909	030750	474 00 0 00 000000 	B12700:	SETO			;PRELOAD AC WITH -1,,-1
   910	030751	611 00 0 00 034013 		TSN	[XWD -1,0]	;*TSN IS A NO-OP
   911	030752	310 00 0 00 000000 		CAM			;CAM IS A NO-OP.  IT IS HERE IN CASE TSN SKIPS
   912	030753	312 00 0 00 034012 		CAME	[-1]		;PASS TEST IF C(AC) IS UNMODIFIED BY TSN
   913						STOP^
   914	030754	254 04 0 00 030755 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   915	030755	324 00 0 00 030756 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   916									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
   917									;IN THE SUBTEST) TO LOOP ON ERROR^
   918
   919					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 3
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0029

   920					;THIS TEST VERIFIES THAT TRN DOE NOT MODIFY THE AC BECAUSE
   921					;TRN IS A NO-OP.
   922					;FIRST, THE AC IS PRELOADED WITH 0.  THEN,
   923					;TRN IS EXECUTED.  THE AC IS THEN CHECKED FOR
   924					;NO MODIFICATION.  IF C(AC) IS UNALTERED, THIS TEST PASSES
   925
   926	030756	400 00 0 00 000000 	B13000:	SETZ			;PRELOAD AC WITH 0
   927	030757	600 00 0 00 123456 		TRN	123456		;*TRN IS A NO-OP
   928	030760	310 00 0 00 000000 		CAM			;CAM IS A NO-OP.  IT IS HERE IN CASE TRN SKIPS
   929	030761	302 00 0 00 000000 		CAIE			;PASS TEST IF C(AC) IS UNMODIFIED BY TRN
   930						STOP^
   931	030762	254 04 0 00 030763 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   932	030763	324 00 0 00 030764 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   933									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
   934									;IN THE SUBTEST) TO LOOP ON ERROR^
   935
   936					;**********
   937
   938					;THIS TEST VERIFIES THAT TLN DOES NOT MODIFY THE AC BECAUSE
   939					;TLN IS A NO-OP.
   940					;FIRST,THE AC IS PRELOADED WITH -1,,-1.  THEN,
   941					;TRN IS EXECUTED.  THE AC IS THEN CHECKED FOR
   942					;NO MODIFICATION.  IF C(AC) IS UNALTERED, THIS TEST PASSES
   943
   944	030764	474 00 0 00 000000 	B13100:	SETO			;PRELOAD AC WITH -1,,-1
   945	030765	601 00 0 00 123456 		TLN	123456		;*TRN IS A NO-OP
   946	030766	310 00 0 00 000000 		CAM			;CAM IS A NO-OP.  IT IS HERE IN CASE TRN SKIPS
   947	030767	312 00 0 00 000000 		CAME			;PASS TEST IF C(AC) IS UNMODIFIED BY TRN
   948						STOP^
   949	030770	254 04 0 00 030771 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   950	030771	324 00 0 00 030772 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   951									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
   952									;IN THE SUBTEST) TO LOOP ON ERROR^
   953
   954					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 4
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0030

   955					;THIS TEST VERIFIES THAT TDO PLACES ONES IN THE BITS OF THE AC
   956					;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC.
   957					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1.
   958					;THE AC IS CHECKED FOR -1,,-1.  IF C(AC) -1,,-1, THE TEST PASSES.
   959
   960	030772	400 00 0 00 000000 	B13200:	SETZ			;PRELOAD AC WITH 0
   961	030773	670 00 0 00 034012 		TDO	[-1]		;*TDO SHOULD PLACE ALL ONES IN THE AC
   962	030774	300 00 0 00 000000 		CAI			;CAI IS A NO-OP.  IT IS HERE IN CASE TDO SKIPS
   963	030775	312 00 0 00 034012 		CAME	[-1]		;PASS TEST IF C(AC)=-1,,-1
   964						STOP^
   965	030776	254 04 0 00 030777 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   966	030777	324 00 0 00 031000 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   967									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
   968									;IN THE SUBTEST) TO LOOP ON ERROR^
   969
   970					;*****     FAILURE ANALYSIS     *****
   971					;C(AC0)		C(AC1)		FAILING SIGNAL
   972
   973					;E				SW: FCE
   974					;0				SW: ET1
   975					;0				ET1: BR AR EN
   976					;0				ET1: AD BR - EN
   977					;0				ET1: AD EQV
   978
   979					;**********
   980
   981					;THIS TEST VERIFIES THAT TDO PLACES ONES IN THE BITS OF THE AC
   982					;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC.
   983					;IN THIS CASE, AC=E AND C(AC)= C(E)=0.  HENCE, THE RESULT IN THE AC SHOULD BE 0.
   984					;THIS AC IS CHECKED FOR ZERO.  IF C(AC) IS ZERO, THE TEST PASSES.
   985
   986	031000	400 00 0 00 000000 	B13300:	SETZ			;PRELOAD AC WITH 0
   987	031001	670 00 0 00 000000 		TDO			;*TDO SHOULD PLACE ALL ZERO IN THE AC		
   988	031002	300 00 0 00 000000 		CAI			;CAI IS A NO-OP.  IT IS HERE IN CASE TDO SKIPS
   989	031003	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC) ZERO
   990						STOP^
   991	031004	254 04 0 00 031005 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   992	031005	324 00 0 00 031006 		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^
   995
   996					;*****     FAILURE ANALYSIS     *****
   997					;C(AC0)		C(AC1)		FAILING SIGNAL
   998
   999					;-1,,-1				ET1: AD AR + EN
  1000
  1001					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 5
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0031

  1002					;THIS TEST VERIFIES THAT TDO PLACES ONES IN THE BITS OF THE AC,
  1003					;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC.
  1004					;IN THIS CASE, C(AC)=0 AND C(E)=0.  HENCE, THE RESULT IN THE AC SHOULD BE 0.
  1005					;THE AC IS CHECKED FOR ITS CONTENTS ZERO.  IF C(AC) IS ZERO, THE TEST PASSES.
  1006
  1007	031006	400 00 0 00 000000 	B13400:	SETZ			;PRELOAD AC WITH 0
  1008	031007	670 00 0 00 034014 		TDO	[0]		;*TDO SHOULD PLACE ALL ZERO IN THE AC
  1009	031010	300 00 0 00 000000 		CAI			;CAI IS A NO-OP.  IT IS HERE IN CASE TDO SKIPS
  1010	031011	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC) IS ZERO
  1011						STOP^
  1012	031012	254 04 0 00 031013 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1013	031013	324 00 0 00 031014 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1014									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1015									;IN THE SUBTEST) TO LOOP ON ERROR^
  1016
  1017					;**********
  1018
  1019					;THIS TEST VERIFIES THAT TDO PLACES ONES IN THE BITS OF THE AC
  1020					;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC.
  1021					;IN THIS CASE, AC=E AND C(AC)= C(E)=-1,,-1.
  1022					;HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1.
  1023					;THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THE TEST PASSES.
  1024
  1025	031014	474 00 0 00 000000 	B13600:	SETO			;PRELOAD AC WITH -1,,-1
  1026	031015	670 00 0 00 000000 		TDO			;*TDO SHOULD PLACE ALL ONES IN THE AC
  1027	031016	300 00 0 00 000000 		CAI			;CAI IS A NO-OP.  IT IS HERE IN CASE TDO SKIPS
  1028	031017	312 00 0 00 034012 		CAME	[-1]		;PASS TEST IF C(AC) -1,,-1
  1029						STOP^
  1030	031020	254 04 0 00 031021 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1031	031021	324 00 0 00 031022 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1032									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1033									;IN THE SUBTEST) TO LOOP ON ERROR^
  1034
  1035					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 6
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0032

  1036					;THIS TEST VERIFIES THAT TDO PLACES ONES IN THE BITS OF THE AC
  1037					;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC.
  1038					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0.  HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1.
  1039					;THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THE TEST PASSES.
  1040
  1041	031022	474 00 0 00 000000 	B14000:	SETO			;PRELOAD AC WITH -1,,-1
  1042	031023	670 00 0 00 034014 		TDO	[0]		;*TDO SHOULD PLACE ALL ONES IN THE AC
  1043	031024	300 00 0 00 000000 		CAI			;CAI IS A NO-OP.  IT IS HERE IN CASE TDO SKIPS
  1044	031025	312 00 0 00 034012 		CAME	[-1]		;PASS TEST IF C(AC)=-1,,-1
  1045						STOP^
  1046	031026	254 04 0 00 031027 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1047	031027	324 00 0 00 031030 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1048									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1049									;IN THE SUBTEST) TO LOOP ON ERROR^
  1050
  1051					;*****     FAILURE ANALYSIS     *****
  1052					;C(AC0)		C(AC1)		FAILING SIGNAL
  1053
  1054					;0				ET1: AD FM - EN
  1055					;0				ET2: AR AD EN
  1056
  1057					;**********
  1058
  1059					;THIS TEST VERIFIES THAT TDZ PLACES ZERO IN THE BITS OF THE AC
  1060					;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC.
  1061					;IN THIS CASE, AC=E AND C(AC)= C(E)=0.  HENCE, THE RESULT IN THE AC SHOULD BE 0.
  1062					;THE AC IS CHECKED FOR 0.  IF C(AC) 0, THE TEST PASSES.
  1063
  1064	031030	400 00 0 00 000000 	B14100:	SETZ			;PRELOAD AC WITH 0		
  1065	031031	630 00 0 00 000000 		TDZ			;*TDZ SHOULD PLACE ALL ZERO IN THE AC
  1066	031032	300 00 0 00 000000 		CAI			;CAI IS A NO-OP.  IT IS HERE IN CASE TDO
  1067	031033	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1068						STOP^
  1069	031034	254 04 0 00 031035 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1070	031035	324 00 0 00 031036 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1071									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1072									;IN THE SUBTEST) TO LOOP ON ERROR^
  1073
  1074					;*****     FAILURE ANALYSIS     *****
  1075					;C(AC0)		C(AC1)		FAILING SIGNAL
  1076
  1077					;-1,,-1				FC: AD FM + EN
  1078
  1079					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 7
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0033

  1080					;THIS TEST VERIFIES THAT TDZ PLACES ZERO IN THE BITS OF THE AC
  1081					;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC.
  1082					;IN THIS CASE, C(AC)=-1,,-1,,-1 AND C(E)=-1,,0.
  1083					;HENCE, THE RESULT IN THE AC SHOULD BE 0,,-1.
  1084					;THE AC IS CHECKED FOR 0,,-1.  IF C(AC)= 0,,-1, THE TEST PASSES.
  1085
  1086	031036	474 00 0 00 000000 	B14200:	SETO			;PRELOAD AC WITH -1,,-1		
  1087	031037	630 00 0 00 034013 		TDZ	[XWD -1,0]	;*TDZ SHOULD PLACE 0,,-1 IN THE AC
  1088	031040	300 00 0 00 000000 		CAI			;CAI IS A NO-OP.  IT IS HERE IN CASE TDO
  1089	031041	312 00 0 00 034015 		CAME	[0,-1]		;PASS TEST IF C(AC)=0,,-1
  1090						STOP^
  1091	031042	254 04 0 00 031043 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1092	031043	324 00 0 00 031044 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1093									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1094									;IN THE SUBTEST) TO LOOP ON ERROR^
  1095
  1096					;*****     FAILURE ANALYSIS     *****
  1097					;C(AC0)		C(AC1)		FAILING SIGNAL
  1098
  1099					;-E				SW: FCE
  1100					;-1,,-1				FC: AD AR -EN
  1101					;-1,,0				ET2: AR AD EN
  1102
  1103					;**********
  1104
  1105					;THIS TEST VERIFIES THAT TDZ PLACES ZEROS IN THE BITS OF THE AC
  1106					;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC.
  1107					;IN THIS CASE, AC=E AND C(AC)= C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC SHOULD BE 0.
  1108					;THE AC IS CHECKED FOR 0.  IF C(AC)=0, THE TEST PASSES.
  1109
  1110	031044	474 00 0 00 000000 	B14400:	SETO			;PRELOAD AC WITH -1,,-1
  1111	031045	630 00 0 00 000000 		TDZ			;*TDZ SHOULD PLACE ALL ZERO IN THE AC
  1112	031046	300 00 0 00 000000 		CAI			;CAI IS A NO-OP.  IT IS HERE IN CASE TDO
  1113	031047	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1114						STOP^
  1115	031050	254 04 0 00 031051 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1116	031051	324 00 0 00 031052 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1117									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1118									;IN THE SUBTEST) TO LOOP ON ERROR^
  1119
  1120					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 8
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0034

  1121					;THIS TEST VERIFIES THAT TDZ PLACES ZEROS IN THE BITS OF THE AC
  1122					;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC.
  1123					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC SHOULD BE 0.
  1124					;THE AC IS CHECKED FOR 0.  IF C(AC)=0, THE TEST PASSES.
  1125
  1126	031052	400 00 0 00 000000 	B14500:	SETZ			;PRELOAD AC WITH 0
  1127	031053	630 00 0 00 034012 		TDZ	[-1]		;*TDZ SHOULD PLACE ALL ZEROS IN THE AC
  1128	031054	300 00 0 00 000000 		CAI			;CAI IS A NO-OP.  IT IS HERE IN CASE TDO
  1129	031055	332 00 0 00 000000 		SKIPE			;PASS TEST IS C(AC)=0
  1130						STOP^
  1131	031056	254 04 0 00 031057 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1132	031057	324 00 0 00 031060 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1133									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1134									;IN THE SUBTEST) TO LOOP ON ERROR^
  1135
  1136					;**********
  1137
  1138					;THIS TEST VERIFIES THAT TDZ PLACES ZEROS IN THE BITS OF THE AC
  1139					;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC.
  1140					;IN THIS CASE, AC=E AND C(AC)= C(E)=-1,,-1.
  1141					;HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1.
  1142					;THE AC IS CHECKED -1,,-1.  IF C(AC)=-1,,-1, THE TEST PASSES.
  1143
  1144	031060	474 00 0 00 000000 	B14600:	SETO			;PRELOAD AC WITH -1,,-1
  1145	031061	630 00 0 00 034014 		TDZ	[0]		;*TDZ SHOULD PLACE ALL ONES IN THE AC
  1146	031062	300 00 0 00 000000 		CAI			;CAI IS A NO-OP.  IT IS HERE IN CASE TDO
  1147	031063	312 00 0 00 034012 		CAME	[-1]		;PASS TEST IF C(AC)=-1,,-1
  1148						STOP^
  1149	031064	254 04 0 00 031065 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1150	031065	324 00 0 00 031066 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1151									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1152									;IN THE SUBTEST) TO LOOP ON ERROR^
  1153					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 9
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0035

  1154					;THIS TEST VERIFIES THAT TDC COMPLEMENTS THE BITS OF THE AC
  1155					;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC.
  1156					;IN THIS CASE, C(AC)=-1 AND C(E)=0,,-1.  HENCE, THE RESULT IN THE AC SHOULD BE -1,,0.
  1157					;THE AC IS CHECKED FOR -1,,0.  IF C(AC)=-1,,0, THIS TEST PASSES
  1158
  1159	031066	474 00 0 00 000000 	B14700:	SETO			;PRELOAD AC WITH -1,,-1
  1160	031067	650 00 0 00 034015 		TDC	[XWD 0,-1]	;*TDC SHOULD PLACE -1,,0 INTO THE AC
  1161	031070	300 00 0 00 000000 		CAI			;CAI IS A NO-OP.  IT IS HERE IN CASE TDC SKIPS
  1162	031071	312 00 0 00 034013 		CAME	[-1,,0]		;PASS TEST IF C(AC)=-1,,0
  1163						STOP^
  1164	031072	254 04 0 00 031073 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1165	031073	324 00 0 00 031074 		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					;*****     FAILURE ANALYSIS     *****
  1170					;C(AC0)		C(AC1)		FAILING SIGNAL
  1171
  1172					;-E				SW: FCE
  1173					;0				FC: AD AR - EN
  1174					;0,,-1				ET2: AR AD EN
  1175
  1176					;**********
  1177
  1178					;THIS TEST VERIFIES THAT TDC COMPLEMENTS THE BITS OF THE AC
  1179					;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC.
  1180					;IN THIS CASE, AC=E AND C(AC)= C(E)=0.  HENCE, THE RESULT IN THE AC SHOULD BE 0.
  1181					;THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES
  1182
  1183	031074	400 00 0 00 000000 	B15000:	SETZ			;PRELOAD AC, E WITH 0
  1184	031075	650 00 0 00 000000 		TDC			;*TDC SHOULD PLACE 0 INTO THE AC
  1185	031076	300 00 0 00 000000 		CAI			;CAI IS A NO-OP.  IT IS HERE IN CASE TDC SKIPS
  1186	031077	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1187						STOP^
  1188	031100	254 04 0 00 031101 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1189	031101	324 00 0 00 031102 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1190									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1191									;IN THE SUBTEST) TO LOOP ON ERROR^
  1192
  1193					;*****     FAILURE ANALYSIS     *****
  1194					;C(AC0)		C(AC1)		FAILING SIGNAL
  1195
  1196					;-1,,-1				FC:AD FM + EN
  1197
  1198					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 10
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0036

  1199					;THIS TEST VERIFIES THAT TDC COMPLEMENTS THE BITS OF THE AC
  1200					;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC.
  1201					;IN THIS CASE, AC=E AND C(AC)= C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC SHOULD BE 0.
  1202					;THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST FAILS
  1203
  1204	031102	474 00 0 00 000000 	B15400:	SETO			;PRELOAD AC WITH -1,,-1		
  1205	031103	650 00 0 00 000000 		TDC			;*TDC SHOULD PLACE 0 INTO THE AC
  1206	031104	300 00 0 00 000000 		CAI			;CAI IS A NO-OP.  IT IS HERE IN CASE TDC SKIPS
  1207	031105	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1208						STOP^
  1209	031106	254 04 0 00 031107 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1210	031107	324 00 0 00 031110 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1211									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1212									;IN THE SUBTEST) TO LOOP ON ERROR^
  1213
  1214					;**********
  1215
  1216					;THIS TEST VERIFIES THAT TDC COMPLEMENTS THE BITS OF THE AC
  1217					;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC.
  1218					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1.
  1219					;THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES
  1220
  1221	031110	400 00 0 00 000000 	B15500:	SETZ			;PRELOAD AC WITH 0		
  1222	031111	650 00 0 00 034012 		TDC	[-1]		;*TDC SHOULD PLACE -1,,-1 INTO THE AC
  1223	031112	300 00 0 00 000000 		CAI			;CAI IS A NO-OP.  IT IS HERE IN CASE TDC SKIPS
  1224	031113	312 00 0 00 034012 		CAME	[-1]		;PASS TEST IF C(AC)=-1,,-1
  1225						STOP^
  1226	031114	254 04 0 00 031115 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1227	031115	324 00 0 00 031116 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1228									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1229									;IN THE SUBTEST) TO LOOP ON ERROR^
  1230
  1231					;*****     FAILURE ANALYSIS     *****
  1232					;C(AC0)		C(AC1)		FAILING SIGNAL
  1233
  1234					;0				FC: AD EQV
  1235
  1236					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 11
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0037

  1237					;THIS TEST VERIFIES THAT TDC COMPLEMENTS THE BITS OF THE AC
  1238					;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC.
  1239					;IN THIS CASE, C(AC)=-1 AND C(E)=0.  HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1.
  1240					;THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES
  1241
  1242	031116	474 00 0 00 000000 	B15600:	SETO			;PRELOAD AC WITH -1,,-1		
  1243	031117	650 00 0 00 034014 		TDC	[0]		;*TDC SHOULD PLACE -1,,-1 INTO THE AC
  1244	031120	300 00 0 00 000000 		CAI			;CAI IS A NO-OP.  IT IS HERE IN CASE TDC SKIPS
  1245	031121	312 00 0 00 034012 		CAME	[-1]		;PASS TEST IF C(AC)=-1,,-1
  1246						STOP^
  1247	031122	254 04 0 00 031123 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1248	031123	324 00 0 00 031124 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1249									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1250									;IN THE SUBTEST) TO LOOP ON ERROR^
  1251
  1252					;**********
  1253
  1254					;THIS TEST VERIFIES THAT TDNA ALWAYS SKIPS THE NEXT
  1255					;SEQUENTIAL INSTRUCTION.  IF TDNA DOES NOT
  1256					;SKIP, THIS TEST FAILS.
  1257
  1258	031124	400 00 0 00 000000 	B15700:	SETZ			;PRESET AC, E TO 0		
  1259	031125	614 00 0 00 000000 		TDNA			;*TDNA SHOULD SKIP THE NEXT INSTRUCTION
  1260						STOP^
  1261	031126	254 04 0 00 031127 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1262	031127	324 00 0 00 031130 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1263									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1264									;IN THE SUBTEST) TO LOOP ON ERROR^
  1265
  1266					;*****     FAILURE ANALYSIS     *****
  1267					;C(AC0)		C(AC1)		FAILING SIGNAL
  1268
  1269					;0				SW: ET1
  1270					;0				FC: AB PC EN
  1271					;0				ET1: BR AR EN
  1272					;0				ET1: PC CLOCK
  1273					;0				ET2: MC INST FETCH EN
  1274
  1275					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 12
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0038

  1276					;THIS TEST VERIFIES THAT TDN NEVER SKIPS
  1277					;NEXT SEQUENTIAL INSTRUCTION.
  1278					;THIS TEST FAILS IF TDN SKIPS.
  1279
  1280	031130	474 00 0 00 000000 	B16000:	SETO			;PRESET AC, E TO -1,,-1		
  1281	031131	610 00 0 00 000000 		TDN			;*TDN SHOULD NOT SKIP
  1282	031132	334 00 0 00 000000 		SKIPA			;SKIP HALT IF TDN PASSES
  1283						STOP^
  1284	031133	254 04 0 00 031134 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1285	031134	324 00 0 00 031135 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1286									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1287									;IN THE SUBTEST) TO LOOP ON ERROR^
  1288
  1289					;**********
  1290
  1291					;THIS TEST VERIFIES THAT TDN NEVER SKIPS THE
  1292					;NEXT SEQUENTIAL INSTRUCTION.
  1293					;THIS TEST FAILS IF TDN SKIPS.
  1294
  1295	031135	400 00 0 00 000000 	B16100:	SETZ			;PRESET AC, E TO 0		
  1296	031136	610 00 0 00 000000 		TDN			;*TDN SHOULD NOT SKIP
  1297	031137	334 00 0 00 000000 		SKIPA			;SKIP HALT IF TDN PASSES
  1298						STOP^
  1299	031140	254 04 0 00 031141 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1300	031141	324 00 0 00 031142 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1301									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1302									;IN THE SUBTEST) TO LOOP ON ERROR^
  1303
  1304					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 13
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0039

  1305					;THIS TEST VERIFIES THAT TDNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN
  1306					;AND ONLY WHEN ALL OF THE BITS OF THE AC, WHICH ARE MASKED
  1307					;BY C(E), ARE ZERO.
  1308					;IN THIS TEST C(AC) = -1..0 AND C(E) = 707070..707070.
  1309					;HENCE, TDNE SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION.
  1310					;IF TDNE SKIPS, THIS TEST FAILS
  1311
  1312	031142	200 00 0 00 034013 	B16200:	MOVE	[XWD -1,0]	;PRELOAD AC WITH -1..0
  1313	031143	612 00 0 00 034016 		TDNE	[707070707070]	;*TDNE SHOULD NOT SKIP
  1314	031144	334 00 0 00 000000 		SKIPA			;SKIP HALT IF TDNE PASSES
  1315						STOP^
  1316	031145	254 04 0 00 031146 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1317	031146	324 00 0 00 031147 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1318									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1319									;IN THE SUBTEST) TO LOOP ON ERROR^
  1320
  1321					;*****     FAILURE ANALYSIS     *****
  1322					;C(AC0)		C(AC1)		FAILING SIGNAL
  1323
  1324					;-1,,0				SW:FCE
  1325					;-1,,0				SW: PC CHANGE
  1326					;-1,,-1				FC: AD AR + EN
  1327					;E				ET2: MC INST FETCH EN
  1328
  1329					;**********
  1330
  1331					;THIS TEST VERIFIES THAT TDNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN
  1332					;AND ONLY WHEN ALL OF THE BITS OF THE AC, WHICH ARE MASKED
  1333					;BY C(E), ARE ZERO.
  1334					;IN THIS CASE, AC=E AND C(AC)=0.
  1335					;HENCE, TDNE SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
  1336					;IF TDNE DOES NOT SKIP, THIS TEST FAILS.
  1337
  1338	031147	400 00 0 00 000000 	B16300:	SETZ			;PRELOAD AC, E WITH 0		
  1339	031150	612 00 0 00 000000 		TDNE			;*TDNE SHOULD SKIP THE NEXT INSTRUCTION
  1340						STOP^
  1341	031151	254 04 0 00 031152 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1342	031152	324 00 0 00 031153 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1343									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1344									;IN THE SUBTEST) TO LOOP ON ERROR^
  1345
  1346					;*****     FAILURE ANALYSIS     *****
  1347					;C(AC0)		C(AC1)		FAILING SIGNAL
  1348
  1349					;0				SW: ET1
  1350					;0				ET1: PC CLOCK
  1351
  1352					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 14
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0040

  1353					;THIS TEST VERIFIES THAT TDNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN 
  1354					;AND ONLY WHEN NOT ALL OF THE BITS OF THE AC, WHICH ARE MASKED
  1355					;BY C(E) ARE ZERO.
  1356					;IN THIS TEST AC=E AND C(AC)=C(E)=0.  HENCE TDNN
  1357					;SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
  1358					;IF TDNN SKIPS, THE TEST FAILS.
  1359
  1360	031153	400 00 0 00 000000 	B16400:	SETZ			;PRELOAD AC,E WITH 0
  1361	031154	616 00 0 00 000000 		TDNN			;*TDNN SHOULD NOT SKIP THE NEXT INSTRUCTION
  1362	031155	334 00 0 00 000000 		SKIPA			;SKIP HALT IF TDNE PASSES
  1363						STOP^
  1364	031156	254 04 0 00 031157 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1365	031157	324 00 0 00 031160 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1366									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1367									;IN THE SUBTEST) TO LOOP ON ERROR^
  1368
  1369					;*****     FAILURE ANALYSIS     *****
  1370					;C(AC0)		C(AC1)		FAILING SIGNAL
  1371
  1372					;0				SW: PC CHANGE
  1373					;0				FC: AB PC EN
  1374					;0				ET2: MC INST FETCH EN
  1375
  1376					;**********
  1377
  1378					;THIS TEST VERIFIES THAT TDNA ALWAYS SKIPS THE NEXT
  1379					;SEQUENTIAL INSTRUCTION.  IF TDNA DOES NOT
  1380					;SKIP, THIS TEST FAILS.
  1381
  1382	031160	474 00 0 00 000000 	B16500:	SETO			;PRESET AC, E TO 0		
  1383	031161	614 00 0 00 000000 		TDNA			;*TDNA SHOULD SKIP THE NEXT INSTRUCTION
  1384						STOP^
  1385	031162	254 04 0 00 031163 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1386	031163	324 00 0 00 031164 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1387									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1388									;IN THE SUBTEST) TO LOOP ON ERROR^
  1389
  1390					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 15
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0041

  1391					;THIS TEST VERIFIES THAT TDNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN
  1392					;AND ONLY WHEN NOT ALL OF THE BITS OF THE AC, WHICH ARE MASKED BY C(E),
  1393					;ARE ZERO
  1394					;IN THIS TEST C(AC)=-1,,0 AND C(E)=707070,,707070.  HENCE, TDNN
  1395					;SHOULD SKIP THE NEXT INSTRUCTION.  IF IT DOES NOT SKIP, THIS TEST FAILS.
  1396
  1397	031164	200 00 0 00 034013 	B16600:	MOVE	[XWD -1,0]	;PRESET AC TO -1,,0
  1398	031165	616 00 0 00 034016 		TDNN	[707070707070]	;*TDNN SHOULD SKIP THE NEXT INSTRUCTION
  1399						STOP^
  1400	031166	254 04 0 00 031167 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1401	031167	324 00 0 00 031170 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1402									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1403									;IN THE SUBTEST) TO LOOP ON ERROR^
  1404
  1405					;*****     FAILURE ANALYSIS     *****
  1406					;C(AC0)		C(AC1)		FAILING SIGNAL
  1407
  1408					;-1,,0				SW: FCE
  1409					;-1,,0				SW: ET1
  1410					;-1,,0				ET1: PC CLOCK
  1411
  1412					;**********
  1413
  1414					;THIS TEST VERIFIES THAT TDNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN
  1415					;AND ONLY WHEN ALL OF THE BITS OF THE AC, WHICH ARE MASKED
  1416					;BY C(E), ARE ZERO.
  1417					;IN THIS TEST, C(AC)=-1,,-1 AND C(E)=0.  HENCE, TDNE SHOULD SKIP
  1418					;THE NEXT SEQUENTIAL INSTRUCTION.
  1419					;IF TDNE DOES NOT SKIP, THIS TEST FAILS
  1420
  1421	031170	474 00 0 00 000000 	B16700:	SETO			;PRESET AC TO ALL ONES		
  1422	031171	612 00 0 00 034014 		TDNE	[0]		;*TDNE SHOULD SKIP THE NEXT INSTRUCTION
  1423						STOP^
  1424	031172	254 04 0 00 031173 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1425	031173	324 00 0 00 031174 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1426									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1427									;IN THE SUBTEST) TO LOOP ON ERROR^
  1428
  1429					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 16
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0042

  1430					;THIS TEST VERIFIES THAT TDNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN
  1431					;AND ONLY WHEN ALL OF THE BITS OF THE AC, WHICH ARE MASKED
  1432					;BY C(E), ARE ZERO.
  1433					;IN THIS TEST C(AC)=0 AND C(E)=-1,,-1, HENCE, TDNE SHOULD SKIP
  1434					;THE NEXT SEQUENTIAL INSTRUCTION.
  1435					;IF TDNE DOES NOT SKIP, THIS TEST FAILS
  1436
  1437	031174	400 00 0 00 000000 	B17000:	SETZ			;PRESET AC TO 0		
  1438	031175	612 00 0 00 034012 		TDNE	[-1]		;*TDNE SHOULD SKIP THE NEXT INSTRUCTION
  1439						STOP^
  1440	031176	254 04 0 00 031177 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1441	031177	324 00 0 00 031200 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1442									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1443									;IN THE SUBTEST) TO LOOP ON ERROR^
  1444
  1445					;*****     FAILURE ANALYSIS     *****
  1446					;C(AC0)		C(AC1)		FAILING SIGNAL
  1447
  1448					;0				FC: AD FM + EN
  1449
  1450					;**********
  1451
  1452					;THIS TEST VERIFIES THAT TDN NEVER SKIPS THE NEXT SEQUENTIAL INSTRUCTION.
  1453					;THIS TEST FAILS IF TDN SKIPS
  1454
  1455	031200	474 00 0 00 000000 	B17300:	SETO			;PRESET AC TO -1,,-1		
  1456	031201	610 00 0 00 034014 		TDN	[0]		;*TDN SHOULD NOT SKIP
  1457	031202	334 00 0 00 000000 		SKIPA			;SKIP HALT IF TDN PASSES
  1458						STOP^
  1459	031203	254 04 0 00 031204 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1460	031204	324 00 0 00 031205 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1461									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1462									;IN THE SUBTEST) TO LOOP ON ERROR^
  1463
  1464					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 17
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0043

  1465					;THIS TEST VERIFIES THAT TDN NEVER SKIPS THE NEXT SEQUENTIAL INSTRUCTION.
  1466					;THIS TEST FAILS IF TDN SKIPS
  1467
  1468	031205	400 00 0 00 000000 	B17400:	SETZ			;PRESET AC TO 0
  1469	031206	610 00 0 00 034012 		TDN	[-1]		;*TDN SHOULD NOT SKIP
  1470	031207	334 00 0 00 000000 		SKIPA			;SKIP HALT IF TDN PASSES
  1471						STOP^
  1472	031210	254 04 0 00 031211 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1473	031211	324 00 0 00 031212 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1474									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1475									;IN THE SUBTEST) TO LOOP ON ERROR^
  1476
  1477					;**********
  1478
  1479					;THIS TEST VERIFIES THAT TDNA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  1480					;THIS TEST FAILS IF TDNA DOES NOT SKIP
  1481
  1482	031212	474 00 0 00 000000 	B17700:	SETO			;PRESET AC TO -1,,-1
  1483	031213	614 00 0 00 034014 		TDNA	[0]		;*TDNA SHOULD SKIP
  1484						STOP^
  1485	031214	254 04 0 00 031215 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1486	031215	324 00 0 00 031216 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1487									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1488									;IN THE SUBTEST) TO LOOP ON ERROR^
  1489
  1490					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 18
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0044

  1491					;THIS TEST VERIFIES THAT TDNA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  1492					;THIS TEST FAILS IF TDNA DOES NOT SKIP
  1493
  1494	031216	400 00 0 00 000000 	B20000:	SETZ			;PRESET AC TO 0
  1495	031217	614 00 0 00 034012 		TDNA	[-1]		;*TDNA SHOULD SKIP
  1496						STOP^
  1497	031220	254 04 0 00 031221 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1498	031221	324 00 0 00 031222 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1499									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1500									;IN THE SUBTEST) TO LOOP ON ERROR^
  1501
  1502					;**********
  1503
  1504					;THIS TEST VERIFIES THAT TDNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN
  1505					;AND ONLY WHEN ALL OF THE BITS OF THE AC, WHICH ARE MASKED BY C(E), ARE ZERO.
  1506					;IN THIS TEST AC=E AND C(AC)=C(E)=-1,,-1.  HENCE TDNE SHOULD NOT SKIP.
  1507					;IF TDNE SKIPS, THIS TEST FAILS.
  1508
  1509	031222	474 00 0 00 000000 	B20400:	SETO			;PRESET AC,E TO -1,,-1
  1510	031223	612 00 0 00 000000 		TDNE			;*TDNE SHOULD NOT SKIP
  1511	031224	334 00 0 00 000000 		SKIPA			;SKIP HALT IF TDNE PASSES
  1512						STOP^
  1513	031225	254 04 0 00 031226 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1514	031226	324 00 0 00 031227 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1515									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1516									;IN THE SUBTEST) TO LOOP ON ERROR^
  1517
  1518					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 19
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0045

  1519					;THIS TEST VERIFIES THAT TDNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN
  1520					;AND ONLY WHEN NOT ALL OF THE BITS OF THE AC, WHICH ARE MASKED BY C(E), ARE ZERO.
  1521					;IN THIS TEST, AC=E AND C(AC)=C(E)=-1,,-1.  HENCE TDNN SHOULD SKIP
  1522					;IF TDNN DOES NOT SKIP, THIS TEST FAILS
  1523
  1524	031227	474 00 0 00 000000 	B20600:	SETO			;PRESET AC,E TO -1,,-1
  1525	031230	616 00 0 00 000000 		TDNN			;*TDNN SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
  1526						STOP^
  1527	031231	254 04 0 00 031232 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1528	031232	324 00 0 00 031233 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1529									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1530									;IN THE SUBTEST) TO LOOP ON ERROR^
  1531
  1532					;**********
  1533
  1534					;THIS TEST VERIFIES THAT TDNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN
  1535					;AND ONLY WHEN NOT ALL OF THE BITS OF THE AC, WHICH ARE MASKED BY C(E), ARE ZERO.
  1536					;IN THIS TEST, C(AC)=0 AND C(E)=-1,,-1.  HENCE TDNN SHOULD NOT SKIP
  1537					;IF TDNN SKIPS, THIS TEST FAILS
  1538
  1539	031233	400 00 0 00 000000 	B20700:	SETZ			;PRESET AC TO 0
  1540	031234	616 00 0 00 034012 		TDNN	[-1]		;*TDNN SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
  1541	031235	334 00 0 00 000000 		SKIPA			;SKIP HALT IF TDNN PASSES
  1542						STOP^
  1543	031236	254 04 0 00 031237 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1544	031237	324 00 0 00 031240 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1545									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1546									;IN THE SUBTEST) TO LOOP ON ERROR^
  1547
  1548					;*****     FAILURE ANALYSIS     *****
  1549					;C(AC0)		C(AC1)		FAILING SIGNAL
  1550
  1551					;0				FC: AD FM + EN
  1552
  1553					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 20
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0046

  1554					;THIS TEST VERIFIES THAT TDNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN
  1555					;AND ONLY WHEN NOT ALL OF THE BITS OF THE AC, WHICH ARE MASKED BY C(E), ARE ZERO.
  1556					;IN THIS TEST, C(AC)=-1,,-1 AND C(E)=0.  HENCE TDNN SHOULD NOT SKIP
  1557					;IF TDNN SKIPS, THIS TEST FAILS
  1558
  1559	031240	474 00 0 00 000000 	B21000:	SETO			;PRESET AC TO -1,,-1
  1560	031241	616 00 0 00 034014 		TDNN	[0]		;*TDNN SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
  1561	031242	334 00 0 00 000000 		SKIPA			;SKIP HALT IF TDNN PASSES
  1562						STOP^
  1563	031243	254 04 0 00 031244 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1564	031244	324 00 0 00 031245 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1565									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1566									;IN THE SUBTEST) TO LOOP ON ERROR^
  1567
  1568					;*****     FAILURE ANALYSIS     *****
  1569					;C(AC0)		C(AC1)		FAILING SIGNAL
  1570
  1571					;-1,,-1				FC: AD AR + EN
  1572
  1573					;**********
  1574
  1575					;THIS TEST VERIFIES THAT TDO PLACES ONES IN THE BITS OF THE AC
  1576					;WHICH ARE MASKED BY C(E) AND DOES NOT EFFECT THE UNMASKED BITS OF THE AC.
  1577					;IN THIS CASE C(AC)=0 AND C(E)=-1,,0.  HENCE, THE RESULT IN THE AC SHOULD BE -1,,0
  1578					;THE AC IS CHECKED FOR -1,,0.  IF C(AC)=-1,,0, THIS TEST PASSES
  1579
  1580	031245	400 00 0 00 000000 	B21100:	SETZ			;PRELOAD AC WITH 0
  1581	031246	670 00 0 00 034013 		TDO	[XWD -1,0]	;*TDO SHOULD PLACE -1,,0 INTO THE AC
  1582	031247	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0
  1583						STOP^
  1584	031250	254 04 0 00 031251 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1585	031251	324 00 0 00 031252 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1586									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1587									;IN THE SUBTEST) TO LOOP ON ERROR^
  1588
  1589					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 21
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0047

  1590					;THIS TEST VERIFIES THAT TSO PLACES ONES IN THE BITS OF THE AC
  1591					;WHICH ARE MASKED BY BOTH HALVES OF C(E) SWAPPED.
  1592					;THE UNMASKED BITS OF THE AC ARE NOT AFFECTED
  1593					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,0.  HENCE,
  1594					;THE RESULT IN THE AC SHOULD BE 0,,-1.  THE AC IS
  1595					;CHECKED FOR 0,,-1.  THIS TEST PASSES IF C(AC)=0,,-1
  1596
  1597	031252	400 00 0 00 000000 	B21400:	SETZ			;PRESET AC WITH 0
  1598	031253	671 00 0 00 034013 		TSO	[XWD -1,0]	;*TSO SHOULD PLACE 0,,-1 INTO THE AC
  1599	031254	312 00 0 00 034015 		CAME	[XWD 0,-1]	;PASS IF C(AC)=0,,-1
  1600						STOP^
  1601	031255	254 04 0 00 031256 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1602	031256	324 00 0 00 031257 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1603									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1604									;IN THE SUBTEST) TO LOOP ON ERROR^
  1605
  1606					;*****     FAILURE ANALYSIS     *****
  1607					;C(AC0)		C(AC1)		FAILING SIGNAL
  1608
  1609					;0				SW: FCE
  1610					;0				SW: ET0
  1611					;0				SW: ET1
  1612					;0				FC: AD FM + EN
  1613					;0				FC: AD AR + EN
  1614					;0				ET0: AR SWAP
  1615					;0				ET0: AD FM + EN
  1616					;0				ET0: AD AR + EN
  1617					;0				ET1: BR AR EN
  1618					;0				ET1: AD BR - EN
  1619					;-1,,-1				ET1: AD AR + EN
  1620					;0				ET1: AD EQV
  1621
  1622					;**********
  1623
  1624					;THIS TEST VERIFIES THAT TSO PLACES ONES IN THE BITS OF THE AC
  1625					;WHICH ARE MASKED BY BOTH HALVES OF C(E) SWAPPED.
  1626					;THE UNMASKED BITS OF THE AC ARE NOT AFFECTED
  1627					;IN THIS CASE, C(AC)=0 AND C(E)=0,,-1.  HENCE,
  1628					;THE RESULT IN THE AC SHOULD BE -1,,0.  THE AC IS
  1629					;CHECKED FOR -1,,0.  THIS TEST PASSES IF C(AC)=-1,,0
  1630
  1631	031257	400 00 0 00 000000 	B21500:	SETZ			;PRESET AC WITH 0
  1632	031260	671 00 0 00 034015 		TSO	[XWD 0,-1]	;*TSO SHOULD PLACE -1,,0 INTO THE AC
  1633	031261	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0
  1634						STOP^
  1635	031262	254 04 0 00 031263 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1636	031263	324 00 0 00 031264 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1637									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1638									;IN THE SUBTEST) TO LOOP ON ERROR^
  1639
  1640					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 22
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0048

  1641					;THIS TEST VERIFIES THAT TSO PLACES ONES IN THE BITS OF THE AC
  1642					;WHICH ARE MASKED BY BOTH HALVES OF C(E) SWAPPED.
  1643					;THE UNMASKED BITS OF THE AC ARE NOT AFFECTED
  1644					;IN THIS CASE, C(AC)=0 AND C(E)=0,,-1.  HENCE,
  1645					;THE RESULT IN THE AC SHOULD BE -1,,0.  THE AC IS
  1646					;CHECKED FOR ITS CONTENTS NON-ZERO.  THIS TEST PASSES IF C(AC) IS NON-ZERO
  1647
  1648	031264	400 00 0 00 000000 	B21600:	SETZ			;PRELOAD AC,E WITH 0
  1649	031265	671 00 0 00 000000 		TSO			;*TSO SHOULD PLACE 0 INTO THE AC
  1650	031266	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  1651						STOP^
  1652	031267	254 04 0 00 031270 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1653	031270	324 00 0 00 031271 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1654									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1655									;IN THE SUBTEST) TO LOOP ON ERROR^
  1656
  1657					;**********
  1658
  1659					;THIS TEST VERIFIES THAT TSO PLACES ONES IN THE BITS OF THE AC
  1660					;WHICH ARE MASKED BY BOTH HALVES OF C(E) SWAPPED.
  1661					;THE UNMASKED BITS OF THE AC ARE NOT AFFECTED
  1662					;IN THIS CASE, AC=E AND C(AC)=C(E)=-1,,-1.  HENCE,
  1663					;THE RESULT IN THE AC SHOULD BE -1,,-1.  THE AC IS
  1664					;CHECKED FOR -1,,-1.  THIS TEST PASSES IF C(AC) -1,,-1
  1665
  1666	031271	474 00 0 00 000000 	B21700:	SETO			;PRELOAD AC,E WITH -1,,-1
  1667	031272	671 00 0 00 000000 		TSO			;*TSO SHOULD PLACE -1,,-1 INTO THE AC
  1668	031273	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  1669						STOP^
  1670	031274	254 04 0 00 031275 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1671	031275	324 00 0 00 031276 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1672									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1673									;IN THE SUBTEST) TO LOOP ON ERROR^
  1674
  1675					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 23
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0049

  1676					;THIS TEST VERIFIES THAT TSO PLACES ONES IN THE BITS OF THE AC
  1677					;WHICH ARE MASKED BY BOTH HALVES OF C(E) SWAPPED.
  1678					;THE UNMASKED BITS OF THE AC ARE NOT AFFECTED
  1679					;IN THIS CASE, C(AC)=-1,,0 AND C(E)=0,,-1.  HENCE,
  1680					;THE RESULT IN THE AC SHOULD BE -1,,0.  THE AC IS
  1681					;CHECKED FOR -1,,0.  THIS TEST PASSES IF C(AC)=-1,,0
  1682
  1683	031276	200 00 0 00 034013 	B22200:	MOVE	[XWD -1,0]	;PRELOAD AC WITH -1,,0
  1684	031277	671 00 0 00 034015 		TSO	[XWD 0,-1]	;*TSO SHOULD PLACE -1,,0 INTO THE AC
  1685	031300	312 00 0 00 034013 		CAME	[-1,,0]		;PASS IF C(AC)=-1,,0
  1686						STOP^
  1687	031301	254 04 0 00 031302 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1688	031302	324 00 0 00 031303 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1689									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1690									;IN THE SUBTEST) TO LOOP ON ERROR^
  1691
  1692					;**********
  1693
  1694					;THIS TEST VERIFIES THAT TSO PLACES ONES IN THE BITS OF THE AC
  1695					;WHICH ARE MASKED BY BOTH HALVES OF C(E) SWAPPED.
  1696					;THE UNMASKED BITS OF THE AC ARE NOT AFFECTED
  1697					;IN THIS CASE, C(AC)=0,,-1 AND C(E)=0.  HENCE,
  1698					;THE RESULT IN THE AC SHOULD BE 0,,-1.  THE AC IS
  1699					;CHECKED FOR 0,,-1.  THIS TEST PASSES IF C(AC)=0,,-1
  1700
  1701	031303	201 00 0 00 777777 	B22300:	MOVEI	-1		;PRELOAD AC WITH 0,,-1
  1702	031304	671 00 0 00 034014 		TSO	[0]		;*TSO SHOULD PLACE 0,,-1 INTO THE AC
  1703	031305	312 00 0 00 034015 		CAME	[XWD 0,-1]	;PASS IF C(AC)=0,,-1
  1704						STOP^
  1705	031306	254 04 0 00 031307 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1706	031307	324 00 0 00 031310 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1707									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1708									;IN THE SUBTEST) TO LOOP ON ERROR^
  1709
  1710					;*****     FAILURE ANALYSIS     *****
  1711					;C(AC0)		C(AC1)		FAILING SIGNAL
  1712
  1713					;0				ET1: AD FM - EN
  1714					;0				ET2: AR AD EN
  1715
  1716					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 24
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0050

  1717					;THIS TEST VERIFIES THAT TSO PLACES ONES IN THE BITS OF THE AC
  1718					;WHICH ARE MASKED BY BOTH HALVES OF C(E) SWAPPED.
  1719					;THE UNMASKED BITS OF THE AC ARE NOT AFFECTED
  1720					;IN THIS CASE, C(AC)=-1,,0 AND C(E)=0.  HENCE,
  1721					;THE RESULT IN THE AC SHOULD BE -1,,0.  THE AC IS
  1722					;CHECKED FOR -1,,0.  THIS TEST PASSES IF C(AC)=-1,,0
  1723
  1724	031310	200 00 0 00 034013 	B22400:	MOVE	[XWD -1,0]	;PRELOAD AC WITH -1,,0
  1725	031311	671 00 0 00 034014 		TSO	[0]		;*TSO SHOULD PLACE -1,,0 INTO THE AC
  1726	031312	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0
  1727						STOP^
  1728	031313	254 04 0 00 031314 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1729	031314	324 00 0 00 031315 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1730									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1731									;IN THE SUBTEST) TO LOOP ON ERROR^
  1732
  1733					;**********
  1734
  1735					;THIS TEST VERIFIES THAT TSO PLACES ONES IN THE BITS OF THE AC
  1736					;WHICH ARE MARKED BY BOTH HALVES OF C(E) SWAPPED.
  1737					;THE UNMASKED BITS OF THE AC ARE NOT AFFECTED
  1738					;IN THIS CASE, C(AC)=0,,-1 AND C(E)=-1,,-1.  HENCE,
  1739					;THE RESULT IN THE AC SHOULD BE -1,,-1.  THE AC IS
  1740					;CHECKED FOR -1,,-1.  THIS TEST PASSES IF C(AC)=-1,,-1
  1741
  1742	031315	201 00 0 00 777777 	B22500:	MOVEI	-1		;PRELOAD AC WITH 0,,-1
  1743	031316	671 00 0 00 034012 		TSO	[-1]		;*TSO SHOULD PLACE -1,,-1 INTO THE AC
  1744	031317	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  1745						STOP^
  1746	031320	254 04 0 00 031321 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1747	031321	324 00 0 00 031322 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1748									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1749									;IN THE SUBTEST) TO LOOP ON ERROR^
  1750
  1751					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 25
DAKACM	MAC	19-JAN-77 13:40		TEST OF LOGICAL TEST INSTRUCTIONS                                                  SEQ 0051

  1752					;THIS TEST VERIFIES THAT TSO PLACES ONES IN THE BITS OF THE AC
  1753					;WHICH ARE MARKED BY BOTH HALVES OF C(E) SWAPPED.
  1754					;THE UNMASKED BITS OF THE AC ARE NOT AFFECTED
  1755					;IN THIS CASE, C(AC)=-1,,0 AND C(E)=-1,,-1.  HENCE,
  1756					;THE RESULT IN THE AC SHOULD BE -1,,-1.  THE AC IS
  1757					;CHECKED FOR -1,,-1.  THIS TEST PASSES IF C(AC)=-1,,-1
  1758
  1759	031322	200 00 0 00 034013 	B22600:	MOVE	[XWD -1,0]	;PRELOAD AC WITH -1,,0
  1760	031323	671 00 0 00 034012 		TSO	[-1]		;*TSO SHOULD PLACE -1,,-1 INTO THE AC
  1761	031324	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  1762						STOP^
  1763	031325	254 04 0 00 031326 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1764	031326	324 00 0 00 031327 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1765									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1766									;IN THE SUBTEST) TO LOOP ON ERROR^
  1767
  1768					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 26
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0052

  1769					SUBTTL	TEST OF HWT INSTRUCTIONS
  1770
  1771					;**********
  1772
  1773					;THIS TEST VERIFIES THAT HLL PLACES THE LEFT HALF OF C(E) INTO
  1774					;THE LEFT HALF OF THE AC.  THE RIGHT HALF OF THE AC IS UNAFFECTED.
  1775					;IN THIS CASE AC=E AND C(AC)=C(E)=0.  HENCE, THE RESULT IN THE AC
  1776					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES
  1777
  1778	031327	400 00 0 00 000000 	B22700:	SETZ			;PRELOAD AC,E WITH 0		
  1779	031330	500 00 0 00 000000 		HLL			;*HLL SHOULD PLACE 0 INTO THE AC
  1780	031331	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  1781						STOP^
  1782	031332	254 04 0 00 031333 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1783	031333	324 00 0 00 031334 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1784									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1785									;IN THE SUBTEST) TO LOOP ON ERROR^
  1786
  1787					;*****     FAILURE ANALYSIS     *****
  1788					;C(AC0)		C(AC1)		FAILING SIGNAL
  1789
  1790					;-1,,0				FC: AD AR + EN
  1791					;0,,-1				FC: AD RT FM + EN
  1792
  1793					;**********
  1794
  1795					;THIS TEST VERIFIES THAT HLL PLACES THE LEFT HALF OF C(E) INTO
  1796					;THE LEFT HALF OF THE AC.  THE RIGHT HALF OF THE AC IS UNAFFECTED.
  1797					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0.  HENCE, THE RESULT IN THE AC
  1798					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1,
  1799					;THIS TEST PASSES.
  1800
  1801	031334	474 00 0 00 000000 	B23000:	SETO			;PRELOAD AC WITH -1,,-1
  1802	031335	500 00 0 00 034014 		HLL	[0]		;*HLL SHOULD PLACE 0,,-1 INTO THE AC
  1803	031336	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,-1
  1804						STOP^
  1805	031337	254 04 0 00 031340 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1806	031340	324 00 0 00 031341 		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					;*****     FAILURE ANALYSIS     *****
  1811					;C(AC0)		C(AC1)		FAILING SIGNAL
  1812
  1813					;0,,-1				SW: FCE
  1814					;0				ET2: AR AD EN
  1815
  1816					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 27
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0053

  1817					;THIS TEST VERIFIES THAT HLL PLACES THE LEFT HALF OF C(E) INTO
  1818					;THE LEFT HALF OF THE AC.  THE RIGHT HALF OF THE AC IS UNAFFECTED.
  1819					;IN THIS CASE AC=E AND C(AC)=C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
  1820					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES.
  1821
  1822	031341	474 00 0 00 000000 	B23200:	SETO			;PRELOAD AC,E WITH -1,,-1		
  1823	031342	500 00 0 00 000000 		HLL			;*HLL SHOULD PLACE -1,,-1 INTO THE AC
  1824	031343	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  1825						STOP^
  1826	031344	254 04 0 00 031345 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1827	031345	324 00 0 00 031346 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1828									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1829									;IN THE SUBTEST) TO LOOP ON ERROR^
  1830
  1831					;**********
  1832
  1833					;THIS TEST VERIFIES THAT HLL PLACES THE LEFT HALF OF C(E) INTO
  1834					;THE LEFT HALF OF THE AC.  THE RIGHT HALF OF THE AC IS UNAFFECTED.
  1835					;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
  1836					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0.  IF C(AC)=-1,,0,
  1837					;THIS TEST PASSES
  1838
  1839	031346	400 00 0 00 000000 	B23400:	SETZ			;PRELOAD AC WITH 0		
  1840	031347	500 00 0 00 034012 		HLL	[-1]		;*HLL SHOULD PLACE -1,,0 INTO THE AC	
  1841	031350	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0
  1842						STOP^
  1843	031351	254 04 0 00 031352 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1844	031352	324 00 0 00 031353 		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					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 28
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0054

  1849					;THIS TEST VERIFIES THAT HLL PLACES THE LEFT HALF OF C(E) INTO
  1850					;THE LEFT HALF OF THE AC.  THE RIGHT HALF OF THE AC IS UNAFFECTED.
  1851					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,0.  HENCE, THE RESULT IN THE AC
  1852					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0.  IF C(AC)=-1,,0,
  1853					;THIS TEST PASSES.
  1854
  1855	031353	400 00 0 00 000000 	B23600:	SETZ			;PRELOAD AC WITH 0		
  1856	031354	500 00 0 00 034013 		HLL	[XWD -1,0]	;*HLL SHOULD PLACE -1,,0 INTO THE AC
  1857	031355	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0
  1858						STOP^
  1859	031356	254 04 0 00 031357 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1860	031357	324 00 0 00 031360 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1861									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1862									;IN THE SUBTEST) TO LOOP ON ERROR^
  1863
  1864					;**********
  1865
  1866					;THIS TEST VERIFIES THAT HLL PLACES THE LEFT HALF OF C(E) INTO
  1867					;THE LEFT HALF OF THE AC.  THE RIGHT HALF OF THE AC IS UNAFFECTED.
  1868					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0,,-1.  HENCE, THE RESULT IN THE AC
  1869					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1,
  1870					;THIS TEST PASSES.
  1871
  1872	031360	474 00 0 00 000000 	B23700:	SETO			;PRELOAD AC WITH -1,,-1
  1873	031361	500 00 0 00 034015 		HLL	[XWD 0,-1]	;*HLL SHOULD PLACE 0,,-1 INTO THE AC
  1874	031362	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,-1
  1875						STOP^
  1876	031363	254 04 0 00 031364 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1877	031364	324 00 0 00 031365 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1878									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1879									;IN THE SUBTEST) TO LOOP ON ERROR^
  1880
  1881					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 29
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0055

  1882					;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO
  1883					;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC.
  1884					;IN THIS CASE, AC=E AND C(AC)=C(E)=0.  HENCE, THE RESULT IN THE AC
  1885					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES
  1886
  1887	031365	400 00 0 00 000000 	B24000:	SETZ			;PRELOAD AC,E WITH 0		
  1888	031366	510 00 0 00 000000 		HLLZ			;*HLLZ SHOULD PLACE 0 INTO THE AC
  1889	031367	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  1890						STOP^
  1891	031370	254 04 0 00 031371 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1892	031371	324 00 0 00 031372 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1893									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1894									;IN THE SUBTEST) TO LOOP ON ERROR^
  1895
  1896					;*****     FAILURE ANALYSIS     *****
  1897					;C(AC0)		C(AC1)		FAILING SIGNAL
  1898
  1899					;-1,,0				FC: AD LT AR + EN
  1900
  1901					;**********
  1902
  1903					;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO
  1904					;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC.
  1905					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
  1906					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0.
  1907					;IF C(AC)=-1,,0, THIS TEST PASSES.
  1908
  1909	031372	474 00 0 00 000000 	B24300:	SETO			;PRELOAD AC WITH -1,,-1
  1910	031373	510 00 0 00 034012 		HLLZ	[-1]		;*HLLZ SHOULD PLACE -1,,0 INTO THE AC
  1911	031374	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0
  1912						STOP^
  1913	031375	254 04 0 00 031376 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1914	031376	324 00 0 00 031377 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1915									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1916									;IN THE SUBTEST) TO LOOP ON ERROR^
  1917
  1918					;*****     FAILURE ANALYSIS     *****
  1919					;C(AC0)		C(AC1)		FAILING SIGNAL
  1920
  1921					;0				SW: FCE
  1922					;-1,,-1				ET2: AR LT AD EN
  1923
  1924					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 30
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0056

  1925					;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO
  1926					;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC.
  1927					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
  1928					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO
  1929					;IF C(AC) IS NON-ZERO, THIS TEST PASSES.
  1930
  1931	031377	400 00 0 00 000000 	B24400:	SETZ			;PRELOAD AC WITH -1,,-1
  1932	031400	510 00 0 00 034012 		HLLZ	[-1]		;*HLLZ SHOULD PLACE -1,,0 INTO THE AC
  1933	031401	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0
  1934						STOP^
  1935	031402	254 04 0 00 031403 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1936	031403	324 00 0 00 031404 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1937									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1938									;IN THE SUBTEST) TO LOOP ON ERROR^
  1939
  1940					;**********
  1941
  1942					;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO
  1943					;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC.
  1944					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0.  HENCE, THE RESULT IN THE AC
  1945					;SHOULD BE 0.  THE AC IS CHECKED FOR ZERO
  1946					;IF C(AC) IS ZERO, THIS TEST PASSES.
  1947
  1948	031404	474 00 0 00 000000 	B24500:	SETO			;PRELOAD AC WITH -1,,-1		
  1949	031405	510 00 0 00 034014 		HLLZ	[0]		;*HLLZ SHOULD PLACE -1,,0 INTO THE AC
  1950	031406	332 00 0 00 000000 		SKIPE			;PASS IF C(AC) IS ZERO.
  1951						STOP^
  1952	031407	254 04 0 00 031410 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1953	031410	324 00 0 00 031411 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1954									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1955									;IN THE SUBTEST) TO LOOP ON ERROR^
  1956
  1957					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 31
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0057

  1958					;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO
  1959					;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC.
  1960					;IN THIS CASE, C(AC)=0 AND C(E)=0.  HENCE, THE RESULT IN THE AC
  1961					;SHOULD BE 0.  THE AC IS CHECKED FOR ZERO
  1962					;IF C(AC) IS ZERO, THIS TEST PASSES.
  1963
  1964	031411	400 00 0 00 000000 	B24600:	SETZ			;PRELOAD AC WITH 0
  1965	031412	510 00 0 00 034014 		HLLZ	[0]		;*HLLZ SHOULD PLACE 0 INTO THE AC
  1966	031413	332 00 0 00 000000 		SKIPE			;PASS IF C(AC) IS ZERO.
  1967						STOP^
  1968	031414	254 04 0 00 031415 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1969	031415	324 00 0 00 031416 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1970									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1971									;IN THE SUBTEST) TO LOOP ON ERROR^
  1972
  1973					;**********
  1974
  1975					;THIS TEST VERIFIES THAT HLLZI ALWAYS CLEARS THE AC.
  1976					;IN THIS CASE C(AC)=-1,,-1 AND E=0,,-1.
  1977					;THE RESULT IN THE AC SHOULD BE 0
  1978					;THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES
  1979
  1980	031416	474 00 0 00 000000 	B24700:	SETO			;PRELOAD AC WITH -1,,-1
  1981	031417	511 00 0 00 777777 		HLLZI	-1		;*HLLZI SHOULD CLEAR THE AC
  1982	031420	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  1983						STOP^
  1984	031421	254 04 0 00 031422 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1985	031422	324 00 0 00 031423 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1986									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1987									;IN THE SUBTEST) TO LOOP ON ERROR^
  1988
  1989					;*****     FAILURE ANALYSIS     *****
  1990					;C(AC0)		C(AC1)		FAILING SIGNAL
  1991
  1992					;-1,,0				FC: AD LT AR + EN
  1993					;0,,-1				ET2: AR LT AD EN
  1994
  1995					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 32
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0058

  1996					;THIS TEST VERIFIES THAT HLLZI ALWAYS CLEARS THE AC.
  1997					;IN THIS CASE C(AC)=0 AND E=0,,-1.
  1998					;THE RESULT IN THE AC SHOULD BE 0
  1999					;THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES
  2000
  2001	031423	400 00 0 00 000000 	B25000:	SETZ			;PRELOAD AC WITH 0
  2002	031424	511 00 0 00 777777 		HLLZI	-1		;*HLLZI SHOULD CLEAR THE AC
  2003	031425	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  2004						STOP^
  2005	031426	254 04 0 00 031427 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2006	031427	324 00 0 00 031430 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2007									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2008									;IN THE SUBTEST) TO LOOP ON ERROR^
  2009
  2010					;**********
  2011
  2012					;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO
  2013					;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC.
  2014					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,0.  HENCE, THE RESULT IN THE AC
  2015					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0.
  2016					;IF C(AC)=-1,,0, THIS TEST PASSES.
  2017
  2018	031430	474 00 0 00 000000 	B25100:	SETO			;PRELOAD AC WITH -1,,-1
  2019	031431	510 00 0 00 034013 		HLLZ	[XWD -1,0]	;*HLLZ SHOULD PLACE -1,,0 INTO THE AC
  2020	031432	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0.
  2021						STOP^
  2022	031433	254 04 0 00 031434 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2023	031434	324 00 0 00 031435 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2024									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2025									;IN THE SUBTEST) TO LOOP ON ERROR^
  2026
  2027					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 33
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0059

  2028					;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO
  2029					;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC.
  2030					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,0.  HENCE, THE RESULT IN THE AC
  2031					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0.
  2032					;IF C(AC)=-1,,0 THIS TEST PASSES.
  2033
  2034	031435	400 00 0 00 000000 	B25200:	SETZ			;PRELOAD AC WITH 0
  2035	031436	510 00 0 00 034013 		HLLZ	[XWD -1,0]	;*HLLZ SHOULD PLACE -1,,0 INTO THE AC
  2036	031437	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0
  2037						STOP^
  2038	031440	254 04 0 00 031441 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2039	031441	324 00 0 00 031442 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2040									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2041									;IN THE SUBTEST) TO LOOP ON ERROR^
  2042
  2043					;**********
  2044
  2045					;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO
  2046					;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC.
  2047					;IN THIS CASE, C(AC)=0,,-1 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
  2048					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0.
  2049					;IF C(AC)=-1,,0, THIS TEST PASSES.
  2050
  2051	031442	201 00 0 00 777777 	B25300:	MOVEI	-1		;PRELOAD AC WITH -1,,-1
  2052	031443	510 00 0 00 034012 		HLLZ	[-1]		;*HLLZ SHOULD PLACE -1,,0 INTO THE AC
  2053	031444	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0
  2054						STOP^
  2055	031445	254 04 0 00 031446 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2056	031446	324 00 0 00 031447 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2057									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2058									;IN THE SUBTEST) TO LOOP ON ERROR^
  2059
  2060					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 34
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0060

  2061					;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO
  2062					;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC.
  2063					;IN THIS CASE, C(AC)=-1,,0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
  2064					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0.
  2065					;IF C(AC)=-1,,0 THIS TEST PASSES.
  2066
  2067	031447	205 00 0 00 777777 	B25400:	MOVSI	-1		;PRELOAD AC WITH -1,,0
  2068	031450	510 00 0 00 034012 		HLLZ	[-1]		;*HLLZ SHOULD PLACE -1,,0 INTO THE AC
  2069	031451	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0.
  2070						STOP^
  2071	031452	254 04 0 00 031453 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2072	031453	324 00 0 00 031454 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2073									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2074									;IN THE SUBTEST) TO LOOP ON ERROR^
  2075
  2076					;**********
  2077
  2078					;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO
  2079					;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC.
  2080					;IN THIS CASE, C(AC)=0,,-1 AND C(E)=0.  HENCE, THE RESULT IN THE AC
  2081					;SHOULD BE 0.  THE AC IS CHECKED FOR ZERO.
  2082					;IF C(AC) IS ZERO, THIS TEST PASSES.
  2083
  2084	031454	201 00 0 00 777777 	B25500:	MOVEI	-1		;PRELOAD AC WITH 0,,-1	
  2085	031455	510 00 0 00 034014 		HLLZ	[0]		;*HLLZ SHOULD PLACE 0 INTO THE AC
  2086	031456	332 00 0 00 000000 		SKIPE			;PASS IF C(AC) IS ZERO.
  2087						STOP^
  2088	031457	254 04 0 00 031460 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2089	031460	324 00 0 00 031461 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2090									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2091									;IN THE SUBTEST) TO LOOP ON ERROR^
  2092
  2093					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 35
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0061

  2094					;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO
  2095					;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC.
  2096					;IN THIS CASE, C(AC)=-1,,0 AND C(E)=0.  HENCE, THE RESULT IN THE AC
  2097					;SHOULD BE 0.  THE AC IS CHECKED FOR ZERO.
  2098					;IF C(AC) IS ZERO, THIS TEST PASSES.
  2099
  2100	031461	205 00 0 00 777777 	B25600:	MOVSI	-1		;PRELOAD AC WITH -1,,0
  2101	031462	510 00 0 00 034014 		HLLZ	[0]		;*HLLZ SHOULD PLACE -1,,0 INTO THE AC
  2102	031463	332 00 0 00 000000 		SKIPE			;PASS IF C(AC) IS ZERO.
  2103						STOP^
  2104	031464	254 04 0 00 031465 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2105	031465	324 00 0 00 031466 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2106									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2107									;IN THE SUBTEST) TO LOOP ON ERROR^
  2108
  2109					;**********
  2110
  2111					;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO
  2112					;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC.
  2113					;IN THIS CASE, C(AC)=0,,-1 AND C(E)=-1,,0.  HENCE, THE RESULT IN THE AC
  2114					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0.
  2115					;IF C(AC)=-1,,0, THIS TEST PASSES.
  2116
  2117	031466	201 00 0 00 777777 	B25700:	MOVEI	-1		;PRELOAD AC WITH 0,,-1
  2118	031467	510 00 0 00 034013 		HLLZ	[XWD -1,0]	;*HLLZ SHOULD PLACE -1,,0 INTO THE AC
  2119	031470	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0
  2120						STOP^
  2121	031471	254 04 0 00 031472 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2122	031472	324 00 0 00 031473 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2123									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2124									;IN THE SUBTEST) TO LOOP ON ERROR^
  2125
  2126					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 36
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0062

  2127					;THIS TEST VERIFIES THAT HLLZI ALWAYS CLEARS THE AC.
  2128					;IN THIS CASE C(AC)=0,,-1 AND E=0,,-1.
  2129					;THE RESULT IN THE AC SHOULD BE 0
  2130					;THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES
  2131
  2132	031473	201 00 0 00 777777 	B26000:	MOVEI	-1		;PRELOAD AC WITH 0,,-1
  2133	031474	511 00 0 00 777777 		HLLZI	-1		;*HLLZI SHOULD CLEAR THE AC
  2134	031475	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  2135						STOP^
  2136	031476	254 04 0 00 031477 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2137	031477	324 00 0 00 031500 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2138									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2139									;IN THE SUBTEST) TO LOOP ON ERROR^
  2140
  2141					;**********
  2142
  2143					;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO
  2144					;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC.
  2145					;IN THIS CASE, C(AC)=-1,,0 AND C(E)=-1,,0.  HENCE, THE RESULT IN THE AC
  2146					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0.
  2147					;IF C(AC)=-1,,0, THIS TEST PASSES.
  2148
  2149	031500	205 00 0 00 777777 	B26100:	MOVSI	-1		;PRELOAD AC WITH -1,,0
  2150	031501	510 00 0 00 034013 		HLLZ	[XWD -1,0]	;*HLLZ SHOULD PLACE -1,,0 INTO THE AC
  2151	031502	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0
  2152						STOP^
  2153	031503	254 04 0 00 031504 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2154	031504	324 00 0 00 031505 		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					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 37
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0063

  2159					;THIS TEST VERIFIES THAT HLLZI ALWAYS CLEARS THE AC.
  2160					;IN THIS CASE C(AC)=-1,,0 AND E=0,,-1.
  2161					;THE RESULT IN THE AC SHOULD BE 0
  2162					;THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES
  2163
  2164	031505	205 00 0 00 777777 	B26200:	MOVSI	-1		;PRELOAD AC WITH -1,,0
  2165	031506	511 00 0 00 777777 		HLLZI	-1		;*HLLZI SHOULD CLEAR THE AC
  2166	031507	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  2167						STOP^
  2168	031510	254 04 0 00 031511 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2169	031511	324 00 0 00 031512 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2170									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2171									;IN THE SUBTEST) TO LOOP ON ERROR^
  2172
  2173					;**********
  2174
  2175					;THIS TEST VERIFIES THAT HRR PLACES THE RIGHT HALF OF C(E) INTO
  2176					;THE RIGHT HALF OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED.
  2177					;IN THIS CASE AC=E AND C(AC)=C(E)=0.  HENCE, THE RESULT IN THE AC
  2178					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES.
  2179
  2180	031512	400 00 0 00 000000 	B26300:	SETZ			;PRELOAD AC WITH 0
  2181	031513	540 00 0 00 000000 		HRR			;*HRR SHOULD PLACE 0 INTO THE AC
  2182	031514	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  2183						STOP^
  2184	031515	254 04 0 00 031516 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2185	031516	324 00 0 00 031517 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2186									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2187									;IN THE SUBTEST) TO LOOP ON ERROR^
  2188
  2189					;*****     FAILURE ANALYSIS     *****
  2190					;C(AC0)		C(AC1)		FAILING SIGNAL
  2191
  2192					;0,,-1				FC: AD RT AR + EN
  2193					;-1,,0				FC: AD LT FM + EN
  2194
  2195					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 38
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0064

  2196					;THIS TEST VERIFIES THAT HRR PLACES THE RIGHT HALF OF C(E) INTO
  2197					;THE RIGHT HALF OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED.
  2198					;IN THIS CASE AC=E AND C(AC)=C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
  2199					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES.
  2200
  2201	031517	474 00 0 00 000000 	B26500:	SETO			;PRELOAD AC WITH -1,,-1
  2202	031520	540 00 0 00 000000 		HRR			;*HRR SHOULD PLACE -1,,-1 INTO THE AC
  2203	031521	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  2204						STOP^
  2205	031522	254 04 0 00 031523 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2206	031523	324 00 0 00 031524 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2207									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2208									;IN THE SUBTEST) TO LOOP ON ERROR^
  2209
  2210					;*****     FAILURE ANALYSIS     *****
  2211					;C(AC0)		C(AC1)		FAILING SIGNAL
  2212
  2213					;-1,,0				SW: FCE
  2214
  2215					;**********
  2216
  2217					;THIS TEST VERIFIES THAT HRR PLACES THE RIGHT HALF OF C(E) INTO
  2218					;THE RIGHT HALF OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED.
  2219					;IN THIS CASE C(AC)=0 AND C(E)=-1,,0.  HENCE, THE RESULT IN THE AC
  2220					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0.  IF C(AC)=-1,,0, THIS TEST PASSES.
  2221
  2222	031524	474 00 0 00 000000 	B26600:	SETO			;PRELOAD AC WITH -1,,-1
  2223	031525	540 00 0 00 034013 		HRR	[XWD -1,0]	;*HRR SHOULD PLACE -1,,0 INTO THE AC
  2224	031526	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0
  2225						STOP^
  2226	031527	254 04 0 00 031530 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2227	031530	324 00 0 00 031531 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2228									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2229									;IN THE SUBTEST) TO LOOP ON ERROR^
  2230
  2231					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 39
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0065

  2232					;THIS TEST VERIFIES THAT HRRI PLACES E INTO
  2233					;THE RIGHT HALF OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED
  2234					;IN THIS CASE C(AC)=-1,,-1 AND E=0,,-1.  HENCE, THE RESULT IN THE AC
  2235					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES.
  2236
  2237	031531	474 00 0 00 000000 	B26700:	SETO			;PRELOAD AC WITH -1,,-1
  2238	031532	541 00 0 00 777777 		HRRI	-1		;*HRRI SHOULD PLACE -1,,-1 INTO THE AC
  2239	031533	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  2240						STOP^
  2241	031534	254 04 0 00 031535 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2242	031535	324 00 0 00 031536 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2243									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2244									;IN THE SUBTEST) TO LOOP ON ERROR^
  2245
  2246					;*****     FAILURE ANALYSIS     *****
  2247					;C(AC0)		C(AC1)		FAILING SIGNAL
  2248
  2249					;0,,-1				ET2: AR AD EN
  2250
  2251					;**********
  2252
  2253					;THIS TEST VERIFIES THAT HRR PLACES THE RIGHT HALF OF C(E) INTO
  2254					;THE RIGHT HALF OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED.
  2255					;IN THIS CASE C(AC)=-1,,-1 AND C(E)=0.  HENCE, THE RESULT IN THE AC
  2256					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0.  IF C(AC)=-1,,0, THIS TEST PASSES.
  2257
  2258	031536	474 00 0 00 000000 	B27000:	SETO			;PRELOAD AC WITH -1,,-1
  2259	031537	540 00 0 00 034014 		HRR	[0]		;*HRR SHOULD PLACE -1,,0 INTO THE AC
  2260	031540	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=0
  2261						STOP^
  2262	031541	254 04 0 00 031542 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2263	031542	324 00 0 00 031543 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2264									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2265									;IN THE SUBTEST) TO LOOP ON ERROR^
  2266
  2267					;*****     FAILURE ANALYSIS     *****
  2268					;C(AC0)		C(AC1)		FAILING SIGNAL
  2269
  2270					;0				ET2: AR AD EN
  2271
  2272					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 40
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0066

  2273					;THIS TEST VERIFIES THAT HRR PLACES THE RIGHT HALF OF C(E) INTO
  2274					;THE RIGHT HALF OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED.
  2275					;IN THIS CASE C(AC)=0 AND C(E)=0.  HENCE, THE RESULT IN THE AC
  2276					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES.
  2277
  2278	031543	400 00 0 00 000000 	B27100:	SETZ			;PRELOAD AC WITH 0
  2279	031544	540 00 0 00 034014 		HRR	[0]		;*HRR SHOULD PLACE 0 INTO THE AC
  2280	031545	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  2281						STOP^
  2282	031546	254 04 0 00 031547 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2283	031547	324 00 0 00 031550 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2284									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2285									;IN THE SUBTEST) TO LOOP ON ERROR^
  2286
  2287					;**********
  2288
  2289					;THIS TEST VERIFIES THAT HRR PLACES THE RIGHT HALF OF C(E) INTO
  2290					;THE RIGHT HALF OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED.
  2291					;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
  2292					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST PASSES.
  2293
  2294	031550	400 00 0 00 000000 	B27200:	SETZ			;PRELOAD AC WITH 0
  2295	031551	540 00 0 00 034012 		HRR	[-1]		;*HRR SHOULD PLACE 0,,-1 INTO THE AC
  2296	031552	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,-1
  2297						STOP^
  2298	031553	254 04 0 00 031554 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2299	031554	324 00 0 00 031555 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2300									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2301									;IN THE SUBTEST) TO LOOP ON ERROR^
  2302
  2303					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 41
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0067

  2304					;THIS TEST VERIFIES THAT HRRI PLACES E INTO
  2305					;THE RIGHT HALF OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED
  2306					;IN THIS CASE C(AC)=0 AND E=0,,-1.  HENCE, THE RESULT IN THE AC
  2307					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST PASSES.
  2308
  2309	031555	400 00 0 00 000000 	B27300:	SETZ			;PRELOAD AC WITH 0
  2310	031556	541 00 0 00 777777 		HRRI	-1		;*HRRI SHOULD PLACE 0,,-1 INTO THE AC
  2311	031557	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,-1
  2312						STOP^
  2313	031560	254 04 0 00 031561 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2314	031561	324 00 0 00 031562 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2315									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2316									;IN THE SUBTEST) TO LOOP ON ERROR^
  2317
  2318					;*****     FAILURE ANALYSIS     *****
  2319					;C(AC0)		C(AC1)		FAILING SIGNAL
  2320
  2321					;-1,,-1				FC: AD LT FM + EN
  2322
  2323					;**********
  2324
  2325					;THIS TEST VERIFIES THAT HRR PLACES THE RIGHT HALF OF C(E) INTO
  2326					;THE RIGHT HALF OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED.
  2327					;IN THIS CASE C(AC)=0 AND C(E)=-1,,0.  HENCE, THE RESULT IN THE AC
  2328					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES.
  2329
  2330	031562	400 00 0 00 000000 	B27400:	SETZ			;PRELOAD AC WITH 0
  2331	031563	540 00 0 00 034013 		HRR	[XWD -1,0]	;*HRR SHOULD PLACE 0 INTO THE AC
  2332	031564	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  2333						STOP^
  2334	031565	254 04 0 00 031566 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2335	031566	324 00 0 00 031567 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2336									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2337									;IN THE SUBTEST) TO LOOP ON ERROR^
  2338
  2339					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 42
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0068

  2340					;THIS TEST VERIFIES THAT HRR PLACES THE RIGHT HALF OF C(E) INTO
  2341					;THE RIGHT HALF OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED.
  2342					;IN THIS CASE C(AC)=0,,-1 AND C(E)=-1,,0.  HENCE, THE RESULT IN THE AC
  2343					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES.
  2344
  2345	031567	201 00 0 00 777777 	B27500:	MOVEI	-1		;PRELOAD AC WITH 0,,-1
  2346	031570	540 00 0 00 034013 		HRR	[XWD -1,0]	;*HRR SHOULD PLACE 0 INTO THE AC
  2347	031571	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  2348						STOP^
  2349	031572	254 04 0 00 031573 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2350	031573	324 00 0 00 031574 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2351									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2352									;IN THE SUBTEST) TO LOOP ON ERROR^
  2353
  2354					;**********
  2355
  2356					;THIS TEST VERIFIES THAT HRRI PLACES E INTO
  2357					;THE RIGHT HALF OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED
  2358					;IN THIS CASE C(AC)=-1,,0 AND E=0,,-1.  HENCE, THE RESULT IN THE AC
  2359					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES.
  2360
  2361	031574	205 00 0 00 777777 	B27600:	MOVSI	-1		;PRELOAD AC WITH -1,,0
  2362	031575	541 00 0 00 777777 		HRRI	-1		;*HRRI SHOULD PLACE -1,,-1 INTO THE AC
  2363	031576	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  2364						STOP^
  2365	031577	254 04 0 00 031600 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2366	031600	324 00 0 00 031601 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2367									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2368									;IN THE SUBTEST) TO LOOP ON ERROR^
  2369
  2370					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 43
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0069

  2371					;THIS TEST VERIFIES THAT HRRI PLACES E INTO
  2372					;THE RIGHT HALF OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED
  2373					;IN THIS CASE C(AC)=0,,-1 AND E=0,,-1.  HENCE, THE RESULT IN THE AC
  2374					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST PASSES.
  2375
  2376	031601	201 00 0 00 777777 	B27700:	MOVEI	-1		;PRELOAD AC WITH 0,,-1
  2377	031602	541 00 0 00 777777 		HRRI	-1		;*HRRI SHOULD PLACE 0,,-1 INTO THE AC
  2378	031603	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,-1
  2379						STOP^
  2380	031604	254 04 0 00 031605 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2381	031605	324 00 0 00 031606 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2382									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2383									;IN THE SUBTEST) TO LOOP ON ERROR^
  2384
  2385					;**********
  2386
  2387					;THIS TEST VERIFIES THAT HRR PLACES THE RIGHT HALF OF C(E) INTO
  2388					;THE RIGHT HALF OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED.
  2389					;IN THIS CASE C(AC)=-1,,0 AND C(E)=-1,,0.  HENCE, THE RESULT IN THE AC
  2390					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0.  IF C(AC)=-1,,0, THIS TEST PASSES.
  2391
  2392	031606	205 00 0 00 777777 	B30000:	MOVSI	-1		;PRELOAD AC WITH -1,,0
  2393	031607	540 00 0 00 034013 		HRR	[XWD -1,0]	;*HRR SHOULD PLACE -1,,0 INTO THE AC
  2394	031610	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0
  2395						STOP^
  2396	031611	254 04 0 00 031612 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2397	031612	324 00 0 00 031613 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2398									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2399									;IN THE SUBTEST) TO LOOP ON ERROR^
  2400
  2401					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 44
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0070

  2402					;THIS TEST VERIFIES THAT HRRZ PLACES THE RIGHT HALF OF C(E) INTO
  2403					;RIGHT HALF OF THE AC AND PLACES ZEROS INTO THE LEFT HALF OF THE AC
  2404					;IN THIS CASE, AC=E AND C(AC)=C(E)=0.  HENCE, THE RESULT IN THE AC
  2405					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES.
  2406
  2407	031613	400 00 0 00 000000 	B30100:	SETZ			;PRELOAD AC,E WITH 0
  2408	031614	550 00 0 00 000000 		HRRZ			;*HRRZ SHOULD PLACE 0 INTO THE AC
  2409	031615	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  2410						STOP^
  2411	031616	254 04 0 00 031617 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2412	031617	324 00 0 00 031620 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2413									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2414									;IN THE SUBTEST) TO LOOP ON ERROR^
  2415
  2416					;*****     FAILURE ANALYSIS     *****
  2417					;C(AC0)		C(AC1)		FAILING SIGNAL
  2418
  2419					;0,,-1				FC: AD RT AR + EN
  2420
  2421					;**********
  2422
  2423					;THIS TEST VERIFIES THAT HRRZI PLACES E INTO
  2424					;THE RIGHT HALF OF THE AC AND CLEARS THE LEFT HALF OF THE AC
  2425					;IN THIS CASE C(AC)=-1,,-1.  HENCE, THE RESULT IN THE AC
  2426					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST PASSES
  2427
  2428	031620	474 00 0 00 000000 	B30400:	SETO			;PRELOAD AC WITH -1,,-1
  2429	031621	551 00 0 00 777777 		HRRZI	-1		;*HRRZI SHOULD PLACE 0,,-1 INTO THE AC
  2430	031622	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,-1
  2431						STOP^
  2432	031623	254 04 0 00 031624 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2433	031624	324 00 0 00 031625 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2434									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2435									;IN THE SUBTEST) TO LOOP ON ERROR^
  2436
  2437					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 45
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0071

  2438					;THIS TEST VERIFIES THAT HRRZI PLACES E INTO
  2439					;THE RIGHT HALF OF THE AC AND CLEARS THE LEFT HALF OF THE AC
  2440					;IN THIS CASE C(AC)=-1,,-1.  HENCE, THE RESULT IN THE AC
  2441					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES
  2442
  2443	031625	474 00 0 00 000000 	B30500:	SETO			;PRELOAD AC WITH -1,,-1
  2444	031626	551 00 0 00 000000 		HRRZI	0		;*HRRZI SHOULD PLACE 0 INTO THE AC
  2445	031627	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  2446						STOP^
  2447	031630	254 04 0 00 031631 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2448	031631	324 00 0 00 031632 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2449									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2450									;IN THE SUBTEST) TO LOOP ON ERROR^
  2451
  2452					;*****     FAILURE ANALYSIS     *****
  2453					;C(AC0)		C(AC1)		FAILING SIGNAL
  2454
  2455					;0,,-1				FC: AD RT AR + EN
  2456
  2457					;**********
  2458
  2459					;THIS TEST VERIFIES THAT HRRZ PLACES THE RIGHT HALF OF C(E) INTO
  2460					;RIGHT HALF OF THE AC AND PLACES ZEROS INTO THE LEFT HALF OF THE AC
  2461					;IN THIS CASE C(AC)=-1,,-1 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
  2462					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES.
  2463
  2464	031632	474 00 0 00 000000 	B30600:	SETO			;PRELOAD AC WITH -1,,-1
  2465	031633	550 00 0 00 034013 		HRRZ	[XWD -1,0]	;*HRRZ SHOULD PLACE 0 INTO THE AC
  2466	031634	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  2467						STOP^
  2468	031635	254 04 0 00 031636 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2469	031636	324 00 0 00 031637 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2470									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2471									;IN THE SUBTEST) TO LOOP ON ERROR^
  2472
  2473					;*****     FAILURE ANALYSIS     *****
  2474					;C(AC0)		C(AC1)		FAILING SIGNAL
  2475
  2476					;E				SW: FCE
  2477					;-1,,0				ET2: AR RT AD EN
  2478
  2479					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 46
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0072

  2480					;THIS TEST VERIFIES THAT HRRZ PLACES THE RIGHT HALF OF C(E) INTO
  2481					;RIGHT HALF OF THE AC AND PLACES ZEROS INTO THE LEFT HALF OF THE AC
  2482					;IN THIS CASE C(AC)=-1,,-1 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
  2483					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST PASSES.
  2484
  2485	031637	474 00 0 00 000000 	B30700:	SETO			;PRELOAD AC WITH -1,,-1
  2486	031640	550 00 0 00 034012 		HRRZ	[-1]		;*HRRZ SHOULD PLACE 0,,-1 INTO THE AC
  2487	031641	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,-1
  2488						STOP^
  2489	031642	254 04 0 00 031643 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2490	031643	324 00 0 00 031644 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2491									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2492									;IN THE SUBTEST) TO LOOP ON ERROR^
  2493
  2494					;**********
  2495
  2496					;THIS TEST VERIFIES THAT HRRZ PLACES THE RIGHT HALF OF C(E) INTO
  2497					;RIGHT HALF OF THE AC AND PLACES ZEROS INTO THE LEFT HALF OF THE AC
  2498					;IN THIS CASE C(AC)=0,,-1 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
  2499					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST PASSES.
  2500
  2501	031644	201 00 0 00 777777 	B31000:	MOVEI	-1		;PRELOAD AC WITH 0,,-1
  2502	031645	550 00 0 00 034012 		HRRZ	[-1]		;*HRRZ SHOULD PLACE 0,,-1 INTO THE AC
  2503	031646	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,-1
  2504						STOP^
  2505	031647	254 04 0 00 031650 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2506	031650	324 00 0 00 031651 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2507									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2508									;IN THE SUBTEST) TO LOOP ON ERROR^
  2509
  2510					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 47
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0073

  2511					;THIS TEST VERIFIES THAT HRRZ PLACES THE RIGHT HALF OF C(E) INTO
  2512					;RIGHT HALF OF THE AC AND PLACES ZEROS INTO THE LEFT HALF OF THE AC
  2513					;IN THIS CASE C(AC)=0,,-1 AND C(E)=0.  HENCE, THE RESULT IN THE AC
  2514					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES.
  2515
  2516	031651	201 00 0 00 777777 	B31100:	MOVEI	-1		;PRELOAD AC WITH 0,,-1	
  2517	031652	550 00 0 00 034014 		HRRZ	[0]		;*HRRZ SHOULD PLACE 0 INTO THE AC
  2518	031653	302 00 0 00 000000 		CAIE	0		;PASS IF C(AC)=0
  2519						STOP^
  2520	031654	254 04 0 00 031655 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2521	031655	324 00 0 00 031656 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2522									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2523									;IN THE SUBTEST) TO LOOP ON ERROR^
  2524
  2525					;**********
  2526
  2527					;THIS TEST VERIFIES THAT HRRZ PLACES THE RIGHT HALF OF C(E) INTO
  2528					;RIGHT HALF OF THE AC AND PLACES ZEROS INTO THE LEFT HALF OF THE AC
  2529					;IN THIS CASE C(AC)=-1,,0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
  2530					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST PASSES.
  2531
  2532	031656	205 00 0 00 777777 	B31200:	MOVSI	-1		;PRELOAD AC WITH -1,,0	
  2533	031657	550 00 0 00 034012 		HRRZ	[-1]		;*HRRZ SHOULD PLACE 0,,-1 INTO THE AC
  2534	031660	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,-1
  2535						STOP^
  2536	031661	254 04 0 00 031662 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2537	031662	324 00 0 00 031663 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2538									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2539									;IN THE SUBTEST) TO LOOP ON ERROR^
  2540
  2541					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 48
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0074

  2542					;THIS TEST VERIFIES THAT HRRZ PLACES THE RIGHT HALF OF C(E) INTO
  2543					;RIGHT HALF OF THE AC AND PLACES ZEROS INTO THE LEFT HALF OF THE AC
  2544					;IN THIS CASE C(AC)=-1,,0 AND C(E)=0.  HENCE, THE RESULT IN THE AC
  2545					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES.
  2546
  2547	031663	205 00 0 00 777777 	B31300:	MOVSI	-1		;PRELOAD AC WITH -1,,0	
  2548	031664	550 00 0 00 034014 		HRRZ	[0]		;*HRRZ SHOULD PLACE 0 INTO THE AC
  2549	031665	302 00 0 00 000000 		CAIE	0		;PASS IF C(AC)=0
  2550						STOP^
  2551	031666	254 04 0 00 031667 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2552	031667	324 00 0 00 031670 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2553									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2554									;IN THE SUBTEST) TO LOOP ON ERROR^
  2555
  2556					;**********
  2557
  2558					;THIS TEST VERIFIES THAT HRRZ PLACES THE RIGHT HALF OF C(E) INTO
  2559					;RIGHT HALF OF THE AC AND PLACES ZEROS INTO THE LEFT HALF OF THE AC
  2560					;IN THIS CASE C(AC)=0,,-1 AND C(E)=-1,,0.  HENCE, THE RESULT IN THE AC
  2561					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES.
  2562
  2563	031670	201 00 0 00 777777 	B31400:	MOVEI	-1		;PRELOAD AC WITH 0,,-1	
  2564	031671	550 00 0 00 034013 		HRRZ	[XWD -1,0]	;*HRRZ SHOULD PLACE 0 INTO THE AC
  2565	031672	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  2566						STOP^
  2567	031673	254 04 0 00 031674 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2568	031674	324 00 0 00 031675 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2569									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2570									;IN THE SUBTEST) TO LOOP ON ERROR^
  2571
  2572					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 49
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0075

  2573					;THIS TEST VERIFIES THAT HRRZ PLACES THE RIGHT HALF OF C(E) INTO
  2574					;RIGHT HALF OF THE AC AND PLACES ZEROS INTO THE LEFT HALF OF THE AC
  2575					;IN THIS CASE C(AC)=-1,,0 AND C(E)=0,,-1.  HENCE, THE RESULT IN THE AC
  2576					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST PASSES.
  2577
  2578	031675	205 00 0 00 777777 	B31500:	MOVSI	-1		;PRELOAD AC WITH -1,,0	
  2579	031676	550 00 0 00 034015 		HRRZ	[XWD 0,-1]	;*HRRZ SHOULD PLACE 0,,-1 INTO THE AC
  2580	031677	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,-1
  2581						STOP^
  2582	031700	254 04 0 00 031701 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2583	031701	324 00 0 00 031702 		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 HRRZI PLACES E INTO
  2590					;THE RIGHT HALF OF THE AC AND CLEARS THE LEFT HALF OF THE AC
  2591					;IN THIS CASE C(AC)=0,,-1 AND E=0,,-1.  HENCE, THE RESULT IN THE AC
  2592					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST PASSES
  2593
  2594	031702	201 00 0 00 777777 	B31600:	MOVEI	-1		;PRELOAD AC WITH 0,,-1	
  2595	031703	551 00 0 00 777777 		HRRZI	-1		;*HRRZI SHOULD PLACE 0,,-1 INTO THE AC
  2596	031704	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,1
  2597						STOP^
  2598	031705	254 04 0 00 031706 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2599	031706	324 00 0 00 031707 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2600									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2601									;IN THE SUBTEST) TO LOOP ON ERROR^
  2602
  2603					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 50
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0076

  2604					;THIS TEST VERIFIES THAT HRRZ PLACES THE RIGHT HALF OF C(E) INTO
  2605					;RIGHT HALF OF THE AC AND PLACES ZEROS INTO THE LEFT HALF OF THE AC
  2606					;IN THIS CASE C(AC)=-1,,0 AND C(E)=-1,,0.  HENCE, THE RESULT IN THE AC
  2607					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES.
  2608
  2609	031707	205 00 0 00 777777 	B31700:	MOVSI	-1		;PRELOAD AC WITH -1,,0	
  2610	031710	550 00 0 00 034013 		HRRZ	[XWD -1,0]	;*HRRZ SHOULD PLACE 0 INTO THE AC,0]
  2611	031711	302 00 0 00 000000 		CAIE	0		;PASS IF C(AC)=0
  2612						STOP^
  2613	031712	254 04 0 00 031713 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2614	031713	324 00 0 00 031714 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2615									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2616									;IN THE SUBTEST) TO LOOP ON ERROR^
  2617
  2618					;**********
  2619
  2620					;THIS TEST VERIFIES THAT HRL PLACES THE RIGHT HALF OF C(E) INTO
  2621					;THE LEFT HALF OF THE AC.  THE RIGHT HALF OF THE AC IS UNAFFECTED
  2622					;IN THIS CASE, AC=E AND C(AC)=C(E)=0.  HENCE, THE RESULT IN THE AC
  2623					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES.
  2624
  2625	031714	400 00 0 00 000000 	B32000:	SETZ			;PRELOAD AC WITH 0		
  2626	031715	504 00 0 00 000000 		HRL			;*HRL SHOULD PLACE 0 INTO THE AC
  2627	031716	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  2628						STOP^
  2629	031717	254 04 0 00 031720 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2630	031720	324 00 0 00 031721 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2631									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2632									;IN THE SUBTEST) TO LOOP ON ERROR^
  2633
  2634					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 51
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0077

  2635					;THIS TEST VERIFIES THAT HRL PLACES THE RIGHT HALF OF C(E) INTO
  2636					;THE LEFT HALF OF THE AC.  THE RIGHT HALF OF THE AC IS UNAFFECTED
  2637					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
  2638					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES.
  2639
  2640	031721	474 00 0 00 000000 	B32100:	SETO			;PRELOAD AC WITH -1,,-1		
  2641	031722	504 00 0 00 034012 		HRL	[-1]		;*HRL SHOULD PLACE -1,,-1 INTO THE AC
  2642	031723	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  2643						STOP^
  2644	031724	254 04 0 00 031725 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2645	031725	324 00 0 00 031726 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2646									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2647									;IN THE SUBTEST) TO LOOP ON ERROR^
  2648
  2649					;*****     FAILURE ANALYSIS     *****
  2650					;C(AC0)		C(AC1)		FAILING SIGNAL
  2651
  2652					;E,,-1				SW: FCE
  2653					;0,,-1				FC: AD RT FM + EN
  2654					;0,,-1				ET2: AR LT AR RT EN
  2655					;-1,,0				ET2: AR RT AD EN
  2656
  2657					;**********
  2658
  2659					;THIS TEST VERIFIES THAT HRL PLACES THE RIGHT HALF OF C(E) INTO
  2660					;THE LEFT HALF OF THE AC.  THE RIGHT HALF OF THE AC IS UNAFFECTED
  2661					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0.  HENCE, THE RESULT IN THE AC
  2662					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST PASSES.
  2663
  2664	031726	474 00 0 00 000000 	B32200:	SETO			;PRELOAD AC WITH -1,,-1		
  2665	031727	504 00 0 00 034014 		HRL	[0]		;*HRL SHOULD PLACE 0,,-1 INTO THE AC
  2666	031730	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,-1
  2667						STOP^
  2668	031731	254 04 0 00 031732 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2669	031732	324 00 0 00 031733 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2670									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2671									;IN THE SUBTEST) TO LOOP ON ERROR^
  2672
  2673					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 52
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0078

  2674					;THIS TEST VERIFIES THAT HLR PLACES THE LEFT HALF OF C(E) INTO
  2675					;THE RIGHT HALF OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED.
  2676					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0.  HENCE, THE RESULT IN THE AC
  2677					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0.  IF C(AC)=-1,,0, THIS TEST PASSES.
  2678
  2679	031733	474 00 0 00 000000 	B32300:	SETO			;PRELOAD AC WITH -1,,-1		
  2680	031734	544 00 0 00 034014 		HLR	[0]		;*HLR SHOULD PLACE -1,,0 INTO THE AC
  2681	031735	312 00 0 00 034013 		CAME	[-1,,0]		;PASS IF C(AC)=-1,,0
  2682						STOP^
  2683	031736	254 04 0 00 031737 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2684	031737	324 00 0 00 031740 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2685									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2686									;IN THE SUBTEST) TO LOOP ON ERROR^
  2687
  2688					;*****     FAILURE ANALYSIS     *****
  2689					;C(AC0)		C(AC1)		FAILING SIGNAL
  2690
  2691					;0				ET2: AR LT AD EN
  2692
  2693					;**********
  2694
  2695					;THIS TEST VERIFIES THAT HRL PLACES THE RIGHT HALF OF C(E) INTO
  2696					;THE LEFT HALF OF THE AC.  THE RIGHT HALF OF THE AC IS UNAFFECTED
  2697					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0.  HENCE, THE RESULT IN THE AC
  2698					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0.  IF C(AC)=-1,,0, THIS TEST PASSES.
  2699
  2700	031740	400 00 0 00 000000 	B32600:	SETZ			;PRELOAD AC WITH 0		
  2701	031741	504 00 0 00 034012 		HRL	[-1]		;*HRL SHOULD PLACE -1,,0 INTO THE AC
  2702	031742	312 00 0 00 034013 		CAME	[-1,,0]		;PASS IF C(AC)=-1,,0
  2703						STOP^
  2704	031743	254 04 0 00 031744 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2705	031744	324 00 0 00 031745 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2706									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2707									;IN THE SUBTEST) TO LOOP ON ERROR^
  2708
  2709					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 53
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0079

  2710					;THIS TEST VERIFIES THAT HLR PLACES THE LEFT HALF OF C(E) INTO
  2711					;THE RIGHT HALF OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED.
  2712					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
  2713					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST PASSES.
  2714
  2715	031745	400 00 0 00 000000 	B32700:	SETZ			;PRELOAD AC WITH 0		
  2716	031746	544 00 0 00 034012 		HLR	[-1]		;*HLR SHOULD PLACE 0,,-1 INTO THE AC
  2717	031747	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,-1
  2718						STOP^
  2719	031750	254 04 0 00 031751 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2720	031751	324 00 0 00 031752 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2721									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2722									;IN THE SUBTEST) TO LOOP ON ERROR^
  2723
  2724					;*****     FAILURE ANALYSIS     *****
  2725					;C(AC0)		C(AC1)		FAILING SIGNAL
  2726
  2727					;0				SW: FCE
  2728					;-1,,-1				FC: AD LT FM + EN
  2729					;0				ET2: AR RT AR LT EN
  2730
  2731					;**********
  2732
  2733					;THIS TEST VERIFIES THAT HRLI PLACES E INTO
  2734					;THE LEFT HALF OF THE AC.  THE RIGHT HALF OF THE AC IS UNAFFECTED.
  2735					;IN THIS CASE C(AC)=-1,,-1 AND E=0,,-1.  HENCE, THE RESULT IN THE AC
  2736					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES
  2737
  2738	031752	400 00 0 00 000000 	B33000:	SETZ			;PRELOAD AC WITH -1,,-1		
  2739	031753	505 00 0 00 777777 		HRLI	-1		;*HRLI SHOULD PLACE -1,,-1 INTO THE AC
  2740	031754	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,-1
  2741						STOP^
  2742	031755	254 04 0 00 031756 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2743	031756	324 00 0 00 031757 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2744									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2745									;IN THE SUBTEST) TO LOOP ON ERROR^
  2746
  2747					;*****     FAILURE ANALYSIS     *****
  2748					;C(AC0)		C(AC1)		FAILING SIGNAL
  2749
  2750					;-1,,-1				FC: AD RT FM + EN
  2751					;0				ET2: AR LT AR RT EN
  2752
  2753					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 54
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0080

  2754					;THIS TEST VERIFIES THAT HLR PLACES THE LEFT HALF OF C(E) INTO
  2755					;THE RIGHT HALF OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED.
  2756					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,0.  HENCE, THE RESULT IN THE AC
  2757					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST PASSES.
  2758
  2759	031757	400 00 0 00 000000 	B33100:	SETZ			;PRELOAD AC WITH -1,,-1		
  2760	031760	544 00 0 00 034013 		HLR	[XWD -1,0]	;*HLR SHOULD PLACE -1,,-1 INTO THE AC
  2761	031761	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,-1
  2762						STOP^
  2763	031762	254 04 0 00 031763 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2764	031763	324 00 0 00 031764 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2765									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2766									;IN THE SUBTEST) TO LOOP ON ERROR^
  2767
  2768					;**********
  2769
  2770					;THIS TEST VERIFIES THAT HRL PLACES THE RIGHT HALF OF C(E) INTO
  2771					;THE LEFT HALF OF THE AC.  THE RIGHT HALF OF THE AC IS UNAFFECTED
  2772					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,0.  HENCE, THE RESULT IN THE AC
  2773					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES.
  2774
  2775	031764	400 00 0 00 000000 	B33200:	SETZ			;PRELOAD AC WITH 0		
  2776	031765	504 00 0 00 034013 		HRL	[XWD -1,0]	;*HRL SHOULD PLACE 0 INTO THE AC
  2777	031766	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  2778						STOP^
  2779	031767	254 04 0 00 031770 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2780	031770	324 00 0 00 031771 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2781									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2782									;IN THE SUBTEST) TO LOOP ON ERROR^
  2783
  2784					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 55
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0081

  2785					;THIS TEST VERIFIES THAT HLRI ALWAYS CLEARS THE RIGHT HALF
  2786					;OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED.
  2787					;IN THIS CASE, C(AC)=0 AND E=0,,-1.  HENCE, THE RESULT IN THE AC
  2788					;SHOULD BE 0.  THE AC IS CHECKED FOR 0
  2789					;IF C(AC)=0, THIS TEST PASSES.
  2790
  2791	031771	400 00 0 00 000000 	B33300:	SETZ			;PRELOAD AC WITH 0		
  2792	031772	545 00 0 00 777777 		HLRI	-1		;*HLRI SHOULD PLACE 0 INTO THE AC
  2793	031773	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  2794						STOP^
  2795	031774	254 04 0 00 031775 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2796	031775	324 00 0 00 031776 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2797									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2798									;IN THE SUBTEST) TO LOOP ON ERROR^
  2799
  2800					;*****     FAILURE ANALYSIS     *****
  2801					;C(AC0)		C(AC1)		FAILING SIGNAL
  2802
  2803					;-1,,0				FC:AD LT FM + EN
  2804
  2805					;**********
  2806
  2807					;THIS TEST VERIFIES THAT HRLI PLACES E INTO
  2808					;THE LEFT HALF OF THE AC.  THE RIGHT HALF OF THE AC IS UNAFFECTED.
  2809					;IN THIS CASE C(AC)=-1,,-1 AND E=-1,,-1.  HENCE, THE RESULT IN THE AC
  2810					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES
  2811
  2812	031776	474 00 0 00 000000 	B33400:	SETO			;PRELOAD AC WITH -1,,-1		
  2813	031777	505 00 0 00 777777 		HRLI	-1		;*HRLI SHOULD PLACE -1,,-1 INTO THE AC
  2814	032000	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  2815						STOP^
  2816	032001	254 04 0 00 032002 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2817	032002	324 00 0 00 032003 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2818									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2819									;IN THE SUBTEST) TO LOOP ON ERROR^
  2820
  2821					;*****     FAILURE ANALYSIS     *****
  2822					;C(AC0)		C(AC1)		FAILING SIGNAL
  2823
  2824					;-1,,0				ET2: AR RT AD EN
  2825
  2826
  2827					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 56
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0082

  2828					;THIS TEST VERIFIES THAT HLR PLACES THE LEFT HALF OF C(E) INTO
  2829					;THE RIGHT HALF OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED.
  2830					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,0.  HENCE, THE RESULT IN THE AC
  2831					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES.
  2832
  2833	032003	474 00 0 00 000000 	B33500:	SETO			;PRELOAD AC WITH -1,,-1		
  2834	032004	544 00 0 00 034013 		HLR	[XWD -1,0]	;*HLR SHOULD PLACE -1,,-1 INTO THE AC
  2835	032005	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  2836						STOP^
  2837	032006	254 04 0 00 032007 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2838	032007	324 00 0 00 032010 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2839									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2840									;IN THE SUBTEST) TO LOOP ON ERROR^
  2841
  2842					;**********
  2843
  2844					;THIS TEST VERIFIES THAT HRL PLACES THE RIGHT HALF OF C(E) INTO
  2845					;THE LEFT HALF OF THE AC.  THE RIGHT HALF OF THE AC IS UNAFFECTED
  2846					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,0.  HENCE, THE RESULT IN THE AC
  2847					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST PASSES.
  2848
  2849	032010	474 00 0 00 000000 	B33600:	SETO			;PRELOAD AC WITH -1,,-1		
  2850	032011	504 00 0 00 034013 		HRL	[XWD -1,0]	;*HRL SHOULD PLACE 0,,-1 INTO THE AC
  2851	032012	312 00 0 00 034015 		CAME	[XWD 0,-1]	;PASS IF C(AC)=0,,-1
  2852						STOP^
  2853	032013	254 04 0 00 032014 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2854	032014	324 00 0 00 032015 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2855									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2856									;IN THE SUBTEST) TO LOOP ON ERROR^
  2857
  2858					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 57
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0083

  2859					;THIS TEST VERIFIES THAT HLRI ALWAYS CLEARS THE RIGHT HALF
  2860					;OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED.
  2861					;IN THIS CASE, C(AC)=-1,,-1 AND E=0,,-1.  HENCE, THE RESULT IN THE AC
  2862					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0
  2863					;IF C(AC)=-1,,0, THIS TEST PASSES.
  2864
  2865	032015	474 00 0 00 000000 	B33700:	SETO			;PRELOAD AC WITH -1,,-1		
  2866	032016	545 00 0 00 777777 		HLRI	-1		;*HLRI SHOULD PLACE -1,,0 INTO THE AC
  2867	032017	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0
  2868						STOP^
  2869	032020	254 04 0 00 032021 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2870	032021	324 00 0 00 032022 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2871									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2872									;IN THE SUBTEST) TO LOOP ON ERROR^
  2873
  2874					;*****     FAILURE ANALYSIS     *****
  2875					;C(AC0)		C(AC1)		FAILING SIGNAL
  2876
  2877					;0				ET2: AR LT AD EN
  2878
  2879					;**********
  2880
  2881					;THIS TEST VERIFIES THAT HRL PLACES THE RIGHT HALF OF C(E) INTO
  2882					;THE LEFT HALF OF THE AC.  THE RIGHT HALF OF THE AC IS UNAFFECTED
  2883					;IN THIS CASE, C(AC)=0,,-1 AND C(E)=0.  HENCE, THE RESULT IN THE AC
  2884					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST PASSES.
  2885
  2886	032022	201 00 0 00 777777 	B34000:	MOVEI	-1		;PRELOAD AC WITH 0,,-1	
  2887	032023	504 00 0 00 034014 		HRL	[0]		;*HRL SHOULD PLACE 0,,-1 INTO THE AC
  2888	032024	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,-1
  2889						STOP^
  2890	032025	254 04 0 00 032026 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2891	032026	324 00 0 00 032027 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2892									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2893									;IN THE SUBTEST) TO LOOP ON ERROR^
  2894
  2895					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 58
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0084

  2896					;THIS TEST VERIFIES THAT HLRI ALWAYS CLEARS THE RIGHT HALF
  2897					;OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED.
  2898					;IN THIS CASE, C(AC)=0,,-1 AND E=0.  HENCE, THE RESULT IN THE AC
  2899					;SHOULD BE 0.  THE AC IS CHECKED FOR 0
  2900					;IF C(AC)=0, THIS TEST PASSES.
  2901
  2902	032027	201 00 0 00 777777 	B34100:	MOVEI	-1		;PRELOAD AC WITH 0,,-1	
  2903	032030	545 00 0 00 000000 		HLRI			;*HLRI SHOULD PLACE 0 INTO THE AC
  2904	032031	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  2905						STOP^
  2906	032032	254 04 0 00 032033 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2907	032033	324 00 0 00 032034 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2908									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2909									;IN THE SUBTEST) TO LOOP ON ERROR^
  2910
  2911					;**********
  2912
  2913					;THIS TEST VERIFIES THAT HRL PLACES THE RIGHT HALF OF C(E) INTO
  2914					;THE LEFT HALF OF THE AC.  THE RIGHT HALF OF THE AC IS UNAFFECTED
  2915					;IN THIS CASE, C(AC)=0,,-1 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
  2916					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES.
  2917
  2918	032034	201 00 0 00 777777 	B34200:	MOVEI	-1		;PRELOAD AC WITH 0,,-1	
  2919	032035	504 00 0 00 034012 		HRL	[-1]		;*HRL SHOULD PLACE -1,,-1 INTO THE AC
  2920	032036	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  2921						STOP^
  2922	032037	254 04 0 00 032040 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2923	032040	324 00 0 00 032041 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2924									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2925									;IN THE SUBTEST) TO LOOP ON ERROR^
  2926
  2927					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 59
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0085

  2928					;THIS TEST VERIFIES THAT HLR PLACES THE LEFT HALF OF C(E) INTO
  2929					;THE RIGHT HALF OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED.
  2930					;IN THIS CASE, C(AC)=0,,-1 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
  2931					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST PASSES.
  2932
  2933	032041	201 00 0 00 777777 	B34300:	MOVEI	-1		;PRELOAD AC WITH 0,,-1	
  2934	032042	544 00 0 00 034012 		HLR	[-1]		;*HLR SHOULD PLACE 0,,-1 INTO THE AC
  2935	032043	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,-1
  2936						STOP^
  2937	032044	254 04 0 00 032045 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2938	032045	324 00 0 00 032046 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2939									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2940									;IN THE SUBTEST) TO LOOP ON ERROR^
  2941
  2942					;**********
  2943
  2944					;THIS TEST VERIFIES THAT HRL PLACES THE RIGHT HALF OF C(E) INTO
  2945					;THE LEFT HALF OF THE AC.  THE RIGHT HALF OF THE AC IS UNAFFECTED
  2946					;IN THIS CASE, C(AC)=-1,,0 AND C(E)=0.  HENCE, THE RESULT IN THE AC
  2947					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES.
  2948
  2949	032046	205 00 0 00 777777 	B34400:	MOVSI	-1		;PRELOAD AC WITH -1,,0	
  2950	032047	504 00 0 00 034014 		HRL	[0]		;*HRL SHOULD PLACE 0 INTO THE AC
  2951	032050	302 00 0 00 000000 		CAIE	0		;PASS IF C(AC)=0
  2952						STOP^
  2953	032051	254 04 0 00 032052 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2954	032052	324 00 0 00 032053 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2955									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2956									;IN THE SUBTEST) TO LOOP ON ERROR^
  2957
  2958					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 60
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0086

  2959					;THIS TEST VERIFIES THAT HLR PLACES THE LEFT HALF OF C(E) INTO
  2960					;THE RIGHT HALF OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED.
  2961					;IN THIS CASE, C(AC)=-1,,0 AND C(E)=0.  HENCE, THE RESULT IN THE AC
  2962					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0.  IF C(AC)=-1,,0, THIS TEST PASSES.
  2963
  2964	032053	205 00 0 00 777777 	B34500:	MOVSI	-1		;PRELOAD AC WITH -1,,0	
  2965	032054	544 00 0 00 034014 		HLR	[0]		;*HLR SHOULD PLACE -1,,0 INTO THE AC
  2966	032055	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0
  2967						STOP^
  2968	032056	254 04 0 00 032057 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2969	032057	324 00 0 00 032060 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2970									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2971									;IN THE SUBTEST) TO LOOP ON ERROR^
  2972
  2973					;**********
  2974
  2975					;THIS TEST VERIFIES THAT HRL PLACES THE RIGHT HALF OF C(E) INTO
  2976					;THE LEFT HALF OF THE AC.  THE RIGHT HALF OF THE AC IS UNAFFECTED
  2977					;IN THIS CASE, C(AC)=-1,,0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
  2978					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0.  IF C(AC)=-1,,0, THIS TEST PASSES.
  2979
  2980	032060	205 00 0 00 777777 	B34600:	MOVSI	-1		;PRELOAD AC WITH -1,,0	
  2981	032061	504 00 0 00 034012 		HRL	[-1]		;*HRL SHOULD PLACE -1,,0 INTO THE AC
  2982	032062	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0
  2983						STOP^
  2984	032063	254 04 0 00 032064 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2985	032064	324 00 0 00 032065 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2986									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2987									;IN THE SUBTEST) TO LOOP ON ERROR^
  2988
  2989					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 61
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0087

  2990					;THIS TEST VERIFIES THAT HLR PLACES THE LEFT HALF OF C(E) INTO
  2991					;THE RIGHT HALF OF THE AC.  THE LEFT HALF OF THE AC IS UNAFFECTED.
  2992					;IN THIS CASE, C(AC)=-1,,0 AND C(E)=-1,,-1  HENCE, THE RESULT IN THE AC
  2993					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES.
  2994
  2995	032065	205 00 0 00 777777 	B34700:	MOVSI	-1		;PRELOAD AC WITH -1,,0	
  2996	032066	544 00 0 00 034012 		HLR	[-1]		;*HLR SHOULD PLACE -1,,-1 INTO THE AC
  2997	032067	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  2998						STOP^
  2999	032070	254 04 0 00 032071 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3000	032071	324 00 0 00 032072 		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
  3006					;THIS TEST VERIFIES THAT HLLM PLACES THE LEFT HALF OF C(AC) INTO
  3007					;THE LEFT HALF OF E.  THE RIGHT HALF OF E IS UNAFFECTED.
  3008					;IN THIS CASE, AC=E AND C(AC)= C(E)=0.  HENCE, THE RESULT IN E
  3009					;SHOULD BE 0.  E IS CHECKED FOR 0.  IF C(E)=0, THIS TEXT PASSES.
  3010
  3011	032072	400 00 0 00 000000 	B35000:	SETZ			;PRELOAD AC,E WITH 0
  3012	032073	502 00 0 00 000000 		HLLM			;*HLLM SHOULD PLACE 0 INTO E
  3013	032074	332 00 0 00 000000 		SKIPE			;PASS IF C(E)=0
  3014						STOP^
  3015	032075	254 04 0 00 032076 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3016	032076	324 00 0 00 032077 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3017									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3018									;IN THE SUBTEST) TO LOOP ON ERROR^
  3019
  3020					;*****     FAILURE ANALYSIS     *****
  3021					;C(AC0)		C(AC1)		FAILING SIGNAL
  3022
  3023					;-1,,0		0		FC: AD FM + EN
  3024					;0,,-1		0,,-1		ET0: AD RT BR + EN
  3025					;B35000		0,,-1		ET0: BR AR EN
  3026					;-1,,0		0,,-1		ET0: AD LT AR + EN
  3027
  3028					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 62
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0088

  3029					;THIS TEST VERIFIES THAT HLLM PLACES THE LEFT HALF OF C(AC) INTO
  3030					;THE LEFT HALF OF E.  THE RIGHT HALF OF E IS UNAFFECTED.
  3031					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN E
  3032					;SHOULD BE 0,,-1.  E IS CHECKED FOR 0,,-1. IF C(E)=0,,-1, THIS TEST PASSES.
  3033
  3034	032077	400 00 0 00 000000 	B35500:	SETZ			;PRELOAD AC WITH 0
  3035	032100	474 01 0 00 000000 		SETO	1,		;PRELOAD E WITH -1,,-1
  3036	032101	502 00 0 00 000001 		HLLM	1		;*HLLM SHOULD PLACE 0,,-1 INTO E
  3037	032102	302 01 0 00 777777 		CAIE	1,- 1		;PASS IF C(E) =0,,-1
  3038						STOP^
  3039	032103	254 04 0 00 032104 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3040	032104	324 00 0 00 032105 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3041									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3042									;IN THE SUBTEST) TO LOOP ON ERROR^
  3043
  3044					;*****     FAILURE ANALYSIS     *****
  3045					;C(AC0)		C(AC1)		FAILING SIGNAL
  3046
  3047					;0		-1,,-1		SW: FCE PSE
  3048					;0		0		SW: ET0
  3049					;0		-1,,-1		ET0: AR AD EN
  3050					;0		0		ET2: AR LT AD EN
  3051
  3052					;**********
  3053
  3054					;THIS TEST VERIFIES THAT HLLM PLACES THE LEFT HALF OF C(AC) INTO
  3055					;THE LEFT HALF OF E.  THE RIGHT HALF OF E IS UNAFFECTED.
  3056					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0.  HENCE, THE RESULT IN E
  3057					;SHOULD BE -1,,0.  E IS CHECKED FOR -1,,0. IF C(E)=-1,,0, THIS TEST PASSES
  3058
  3059	032105	474 00 0 00 000000 	B35600:	SETO			;PRELOAD AC WITH -1,,-1
  3060	032106	400 01 0 00 000000 		SETZ	1,		;PRELOAD E WITH 0
  3061	032107	502 00 0 00 000001 		HLLM	1		;*HLLM SHOULD PLACE -1,,0 INTO E
  3062	032110	312 01 0 00 034013 		CAME	1,[XWD -1,0]	;PASS IF C(E) = -1,,0
  3063						STOP^
  3064	032111	254 04 0 00 032112 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3065	032112	324 00 0 00 032113 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3066									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3067									;IN THE SUBTEST) TO LOOP ON ERROR^
  3068
  3069					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 63
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0089

  3070					;THIS TEST VERIFIES THAT HRRM PLACES THE RIGHT HALF OF C(AC) INTO
  3071					;THE RIGHT HALF OF E.  THE LEFT HALF OF E IS UNAFFECTED.
  3072					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN E
  3073					;SHOULD BE -1,,0.  E IS CHECKED FOR -1,,0
  3074					;IF C(E) = -1,,0, THIS TEST PASSES.
  3075
  3076	032113	400 00 0 00 000000 	B35700:	SETZ			;PRELOAD AC WITH 0
  3077	032114	474 01 0 00 000000 		SETO	1,		;PRELOAD E WITH -1,,-1
  3078	032115	542 00 0 00 000001 		HRRM	1		;*HRRM SHOULD PLACE -1,,0 INTO E
  3079	032116	312 01 0 00 034013 		CAME	1,[XWD -1,0]	;PASS IF C(E) = -1,,0
  3080						STOP^
  3081	032117	254 04 0 00 032120 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3082	032120	324 00 0 00 032121 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3083									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3084									;IN THE SUBTEST) TO LOOP ON ERROR^
  3085
  3086					;*****     FAILURE ANALYSIS     *****
  3087					;C(AC0)		C(AC1)		FAILING SIGNAL
  3088
  3089					;0		-1,,-1		SW: FCE PSE
  3090					;0		0		SW: ET0
  3091					;0		-1,,-1		FC: AD FM + EN
  3092					;-1,,-1		-1,,-1		ET0: AD LT BR + EN
  3093					;0		-1,,-1		ET0: AD RT AR + EN
  3094					;0		0		ET0: BR AR EN
  3095					;0		-1,,-1		ET0: AR AD EN
  3096					;0		0		ET2: AR AD EN
  3097
  3098					;**********
  3099
  3100					;THIS TEST VERIFIES THAT HRRM PLACES THE RIGHT HALF OF C(AC) INTO
  3101					;THE RIGHT HALF OF E.  THE LEFT HALF OF E IS UNAFFECTED.
  3102					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0.  HENCE, THE RESULT IN E
  3103					;SHOULD BE 0,,-1.  E IS CHECKED FOR = 0,,-1
  3104					;IF C(E) = 0,,-1, THIS TEST PASSES.
  3105
  3106	032121	474 00 0 00 000000 	B36000:	SETO			;PRELOAD AC WITH -1,,-1
  3107	032122	400 01 0 00 000000 		SETZ	1,		;PRELOAD E WITH 0
  3108	032123	542 00 0 00 000001 		HRRM	1		;*HRRM SHOULD PLACE 0,,-1 INTO E
  3109	032124	302 01 0 00 777777 		CAIE	1,-1		;PASS IF C(E) = 0,,-1
  3110						STOP^
  3111	032125	254 04 0 00 032126 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3112	032126	324 00 0 00 032127 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3113									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3114									;IN THE SUBTEST) TO LOOP ON ERROR^
  3115
  3116					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 64
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0090

  3117					;THIS TEST VERIFIES THAT HLLO PLACES THE LEFT HALF OF C(E) INTO
  3118					;THE LEFT HALF OF THE AC AND PLACES ONES INTO THE RIGHT HALF OF THE AC.
  3119					;IN THIS CASE, AC=E AND C(AC)=C(E)=-1,,-1.  HENCE THE RESULT IN THE AC
  3120					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES.
  3121
  3122	032127	474 00 0 00 000000 	B36100:	SETO			;PRELOAD AC WITH -1,,-1
  3123	032130	520 00 0 00 000000 		HLLO			;*HLLO SHOULD PLACE -1,,-1 INTO THE AC
  3124	032131	312 00 0 00 034012 		CAME	[-1]		;PASS OF C(AC)=-1,,-1
  3125						STOP^
  3126	032132	254 04 0 00 032133 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3127	032133	324 00 0 00 032134 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3128									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3129									;IN THE SUBTEST) TO LOOP ON ERROR^
  3130
  3131					;*****     FAILURE ANALYSIS     *****
  3132					;C(AC0)		C(AC1)		FAILING SIGNAL
  3133
  3134					;0,,-1				SW: FCE
  3135
  3136					;**********
  3137
  3138					;THIS TEST VERIFIES THAT HLLO PLACES THE LEFT HALF OF C(E) INTO
  3139					;THE LEFT HALF OF THE AC AND PLACES ONES INTO THE RIGHT HALF OF THE AC.
  3140					;IN THIS CASE, C(AC)=0 AND C(E)=0,,-1.  HENCE THE RESULT IN THE AC
  3141					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST PASSES.
  3142
  3143	032134	400 00 0 00 000000 	B36200:	SETZ			;PRELOAD AC WITH 0
  3144	032135	520 00 0 00 034015 		HLLO	[XWD 0,-1]	;*HLLO SHOULD PLACE 0,,-1 INTO THE AC
  3145	032136	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,-1
  3146						STOP^
  3147	032137	254 04 0 00 032140 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3148	032140	324 00 0 00 032141 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3149									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3150									;IN THE SUBTEST) TO LOOP ON ERROR^
  3151
  3152					;*****     FAILURE ANALYSIS     *****
  3153					;C(AC0)		C(AC1)		FAILING SIGNAL
  3154
  3155					;-1,,-1				FC: AD LT AR + EN
  3156
  3157					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 65
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0091

  3158					;THIS TEST VERIFIES THAT HRRO PLACES THE RIGHT HALF OF C(E) INTO
  3159					;THE RIGHT HALF OF THE AC AND PLACES ONES INTO THE LEFT HALF OF THE AC.
  3160					;IN THIS CASE, AC=E AND C(AC)=C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
  3161					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES.
  3162
  3163	032141	474 00 0 00 000000 	B36300:	SETO			;PRELOAD AC,E WITH -1,,-1
  3164	032142	560 00 0 00 000000 		HRRO			;*HRRO SHOULD PLACE -1,,-1 INTO THE AC
  3165	032143	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  3166						STOP^
  3167	032144	254 04 0 00 032145 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3168	032145	324 00 0 00 032146 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3169									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3170									;IN THE SUBTEST) TO LOOP ON ERROR^
  3171
  3172					;*****     FAILURE ANALYSIS     *****
  3173					;C(AC0)		C(AC1)		FAILING SIGNAL
  3174
  3175					;-1,,0				SW: FCE
  3176
  3177					;**********
  3178
  3179					;THIS TEST VERIFIES THAT HRRO PLACES THE RIGHT HALF OF C(E) INTO
  3180					;THE RIGHT HALF OF THE AC AND PLACES ONES INTO THE LEFT HALF OF THE AC.
  3181					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,0.  HENCE, THE RESULT IN THE AC
  3182					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0.  IF C(AC)=-1,,0, THIS TEST PASSES.
  3183
  3184	032146	400 00 0 00 000000 	B36400:	SETZ			;PRELOAD AC WITH 0
  3185	032147	560 00 0 00 034013 		HRRO	[XWD -1,0]	;*HRRO SHOULD PLACE -1,,0 INTO THE AC
  3186	032150	312 00 0 00 034013 		CAME	[-1,,0]		;PASS IF C(AC)=-1,,0
  3187						STOP^
  3188	032151	254 04 0 00 032152 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3189	032152	324 00 0 00 032153 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3190									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3191									;IN THE SUBTEST) TO LOOP ON ERROR^
  3192
  3193					;*****     FAILURE ANALYSIS     *****
  3194					;C(AC0)		C(AC1)		FAILING SIGNAL
  3195
  3196					;-1,,-1				FC: AD RT AR + EN
  3197
  3198					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 66
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0092

  3199					;THIS TEST VERIFIES THAT HLLO PLACES THE LEFT HALF OF C(E) INTO
  3200					;THE LEFT HALF OF THE AC AND PLACES ONES INTO THE RIGHT HALF OF THE AC.
  3201					;IN THIS CASE, C(AC)=0 AND C(E)=0.  HENCE THE RESULT IN THE AC
  3202					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST PASSES.
  3203
  3204	032153	400 00 0 00 000000 	B36500:	SETZ			;PRELOAD AC WITH 0
  3205	032154	520 00 0 00 034014 		HLLO	[0]		;*HLLO SHOULD PLACE 0,,-1 INTO THE AC
  3206	032155	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,-1
  3207						STOP^
  3208	032156	254 04 0 00 032157 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3209	032157	324 00 0 00 032160 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3210									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3211									;IN THE SUBTEST) TO LOOP ON ERROR^
  3212
  3213					;*****     FAILURE ANALYSIS     *****
  3214					;C(AC0)		C(AC1)		FAILING SIGNAL
  3215
  3216					;0				ET2: AR LT AD EN
  3217
  3218					;**********
  3219
  3220					;THIS TEST VERIFIES THAT HRRO PLACES THE RIGHT HALF OF C(E) INTO
  3221					;THE RIGHT HALF OF THE AC AND PLACES ONES INTO THE LEFT HALF OF THE AC.
  3222					;IN THIS CASE, C(AC)=0 AND C(E)=0.  HENCE, THE RESULT IN THE AC
  3223					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0.  IF C(AC)=-1,,0, THIS TEST PASSES.
  3224
  3225	032160	400 00 0 00 000000 	B36600:	SETZ			;PRELOAD AC WITH 0
  3226	032161	560 00 0 00 034014 		HRRO	[0]		;*HRRO SHOULD PLACE -1,,0 INTO THE AC
  3227	032162	312 00 0 00 034013 		CAME	[-1,,0]		;PASS IF C(AC)=-1,,0
  3228						STOP^
  3229	032163	254 04 0 00 032164 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3230	032164	324 00 0 00 032165 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3231									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3232									;IN THE SUBTEST) TO LOOP ON ERROR^
  3233
  3234					;*****     FAILURE ANALYSIS     *****
  3235					;C(AC0)		C(AC1)		FAILING SIGNAL
  3236
  3237					;0				ET2: AR AD EN
  3238
  3239					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 67
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0093

  3240					;THIS TEST VERIFIES THAT HLLOI ALWAYS PLACES 0,,-1 INTO THE AC.
  3241					;IN THIS CASE, C(AC)=0 AND E=0.
  3242					;THE RESULT IN THE AC SHOULD BE 0,,-1.
  3243					;THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST PASSES
  3244
  3245	032165	400 00 0 00 000000 	B37100:	SETZ			;PRELOAD AC WITH 0
  3246	032166	521 00 0 00 000000 		HLLOI			;*HLLOI SHOULD PLACE 0,,-1 INTO THE AC
  3247	032167	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,-1
  3248						STOP^
  3249	032170	254 04 0 00 032171 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3250	032171	324 00 0 00 032172 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3251									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3252									;IN THE SUBTEST) TO LOOP ON ERROR^
  3253
  3254					;*****     FAILURE ANALYSIS     *****
  3255					;C(AC0)		C(AC1)		FAILING SIGNAL
  3256
  3257					;-1,,-1				FC: AD LT AR + EN
  3258					;0				ET2: AR AD EN
  3259
  3260					;**********
  3261
  3262					;THIS TEST VERIFIES THAT HRROI PLACES E INTO THE RIGHT HALF OF THE AC
  3263					;AND PLACES ONES INTO THE LEFT HALF OF THE AC.
  3264					;IN THIS CASE, C(AC)=0 AND E=0.  HENCE, THE RESULT IN THE AC
  3265					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0.  IF C(AC)=-1, THIS TEST PASSES
  3266
  3267	032172	400 00 0 00 000000 	B37200:	SETZ			;PRELOAD AC WITH 0
  3268	032173	561 00 0 00 000000 		HRROI			;*HRROI SHOULD PLACE -1,,0 INTO THE AC
  3269	032174	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0
  3270						STOP^
  3271	032175	254 04 0 00 032176 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3272	032176	324 00 0 00 032177 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3273									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3274									;IN THE SUBTEST) TO LOOP ON ERROR^
  3275
  3276					;*****     FAILURE ANALYSIS     *****
  3277					;C(AC0)		C(AC1)		FAILING SIGNAL
  3278
  3279					;-1,,-1				FC: AD RT AR + EN
  3280					;0				ET2: AR AD EN
  3281
  3282					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 68
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0094

  3283					;THIS TEST VERIFIES THAT HLLO PLACES THE LEFT HALF OF C(E) INTO
  3284					;THE LEFT HALF OF THE AC AND PLACES ONES INTO THE RIGHT HALF OF THE AC.
  3285					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,0.  HENCE THE RESULT IN THE AC
  3286					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES.
  3287
  3288	032177	400 00 0 00 000000 	B37300:	SETZ			;PRELOAD AC WITH 0
  3289	032200	520 00 0 00 034013 		HLLO	[XWD -1,0]	;*HLLO SHOULD PLACE -1,,-1 INTO THE AC
  3290	032201	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  3291						STOP^
  3292	032202	254 04 0 00 032203 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3293	032203	324 00 0 00 032204 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3294									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3295									;IN THE SUBTEST) TO LOOP ON ERROR^
  3296
  3297					;**********
  3298
  3299					;THIS TEST VERIFIES THAT HRROI PLACES E INTO THE RIGHT HALF OF THE AC
  3300					;AND PLACES ONES INTO THE LEFT HALF OF THE AC.
  3301					;IN THIS CASE, C(AC)=0 AND E=0,,-1.  HENCE, THE RESULT IN THE AC
  3302					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES
  3303
  3304	032204	400 00 0 00 000000 	B37400:	SETZ			;PRELOAD AC WITH 0
  3305	032205	561 00 0 00 777777 		HRROI	-1		;*HRRIO SHOULD PLACE -1,,-1 INTO THE AC
  3306	032206	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  3307						STOP^
  3308	032207	254 04 0 00 032210 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3309	032210	324 00 0 00 032211 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3310									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3311									;IN THE SUBTEST) TO LOOP ON ERROR^
  3312
  3313					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 69
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0095

  3314					;THIS TEST VERIFIES THAT HLLOI ALWAYS PLACES 0,,-1 INTO THE AC.
  3315					;IN THIS CASE, C(AC)=0 AND E=0.
  3316					;THE RESULT IN THE AC SHOULD BE 0,,-1.
  3317					;THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST PASSES
  3318
  3319	032211	474 00 0 00 000000 	B37500:	SETO			;PRELOAD AC WITH -1,,-1
  3320	032212	521 00 0 00 000000 		HLLOI			;*HLLOI SHOULD PLACE 0,,-1 INTO THE AC
  3321	032213	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,-1
  3322						STOP^
  3323	032214	254 04 0 00 032215 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3324	032215	324 00 0 00 032216 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3325									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3326									;IN THE SUBTEST) TO LOOP ON ERROR^
  3327
  3328					;**********
  3329
  3330					;THIS TEST VERIFIES THAT HRROI PLACES E INTO THE RIGHT HALF OF THE AC
  3331					;AND PLACES ONES INTO THE LEFT HALF OF THE AC.
  3332					;IN THIS CASE, C(AC)=0 AND E=0.  HENCE, THE RESULT IN THE AC
  3333					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0.  IF C(AC)=-1,,0, THIS TEST PASSES
  3334
  3335	032216	474 00 0 00 000000 	B37600:	SETO			;PRELOAD AC WITH -1,,-1
  3336	032217	561 00 0 00 000000 		HRROI			;*HRRIO SHOULD PLACE -1,,0 INTO THE AC
  3337	032220	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0
  3338						STOP^
  3339	032221	254 04 0 00 032222 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3340	032222	324 00 0 00 032223 		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^
  3343
  3344					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 70
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0096

  3345					;THIS TEST VERIFIES THAT HLLO PLACES THE LEFT HALF OF C(E) INTO
  3346					;THE LEFT HALF OF THE AC AND PLACES ONES INTO THE RIGHT HALF OF THE AC.
  3347					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,0.  HENCE THE RESULT IN THE AC
  3348					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES.
  3349
  3350	032223	474 00 0 00 000000 	B37700:	SETO			;PRELOAD AC WITH -1,,-1
  3351	032224	520 00 0 00 034013 		HLLO	[XWD -1,0]	;*HLLO SHOULD PLACE -1,,-1 INTO THE AC
  3352	032225	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  3353						STOP^
  3354	032226	254 04 0 00 032227 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3355	032227	324 00 0 00 032230 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3356									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3357									;IN THE SUBTEST) TO LOOP ON ERROR^
  3358
  3359					;**********
  3360
  3361					;THIS TEST VERIFIES THAT HRROI PLACES E INTO THE RIGHT HALF OF THE AC
  3362					;AND PLACES ONES INTO THE LEFT HALF OF THE AC.
  3363					;IN THIS CASE, C(AC)=-1,,-1 AND E=0,,-1.  HENCE, THE RESULT IN THE AC
  3364					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES
  3365
  3366	032230	474 00 0 00 000000 	B40000:	SETO			;PRELOAD AC WITH -1,,-1
  3367	032231	561 00 0 00 777777 		HRROI	-1		;*HRRIO SHOULD PLACE -1,,-1 INTO THE AC
  3368	032232	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  3369						STOP^
  3370	032233	254 04 0 00 032234 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3371	032234	324 00 0 00 032235 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3372									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3373									;IN THE SUBTEST) TO LOOP ON ERROR^
  3374
  3375					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 71
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0097

  3376					;THIS TEST VERIFIES THAT HRROI PLACES E INTO THE RIGHT HALF OF THE AC
  3377					;AND PLACES ONES INTO THE LEFT HALF OF THE AC.
  3378					;IN THIS CASE, C(AC)=0,,-1 AND E=0.  HENCE, THE RESULT IN THE AC
  3379					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0.  IF C(AC)=-1,,0, THIS TEST PASSES
  3380
  3381	032235	201 00 0 00 777777 	B40100:	MOVEI	-1		;PRELOAD AC WITH 0,,-1
  3382	032236	561 00 0 00 000000 		HRROI			;*HRRIO SHOULD PLACE -1,,0 INTO THE AC
  3383	032237	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0
  3384						STOP^
  3385	032240	254 04 0 00 032241 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3386	032241	324 00 0 00 032242 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3387									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3388									;IN THE SUBTEST) TO LOOP ON ERROR^
  3389
  3390					;**********
  3391
  3392					;THIS TEST VERIFIES THAT HLLO PLACES THE LEFT HALF OF C(E) INTO
  3393					;THE LEFT HALF OF THE AC AND PLACES ONES INTO THE RIGHT HALF OF THE AC.
  3394					;IN THIS CASE, C(AC)=-1,,0 AND C(E)=0,,-1.  HENCE THE RESULT IN THE AC
  3395					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST PASSES.
  3396
  3397	032242	205 00 0 00 777777 	B40200:	MOVSI	-1		;PRELOAD AC WITH -1,,0	
  3398	032243	520 00 0 00 034015 		HLLO	[XWD 0,-1]	;*HLLO SHOULD PLACE 0,,-1 INTO THE AC
  3399	032244	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,-1
  3400						STOP^
  3401	032245	254 04 0 00 032246 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3402	032246	324 00 0 00 032247 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3403									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3404									;IN THE SUBTEST) TO LOOP ON ERROR^
  3405
  3406					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 72
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0098

  3407					;THIS TEST VERIFIES THAT HRLZ PLACES THE RIGHT HALF OF C(E)
  3408					;INTO THE LEFT HALF OF THE AC.
  3409					;AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC.
  3410					;IN THIS CASE, AC=E AND C(AC)=C(E)=0. HENCE, THE FINAL RESULT IN THE AC
  3411					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES.
  3412
  3413	032247	400 00 0 00 000000 	B40300:	SETZ			;PRELOAD AC WITH 0
  3414	032250	514 00 0 00 000000 		HRLZ			;*HRLZ SHOULD PLACE 0 INTO THE AC
  3415	032251	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  3416						STOP^
  3417	032252	254 04 0 00 032253 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3418	032253	324 00 0 00 032254 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3419									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3420									;IN THE SUBTEST) TO LOOP ON ERROR^
  3421
  3422					;**********
  3423
  3424					;THIS TEST VERIFIES THAT HLRZ PLACES THE LEFT HALF OF C(E)
  3425					;INTO THE RIGHT HALF OF THE AC
  3426					;AND PLACES ZEROS INTO THE LEFT HALF OF THE AC.
  3427					;IN THIS CASE, AC=E AND C(AC)=C(E)=0.  HENCE, THE RESULT IN THE AC
  3428					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES.
  3429
  3430	032254	400 00 0 00 000000 	B40400:	SETZ			;PRELOAD AC WITH 0
  3431	032255	554 00 0 00 000000 		HLRZ			;*HLRZ SHOULD PLACE 0 INTO THE AC
  3432	032256	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  3433						STOP^
  3434	032257	254 04 0 00 032260 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3435	032260	324 00 0 00 032261 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3436									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3437									;IN THE SUBTEST) TO LOOP ON ERROR^
  3438
  3439					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 73
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0099

  3440					;THIS TEST VERIFIES THAT HRLZI PLACES E INTO THE LEFT HALF OF THE AC
  3441					;AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC.
  3442					;IN THIS CASE, C(AC)=0 AND E=0,,-1.  HENCE THE RESULT IN THE AC
  3443					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0
  3444					;IF C(AC)=-1,,0, THIS TEST PASSES.
  3445
  3446	032261	400 00 0 00 000000 	B40700:	SETZ			;PRELOAD AC WITH 0		
  3447	032262	515 00 0 00 777777 		HRLZI	-1		;*HRLZI SHOULD PLACE -1,,0 INTO THE AC
  3448	032263	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0.
  3449						STOP^
  3450	032264	254 04 0 00 032265 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3451	032265	324 00 0 00 032266 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3452									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3453									;IN THE SUBTEST) TO LOOP ON ERROR^
  3454
  3455					;*****     FAILURE ANALYSIS     *****
  3456					;C(AC0)		C(AC1)		FAILING SIGNAL
  3457
  3458					;0				ET2: AR LT AR RT EN
  3459
  3460					;**********
  3461
  3462					;THIS TEST VERIFIES THAT HLRZ PLACES THE LEFT HALF OF C(E)
  3463					;INTO THE RIGHT HALF OF THE AC
  3464					;AND PLACES ZEROS INTO THE LEFT HALF OF THE AC.
  3465					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,0.  HENCE, THE RESULT IN THE AC
  3466					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST PASSES.
  3467
  3468	032266	400 00 0 00 000000 	B41000:	SETZ			;PRELOAD AC WITH 0
  3469	032267	554 00 0 00 034013 		HLRZ	[XWD -1,0]	;*HLRZ SHOULD PLACE 0,,-1 INTO THE AC
  3470	032270	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,-1
  3471						STOP^
  3472	032271	254 04 0 00 032272 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3473	032272	324 00 0 00 032273 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3474									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3475									;IN THE SUBTEST) TO LOOP ON ERROR^
  3476
  3477					;*****     FAILURE ANALYSIS     *****
  3478					;C(AC0)		C(AC1)		FAILING SIGNAL
  3479
  3480					;0				SW: FCE
  3481					;-1,,0				ET2: AR RT AR LT EN
  3482
  3483					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 74
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0100

  3484					;THIS TEST VERIFIES THAT HRLZI PLACES E INTO THE LEFT HALF OF THE AC
  3485					;AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC.
  3486					;IN THIS CASE, C(AC)=-1,,-1 AND E=0,,-1.  HENCE THE RESULT IN THE AC
  3487					;SHOULD BE -1,,0.  THE AC IS CHECKED FOR -1,,0.
  3488					;IF C(AC)=-1,,0, THIS TEST PASSES.
  3489
  3490	032273	474 00 0 00 000000 	B41100:	SETO			;PRELOAD AC WITH -1,,-1
  3491	032274	515 00 0 00 777777 		HRLZI	-1		;*HRLZI SHOULD PLACE -1,,0 INTO THE AC
  3492	032275	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0.
  3493						STOP^
  3494	032276	254 04 0 00 032277 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3495	032277	324 00 0 00 032300 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3496									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3497									;IN THE SUBTEST) TO LOOP ON ERROR^
  3498
  3499					;**********
  3500
  3501					;THIS TEST VERIFIES THAT HLRZ PLACES THE LEFT HALF OF C(E)
  3502					;INTO THE RIGHT HALF OF THE AC
  3503					;AND PLACES ZEROS INTO THE LEFT HALF OF THE AC.
  3504					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,0.  HENCE, THE RESULT IN THE AC
  3505					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST PASSES.
  3506
  3507	032300	474 00 0 00 000000 	B41200:	SETO			;PRELOAD AC WITH -1,,-1
  3508	032301	554 00 0 00 034013 		HLRZ	[XWD -1,0]	;*HLRZ SHOULD PLACE 0,,-1 INTO THE AC
  3509	032302	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC)=0,,-1
  3510						STOP^
  3511	032303	254 04 0 00 032304 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3512	032304	324 00 0 00 032305 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3513									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3514									;IN THE SUBTEST) TO LOOP ON ERROR^
  3515
  3516					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 75
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0101

  3517					;THIS TEST VERIFIES THAT HLLE PLACES THE LEFT HALF OF C(E)
  3518					;INTO THE LEFT HALF OF THE AC
  3519					;AND PLACES BIT 0 OF C(E) INTO ALL BITS OF THE RIGHT HALF OF THE AC.
  3520					;IN THIS CASE, AC=E AND C(AC)=C(E)=0.  HENCE, THE RESULT IN THE AC SHOULD BE 0
  3521					;THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES
  3522
  3523	032305	400 00 0 00 000000 	B41500:	SETZ			;PRELOAD AC WITH 0		
  3524	032306	530 00 0 00 000000 		HLLE			;*HLLE SHOULD PLACE 0 INTO THE AC
  3525	032307	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  3526						STOP^
  3527	032310	254 04 0 00 032311 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3528	032311	324 00 0 00 032312 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3529									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3530									;IN THE SUBTEST) TO LOOP ON ERROR^
  3531
  3532					;*****     FAILURE ANALYSIS     *****
  3533					;C(AC0)		C(AC1)		FAILING SIGNAL
  3534
  3535					;-1,,0				FC: AD LT AR + EN
  3536
  3537					;**********
  3538
  3539					;THIS TEST VERIFIES THAT HLLE PLACES THE LEFT HALF OF C(E)
  3540					;INTO THE LEFT HALF OF THE AC
  3541					;AND PLACES BIT 0 OF C(E) INTO ALL BITS OF THE RIGHT HALF OF THE AC.
  3542					;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1
  3543					;THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES
  3544
  3545	032312	400 00 0 00 000000 	B41600:	SETZ			;PRELOAD AC WITH 0		
  3546	032313	530 00 0 00 034012 		HLLE	[-1]		;*HLLE SHOULD PLACE -1,,-1 INTO THE AC
  3547	032314	312 00 0 00 034012 		CAME	[XWD -1,-1]	;PASS IF C(AC)=-1,,-1
  3548						STOP^
  3549	032315	254 04 0 00 032316 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3550	032316	324 00 0 00 032317 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3551									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3552									;IN THE SUBTEST) TO LOOP ON ERROR^
  3553
  3554					;*****     FAILURE ANALYSIS     *****
  3555					;C(AC0)		C(AC1)		FAILING SIGNAL
  3556
  3557					;0				SW: FCE
  3558					;-1,,-1				ET2: AR LT AD EN
  3559					;-1,,0				ET2: AR0(1): AR RT AD EN
  3560
  3561					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 76
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0102

  3562					;THIS TEST VERIFIES THAT HRRE PLACES THE RIGHT HALF OF C(E)
  3563					;INTO THE RIGHT HALF OF THE AC.
  3564					;AND PLACES BIT 18 OF C(E) INTO ALL BITS OF THE LEFT HALF OF THE AC.
  3565					;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1.
  3566					;THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES.
  3567
  3568	032317	400 00 0 00 000000 	B42000:	SETZ			;PRELOAD AC WITH 0		
  3569	032320	570 00 0 00 034012 		HRRE	[-1]		;*HRRE SHOULD PLACE -1,,-1 INTO THE AC
  3570	032321	312 00 0 00 034012 		CAME	[-1,,-1]	;PASS IF C(AC)=-1,,-1
  3571						STOP^
  3572	032322	254 04 0 00 032323 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3573	032323	324 00 0 00 032324 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3574									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3575									;IN THE SUBTEST) TO LOOP ON ERROR^
  3576
  3577					;**********
  3578
  3579					;THIS TEST VERIFIES THAT HLLE PLACES THE LEFT HALF OF C(E)
  3580					;INTO THE LEFT HALF OF THE AC
  3581					;AND PLACES BIT 0 OF C(E) INTO ALL BITS OF THE RIGHT HALF OF THE AC.
  3582					;IN THIS CASE C(AC)=0 AND C(E)=-1,,0.  HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1
  3583					;THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES
  3584
  3585	032324	400 00 0 00 000000 	B42200:	SETZ			;PRELOAD AC WITH 0		
  3586	032325	530 00 0 00 034013 		HLLE	[XWD -1,0]	;*HLLE SHOULD PLACE -1,,-1 INTO THE AC
  3587	032326	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  3588						STOP^
  3589	032327	254 04 0 00 032330 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3590	032330	324 00 0 00 032331 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3591									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3592									;IN THE SUBTEST) TO LOOP ON ERROR^
  3593
  3594					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 77
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0103

  3595					;THIS TEST VERIFIES THAT HRRE PLACES THE RIGHT HALF OF C(E)
  3596					;INTO THE RIGHT HALF OF THE AC.
  3597					;AND PLACES BIT 18 OF C(E) INTO ALL BITS OF THE LEFT HALF OF THE AC.
  3598					;IN THIS CASE, AC=E AND C(AC)=C(E)=0.  HENCE, THE RESULT IN THE AC SHOULD BE 0.
  3599					;THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES.
  3600
  3601	032331	400 00 0 00 000000 	B42300:	SETZ			;PRELOAD AC,E WITH 0		
  3602	032332	570 00 0 00 000000 		HRRE			;*HRRE SHOULD PLACE 0 INTO THE AC
  3603	032333	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  3604						STOP^
  3605	032334	254 04 0 00 032335 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3606	032335	324 00 0 00 032336 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3607									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3608									;IN THE SUBTEST) TO LOOP ON ERROR^
  3609
  3610					;*****     FAILURE ANALYSIS     *****
  3611					;C(AC0)		C(AC1)		FAILING SIGNAL
  3612
  3613					;E				SW: FCE
  3614					;-1,,0				ET2: AR RT AD EN
  3615					;0,,-1				ET2: AR18(1): AR LT AD EN
  3616					;0,,-1				FC: AR RT AR + EN
  3617
  3618					;**********
  3619
  3620					;THIS TEST VERIFIES THAT HRRE PLACES THE RIGHT HALF OF C(E)
  3621					;INTO THE RIGHT HALF OF THE AC.
  3622					;AND PLACES BIT 18 OF C(E) INTO ALL BITS OF THE LEFT HALF OF THE AC.
  3623					;IN THIS CASE C(AC)=0 AND C(E)=-1,,0.  HENCE, THE RESULT IN THE AC SHOULD BE 0.
  3624					;THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES.
  3625
  3626	032336	400 00 0 00 000000 	B42500:	SETZ			;PRELOAD AC WITH 0		
  3627	032337	570 00 0 00 034013 		HRRE	[XWD -1,0]	;*HRRE SHOULD PLACE 0 INTO THE AC
  3628	032340	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  3629						STOP^
  3630	032341	254 04 0 00 032342 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3631	032342	324 00 0 00 032343 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3632									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3633									;IN THE SUBTEST) TO LOOP ON ERROR^
  3634
  3635					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 78
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0104

  3636					;THIS TEST VERIFIES THAT HRREI PLACES E INTO THE RIGHT HALF OF THE AC
  3637					;AND PLACES THE LEFTMOST BIT OF E INTO ALL BITS OF THE LEFT HALF OF THE AC
  3638					;IN THIS CASE, C(AC)=0 AND E=0,,-1.  HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1.
  3639					;THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES.
  3640
  3641	032343	400 00 0 00 000000 	B42700:	SETZ			;PRELOAD AC WITH 0		
  3642	032344	571 00 0 00 777777 		HRREI	-1		;*HRREI SHOULD PLACE -1,,-1 INTO THE AC
  3643	032345	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  3644						STOP^
  3645	032346	254 04 0 00 032347 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3646	032347	324 00 0 00 032350 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3647									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3648									;IN THE SUBTEST) TO LOOP ON ERROR^
  3649
  3650					;*****     FAILURE ANALYSIS     *****
  3651					;C(AC0)		C(AC1)		FAILING SIGNAL
  3652
  3653					;-1,,0				ET2: AR RT AD EN
  3654					;0,,-1				ET2: AR18(1): AR LT AD EN
  3655
  3656					;**********
  3657
  3658					;THIS TEST VERIFIES THAT HLLEI ALWAYS CLEARS THE AC.
  3659					;IN THIS CASE, C(AC)=-1,,-1 AND E=0,,-1.
  3660					;THE RESULT IN THE AC SHOULD BE 0
  3661					;THE AC IS CHECKED FOR 0.
  3662					;IF C(AC)=0, THIS TEST PASSES.
  3663
  3664	032350	474 00 0 00 000000 	B43000:	SETO			;PRELOAD AC WITH -1,,-1
  3665	032351	531 00 0 00 777777 		HLLEI	-1		;*HLLEI SHOULD CLEAR THE AC
  3666	032352	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  3667						STOP^
  3668	032353	254 04 0 00 032354 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3669	032354	324 00 0 00 032355 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3670									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3671									;IN THE SUBTEST) TO LOOP ON ERROR^
  3672
  3673					;*****     FAILURE ANALYSIS     *****
  3674					;C(AC0)		C(AC1)		FAILING SIGNAL
  3675
  3676					;-1,,0				FC: AD LT AR + EN
  3677					;0,,-1				ET2: AR LT AD EN
  3678
  3679					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 79
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0105

  3680					;THIS TEST VERIFIES THAT HLLEI ALWAYS CLEARS THE AC.
  3681					;IN THIS CASE, C(AC)=-1,,-1 AND E=0,,400000.
  3682					;THE RESULT IN THE AC SHOULD BE 0
  3683					;THE AC IS CHECKED FOR 0.
  3684					;IF C(AC) = ZERO, THIS TEST PASSES.
  3685
  3686	032355	474 00 0 00 000000 	B43100:	SETO			;PRELOAD AC WITH -1,,-1
  3687	032356	531 00 0 00 400000 		HLLEI	400000		;*HLLEI SHOULD CLEAR THE AC
  3688	032357	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0.
  3689						STOP^
  3690	032360	254 04 0 00 032361 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3691	032361	324 00 0 00 032362 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3692									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3693									;IN THE SUBTEST) TO LOOP ON ERROR^
  3694
  3695					;**********
  3696
  3697					;THIS TEST VERIFIES THAT HRLE PLACES THE RIGHT HALF OF C(E)
  3698					;INTO THE LEFT HALF OF THE AC
  3699					;AND PLACES BIT 18 OF C(E) INTO ALL BITS OF THE RIGHT HALF OF THE AC.
  3700					;IN THIS CASE, C(AC)=0 AND C(E)=0.  HENCE, THE RESULT IN THE AC SHOULD BE 0.
  3701					;THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST FAILS
  3702
  3703	032362	400 00 0 00 000000 	B43400:	SETZ			;PRELOAD AC WITH 0
  3704	032363	534 00 0 00 000000 		HRLE			;*HRLE SHOULD PLACE 0 INTO THE AC
  3705	032364	332 00 0 00 000000 		SKIPE			;FAIL IF C(AC)=0,,-1
  3706						STOP^
  3707	032365	254 04 0 00 032366 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3708	032366	324 00 0 00 032367 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3709									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3710									;IN THE SUBTEST) TO LOOP ON ERROR^
  3711
  3712					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 80
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0106

  3713					;THIS TEST VERIFIES THAT HRLEI PLACES E INTO THE LEFT HALF OF THE AC
  3714					;AND PLACES THE LEFTMOST BIT OF E INTO ALL BITS OF THE RIGHT HALF OF THE AC
  3715					;IN THIS CASE, C(AC)=0 AND E=0,,-1.  HENCE, THE RESULT IN THE AC SHOULD -1,,-1
  3716					;THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=1,,-1, THIS TEST PASSES.
  3717
  3718	032367	400 00 0 00 000000 	B43500:	SETZ			;PRELOAD AC WITH 0		
  3719	032370	535 00 0 00 777777 		HRLEI	-1		;*HRLEI SHOULD PLACE -1,,-1 INTO THE AC
  3720	032371	312 00 0 00 034012 		CAME	[XWD -1,-1]	;PASS IF C(AC)=-1,,-1
  3721						STOP^
  3722	032372	254 04 0 00 032373 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3723	032373	324 00 0 00 032374 		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					;*****     FAILURE ANALYSIS     *****
  3728					;C(AC0)		C(AC1)		FAILING SIGNAL
  3729
  3730					;-1,,0				ET2: AR LT AR RT EN
  3731					;-1,,0				ET2: AR 18(1): AR RT AD EN
  3732
  3733					;**********
  3734
  3735					;THIS TEST VERIFIES THAT HRLE PLACES THE RIGHT HALF OF C(E)
  3736					;INTO THE LEFT HALF OF THE AC
  3737					;AND PLACES BIT 18 OF C(E) INTO ALL BITS OF THE RIGHT HALF OF THE AC.
  3738					;IN THIS CASE, C(AC)=0 AND C(E)=0.  HENCE, THE RESULT IN THE AC SHOULD BE 0.
  3739					;THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST FAILS
  3740
  3741	032374	534 00 0 00 034014 	B43600:	HRLE	[0]		;*HRLE SHOULD PLACE 0 INTO THE AC	
  3742	032375	332 00 0 00 000000 		SKIPE			;FAIL IF C(AC)=0,,-1
  3743						STOP^
  3744	032376	254 04 0 00 032377 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3745	032377	324 00 0 00 032400 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3746									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3747									;IN THE SUBTEST) TO LOOP ON ERROR^
  3748
  3749					;*****     FAILURE ANALYSIS     *****
  3750					;C(AC0)		C(AC1)		FAILING SIGNAL
  3751
  3752					;E,,0				SW: FCE
  3753
  3754					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 81
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0107

  3755					;THIS TEST VERIFIES THAT HRLE PLACES THE RIGHT HALF OF C(E)
  3756					;INTO THE LEFT HALF OF THE AC
  3757					;AND PLACES BIT 18 OF C(E) INTO ALL BITS OF THE RIGHT HALF OF THE AC.
  3758					;IN THIS CASE, C(AC)=0 AND C(E)=0.  HENCE, THE RESULT IN THE AC SHOULD BE 0.
  3759					;THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST FAILS
  3760
  3761	032400	534 00 0 00 034012 	B43700:	HRLE	[-1]		;PRELOAD AC WITH 0	
  3762	032401	312 00 0 00 034012 		CAME	[-1]		;*HRLE SHOULD PLACE 0 INTO THE AC
  3763						STOP			^;FAIL IF C(AC)=0,,-1
  3764
  3765	032402	254 04 0 00 032403 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3766	032403	324 00 0 00 032404 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3767									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3768									;IN THE SUBTEST) TO LOOP ON ERROR
  3769
  3770					;*****     FAILURE ANALYSIS     *****
  3771					;C(AC0)		C(AC1)		FAILING SIGNAL
  3772
  3773					;-1,,0				ET2: AR LT AR RT EN
  3774					;-1,,0				ET2: AR18(1): AR RT AD EN
  3775
  3776					;**********
  3777
  3778					;THIS TEST VERIFIES THAT HRLE PLACES THE RIGHT HALF OF C(E)
  3779					;INTO THE LEFT HALF OF THE AC
  3780					;AND PLACES BIT 18 OF C(E) INTO ALL BITS OF THE RIGHT HALF OF THE AC.
  3781					;IN THIS CASE, C(AC)=0 AND C(E)=0.  HENCE, THE RESULT IN THE AC SHOULD BE 0.
  3782					;THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST FAILS
  3783
  3784	032404	534 00 0 00 034013 	B44000:	HRLE	[XWD -1,0]	;PRELOAD AC WITH 0
  3785	032405	332 00 0 00 000000 		SKIPE			;*HRLE SHOULD PLACE 0 INTO THE AC
  3786						STOP			^;FAIL IF C(AC)=0,,-1
  3787
  3788	032406	254 04 0 00 032407 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3789	032407	324 00 0 00 032410 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3790									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3791									;IN THE SUBTEST) TO LOOP ON ERROR
  3792
  3793					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 82
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0108

  3794					;THIS TEST VERIFIES THAT HRLE PLACES THE RIGHT HALF OF C(E)
  3795					;INTO THE LEFT HALF OF THE AC
  3796					;AND PLACES BIT 18 OF C(E) INTO ALL BITS OF THE RIGHT HALF OF THE AC.
  3797					;IN THIS CASE, C(AC)=0 AND C(E)=0.  HENCE, THE RESULT IN THE AC SHOULD BE 0.
  3798					;THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THIS TEST FAILS
  3799
  3800	032410	534 00 0 00 034015 	B44100:	HRLE	[XWD 0,-1]	;PRELOAD AC WITH 0
  3801	032411	312 00 0 00 034012 		CAME	[-1]		;*HRLE SHOULD PLACE 0 INTO THE AC
  3802						STOP			^;FAIL IF C(AC)=0,,-1
  3803
  3804	032412	254 04 0 00 032413 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3805	032413	324 00 0 00 032414 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3806									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3807									;IN THE SUBTEST) TO LOOP ON ERROR
  3808
  3809					;**********
  3810
  3811					;THIS TEST VERIFIES THAT HLRE PLACES THE LEFT HALF OF C(E)
  3812					;INTO THE RIGHT HALF OF THE AC
  3813					;AND PLACES BIT 0 OF C(E) INTO ALL BITS OF THE LEFT HALF OF THE AC
  3814					;IN THIS CASE, C(AC=0 AND C(E)=0.  HENCE, THE RESULT IN THE AC SHOULD BE 0.
  3815					;THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES
  3816
  3817
  3818	032414	400 00 0 00 000000 	B44200:	SETZ			;PRELOAD AC WITH 0
  3819	032415	574 00 0 00 000000 		HLRE			;*HLRE SHOULD PLACE 0 INTO THE AC
  3820	032416	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  3821						STOP^
  3822	032417	254 04 0 00 032420 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3823	032420	324 00 0 00 032421 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3824									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3825									;IN THE SUBTEST) TO LOOP ON ERROR^
  3826
  3827					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 83
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0109

  3828					;THIS TEST VERIFIES THAT HLRE PLACES THE LEFT HALF OF C(E)
  3829					;INTO THE RIGHT HALF OF THE AC
  3830					;AND PLACES BIT 0 OF C(E) INTO ALL BITS OF THE LEFT HALF OF THE AC
  3831					;IN THIS CASE, C(AC=0 AND C(E)=0.  HENCE, THE RESULT IN THE AC SHOULD BE 0.
  3832					;THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES
  3833
  3834
  3835	032421	400 00 0 00 000000 	B44300:	SETZ			;PRELOAD AC WITH 0
  3836	032422	574 00 0 00 034012 		HLRE	[-1]		;*HLRE SHOULD PLACE -1,,-1 INTO THE AC
  3837	032423	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(AC)=-1,,-1	
  3838						STOP^
  3839	032424	254 04 0 00 032425 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3840	032425	324 00 0 00 032426 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3841									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3842									;IN THE SUBTEST) TO LOOP ON ERROR^
  3843
  3844					;*****     FAILURE ANALYSIS     *****
  3845					;C(AC0)		C(AC1)		FAILING SIGNAL
  3846
  3847					;0				SW: FCE
  3848					;-1,,0				ET2: AR RT AR LT EN
  3849					;0,,-1				ET2: AR0(1): AR LT AD EN
  3850
  3851					;**********
  3852
  3853					;THIS TEST VERIFIES THAT HLREI CLEARS THE AC
  3854					;IN THIS CASE C(AC)=-1,,-1 AND E=0,,-1
  3855					;THE RESULT IN THE AC SHOULD BE 0
  3856					;THE AC IS CHECKED FOR 0.  IF C(AC)=0, THEN TEST PASSES
  3857
  3858	032426	474 00 0 00 000000 	B44500:	SETO			;PRELOAD AC WITH -1,,-1
  3859	032427	575 00 0 00 777777 		HLREI	-1		;*HLREI SHOULD CLEAR THE AC
  3860	032430	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  3861						STOP^
  3862	032431	254 04 0 00 032432 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3863	032432	324 00 0 00 032433 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3864									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3865									;IN THE SUBTEST) TO LOOP ON ERROR^
  3866
  3867					;*****     FAILURE ANALYSIS     *****
  3868					;C(AC0)		C(AC1)		FAILING SIGNAL
  3869
  3870					;0,,1				ET2: AR RT AR LT EN
  3871
  3872					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 84
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0110

  3873					;THIS TEST VERIFIES THAT HLREI CLEARS THE AC
  3874					;IN THIS CASE C(AC)=0 AND E=0
  3875					;THE RESULT IN THE AC SHOULD BE 0
  3876					;THE AC IS CHECKED FOR 0.  IF C(AC)=0, THE TEST PASSES
  3877
  3878	032433	575 00 0 00 000000 	B44600:	HLREI			;*HLREI SHOULD CLEAR THE AC		
  3879	032434	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  3880						STOP^
  3881	032435	254 04 0 00 032436 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3882	032436	324 00 0 00 032437 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3883									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3884									;IN THE SUBTEST) TO LOOP ON ERROR^
  3885
  3886					;**********
  3887
  3888					;THIS TEST VERIFIES THAT HLRE PLACES THE LEFT HALF OF C(E)
  3889					;INTO THE RIGHT HALF OF THE AC
  3890					;AND PLACES BIT 0 OF C(E) INTO ALL BITS OF THE LEFT HALF OF THE AC
  3891					;IN THIS CASE, C(E)=-1,,0.  HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1.
  3892					;THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES
  3893
  3894
  3895	032437	574 00 0 00 034013 	B44700:	HLRE	[XWD -1,0]	;*HLRE SHOULD PLACE -1,,0 INTO THE AC
  3896	032440	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  3897						STOP^
  3898	032441	254 04 0 00 032442 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3899	032442	324 00 0 00 032443 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3900									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3901									;IN THE SUBTEST) TO LOOP ON ERROR^
  3902
  3903					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 85
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0111

  3904					;THIS TEST VERIFIES THAT HLRE PLACES THE LEFT HALF OF C(E)
  3905					;INTO THE RIGHT HALF OF THE AC
  3906					;AND PLACES BIT 0 OF C(E) INTO ALL BITS OF THE LEFT HALF OF THE AC
  3907					;IN THIS CASE, C(E)=0,,-1.  HENCE, THE RESULT IN THE AC SHOULD BE 0.
  3908					;THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES
  3909
  3910	032443	574 00 0 00 034015 	B45000:	HLRE	[XWD 0,-1]	;*HLRE SHOULD PLACE 0,,-1 INTO THE AC
  3911	032444	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
  3912						STOP^
  3913	032445	254 04 0 00 032446 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3914	032446	324 00 0 00 032447 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3915									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3916									;IN THE SUBTEST) TO LOOP ON ERROR^
  3917
  3918					;**********
  3919
  3920					;THIS TEST VERIFIES THAT HLRE PLACES THE LEFT HALF OF C(E)
  3921					;INTO THE RIGHT HALF OF THE AC
  3922					;AND PLACES BIT 0 OF C(E) INTO ALL BITS OF THE LEFT HALF OF THE AC
  3923					;IN THIS CASE, C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1.
  3924					;THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THIS TEST PASSES
  3925
  3926	032447	574 00 0 00 034012 	B45100:	HLRE	[-1]		;*HLRE SHOULD PLACE -1,,-1 INTO THE AC
  3927	032450	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  3928						STOP^
  3929	032451	254 04 0 00 032452 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3930	032452	324 00 0 00 032453 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3931									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3932									;IN THE SUBTEST) TO LOOP ON ERROR^
  3933
  3934					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 86
DAKACM	MAC	19-JAN-77 13:40		TEST OF HWT INSTRUCTIONS                                                           SEQ 0112

  3935					;THIS TEST VERIFIES THAT HLREM PLACES THE LEFT HALF OF C(AC)
  3936					;INTO THE RIGHT HALF OF E
  3937					;AND PLACES BIT 0 OF C(AC) INTO ALL BITS OF THE LEFT HALF OF E.
  3938					;IN THIS CASE, C(AC)=1,,0 AND C(E)=0.  HENCE, THE RESULT IN E SHOULD BE -1,,-1.
  3939					;E IS CHECKED FOR -1,,-1.  IF C(E)=-1,,-1, THIS TEST PASSES
  3940
  3941	032453	400 00 0 00 000000 	B45200:	SETZ			;PRELOAD E WITH 0
  3942	032454	200 01 0 00 034013 		MOVE	1,[XWD -1,0]	;PRELOAD AC WITH -1,,0
  3943	032455	576 01 0 00 000000 		HLREM	1,		;*HLREM SHOULD PLACE -1,,-1 INTO E
  3944	032456	312 00 0 00 034012 		CAME	[-1]		;PASS IF C(E)=-1,,-1
  3945						STOP^
  3946	032457	254 04 0 00 032460 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3947	032460	324 00 0 00 032461 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3948									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3949									;IN THE SUBTEST) TO LOOP ON ERROR^
  3950
  3951					;*****     FAILURE ANALYSIS     *****
  3952					;C(AC0)		C(AC1)		FAILING SIGNAL
  3953
  3954					;0		-1,,0		SW: SCE
  3955					;0		-1,,0		SW: ET0
  3956					;0		-1,,0		ET0: AR AD EN
  3957					;-1,,0		-1,,0		ET2: AR RT AR + EN
  3958					;0,,-1		-1,,0		ET2: AR0(1): AR LT AD EN
  3959
  3960					;**********
  3961
  3962					;THIS TEST VERIFIES THAT HRLM PLACES THE RIGHT HALF OF C(AC) INTO THE LEFT HALF OF E.
  3963					;THE RIGHT HALF OF E IS UNAFFECTED
  3964					;IN THIS CASE, C(AC)=0,,-1 AND C(E)=0.  HENCE, THE RESULT IN E SHOULD BE -1,,0.
  3965					;E IS CHECKED FOR -1,,0.  IF C(E)=-1,,0, THIS  TEST PASSES.
  3966
  3967	032461	400 00 0 00 000000 	B45400:	SETZ			;PRELOAD E WITH 0
  3968	032462	201 01 0 00 777777 		MOVEI	1,-1		;PRELOAD AC WITH 0,,-1
  3969	032463	506 01 0 00 000000 		HRLM	1,		;*HRLM SHOULD PLACE -1,,0 INTO E
  3970	032464	312 00 0 00 034013 		CAME	[XWD -1,0]	;PASS IF C(E)=-1,,0
  3971						STOP^
  3972	032465	254 04 0 00 032466 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3973	032466	324 00 0 00 032467 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3974									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3975									;IN THE SUBTEST) TO LOOP ON ERROR^
  3976
  3977					;*****     FAILURE ANALYSIS     *****
  3978					;C(AC0)		C(AC1)		FAILING SIGNAL
  3979
  3980					;0		0,,-1		SW: FCE PSE
  3981					;0,,-1		0,,-1		SW: ET0
  3982					;-1,,-1		0,,-1		ET0: AD RT BR + EN
  3983					;-1,,B45400	0,,-1		ET0: BR AR EN
  3984					;0		0,,-1		ET0: AR AD EN
  3985					;0		0,,-1		ET2: AR LT AR RT EN
  3986
  3987					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 87
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + 0                                              SEQ 0113

  3988					SUBTTL	SUPPLEMENTARY ADDER TESTS - FLT 1 + 0
  3989
  3990					;**********
  3991
  3992			045500		SN=45500
  3993			000000			XX=0
  3994
  3995					B45500:	REPEAT	^D18,<
  3996					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  3997					;IS THE FLOATING ONE.
  3998					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  3999					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4000					
  4001					SN=SN+1
  4002						XX=XX+XX
  4003						IFE	XX,<XX=1>
  4004						HRRZI	XX		;PRELOAD AC WITH FLOATING ONE
  4005						ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4006						CAME	[XX]		;CHECK ADDER UPON FAILURE	
  4007						STOP
  4008					
  4009					;**********
  4010					>
  4011
  4012					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4013					;IS THE FLOATING ONE.
  4014					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4015					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4016
  4017			045501		SN=SN+1
  4018			000000			XX=XX+XX
  4019			000001			IFE	XX,<XX=1>
  4020	032467	551 00 0 00 000001 		HRRZI	XX		;PRELOAD AC WITH FLOATING ONE
  4021	032470	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4022	032471	312 00 0 00 034017 		CAME	[XX]		;CHECK ADDER UPON FAILURE	
  4023						STOP^
  4024	032472	254 04 0 00 032473 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4025	032473	324 00 0 00 032474 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4026									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4027									;IN THE SUBTEST) TO LOOP ON ERROR^
  4028
  4029					;**********
  4030
  4031
  4032					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4033					;IS THE FLOATING ONE.
  4034					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4035					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4036
  4037			045502		SN=SN+1
  4038			000002			XX=XX+XX
  4039						IFE	XX,<XX=1>
  4040	032474	551 00 0 00 000002 		HRRZI	XX		;PRELOAD AC WITH FLOATING ONE
  4041	032475	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4042	032476	312 00 0 00 034020 		CAME	[XX]		;CHECK ADDER UPON FAILURE	
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 87-1
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + 0                                              SEQ 0114

  4043						STOP^
  4044	032477	254 04 0 00 032500 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4045	032500	324 00 0 00 032501 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4046									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4047									;IN THE SUBTEST) TO LOOP ON ERROR^
  4048
  4049					;**********
  4050
  4051
  4052					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4053					;IS THE FLOATING ONE.
  4054					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4055					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4056
  4057			045503		SN=SN+1
  4058			000004			XX=XX+XX
  4059						IFE	XX,<XX=1>
  4060	032501	551 00 0 00 000004 		HRRZI	XX		;PRELOAD AC WITH FLOATING ONE
  4061	032502	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4062	032503	312 00 0 00 034021 		CAME	[XX]		;CHECK ADDER UPON FAILURE	
  4063						STOP^
  4064	032504	254 04 0 00 032505 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4065	032505	324 00 0 00 032506 		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
  4069					;**********
  4070
  4071
  4072					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4073					;IS THE FLOATING ONE.
  4074					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4075					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4076
  4077			045504		SN=SN+1
  4078			000010			XX=XX+XX
  4079						IFE	XX,<XX=1>
  4080	032506	551 00 0 00 000010 		HRRZI	XX		;PRELOAD AC WITH FLOATING ONE
  4081	032507	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4082	032510	312 00 0 00 034022 		CAME	[XX]		;CHECK ADDER UPON FAILURE	
  4083						STOP^
  4084	032511	254 04 0 00 032512 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4085	032512	324 00 0 00 032513 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4086									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4087									;IN THE SUBTEST) TO LOOP ON ERROR^
  4088
  4089					;**********
  4090
  4091
  4092					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4093					;IS THE FLOATING ONE.
  4094					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4095					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4096
  4097			045505		SN=SN+1
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 87-2
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + 0                                              SEQ 0115

  4098			000020			XX=XX+XX
  4099						IFE	XX,<XX=1>
  4100	032513	551 00 0 00 000020 		HRRZI	XX		;PRELOAD AC WITH FLOATING ONE
  4101	032514	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4102	032515	312 00 0 00 034023 		CAME	[XX]		;CHECK ADDER UPON FAILURE	
  4103						STOP^
  4104	032516	254 04 0 00 032517 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4105	032517	324 00 0 00 032520 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4106									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4107									;IN THE SUBTEST) TO LOOP ON ERROR^
  4108
  4109					;**********
  4110
  4111
  4112					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4113					;IS THE FLOATING ONE.
  4114					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4115					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4116
  4117			045506		SN=SN+1
  4118			000040			XX=XX+XX
  4119						IFE	XX,<XX=1>
  4120	032520	551 00 0 00 000040 		HRRZI	XX		;PRELOAD AC WITH FLOATING ONE
  4121	032521	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4122	032522	312 00 0 00 034024 		CAME	[XX]		;CHECK ADDER UPON FAILURE	
  4123						STOP^
  4124	032523	254 04 0 00 032524 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4125	032524	324 00 0 00 032525 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4126									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4127									;IN THE SUBTEST) TO LOOP ON ERROR^
  4128
  4129					;**********
  4130
  4131
  4132					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4133					;IS THE FLOATING ONE.
  4134					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4135					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4136
  4137			045507		SN=SN+1
  4138			000100			XX=XX+XX
  4139						IFE	XX,<XX=1>
  4140	032525	551 00 0 00 000100 		HRRZI	XX		;PRELOAD AC WITH FLOATING ONE
  4141	032526	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4142	032527	312 00 0 00 034025 		CAME	[XX]		;CHECK ADDER UPON FAILURE	
  4143						STOP^
  4144	032530	254 04 0 00 032531 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4145	032531	324 00 0 00 032532 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4146									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4147									;IN THE SUBTEST) TO LOOP ON ERROR^
  4148
  4149					;**********
  4150
  4151
  4152					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 87-3
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + 0                                              SEQ 0116

  4153					;IS THE FLOATING ONE.
  4154					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4155					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4156
  4157			045510		SN=SN+1
  4158			000200			XX=XX+XX
  4159						IFE	XX,<XX=1>
  4160	032532	551 00 0 00 000200 		HRRZI	XX		;PRELOAD AC WITH FLOATING ONE
  4161	032533	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4162	032534	312 00 0 00 034026 		CAME	[XX]		;CHECK ADDER UPON FAILURE	
  4163						STOP^
  4164	032535	254 04 0 00 032536 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4165	032536	324 00 0 00 032537 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4166									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4167									;IN THE SUBTEST) TO LOOP ON ERROR^
  4168
  4169					;**********
  4170
  4171
  4172					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4173					;IS THE FLOATING ONE.
  4174					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4175					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4176
  4177			045511		SN=SN+1
  4178			000400			XX=XX+XX
  4179						IFE	XX,<XX=1>
  4180	032537	551 00 0 00 000400 		HRRZI	XX		;PRELOAD AC WITH FLOATING ONE
  4181	032540	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4182	032541	312 00 0 00 034027 		CAME	[XX]		;CHECK ADDER UPON FAILURE	
  4183						STOP^
  4184	032542	254 04 0 00 032543 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4185	032543	324 00 0 00 032544 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4186									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4187									;IN THE SUBTEST) TO LOOP ON ERROR^
  4188
  4189					;**********
  4190
  4191
  4192					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4193					;IS THE FLOATING ONE.
  4194					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4195					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4196
  4197			045512		SN=SN+1
  4198			001000			XX=XX+XX
  4199						IFE	XX,<XX=1>
  4200	032544	551 00 0 00 001000 		HRRZI	XX		;PRELOAD AC WITH FLOATING ONE
  4201	032545	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4202	032546	312 00 0 00 034030 		CAME	[XX]		;CHECK ADDER UPON FAILURE	
  4203						STOP^
  4204	032547	254 04 0 00 032550 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4205	032550	324 00 0 00 032551 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4206									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4207									;IN THE SUBTEST) TO LOOP ON ERROR^
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 87-4
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + 0                                              SEQ 0117

  4208
  4209					;**********
  4210
  4211
  4212					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4213					;IS THE FLOATING ONE.
  4214					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4215					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4216
  4217			045513		SN=SN+1
  4218			002000			XX=XX+XX
  4219						IFE	XX,<XX=1>
  4220	032551	551 00 0 00 002000 		HRRZI	XX		;PRELOAD AC WITH FLOATING ONE
  4221	032552	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4222	032553	312 00 0 00 034031 		CAME	[XX]		;CHECK ADDER UPON FAILURE	
  4223						STOP^
  4224	032554	254 04 0 00 032555 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4225	032555	324 00 0 00 032556 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4226									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4227									;IN THE SUBTEST) TO LOOP ON ERROR^
  4228
  4229					;**********
  4230
  4231
  4232					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4233					;IS THE FLOATING ONE.
  4234					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4235					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4236
  4237			045514		SN=SN+1
  4238			004000			XX=XX+XX
  4239						IFE	XX,<XX=1>
  4240	032556	551 00 0 00 004000 		HRRZI	XX		;PRELOAD AC WITH FLOATING ONE
  4241	032557	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4242	032560	312 00 0 00 034032 		CAME	[XX]		;CHECK ADDER UPON FAILURE	
  4243						STOP^
  4244	032561	254 04 0 00 032562 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4245	032562	324 00 0 00 032563 		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
  4251
  4252					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4253					;IS THE FLOATING ONE.
  4254					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4255					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4256
  4257			045515		SN=SN+1
  4258			010000			XX=XX+XX
  4259						IFE	XX,<XX=1>
  4260	032563	551 00 0 00 010000 		HRRZI	XX		;PRELOAD AC WITH FLOATING ONE
  4261	032564	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4262	032565	312 00 0 00 034033 		CAME	[XX]		;CHECK ADDER UPON FAILURE	
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 87-5
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + 0                                              SEQ 0118

  4263						STOP^
  4264	032566	254 04 0 00 032567 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4265	032567	324 00 0 00 032570 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4266									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4267									;IN THE SUBTEST) TO LOOP ON ERROR^
  4268
  4269					;**********
  4270
  4271
  4272					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4273					;IS THE FLOATING ONE.
  4274					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4275					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4276
  4277			045516		SN=SN+1
  4278			020000			XX=XX+XX
  4279						IFE	XX,<XX=1>
  4280	032570	551 00 0 00 020000 		HRRZI	XX		;PRELOAD AC WITH FLOATING ONE
  4281	032571	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4282	032572	312 00 0 00 034034 		CAME	[XX]		;CHECK ADDER UPON FAILURE	
  4283						STOP^
  4284	032573	254 04 0 00 032574 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4285	032574	324 00 0 00 032575 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4286									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4287									;IN THE SUBTEST) TO LOOP ON ERROR^
  4288
  4289					;**********
  4290
  4291
  4292					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4293					;IS THE FLOATING ONE.
  4294					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4295					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4296
  4297			045517		SN=SN+1
  4298			040000			XX=XX+XX
  4299						IFE	XX,<XX=1>
  4300	032575	551 00 0 00 040000 		HRRZI	XX		;PRELOAD AC WITH FLOATING ONE
  4301	032576	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4302	032577	312 00 0 00 034035 		CAME	[XX]		;CHECK ADDER UPON FAILURE	
  4303						STOP^
  4304	032600	254 04 0 00 032601 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4305	032601	324 00 0 00 032602 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4306									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4307									;IN THE SUBTEST) TO LOOP ON ERROR^
  4308
  4309					;**********
  4310
  4311
  4312					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4313					;IS THE FLOATING ONE.
  4314					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4315					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4316
  4317			045520		SN=SN+1
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 87-6
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + 0                                              SEQ 0119

  4318			100000			XX=XX+XX
  4319						IFE	XX,<XX=1>
  4320	032602	551 00 0 00 100000 		HRRZI	XX		;PRELOAD AC WITH FLOATING ONE
  4321	032603	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4322	032604	312 00 0 00 034036 		CAME	[XX]		;CHECK ADDER UPON FAILURE	
  4323						STOP^
  4324	032605	254 04 0 00 032606 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4325	032606	324 00 0 00 032607 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4326									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4327									;IN THE SUBTEST) TO LOOP ON ERROR^
  4328
  4329					;**********
  4330
  4331
  4332					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4333					;IS THE FLOATING ONE.
  4334					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4335					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4336
  4337			045521		SN=SN+1
  4338			200000			XX=XX+XX
  4339						IFE	XX,<XX=1>
  4340	032607	551 00 0 00 200000 		HRRZI	XX		;PRELOAD AC WITH FLOATING ONE
  4341	032610	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4342	032611	312 00 0 00 034037 		CAME	[XX]		;CHECK ADDER UPON FAILURE	
  4343						STOP^
  4344	032612	254 04 0 00 032613 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4345	032613	324 00 0 00 032614 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4346									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4347									;IN THE SUBTEST) TO LOOP ON ERROR^
  4348
  4349					;**********
  4350
  4351
  4352					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4353					;IS THE FLOATING ONE.
  4354					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4355					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4356
  4357			045522		SN=SN+1
  4358			400000			XX=XX+XX
  4359						IFE	XX,<XX=1>
  4360	032614	551 00 0 00 400000 		HRRZI	XX		;PRELOAD AC WITH FLOATING ONE
  4361	032615	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4362	032616	312 00 0 00 034040 		CAME	[XX]		;CHECK ADDER UPON FAILURE	
  4363						STOP^
  4364	032617	254 04 0 00 032620 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4365	032620	324 00 0 00 032621 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4366									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4367									;IN THE SUBTEST) TO LOOP ON ERROR^
  4368
  4369					;**********
  4370
  4371					PAGE
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 87-7
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + 0                                              SEQ 0120

  4372			000000			XX=0
  4373
  4374						REPEAT	^D18,<
  4375					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4376					;IS THE FLOATING ONE.
  4377					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4378					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4379					
  4380					SN=SN+1
  4381						XX=XX+XX
  4382						IFE	XX,<XX=1>
  4383						HRLZI	XX		;PRELOAD AC WITH FLOATING ONE
  4384						ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4385						CAME	[XX,,0]		;CHECK ADDER UPON FALIRE
  4386						STOP		
  4387					
  4388					;**********
  4389					>
  4390
  4391					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4392					;IS THE FLOATING ONE.
  4393					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4394					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4395
  4396			045523		SN=SN+1
  4397			000000			XX=XX+XX
  4398			000001			IFE	XX,<XX=1>
  4399	032621	515 00 0 00 000001 		HRLZI	XX		;PRELOAD AC WITH FLOATING ONE
  4400	032622	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4401	032623	312 00 0 00 034041 		CAME	[XX,,0]		;CHECK ADDER UPON FALIRE
  4402						STOP		^
  4403	032624	254 04 0 00 032625 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4404	032625	324 00 0 00 032626 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4405									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4406									;IN THE SUBTEST) TO LOOP ON ERROR^
  4407
  4408					;**********
  4409
  4410
  4411					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4412					;IS THE FLOATING ONE.
  4413					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4414					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4415
  4416			045524		SN=SN+1
  4417			000002			XX=XX+XX
  4418						IFE	XX,<XX=1>
  4419	032626	515 00 0 00 000002 		HRLZI	XX		;PRELOAD AC WITH FLOATING ONE
  4420	032627	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4421	032630	312 00 0 00 034042 		CAME	[XX,,0]		;CHECK ADDER UPON FALIRE
  4422						STOP		^
  4423	032631	254 04 0 00 032632 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4424	032632	324 00 0 00 032633 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4425									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4426									;IN THE SUBTEST) TO LOOP ON ERROR^
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 87-8
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + 0                                              SEQ 0121

  4427
  4428					;**********
  4429
  4430
  4431					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4432					;IS THE FLOATING ONE.
  4433					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4434					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4435
  4436			045525		SN=SN+1
  4437			000004			XX=XX+XX
  4438						IFE	XX,<XX=1>
  4439	032633	515 00 0 00 000004 		HRLZI	XX		;PRELOAD AC WITH FLOATING ONE
  4440	032634	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4441	032635	312 00 0 00 034043 		CAME	[XX,,0]		;CHECK ADDER UPON FALIRE
  4442						STOP		^
  4443	032636	254 04 0 00 032637 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4444	032637	324 00 0 00 032640 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4445									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4446									;IN THE SUBTEST) TO LOOP ON ERROR^
  4447
  4448					;**********
  4449
  4450
  4451					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4452					;IS THE FLOATING ONE.
  4453					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4454					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4455
  4456			045526		SN=SN+1
  4457			000010			XX=XX+XX
  4458						IFE	XX,<XX=1>
  4459	032640	515 00 0 00 000010 		HRLZI	XX		;PRELOAD AC WITH FLOATING ONE
  4460	032641	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4461	032642	312 00 0 00 034044 		CAME	[XX,,0]		;CHECK ADDER UPON FALIRE
  4462						STOP		^
  4463	032643	254 04 0 00 032644 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4464	032644	324 00 0 00 032645 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4465									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4466									;IN THE SUBTEST) TO LOOP ON ERROR^
  4467
  4468					;**********
  4469
  4470
  4471					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4472					;IS THE FLOATING ONE.
  4473					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4474					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4475
  4476			045527		SN=SN+1
  4477			000020			XX=XX+XX
  4478						IFE	XX,<XX=1>
  4479	032645	515 00 0 00 000020 		HRLZI	XX		;PRELOAD AC WITH FLOATING ONE
  4480	032646	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4481	032647	312 00 0 00 034045 		CAME	[XX,,0]		;CHECK ADDER UPON FALIRE
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 87-9
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + 0                                              SEQ 0122

  4482						STOP		^
  4483	032650	254 04 0 00 032651 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4484	032651	324 00 0 00 032652 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4485									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4486									;IN THE SUBTEST) TO LOOP ON ERROR^
  4487
  4488					;**********
  4489
  4490
  4491					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4492					;IS THE FLOATING ONE.
  4493					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4494					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4495
  4496			045530		SN=SN+1
  4497			000040			XX=XX+XX
  4498						IFE	XX,<XX=1>
  4499	032652	515 00 0 00 000040 		HRLZI	XX		;PRELOAD AC WITH FLOATING ONE
  4500	032653	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4501	032654	312 00 0 00 034046 		CAME	[XX,,0]		;CHECK ADDER UPON FALIRE
  4502						STOP		^
  4503	032655	254 04 0 00 032656 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4504	032656	324 00 0 00 032657 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4505									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4506									;IN THE SUBTEST) TO LOOP ON ERROR^
  4507
  4508					;**********
  4509
  4510
  4511					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4512					;IS THE FLOATING ONE.
  4513					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4514					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4515
  4516			045531		SN=SN+1
  4517			000100			XX=XX+XX
  4518						IFE	XX,<XX=1>
  4519	032657	515 00 0 00 000100 		HRLZI	XX		;PRELOAD AC WITH FLOATING ONE
  4520	032660	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4521	032661	312 00 0 00 034047 		CAME	[XX,,0]		;CHECK ADDER UPON FALIRE
  4522						STOP		^
  4523	032662	254 04 0 00 032663 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4524	032663	324 00 0 00 032664 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4525									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4526									;IN THE SUBTEST) TO LOOP ON ERROR^
  4527
  4528					;**********
  4529
  4530
  4531					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4532					;IS THE FLOATING ONE.
  4533					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4534					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4535
  4536			045532		SN=SN+1
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 87-10
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + 0                                              SEQ 0123

  4537			000200			XX=XX+XX
  4538						IFE	XX,<XX=1>
  4539	032664	515 00 0 00 000200 		HRLZI	XX		;PRELOAD AC WITH FLOATING ONE
  4540	032665	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4541	032666	312 00 0 00 034050 		CAME	[XX,,0]		;CHECK ADDER UPON FALIRE
  4542						STOP		^
  4543	032667	254 04 0 00 032670 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4544	032670	324 00 0 00 032671 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4545									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4546									;IN THE SUBTEST) TO LOOP ON ERROR^
  4547
  4548					;**********
  4549
  4550
  4551					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4552					;IS THE FLOATING ONE.
  4553					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4554					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4555
  4556			045533		SN=SN+1
  4557			000400			XX=XX+XX
  4558						IFE	XX,<XX=1>
  4559	032671	515 00 0 00 000400 		HRLZI	XX		;PRELOAD AC WITH FLOATING ONE
  4560	032672	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4561	032673	312 00 0 00 034051 		CAME	[XX,,0]		;CHECK ADDER UPON FALIRE
  4562						STOP		^
  4563	032674	254 04 0 00 032675 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4564	032675	324 00 0 00 032676 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4565									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4566									;IN THE SUBTEST) TO LOOP ON ERROR^
  4567
  4568					;**********
  4569
  4570
  4571					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4572					;IS THE FLOATING ONE.
  4573					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4574					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4575
  4576			045534		SN=SN+1
  4577			001000			XX=XX+XX
  4578						IFE	XX,<XX=1>
  4579	032676	515 00 0 00 001000 		HRLZI	XX		;PRELOAD AC WITH FLOATING ONE
  4580	032677	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4581	032700	312 00 0 00 034052 		CAME	[XX,,0]		;CHECK ADDER UPON FALIRE
  4582						STOP		^
  4583	032701	254 04 0 00 032702 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4584	032702	324 00 0 00 032703 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4585									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4586									;IN THE SUBTEST) TO LOOP ON ERROR^
  4587
  4588					;**********
  4589
  4590
  4591					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 87-11
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + 0                                              SEQ 0124

  4592					;IS THE FLOATING ONE.
  4593					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4594					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4595
  4596			045535		SN=SN+1
  4597			002000			XX=XX+XX
  4598						IFE	XX,<XX=1>
  4599	032703	515 00 0 00 002000 		HRLZI	XX		;PRELOAD AC WITH FLOATING ONE
  4600	032704	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4601	032705	312 00 0 00 034053 		CAME	[XX,,0]		;CHECK ADDER UPON FALIRE
  4602						STOP		^
  4603	032706	254 04 0 00 032707 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4604	032707	324 00 0 00 032710 		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
  4611					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4612					;IS THE FLOATING ONE.
  4613					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4614					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4615
  4616			045536		SN=SN+1
  4617			004000			XX=XX+XX
  4618						IFE	XX,<XX=1>
  4619	032710	515 00 0 00 004000 		HRLZI	XX		;PRELOAD AC WITH FLOATING ONE
  4620	032711	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4621	032712	312 00 0 00 034054 		CAME	[XX,,0]		;CHECK ADDER UPON FALIRE
  4622						STOP		^
  4623	032713	254 04 0 00 032714 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4624	032714	324 00 0 00 032715 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4625									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4626									;IN THE SUBTEST) TO LOOP ON ERROR^
  4627
  4628					;**********
  4629
  4630
  4631					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4632					;IS THE FLOATING ONE.
  4633					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4634					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4635
  4636			045537		SN=SN+1
  4637			010000			XX=XX+XX
  4638						IFE	XX,<XX=1>
  4639	032715	515 00 0 00 010000 		HRLZI	XX		;PRELOAD AC WITH FLOATING ONE
  4640	032716	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4641	032717	312 00 0 00 034055 		CAME	[XX,,0]		;CHECK ADDER UPON FALIRE
  4642						STOP		^
  4643	032720	254 04 0 00 032721 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4644	032721	324 00 0 00 032722 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4645									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4646									;IN THE SUBTEST) TO LOOP ON ERROR^
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 87-12
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + 0                                              SEQ 0125

  4647
  4648					;**********
  4649
  4650
  4651					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4652					;IS THE FLOATING ONE.
  4653					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4654					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4655
  4656			045540		SN=SN+1
  4657			020000			XX=XX+XX
  4658						IFE	XX,<XX=1>
  4659	032722	515 00 0 00 020000 		HRLZI	XX		;PRELOAD AC WITH FLOATING ONE
  4660	032723	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4661	032724	312 00 0 00 034056 		CAME	[XX,,0]		;CHECK ADDER UPON FALIRE
  4662						STOP		^
  4663	032725	254 04 0 00 032726 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4664	032726	324 00 0 00 032727 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4665									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4666									;IN THE SUBTEST) TO LOOP ON ERROR^
  4667
  4668					;**********
  4669
  4670
  4671					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4672					;IS THE FLOATING ONE.
  4673					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4674					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4675
  4676			045541		SN=SN+1
  4677			040000			XX=XX+XX
  4678						IFE	XX,<XX=1>
  4679	032727	515 00 0 00 040000 		HRLZI	XX		;PRELOAD AC WITH FLOATING ONE
  4680	032730	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4681	032731	312 00 0 00 034057 		CAME	[XX,,0]		;CHECK ADDER UPON FALIRE
  4682						STOP		^
  4683	032732	254 04 0 00 032733 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4684	032733	324 00 0 00 032734 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4685									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4686									;IN THE SUBTEST) TO LOOP ON ERROR^
  4687
  4688					;**********
  4689
  4690
  4691					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4692					;IS THE FLOATING ONE.
  4693					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4694					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4695
  4696			045542		SN=SN+1
  4697			100000			XX=XX+XX
  4698						IFE	XX,<XX=1>
  4699	032734	515 00 0 00 100000 		HRLZI	XX		;PRELOAD AC WITH FLOATING ONE
  4700	032735	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4701	032736	312 00 0 00 034060 		CAME	[XX,,0]		;CHECK ADDER UPON FALIRE
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 87-13
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + 0                                              SEQ 0126

  4702						STOP		^
  4703	032737	254 04 0 00 032740 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4704	032740	324 00 0 00 032741 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4705									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4706									;IN THE SUBTEST) TO LOOP ON ERROR^
  4707
  4708					;**********
  4709
  4710
  4711					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4712					;IS THE FLOATING ONE.
  4713					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4714					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4715
  4716			045543		SN=SN+1
  4717			200000			XX=XX+XX
  4718						IFE	XX,<XX=1>
  4719	032741	515 00 0 00 200000 		HRLZI	XX		;PRELOAD AC WITH FLOATING ONE
  4720	032742	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4721	032743	312 00 0 00 034061 		CAME	[XX,,0]		;CHECK ADDER UPON FALIRE
  4722						STOP		^
  4723	032744	254 04 0 00 032745 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4724	032745	324 00 0 00 032746 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4725									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4726									;IN THE SUBTEST) TO LOOP ON ERROR^
  4727
  4728					;**********
  4729
  4730
  4731					;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE
  4732					;IS THE FLOATING ONE.
  4733					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  4734					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4735
  4736			045544		SN=SN+1
  4737			400000			XX=XX+XX
  4738						IFE	XX,<XX=1>
  4739	032746	515 00 0 00 400000 		HRLZI	XX		;PRELOAD AC WITH FLOATING ONE
  4740	032747	270 00 0 00 034014 		ADD	[0]		;ADD ZERO TO A FLOATING ONE	
  4741	032750	312 00 0 00 034062 		CAME	[XX,,0]		;CHECK ADDER UPON FALIRE
  4742						STOP		^
  4743	032751	254 04 0 00 032752 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4744	032752	324 00 0 00 032753 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4745									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4746									;IN THE SUBTEST) TO LOOP ON ERROR^
  4747
  4748					;**********
  4749
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 88
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - O + FLT 0                                              SEQ 0127

  4750					SUBTTL	SUPPLEMENTARY ADDER TESTS - O + FLT 0
  4751
  4752					;**********
  4753
  4754			045600		SN=45600
  4755					B45600:	REPEAT	^D18,<
  4756					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  4757					;IS THE FLOATING ZERO.
  4758					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  4759					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4760					
  4761					SN=SN+1
  4762						XX=<XX+XX+1>&777777
  4763						IFE	<XX-1>,<XX=777776>
  4764						SETZ			;PRELOAD AC WITH 0
  4765						ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ZERO
  4766						CAME	[-1,,XX]	;CHECK ADDER UPON FAILURE
  4767						STOP		
  4768					
  4769					;**********
  4770					>
  4771
  4772					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  4773					;IS THE FLOATING ZERO.
  4774					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  4775					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4776
  4777			045601		SN=SN+1
  4778			000001			XX=<XX+XX+1>&777777
  4779			777776			IFE	<XX-1>,<XX=777776>
  4780	032753	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  4781	032754	270 00 0 00 034063 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ZERO
  4782	032755	312 00 0 00 034063 		CAME	[-1,,XX]	;CHECK ADDER UPON FAILURE
  4783						STOP		^
  4784	032756	254 04 0 00 032757 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4785	032757	324 00 0 00 032760 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4786									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4787									;IN THE SUBTEST) TO LOOP ON ERROR^
  4788
  4789					;**********
  4790
  4791
  4792					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  4793					;IS THE FLOATING ZERO.
  4794					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  4795					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4796
  4797			045602		SN=SN+1
  4798			777775			XX=<XX+XX+1>&777777
  4799						IFE	<XX-1>,<XX=777776>
  4800	032760	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  4801	032761	270 00 0 00 034064 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ZERO
  4802	032762	312 00 0 00 034064 		CAME	[-1,,XX]	;CHECK ADDER UPON FAILURE
  4803						STOP		^
  4804	032763	254 04 0 00 032764 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 88-1
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - O + FLT 0                                              SEQ 0128

  4805	032764	324 00 0 00 032765 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4806									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4807									;IN THE SUBTEST) TO LOOP ON ERROR^
  4808
  4809					;**********
  4810
  4811
  4812					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  4813					;IS THE FLOATING ZERO.
  4814					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  4815					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4816
  4817			045603		SN=SN+1
  4818			777773			XX=<XX+XX+1>&777777
  4819						IFE	<XX-1>,<XX=777776>
  4820	032765	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  4821	032766	270 00 0 00 034065 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ZERO
  4822	032767	312 00 0 00 034065 		CAME	[-1,,XX]	;CHECK ADDER UPON FAILURE
  4823						STOP		^
  4824	032770	254 04 0 00 032771 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4825	032771	324 00 0 00 032772 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4826									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4827									;IN THE SUBTEST) TO LOOP ON ERROR^
  4828
  4829					;**********
  4830
  4831
  4832					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  4833					;IS THE FLOATING ZERO.
  4834					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  4835					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4836
  4837			045604		SN=SN+1
  4838			777767			XX=<XX+XX+1>&777777
  4839						IFE	<XX-1>,<XX=777776>
  4840	032772	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  4841	032773	270 00 0 00 034066 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ZERO
  4842	032774	312 00 0 00 034066 		CAME	[-1,,XX]	;CHECK ADDER UPON FAILURE
  4843						STOP		^
  4844	032775	254 04 0 00 032776 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4845	032776	324 00 0 00 032777 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4846									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4847									;IN THE SUBTEST) TO LOOP ON ERROR^
  4848
  4849					;**********
  4850
  4851
  4852					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  4853					;IS THE FLOATING ZERO.
  4854					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  4855					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4856
  4857			045605		SN=SN+1
  4858			777757			XX=<XX+XX+1>&777777
  4859						IFE	<XX-1>,<XX=777776>
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 88-2
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - O + FLT 0                                              SEQ 0129

  4860	032777	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  4861	033000	270 00 0 00 034067 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ZERO
  4862	033001	312 00 0 00 034067 		CAME	[-1,,XX]	;CHECK ADDER UPON FAILURE
  4863						STOP		^
  4864	033002	254 04 0 00 033003 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4865	033003	324 00 0 00 033004 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4866									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4867									;IN THE SUBTEST) TO LOOP ON ERROR^
  4868
  4869					;**********
  4870
  4871
  4872					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  4873					;IS THE FLOATING ZERO.
  4874					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  4875					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4876
  4877			045606		SN=SN+1
  4878			777737			XX=<XX+XX+1>&777777
  4879						IFE	<XX-1>,<XX=777776>
  4880	033004	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  4881	033005	270 00 0 00 034070 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ZERO
  4882	033006	312 00 0 00 034070 		CAME	[-1,,XX]	;CHECK ADDER UPON FAILURE
  4883						STOP		^
  4884	033007	254 04 0 00 033010 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4885	033010	324 00 0 00 033011 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4886									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4887									;IN THE SUBTEST) TO LOOP ON ERROR^
  4888
  4889					;**********
  4890
  4891
  4892					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  4893					;IS THE FLOATING ZERO.
  4894					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  4895					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4896
  4897			045607		SN=SN+1
  4898			777677			XX=<XX+XX+1>&777777
  4899						IFE	<XX-1>,<XX=777776>
  4900	033011	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  4901	033012	270 00 0 00 034071 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ZERO
  4902	033013	312 00 0 00 034071 		CAME	[-1,,XX]	;CHECK ADDER UPON FAILURE
  4903						STOP		^
  4904	033014	254 04 0 00 033015 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4905	033015	324 00 0 00 033016 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4906									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4907									;IN THE SUBTEST) TO LOOP ON ERROR^
  4908
  4909					;**********
  4910
  4911
  4912					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  4913					;IS THE FLOATING ZERO.
  4914					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 88-3
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - O + FLT 0                                              SEQ 0130

  4915					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4916
  4917			045610		SN=SN+1
  4918			777577			XX=<XX+XX+1>&777777
  4919						IFE	<XX-1>,<XX=777776>
  4920	033016	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  4921	033017	270 00 0 00 034072 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ZERO
  4922	033020	312 00 0 00 034072 		CAME	[-1,,XX]	;CHECK ADDER UPON FAILURE
  4923						STOP		^
  4924	033021	254 04 0 00 033022 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4925	033022	324 00 0 00 033023 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4926									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4927									;IN THE SUBTEST) TO LOOP ON ERROR^
  4928
  4929					;**********
  4930
  4931
  4932					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  4933					;IS THE FLOATING ZERO.
  4934					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  4935					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4936
  4937			045611		SN=SN+1
  4938			777377			XX=<XX+XX+1>&777777
  4939						IFE	<XX-1>,<XX=777776>
  4940	033023	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  4941	033024	270 00 0 00 034073 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ZERO
  4942	033025	312 00 0 00 034073 		CAME	[-1,,XX]	;CHECK ADDER UPON FAILURE
  4943						STOP		^
  4944	033026	254 04 0 00 033027 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4945	033027	324 00 0 00 033030 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4946									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4947									;IN THE SUBTEST) TO LOOP ON ERROR^
  4948
  4949					;**********
  4950
  4951
  4952					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  4953					;IS THE FLOATING ZERO.
  4954					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  4955					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4956
  4957			045612		SN=SN+1
  4958			776777			XX=<XX+XX+1>&777777
  4959						IFE	<XX-1>,<XX=777776>
  4960	033030	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  4961	033031	270 00 0 00 034074 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ZERO
  4962	033032	312 00 0 00 034074 		CAME	[-1,,XX]	;CHECK ADDER UPON FAILURE
  4963						STOP		^
  4964	033033	254 04 0 00 033034 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4965	033034	324 00 0 00 033035 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4966									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4967									;IN THE SUBTEST) TO LOOP ON ERROR^
  4968
  4969					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 88-4
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - O + FLT 0                                              SEQ 0131

  4970
  4971
  4972					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  4973					;IS THE FLOATING ZERO.
  4974					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  4975					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4976
  4977			045613		SN=SN+1
  4978			775777			XX=<XX+XX+1>&777777
  4979						IFE	<XX-1>,<XX=777776>
  4980	033035	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  4981	033036	270 00 0 00 034075 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ZERO
  4982	033037	312 00 0 00 034075 		CAME	[-1,,XX]	;CHECK ADDER UPON FAILURE
  4983						STOP		^
  4984	033040	254 04 0 00 033041 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4985	033041	324 00 0 00 033042 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4986									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4987									;IN THE SUBTEST) TO LOOP ON ERROR^
  4988
  4989					;**********
  4990
  4991
  4992					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  4993					;IS THE FLOATING ZERO.
  4994					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  4995					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  4996
  4997			045614		SN=SN+1
  4998			773777			XX=<XX+XX+1>&777777
  4999						IFE	<XX-1>,<XX=777776>
  5000	033042	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5001	033043	270 00 0 00 034076 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ZERO
  5002	033044	312 00 0 00 034076 		CAME	[-1,,XX]	;CHECK ADDER UPON FAILURE
  5003						STOP		^
  5004	033045	254 04 0 00 033046 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5005	033046	324 00 0 00 033047 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5006									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5007									;IN THE SUBTEST) TO LOOP ON ERROR^
  5008
  5009					;**********
  5010
  5011
  5012					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5013					;IS THE FLOATING ZERO.
  5014					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  5015					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5016
  5017			045615		SN=SN+1
  5018			767777			XX=<XX+XX+1>&777777
  5019						IFE	<XX-1>,<XX=777776>
  5020	033047	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5021	033050	270 00 0 00 034077 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ZERO
  5022	033051	312 00 0 00 034077 		CAME	[-1,,XX]	;CHECK ADDER UPON FAILURE
  5023						STOP		^
  5024	033052	254 04 0 00 033053 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 88-5
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - O + FLT 0                                              SEQ 0132

  5025	033053	324 00 0 00 033054 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5026									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5027									;IN THE SUBTEST) TO LOOP ON ERROR^
  5028
  5029					;**********
  5030
  5031
  5032					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5033					;IS THE FLOATING ZERO.
  5034					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  5035					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5036
  5037			045616		SN=SN+1
  5038			757777			XX=<XX+XX+1>&777777
  5039						IFE	<XX-1>,<XX=777776>
  5040	033054	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5041	033055	270 00 0 00 034100 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ZERO
  5042	033056	312 00 0 00 034100 		CAME	[-1,,XX]	;CHECK ADDER UPON FAILURE
  5043						STOP		^
  5044	033057	254 04 0 00 033060 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5045	033060	324 00 0 00 033061 		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
  5052					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5053					;IS THE FLOATING ZERO.
  5054					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  5055					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5056
  5057			045617		SN=SN+1
  5058			737777			XX=<XX+XX+1>&777777
  5059						IFE	<XX-1>,<XX=777776>
  5060	033061	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5061	033062	270 00 0 00 034101 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ZERO
  5062	033063	312 00 0 00 034101 		CAME	[-1,,XX]	;CHECK ADDER UPON FAILURE
  5063						STOP		^
  5064	033064	254 04 0 00 033065 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5065	033065	324 00 0 00 033066 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5066									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5067									;IN THE SUBTEST) TO LOOP ON ERROR^
  5068
  5069					;**********
  5070
  5071
  5072					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5073					;IS THE FLOATING ZERO.
  5074					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  5075					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5076
  5077			045620		SN=SN+1
  5078			677777			XX=<XX+XX+1>&777777
  5079						IFE	<XX-1>,<XX=777776>
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 88-6
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - O + FLT 0                                              SEQ 0133

  5080	033066	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5081	033067	270 00 0 00 034102 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ZERO
  5082	033070	312 00 0 00 034102 		CAME	[-1,,XX]	;CHECK ADDER UPON FAILURE
  5083						STOP		^
  5084	033071	254 04 0 00 033072 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5085	033072	324 00 0 00 033073 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5086									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5087									;IN THE SUBTEST) TO LOOP ON ERROR^
  5088
  5089					;**********
  5090
  5091
  5092					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5093					;IS THE FLOATING ZERO.
  5094					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  5095					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5096
  5097			045621		SN=SN+1
  5098			577777			XX=<XX+XX+1>&777777
  5099						IFE	<XX-1>,<XX=777776>
  5100	033073	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5101	033074	270 00 0 00 034103 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ZERO
  5102	033075	312 00 0 00 034103 		CAME	[-1,,XX]	;CHECK ADDER UPON FAILURE
  5103						STOP		^
  5104	033076	254 04 0 00 033077 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5105	033077	324 00 0 00 033100 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5106									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5107									;IN THE SUBTEST) TO LOOP ON ERROR^
  5108
  5109					;**********
  5110
  5111
  5112					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5113					;IS THE FLOATING ZERO.
  5114					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  5115					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5116
  5117			045622		SN=SN+1
  5118			377777			XX=<XX+XX+1>&777777
  5119						IFE	<XX-1>,<XX=777776>
  5120	033100	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5121	033101	270 00 0 00 034104 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ZERO
  5122	033102	312 00 0 00 034104 		CAME	[-1,,XX]	;CHECK ADDER UPON FAILURE
  5123						STOP		^
  5124	033103	254 04 0 00 033104 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5125	033104	324 00 0 00 033105 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5126									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5127									;IN THE SUBTEST) TO LOOP ON ERROR^
  5128
  5129					;**********
  5130
  5131					PAGE
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 88-7
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - O + FLT 0                                              SEQ 0134

  5132			000000			XX=0
  5133
  5134						REPEAT	^D18,<
  5135					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5136					;IS THE FLOATING ZERO.
  5137					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5138					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5139					
  5140					SN=SN+1
  5141						XX=<XX+XX+1>&777777
  5142						IFE	<XX-1>,<XX=777776>
  5143						SETZ			;PRELOAD AC WITH 0
  5144						ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ZERO
  5145						CAME	[XX,,-1]	;CHECK ADDER UPON FAILURE
  5146						STOP		
  5147					
  5148					;**********
  5149					>
  5150
  5151					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5152					;IS THE FLOATING ZERO.
  5153					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5154					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5155
  5156			045623		SN=SN+1
  5157			000001			XX=<XX+XX+1>&777777
  5158			777776			IFE	<XX-1>,<XX=777776>
  5159	033105	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5160	033106	270 00 0 00 034105 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ZERO
  5161	033107	312 00 0 00 034105 		CAME	[XX,,-1]	;CHECK ADDER UPON FAILURE
  5162						STOP		^
  5163	033110	254 04 0 00 033111 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5164	033111	324 00 0 00 033112 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5165									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5166									;IN THE SUBTEST) TO LOOP ON ERROR^
  5167
  5168					;**********
  5169
  5170
  5171					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5172					;IS THE FLOATING ZERO.
  5173					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5174					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5175
  5176			045624		SN=SN+1
  5177			777775			XX=<XX+XX+1>&777777
  5178						IFE	<XX-1>,<XX=777776>
  5179	033112	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5180	033113	270 00 0 00 034106 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ZERO
  5181	033114	312 00 0 00 034106 		CAME	[XX,,-1]	;CHECK ADDER UPON FAILURE
  5182						STOP		^
  5183	033115	254 04 0 00 033116 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5184	033116	324 00 0 00 033117 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5185									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5186									;IN THE SUBTEST) TO LOOP ON ERROR^
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 88-8
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - O + FLT 0                                              SEQ 0135

  5187
  5188					;**********
  5189
  5190
  5191					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5192					;IS THE FLOATING ZERO.
  5193					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5194					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5195
  5196			045625		SN=SN+1
  5197			777773			XX=<XX+XX+1>&777777
  5198						IFE	<XX-1>,<XX=777776>
  5199	033117	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5200	033120	270 00 0 00 034107 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ZERO
  5201	033121	312 00 0 00 034107 		CAME	[XX,,-1]	;CHECK ADDER UPON FAILURE
  5202						STOP		^
  5203	033122	254 04 0 00 033123 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5204	033123	324 00 0 00 033124 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5205									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5206									;IN THE SUBTEST) TO LOOP ON ERROR^
  5207
  5208					;**********
  5209
  5210
  5211					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5212					;IS THE FLOATING ZERO.
  5213					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5214					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5215
  5216			045626		SN=SN+1
  5217			777767			XX=<XX+XX+1>&777777
  5218						IFE	<XX-1>,<XX=777776>
  5219	033124	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5220	033125	270 00 0 00 034110 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ZERO
  5221	033126	312 00 0 00 034110 		CAME	[XX,,-1]	;CHECK ADDER UPON FAILURE
  5222						STOP		^
  5223	033127	254 04 0 00 033130 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5224	033130	324 00 0 00 033131 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5225									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5226									;IN THE SUBTEST) TO LOOP ON ERROR^
  5227
  5228					;**********
  5229
  5230
  5231					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5232					;IS THE FLOATING ZERO.
  5233					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5234					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5235
  5236			045627		SN=SN+1
  5237			777757			XX=<XX+XX+1>&777777
  5238						IFE	<XX-1>,<XX=777776>
  5239	033131	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5240	033132	270 00 0 00 034111 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ZERO
  5241	033133	312 00 0 00 034111 		CAME	[XX,,-1]	;CHECK ADDER UPON FAILURE
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 88-9
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - O + FLT 0                                              SEQ 0136

  5242						STOP		^
  5243	033134	254 04 0 00 033135 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5244	033135	324 00 0 00 033136 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5245									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5246									;IN THE SUBTEST) TO LOOP ON ERROR^
  5247
  5248					;**********
  5249
  5250
  5251					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5252					;IS THE FLOATING ZERO.
  5253					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5254					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5255
  5256			045630		SN=SN+1
  5257			777737			XX=<XX+XX+1>&777777
  5258						IFE	<XX-1>,<XX=777776>
  5259	033136	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5260	033137	270 00 0 00 034112 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ZERO
  5261	033140	312 00 0 00 034112 		CAME	[XX,,-1]	;CHECK ADDER UPON FAILURE
  5262						STOP		^
  5263	033141	254 04 0 00 033142 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5264	033142	324 00 0 00 033143 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5265									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5266									;IN THE SUBTEST) TO LOOP ON ERROR^
  5267
  5268					;**********
  5269
  5270
  5271					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5272					;IS THE FLOATING ZERO.
  5273					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5274					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5275
  5276			045631		SN=SN+1
  5277			777677			XX=<XX+XX+1>&777777
  5278						IFE	<XX-1>,<XX=777776>
  5279	033143	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5280	033144	270 00 0 00 034113 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ZERO
  5281	033145	312 00 0 00 034113 		CAME	[XX,,-1]	;CHECK ADDER UPON FAILURE
  5282						STOP		^
  5283	033146	254 04 0 00 033147 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5284	033147	324 00 0 00 033150 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5285									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5286									;IN THE SUBTEST) TO LOOP ON ERROR^
  5287
  5288					;**********
  5289
  5290
  5291					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5292					;IS THE FLOATING ZERO.
  5293					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5294					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5295
  5296			045632		SN=SN+1
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 88-10
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - O + FLT 0                                              SEQ 0137

  5297			777577			XX=<XX+XX+1>&777777
  5298						IFE	<XX-1>,<XX=777776>
  5299	033150	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5300	033151	270 00 0 00 034114 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ZERO
  5301	033152	312 00 0 00 034114 		CAME	[XX,,-1]	;CHECK ADDER UPON FAILURE
  5302						STOP		^
  5303	033153	254 04 0 00 033154 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5304	033154	324 00 0 00 033155 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5305									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5306									;IN THE SUBTEST) TO LOOP ON ERROR^
  5307
  5308					;**********
  5309
  5310
  5311					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5312					;IS THE FLOATING ZERO.
  5313					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5314					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5315
  5316			045633		SN=SN+1
  5317			777377			XX=<XX+XX+1>&777777
  5318						IFE	<XX-1>,<XX=777776>
  5319	033155	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5320	033156	270 00 0 00 034115 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ZERO
  5321	033157	312 00 0 00 034115 		CAME	[XX,,-1]	;CHECK ADDER UPON FAILURE
  5322						STOP		^
  5323	033160	254 04 0 00 033161 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5324	033161	324 00 0 00 033162 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5325									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5326									;IN THE SUBTEST) TO LOOP ON ERROR^
  5327
  5328					;**********
  5329
  5330
  5331					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5332					;IS THE FLOATING ZERO.
  5333					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5334					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5335
  5336			045634		SN=SN+1
  5337			776777			XX=<XX+XX+1>&777777
  5338						IFE	<XX-1>,<XX=777776>
  5339	033162	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5340	033163	270 00 0 00 034116 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ZERO
  5341	033164	312 00 0 00 034116 		CAME	[XX,,-1]	;CHECK ADDER UPON FAILURE
  5342						STOP		^
  5343	033165	254 04 0 00 033166 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5344	033166	324 00 0 00 033167 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5345									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5346									;IN THE SUBTEST) TO LOOP ON ERROR^
  5347
  5348					;**********
  5349
  5350
  5351					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 88-11
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - O + FLT 0                                              SEQ 0138

  5352					;IS THE FLOATING ZERO.
  5353					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5354					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5355
  5356			045635		SN=SN+1
  5357			775777			XX=<XX+XX+1>&777777
  5358						IFE	<XX-1>,<XX=777776>
  5359	033167	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5360	033170	270 00 0 00 034117 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ZERO
  5361	033171	312 00 0 00 034117 		CAME	[XX,,-1]	;CHECK ADDER UPON FAILURE
  5362						STOP		^
  5363	033172	254 04 0 00 033173 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5364	033173	324 00 0 00 033174 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5365									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5366									;IN THE SUBTEST) TO LOOP ON ERROR^
  5367
  5368					;**********
  5369
  5370
  5371					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5372					;IS THE FLOATING ZERO.
  5373					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5374					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5375
  5376			045636		SN=SN+1
  5377			773777			XX=<XX+XX+1>&777777
  5378						IFE	<XX-1>,<XX=777776>
  5379	033174	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5380	033175	270 00 0 00 034120 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ZERO
  5381	033176	312 00 0 00 034120 		CAME	[XX,,-1]	;CHECK ADDER UPON FAILURE
  5382						STOP		^
  5383	033177	254 04 0 00 033200 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5384	033200	324 00 0 00 033201 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5385									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5386									;IN THE SUBTEST) TO LOOP ON ERROR^
  5387
  5388					;**********
  5389
  5390
  5391					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5392					;IS THE FLOATING ZERO.
  5393					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5394					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5395
  5396			045637		SN=SN+1
  5397			767777			XX=<XX+XX+1>&777777
  5398						IFE	<XX-1>,<XX=777776>
  5399	033201	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5400	033202	270 00 0 00 034121 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ZERO
  5401	033203	312 00 0 00 034121 		CAME	[XX,,-1]	;CHECK ADDER UPON FAILURE
  5402						STOP		^
  5403	033204	254 04 0 00 033205 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5404	033205	324 00 0 00 033206 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5405									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5406									;IN THE SUBTEST) TO LOOP ON ERROR^
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 88-12
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - O + FLT 0                                              SEQ 0139

  5407
  5408					;**********
  5409
  5410
  5411					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5412					;IS THE FLOATING ZERO.
  5413					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5414					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5415
  5416			045640		SN=SN+1
  5417			757777			XX=<XX+XX+1>&777777
  5418						IFE	<XX-1>,<XX=777776>
  5419	033206	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5420	033207	270 00 0 00 034122 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ZERO
  5421	033210	312 00 0 00 034122 		CAME	[XX,,-1]	;CHECK ADDER UPON FAILURE
  5422						STOP		^
  5423	033211	254 04 0 00 033212 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5424	033212	324 00 0 00 033213 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5425									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5426									;IN THE SUBTEST) TO LOOP ON ERROR^
  5427
  5428					;**********
  5429
  5430
  5431					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5432					;IS THE FLOATING ZERO.
  5433					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5434					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5435
  5436			045641		SN=SN+1
  5437			737777			XX=<XX+XX+1>&777777
  5438						IFE	<XX-1>,<XX=777776>
  5439	033213	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5440	033214	270 00 0 00 034123 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ZERO
  5441	033215	312 00 0 00 034123 		CAME	[XX,,-1]	;CHECK ADDER UPON FAILURE
  5442						STOP		^
  5443	033216	254 04 0 00 033217 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5444	033217	324 00 0 00 033220 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5445									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5446									;IN THE SUBTEST) TO LOOP ON ERROR^
  5447
  5448					;**********
  5449
  5450
  5451					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5452					;IS THE FLOATING ZERO.
  5453					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5454					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5455
  5456			045642		SN=SN+1
  5457			677777			XX=<XX+XX+1>&777777
  5458						IFE	<XX-1>,<XX=777776>
  5459	033220	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5460	033221	270 00 0 00 034124 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ZERO
  5461	033222	312 00 0 00 034124 		CAME	[XX,,-1]	;CHECK ADDER UPON FAILURE
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 88-13
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - O + FLT 0                                              SEQ 0140

  5462						STOP		^
  5463	033223	254 04 0 00 033224 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5464	033224	324 00 0 00 033225 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5465									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5466									;IN THE SUBTEST) TO LOOP ON ERROR^
  5467
  5468					;**********
  5469
  5470
  5471					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5472					;IS THE FLOATING ZERO.
  5473					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5474					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5475
  5476			045643		SN=SN+1
  5477			577777			XX=<XX+XX+1>&777777
  5478						IFE	<XX-1>,<XX=777776>
  5479	033225	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5480	033226	270 00 0 00 034125 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ZERO
  5481	033227	312 00 0 00 034125 		CAME	[XX,,-1]	;CHECK ADDER UPON FAILURE
  5482						STOP		^
  5483	033230	254 04 0 00 033231 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5484	033231	324 00 0 00 033232 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5485									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5486									;IN THE SUBTEST) TO LOOP ON ERROR^
  5487
  5488					;**********
  5489
  5490
  5491					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO
  5492					;IS THE FLOATING ZERO.
  5493					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5494					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5495
  5496			045644		SN=SN+1
  5497			377777			XX=<XX+XX+1>&777777
  5498						IFE	<XX-1>,<XX=777776>
  5499	033232	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  5500	033233	270 00 0 00 034126 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ZERO
  5501	033234	312 00 0 00 034126 		CAME	[XX,,-1]	;CHECK ADDER UPON FAILURE
  5502						STOP		^
  5503	033235	254 04 0 00 033236 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5504	033236	324 00 0 00 033237 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5505									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5506									;IN THE SUBTEST) TO LOOP ON ERROR^
  5507
  5508					;**********
  5509
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 89
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1                                          SEQ 0141

  5510					SUBTTL	SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1
  5511
  5512					;**********
  5513
  5514			045700		SN=45700
  5515			000000			XX=0
  5516
  5517					B45700:	REPEAT	^D17,<
  5518					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5519					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5520					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5521					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5522					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5523					
  5524					SN=SN+1
  5525						XX=XX+XX
  5526						IFE	XX,<XX=1>
  5527						HRRZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5528						ADD	[XX]		;ADD A FLOATING ONE TO ITSELF	
  5529						CAME	[XX+XX]		;CHECK ADDER UPON FAILURE
  5530						STOP		
  5531					
  5532					;**********
  5533					>
  5534
  5535					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5536					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5537					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5538					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5539					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5540
  5541			045701		SN=SN+1
  5542			000000			XX=XX+XX
  5543			000001			IFE	XX,<XX=1>
  5544	033237	551 00 0 00 000001 		HRRZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5545	033240	270 00 0 00 034017 		ADD	[XX]		;ADD A FLOATING ONE TO ITSELF	
  5546	033241	312 00 0 00 034020 		CAME	[XX+XX]		;CHECK ADDER UPON FAILURE
  5547						STOP		^
  5548	033242	254 04 0 00 033243 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5549	033243	324 00 0 00 033244 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5550									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5551									;IN THE SUBTEST) TO LOOP ON ERROR^
  5552
  5553					;**********
  5554
  5555
  5556					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5557					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5558					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5559					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5560					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5561
  5562			045702		SN=SN+1
  5563			000002			XX=XX+XX
  5564						IFE	XX,<XX=1>
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 89-1
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1                                          SEQ 0142

  5565	033244	551 00 0 00 000002 		HRRZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5566	033245	270 00 0 00 034020 		ADD	[XX]		;ADD A FLOATING ONE TO ITSELF	
  5567	033246	312 00 0 00 034021 		CAME	[XX+XX]		;CHECK ADDER UPON FAILURE
  5568						STOP		^
  5569	033247	254 04 0 00 033250 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5570	033250	324 00 0 00 033251 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5571									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5572									;IN THE SUBTEST) TO LOOP ON ERROR^
  5573
  5574					;**********
  5575
  5576
  5577					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5578					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5579					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5580					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5581					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5582
  5583			045703		SN=SN+1
  5584			000004			XX=XX+XX
  5585						IFE	XX,<XX=1>
  5586	033251	551 00 0 00 000004 		HRRZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5587	033252	270 00 0 00 034021 		ADD	[XX]		;ADD A FLOATING ONE TO ITSELF	
  5588	033253	312 00 0 00 034022 		CAME	[XX+XX]		;CHECK ADDER UPON FAILURE
  5589						STOP		^
  5590	033254	254 04 0 00 033255 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5591	033255	324 00 0 00 033256 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5592									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5593									;IN THE SUBTEST) TO LOOP ON ERROR^
  5594
  5595					;**********
  5596
  5597
  5598					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5599					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5600					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5601					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5602					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5603
  5604			045704		SN=SN+1
  5605			000010			XX=XX+XX
  5606						IFE	XX,<XX=1>
  5607	033256	551 00 0 00 000010 		HRRZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5608	033257	270 00 0 00 034022 		ADD	[XX]		;ADD A FLOATING ONE TO ITSELF	
  5609	033260	312 00 0 00 034023 		CAME	[XX+XX]		;CHECK ADDER UPON FAILURE
  5610						STOP		^
  5611	033261	254 04 0 00 033262 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5612	033262	324 00 0 00 033263 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5613									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5614									;IN THE SUBTEST) TO LOOP ON ERROR^
  5615
  5616					;**********
  5617
  5618
  5619					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 89-2
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1                                          SEQ 0143

  5620					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5621					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5622					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5623					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5624
  5625			045705		SN=SN+1
  5626			000020			XX=XX+XX
  5627						IFE	XX,<XX=1>
  5628	033263	551 00 0 00 000020 		HRRZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5629	033264	270 00 0 00 034023 		ADD	[XX]		;ADD A FLOATING ONE TO ITSELF	
  5630	033265	312 00 0 00 034024 		CAME	[XX+XX]		;CHECK ADDER UPON FAILURE
  5631						STOP		^
  5632	033266	254 04 0 00 033267 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5633	033267	324 00 0 00 033270 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5634									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5635									;IN THE SUBTEST) TO LOOP ON ERROR^
  5636
  5637					;**********
  5638
  5639
  5640					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5641					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5642					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5643					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5644					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5645
  5646			045706		SN=SN+1
  5647			000040			XX=XX+XX
  5648						IFE	XX,<XX=1>
  5649	033270	551 00 0 00 000040 		HRRZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5650	033271	270 00 0 00 034024 		ADD	[XX]		;ADD A FLOATING ONE TO ITSELF	
  5651	033272	312 00 0 00 034025 		CAME	[XX+XX]		;CHECK ADDER UPON FAILURE
  5652						STOP		^
  5653	033273	254 04 0 00 033274 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5654	033274	324 00 0 00 033275 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5655									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5656									;IN THE SUBTEST) TO LOOP ON ERROR^
  5657
  5658					;**********
  5659
  5660
  5661					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5662					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5663					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5664					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5665					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5666
  5667			045707		SN=SN+1
  5668			000100			XX=XX+XX
  5669						IFE	XX,<XX=1>
  5670	033275	551 00 0 00 000100 		HRRZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5671	033276	270 00 0 00 034025 		ADD	[XX]		;ADD A FLOATING ONE TO ITSELF	
  5672	033277	312 00 0 00 034026 		CAME	[XX+XX]		;CHECK ADDER UPON FAILURE
  5673						STOP		^
  5674	033300	254 04 0 00 033301 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 89-3
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1                                          SEQ 0144

  5675	033301	324 00 0 00 033302 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5676									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5677									;IN THE SUBTEST) TO LOOP ON ERROR^
  5678
  5679					;**********
  5680
  5681
  5682					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5683					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5684					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5685					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5686					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5687
  5688			045710		SN=SN+1
  5689			000200			XX=XX+XX
  5690						IFE	XX,<XX=1>
  5691	033302	551 00 0 00 000200 		HRRZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5692	033303	270 00 0 00 034026 		ADD	[XX]		;ADD A FLOATING ONE TO ITSELF	
  5693	033304	312 00 0 00 034027 		CAME	[XX+XX]		;CHECK ADDER UPON FAILURE
  5694						STOP		^
  5695	033305	254 04 0 00 033306 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5696	033306	324 00 0 00 033307 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5697									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5698									;IN THE SUBTEST) TO LOOP ON ERROR^
  5699
  5700					;**********
  5701
  5702
  5703					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5704					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5705					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5706					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5707					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5708
  5709			045711		SN=SN+1
  5710			000400			XX=XX+XX
  5711						IFE	XX,<XX=1>
  5712	033307	551 00 0 00 000400 		HRRZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5713	033310	270 00 0 00 034027 		ADD	[XX]		;ADD A FLOATING ONE TO ITSELF	
  5714	033311	312 00 0 00 034030 		CAME	[XX+XX]		;CHECK ADDER UPON FAILURE
  5715						STOP		^
  5716	033312	254 04 0 00 033313 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5717	033313	324 00 0 00 033314 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5718									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5719									;IN THE SUBTEST) TO LOOP ON ERROR^
  5720
  5721					;**********
  5722
  5723
  5724					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5725					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5726					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5727					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5728					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5729
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 89-4
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1                                          SEQ 0145

  5730			045712		SN=SN+1
  5731			001000			XX=XX+XX
  5732						IFE	XX,<XX=1>
  5733	033314	551 00 0 00 001000 		HRRZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5734	033315	270 00 0 00 034030 		ADD	[XX]		;ADD A FLOATING ONE TO ITSELF	
  5735	033316	312 00 0 00 034031 		CAME	[XX+XX]		;CHECK ADDER UPON FAILURE
  5736						STOP		^
  5737	033317	254 04 0 00 033320 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5738	033320	324 00 0 00 033321 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5739									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5740									;IN THE SUBTEST) TO LOOP ON ERROR^
  5741
  5742					;**********
  5743
  5744
  5745					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5746					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5747					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5748					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5749					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5750
  5751			045713		SN=SN+1
  5752			002000			XX=XX+XX
  5753						IFE	XX,<XX=1>
  5754	033321	551 00 0 00 002000 		HRRZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5755	033322	270 00 0 00 034031 		ADD	[XX]		;ADD A FLOATING ONE TO ITSELF	
  5756	033323	312 00 0 00 034032 		CAME	[XX+XX]		;CHECK ADDER UPON FAILURE
  5757						STOP		^
  5758	033324	254 04 0 00 033325 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5759	033325	324 00 0 00 033326 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5760									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5761									;IN THE SUBTEST) TO LOOP ON ERROR^
  5762
  5763					;**********
  5764
  5765
  5766					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5767					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5768					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5769					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5770					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5771
  5772			045714		SN=SN+1
  5773			004000			XX=XX+XX
  5774						IFE	XX,<XX=1>
  5775	033326	551 00 0 00 004000 		HRRZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5776	033327	270 00 0 00 034032 		ADD	[XX]		;ADD A FLOATING ONE TO ITSELF	
  5777	033330	312 00 0 00 034033 		CAME	[XX+XX]		;CHECK ADDER UPON FAILURE
  5778						STOP		^
  5779	033331	254 04 0 00 033332 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5780	033332	324 00 0 00 033333 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5781									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5782									;IN THE SUBTEST) TO LOOP ON ERROR^
  5783
  5784					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 89-5
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1                                          SEQ 0146

  5785
  5786
  5787					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5788					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5789					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5790					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5791					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5792
  5793			045715		SN=SN+1
  5794			010000			XX=XX+XX
  5795						IFE	XX,<XX=1>
  5796	033333	551 00 0 00 010000 		HRRZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5797	033334	270 00 0 00 034033 		ADD	[XX]		;ADD A FLOATING ONE TO ITSELF	
  5798	033335	312 00 0 00 034034 		CAME	[XX+XX]		;CHECK ADDER UPON FAILURE
  5799						STOP		^
  5800	033336	254 04 0 00 033337 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5801	033337	324 00 0 00 033340 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5802									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5803									;IN THE SUBTEST) TO LOOP ON ERROR^
  5804
  5805					;**********
  5806
  5807
  5808					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5809					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5810					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5811					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5812					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5813
  5814			045716		SN=SN+1
  5815			020000			XX=XX+XX
  5816						IFE	XX,<XX=1>
  5817	033340	551 00 0 00 020000 		HRRZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5818	033341	270 00 0 00 034034 		ADD	[XX]		;ADD A FLOATING ONE TO ITSELF	
  5819	033342	312 00 0 00 034035 		CAME	[XX+XX]		;CHECK ADDER UPON FAILURE
  5820						STOP		^
  5821	033343	254 04 0 00 033344 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5822	033344	324 00 0 00 033345 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5823									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5824									;IN THE SUBTEST) TO LOOP ON ERROR^
  5825
  5826					;**********
  5827
  5828
  5829					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5830					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5831					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5832					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5833					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5834
  5835			045717		SN=SN+1
  5836			040000			XX=XX+XX
  5837						IFE	XX,<XX=1>
  5838	033345	551 00 0 00 040000 		HRRZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5839	033346	270 00 0 00 034035 		ADD	[XX]		;ADD A FLOATING ONE TO ITSELF	
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 89-6
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1                                          SEQ 0147

  5840	033347	312 00 0 00 034036 		CAME	[XX+XX]		;CHECK ADDER UPON FAILURE
  5841						STOP		^
  5842	033350	254 04 0 00 033351 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5843	033351	324 00 0 00 033352 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5844									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5845									;IN THE SUBTEST) TO LOOP ON ERROR^
  5846
  5847					;**********
  5848
  5849
  5850					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5851					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5852					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5853					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5854					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5855
  5856			045720		SN=SN+1
  5857			100000			XX=XX+XX
  5858						IFE	XX,<XX=1>
  5859	033352	551 00 0 00 100000 		HRRZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5860	033353	270 00 0 00 034036 		ADD	[XX]		;ADD A FLOATING ONE TO ITSELF	
  5861	033354	312 00 0 00 034037 		CAME	[XX+XX]		;CHECK ADDER UPON FAILURE
  5862						STOP		^
  5863	033355	254 04 0 00 033356 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5864	033356	324 00 0 00 033357 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5865									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5866									;IN THE SUBTEST) TO LOOP ON ERROR^
  5867
  5868					;**********
  5869
  5870
  5871					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5872					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5873					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5874					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5875					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5876
  5877			045721		SN=SN+1
  5878			200000			XX=XX+XX
  5879						IFE	XX,<XX=1>
  5880	033357	551 00 0 00 200000 		HRRZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5881	033360	270 00 0 00 034037 		ADD	[XX]		;ADD A FLOATING ONE TO ITSELF	
  5882	033361	312 00 0 00 034040 		CAME	[XX+XX]		;CHECK ADDER UPON FAILURE
  5883						STOP		^
  5884	033362	254 04 0 00 033363 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5885	033363	324 00 0 00 033364 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5886									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5887									;IN THE SUBTEST) TO LOOP ON ERROR^
  5888
  5889					;**********
  5890
  5891					PAGE
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 89-7
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1                                          SEQ 0148

  5892					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5893					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5894					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5895					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5896					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5897			045722		SN=SN+1
  5898			400000			XX=XX+XX
  5899	033364	551 00 0 00 400000 		HRRZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5900	033365	270 00 0 00 034040 		ADD	[XX]		;ADD A FLOATING ONE TO ITSELF	
  5901	033366	312 00 0 00 034041 		CAME	[1,,0]		;CHECK ADDRESS UPON FAILURE
  5902						STOP		^
  5903	033367	254 04 0 00 033370 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5904	033370	324 00 0 00 033371 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5905									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5906									;IN THE SUBTEST) TO LOOP ON ERROR^
  5907
  5908					;**********
  5909
  5910			000000			XX=0
  5911
  5912						REPEAT	^D18,<
  5913					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5914					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5915					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5916					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5917					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5918					
  5919					SN=SN+1
  5920						XX=XX+XX
  5921						IFE	XX,<XX=1>
  5922						HRLZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5923						ADD	[XX,,0]		;ADD A FLOATING ONE TO ITSELF	
  5924						CAME	[XX+XX,,0]	;CHECK ADDER UPON FAILURE
  5925						STOP		
  5926					
  5927					;**********
  5928					>
  5929
  5930					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5931					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5932					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5933					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5934					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5935
  5936			045723		SN=SN+1
  5937			000000			XX=XX+XX
  5938			000001			IFE	XX,<XX=1>
  5939	033371	515 00 0 00 000001 		HRLZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5940	033372	270 00 0 00 034041 		ADD	[XX,,0]		;ADD A FLOATING ONE TO ITSELF	
  5941	033373	312 00 0 00 034042 		CAME	[XX+XX,,0]	;CHECK ADDER UPON FAILURE
  5942						STOP		^
  5943	033374	254 04 0 00 033375 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5944	033375	324 00 0 00 033376 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5945									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5946									;IN THE SUBTEST) TO LOOP ON ERROR^
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 89-8
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1                                          SEQ 0149

  5947
  5948					;**********
  5949
  5950
  5951					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5952					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5953					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5954					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5955					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5956
  5957			045724		SN=SN+1
  5958			000002			XX=XX+XX
  5959						IFE	XX,<XX=1>
  5960	033376	515 00 0 00 000002 		HRLZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5961	033377	270 00 0 00 034042 		ADD	[XX,,0]		;ADD A FLOATING ONE TO ITSELF	
  5962	033400	312 00 0 00 034043 		CAME	[XX+XX,,0]	;CHECK ADDER UPON FAILURE
  5963						STOP		^
  5964	033401	254 04 0 00 033402 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5965	033402	324 00 0 00 033403 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5966									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5967									;IN THE SUBTEST) TO LOOP ON ERROR^
  5968
  5969					;**********
  5970
  5971
  5972					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5973					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5974					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5975					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5976					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5977
  5978			045725		SN=SN+1
  5979			000004			XX=XX+XX
  5980						IFE	XX,<XX=1>
  5981	033403	515 00 0 00 000004 		HRLZI	XX		;PRELOAD AC WITH A FLOATING ONE
  5982	033404	270 00 0 00 034043 		ADD	[XX,,0]		;ADD A FLOATING ONE TO ITSELF	
  5983	033405	312 00 0 00 034044 		CAME	[XX+XX,,0]	;CHECK ADDER UPON FAILURE
  5984						STOP		^
  5985	033406	254 04 0 00 033407 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5986	033407	324 00 0 00 033410 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5987									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5988									;IN THE SUBTEST) TO LOOP ON ERROR^
  5989
  5990					;**********
  5991
  5992
  5993					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  5994					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  5995					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  5996					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  5997					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  5998
  5999			045726		SN=SN+1
  6000			000010			XX=XX+XX
  6001						IFE	XX,<XX=1>
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 89-9
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1                                          SEQ 0150

  6002	033410	515 00 0 00 000010 		HRLZI	XX		;PRELOAD AC WITH A FLOATING ONE
  6003	033411	270 00 0 00 034044 		ADD	[XX,,0]		;ADD A FLOATING ONE TO ITSELF	
  6004	033412	312 00 0 00 034045 		CAME	[XX+XX,,0]	;CHECK ADDER UPON FAILURE
  6005						STOP		^
  6006	033413	254 04 0 00 033414 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6007	033414	324 00 0 00 033415 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6008									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6009									;IN THE SUBTEST) TO LOOP ON ERROR^
  6010
  6011					;**********
  6012
  6013
  6014					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  6015					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  6016					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  6017					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  6018					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6019
  6020			045727		SN=SN+1
  6021			000020			XX=XX+XX
  6022						IFE	XX,<XX=1>
  6023	033415	515 00 0 00 000020 		HRLZI	XX		;PRELOAD AC WITH A FLOATING ONE
  6024	033416	270 00 0 00 034045 		ADD	[XX,,0]		;ADD A FLOATING ONE TO ITSELF	
  6025	033417	312 00 0 00 034046 		CAME	[XX+XX,,0]	;CHECK ADDER UPON FAILURE
  6026						STOP		^
  6027	033420	254 04 0 00 033421 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6028	033421	324 00 0 00 033422 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6029									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6030									;IN THE SUBTEST) TO LOOP ON ERROR^
  6031
  6032					;**********
  6033
  6034
  6035					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  6036					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  6037					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  6038					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  6039					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6040
  6041			045730		SN=SN+1
  6042			000040			XX=XX+XX
  6043						IFE	XX,<XX=1>
  6044	033422	515 00 0 00 000040 		HRLZI	XX		;PRELOAD AC WITH A FLOATING ONE
  6045	033423	270 00 0 00 034046 		ADD	[XX,,0]		;ADD A FLOATING ONE TO ITSELF	
  6046	033424	312 00 0 00 034047 		CAME	[XX+XX,,0]	;CHECK ADDER UPON FAILURE
  6047						STOP		^
  6048	033425	254 04 0 00 033426 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6049	033426	324 00 0 00 033427 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6050									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6051									;IN THE SUBTEST) TO LOOP ON ERROR^
  6052
  6053					;**********
  6054
  6055
  6056					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 89-10
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1                                          SEQ 0151

  6057					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  6058					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  6059					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  6060					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6061
  6062			045731		SN=SN+1
  6063			000100			XX=XX+XX
  6064						IFE	XX,<XX=1>
  6065	033427	515 00 0 00 000100 		HRLZI	XX		;PRELOAD AC WITH A FLOATING ONE
  6066	033430	270 00 0 00 034047 		ADD	[XX,,0]		;ADD A FLOATING ONE TO ITSELF	
  6067	033431	312 00 0 00 034050 		CAME	[XX+XX,,0]	;CHECK ADDER UPON FAILURE
  6068						STOP		^
  6069	033432	254 04 0 00 033433 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6070	033433	324 00 0 00 033434 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6071									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6072									;IN THE SUBTEST) TO LOOP ON ERROR^
  6073
  6074					;**********
  6075
  6076
  6077					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  6078					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  6079					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  6080					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  6081					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6082
  6083			045732		SN=SN+1
  6084			000200			XX=XX+XX
  6085						IFE	XX,<XX=1>
  6086	033434	515 00 0 00 000200 		HRLZI	XX		;PRELOAD AC WITH A FLOATING ONE
  6087	033435	270 00 0 00 034050 		ADD	[XX,,0]		;ADD A FLOATING ONE TO ITSELF	
  6088	033436	312 00 0 00 034051 		CAME	[XX+XX,,0]	;CHECK ADDER UPON FAILURE
  6089						STOP		^
  6090	033437	254 04 0 00 033440 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6091	033440	324 00 0 00 033441 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6092									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6093									;IN THE SUBTEST) TO LOOP ON ERROR^
  6094
  6095					;**********
  6096
  6097
  6098					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  6099					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  6100					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  6101					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  6102					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6103
  6104			045733		SN=SN+1
  6105			000400			XX=XX+XX
  6106						IFE	XX,<XX=1>
  6107	033441	515 00 0 00 000400 		HRLZI	XX		;PRELOAD AC WITH A FLOATING ONE
  6108	033442	270 00 0 00 034051 		ADD	[XX,,0]		;ADD A FLOATING ONE TO ITSELF	
  6109	033443	312 00 0 00 034052 		CAME	[XX+XX,,0]	;CHECK ADDER UPON FAILURE
  6110						STOP		^
  6111	033444	254 04 0 00 033445 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 89-11
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1                                          SEQ 0152

  6112	033445	324 00 0 00 033446 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6113									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6114									;IN THE SUBTEST) TO LOOP ON ERROR^
  6115
  6116					;**********
  6117
  6118
  6119					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  6120					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  6121					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  6122					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  6123					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6124
  6125			045734		SN=SN+1
  6126			001000			XX=XX+XX
  6127						IFE	XX,<XX=1>
  6128	033446	515 00 0 00 001000 		HRLZI	XX		;PRELOAD AC WITH A FLOATING ONE
  6129	033447	270 00 0 00 034052 		ADD	[XX,,0]		;ADD A FLOATING ONE TO ITSELF	
  6130	033450	312 00 0 00 034053 		CAME	[XX+XX,,0]	;CHECK ADDER UPON FAILURE
  6131						STOP		^
  6132	033451	254 04 0 00 033452 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6133	033452	324 00 0 00 033453 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6134									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6135									;IN THE SUBTEST) TO LOOP ON ERROR^
  6136
  6137					;**********
  6138
  6139
  6140					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  6141					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  6142					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  6143					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  6144					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6145
  6146			045735		SN=SN+1
  6147			002000			XX=XX+XX
  6148						IFE	XX,<XX=1>
  6149	033453	515 00 0 00 002000 		HRLZI	XX		;PRELOAD AC WITH A FLOATING ONE
  6150	033454	270 00 0 00 034053 		ADD	[XX,,0]		;ADD A FLOATING ONE TO ITSELF	
  6151	033455	312 00 0 00 034054 		CAME	[XX+XX,,0]	;CHECK ADDER UPON FAILURE
  6152						STOP		^
  6153	033456	254 04 0 00 033457 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6154	033457	324 00 0 00 033460 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6155									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6156									;IN THE SUBTEST) TO LOOP ON ERROR^
  6157
  6158					;**********
  6159
  6160
  6161					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  6162					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  6163					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  6164					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  6165					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6166
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 89-12
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1                                          SEQ 0153

  6167			045736		SN=SN+1
  6168			004000			XX=XX+XX
  6169						IFE	XX,<XX=1>
  6170	033460	515 00 0 00 004000 		HRLZI	XX		;PRELOAD AC WITH A FLOATING ONE
  6171	033461	270 00 0 00 034054 		ADD	[XX,,0]		;ADD A FLOATING ONE TO ITSELF	
  6172	033462	312 00 0 00 034055 		CAME	[XX+XX,,0]	;CHECK ADDER UPON FAILURE
  6173						STOP		^
  6174	033463	254 04 0 00 033464 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6175	033464	324 00 0 00 033465 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6176									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6177									;IN THE SUBTEST) TO LOOP ON ERROR^
  6178
  6179					;**********
  6180
  6181
  6182					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  6183					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  6184					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  6185					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  6186					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6187
  6188			045737		SN=SN+1
  6189			010000			XX=XX+XX
  6190						IFE	XX,<XX=1>
  6191	033465	515 00 0 00 010000 		HRLZI	XX		;PRELOAD AC WITH A FLOATING ONE
  6192	033466	270 00 0 00 034055 		ADD	[XX,,0]		;ADD A FLOATING ONE TO ITSELF	
  6193	033467	312 00 0 00 034056 		CAME	[XX+XX,,0]	;CHECK ADDER UPON FAILURE
  6194						STOP		^
  6195	033470	254 04 0 00 033471 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6196	033471	324 00 0 00 033472 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6197									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6198									;IN THE SUBTEST) TO LOOP ON ERROR^
  6199
  6200					;**********
  6201
  6202
  6203					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  6204					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  6205					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  6206					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  6207					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6208
  6209			045740		SN=SN+1
  6210			020000			XX=XX+XX
  6211						IFE	XX,<XX=1>
  6212	033472	515 00 0 00 020000 		HRLZI	XX		;PRELOAD AC WITH A FLOATING ONE
  6213	033473	270 00 0 00 034056 		ADD	[XX,,0]		;ADD A FLOATING ONE TO ITSELF	
  6214	033474	312 00 0 00 034057 		CAME	[XX+XX,,0]	;CHECK ADDER UPON FAILURE
  6215						STOP		^
  6216	033475	254 04 0 00 033476 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6217	033476	324 00 0 00 033477 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6218									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6219									;IN THE SUBTEST) TO LOOP ON ERROR^
  6220
  6221					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 89-13
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1                                          SEQ 0154

  6222
  6223
  6224					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  6225					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  6226					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  6227					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  6228					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6229
  6230			045741		SN=SN+1
  6231			040000			XX=XX+XX
  6232						IFE	XX,<XX=1>
  6233	033477	515 00 0 00 040000 		HRLZI	XX		;PRELOAD AC WITH A FLOATING ONE
  6234	033500	270 00 0 00 034057 		ADD	[XX,,0]		;ADD A FLOATING ONE TO ITSELF	
  6235	033501	312 00 0 00 034060 		CAME	[XX+XX,,0]	;CHECK ADDER UPON FAILURE
  6236						STOP		^
  6237	033502	254 04 0 00 033503 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6238	033503	324 00 0 00 033504 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6239									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6240									;IN THE SUBTEST) TO LOOP ON ERROR^
  6241
  6242					;**********
  6243
  6244
  6245					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  6246					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  6247					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  6248					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  6249					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6250
  6251			045742		SN=SN+1
  6252			100000			XX=XX+XX
  6253						IFE	XX,<XX=1>
  6254	033504	515 00 0 00 100000 		HRLZI	XX		;PRELOAD AC WITH A FLOATING ONE
  6255	033505	270 00 0 00 034060 		ADD	[XX,,0]		;ADD A FLOATING ONE TO ITSELF	
  6256	033506	312 00 0 00 034061 		CAME	[XX+XX,,0]	;CHECK ADDER UPON FAILURE
  6257						STOP		^
  6258	033507	254 04 0 00 033510 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6259	033510	324 00 0 00 033511 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6260									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6261									;IN THE SUBTEST) TO LOOP ON ERROR^
  6262
  6263					;**********
  6264
  6265
  6266					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  6267					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  6268					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  6269					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  6270					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6271
  6272			045743		SN=SN+1
  6273			200000			XX=XX+XX
  6274						IFE	XX,<XX=1>
  6275	033511	515 00 0 00 200000 		HRLZI	XX		;PRELOAD AC WITH A FLOATING ONE
  6276	033512	270 00 0 00 034061 		ADD	[XX,,0]		;ADD A FLOATING ONE TO ITSELF	
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 89-14
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1                                          SEQ 0155

  6277	033513	312 00 0 00 034062 		CAME	[XX+XX,,0]	;CHECK ADDER UPON FAILURE
  6278						STOP		^
  6279	033514	254 04 0 00 033515 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6280	033515	324 00 0 00 033516 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6281									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6282									;IN THE SUBTEST) TO LOOP ON ERROR^
  6283
  6284					;**********
  6285
  6286
  6287					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE
  6288					;ADDED TO A FLOATING ONE IS A FLOATING ONE
  6289					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE.
  6290					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER.
  6291					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6292
  6293			045744		SN=SN+1
  6294			400000			XX=XX+XX
  6295						IFE	XX,<XX=1>
  6296	033516	515 00 0 00 400000 		HRLZI	XX		;PRELOAD AC WITH A FLOATING ONE
  6297	033517	270 00 0 00 034062 		ADD	[XX,,0]		;ADD A FLOATING ONE TO ITSELF	
  6298Q	033520	312 00 0 00 034127 		CAME	[XX+XX,,0]	;CHECK ADDER UPON FAILURE
  6299						STOP		^
  6300	033521	254 04 0 00 033522 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6301	033522	324 00 0 00 033523 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6302									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6303									;IN THE SUBTEST) TO LOOP ON ERROR^
  6304
  6305					;**********
  6306
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 90
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT                                           SEQ 0156

  6307					SUBTTL	SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT 
  6308
  6309					;**********
  6310
  6311			046000		SN=46000
  6312			000000			XX=0
  6313
  6314					B46000:	REPEAT	^D17,<
  6315					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6316					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6317					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6318					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6319					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6320					
  6321					SN=SN+1
  6322						XX=<XX+XX+1>&777777
  6323						IFE	<XX-1>,<XX=777776>
  6324						HRROI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6325						ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ITSELF
  6326						CAME	[-1,,<XX+XX>&777777]	;CHECK ADDER UPON FAILURE
  6327						STOP		
  6328					
  6329					;**********
  6330					>
  6331
  6332					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6333					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6334					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6335					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6336					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6337
  6338			046001		SN=SN+1
  6339			000001			XX=<XX+XX+1>&777777
  6340			777776			IFE	<XX-1>,<XX=777776>
  6341	033523	561 00 0 00 777776 		HRROI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6342	033524	270 00 0 00 034063 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ITSELF
  6343	033525	312 00 0 00 034130 		CAME	[-1,,<XX+XX>&777777]	;CHECK ADDER UPON FAILURE
  6344						STOP		^
  6345	033526	254 04 0 00 033527 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6346	033527	324 00 0 00 033530 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6347									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6348									;IN THE SUBTEST) TO LOOP ON ERROR^
  6349
  6350					;**********
  6351
  6352
  6353					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6354					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6355					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6356					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6357					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6358
  6359			046002		SN=SN+1
  6360			777775			XX=<XX+XX+1>&777777
  6361						IFE	<XX-1>,<XX=777776>
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 90-1
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT                                           SEQ 0157

  6362	033530	561 00 0 00 777775 		HRROI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6363	033531	270 00 0 00 034064 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ITSELF
  6364	033532	312 00 0 00 034131 		CAME	[-1,,<XX+XX>&777777]	;CHECK ADDER UPON FAILURE
  6365						STOP		^
  6366	033533	254 04 0 00 033534 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6367	033534	324 00 0 00 033535 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6368									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6369									;IN THE SUBTEST) TO LOOP ON ERROR^
  6370
  6371					;**********
  6372
  6373
  6374					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6375					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6376					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6377					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6378					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6379
  6380			046003		SN=SN+1
  6381			777773			XX=<XX+XX+1>&777777
  6382						IFE	<XX-1>,<XX=777776>
  6383	033535	561 00 0 00 777773 		HRROI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6384	033536	270 00 0 00 034065 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ITSELF
  6385	033537	312 00 0 00 034132 		CAME	[-1,,<XX+XX>&777777]	;CHECK ADDER UPON FAILURE
  6386						STOP		^
  6387	033540	254 04 0 00 033541 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6388	033541	324 00 0 00 033542 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6389									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6390									;IN THE SUBTEST) TO LOOP ON ERROR^
  6391
  6392					;**********
  6393
  6394
  6395					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6396					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6397					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6398					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6399					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6400
  6401			046004		SN=SN+1
  6402			777767			XX=<XX+XX+1>&777777
  6403						IFE	<XX-1>,<XX=777776>
  6404	033542	561 00 0 00 777767 		HRROI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6405	033543	270 00 0 00 034066 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ITSELF
  6406	033544	312 00 0 00 034133 		CAME	[-1,,<XX+XX>&777777]	;CHECK ADDER UPON FAILURE
  6407						STOP		^
  6408	033545	254 04 0 00 033546 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6409	033546	324 00 0 00 033547 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6410									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6411									;IN THE SUBTEST) TO LOOP ON ERROR^
  6412
  6413					;**********
  6414
  6415
  6416					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 90-2
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT                                           SEQ 0158

  6417					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6418					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6419					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6420					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6421
  6422			046005		SN=SN+1
  6423			777757			XX=<XX+XX+1>&777777
  6424						IFE	<XX-1>,<XX=777776>
  6425	033547	561 00 0 00 777757 		HRROI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6426	033550	270 00 0 00 034067 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ITSELF
  6427	033551	312 00 0 00 034134 		CAME	[-1,,<XX+XX>&777777]	;CHECK ADDER UPON FAILURE
  6428						STOP		^
  6429	033552	254 04 0 00 033553 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6430	033553	324 00 0 00 033554 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6431									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6432									;IN THE SUBTEST) TO LOOP ON ERROR^
  6433
  6434					;**********
  6435
  6436
  6437					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6438					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6439					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6440					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6441					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6442
  6443			046006		SN=SN+1
  6444			777737			XX=<XX+XX+1>&777777
  6445						IFE	<XX-1>,<XX=777776>
  6446	033554	561 00 0 00 777737 		HRROI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6447	033555	270 00 0 00 034070 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ITSELF
  6448	033556	312 00 0 00 034135 		CAME	[-1,,<XX+XX>&777777]	;CHECK ADDER UPON FAILURE
  6449						STOP		^
  6450	033557	254 04 0 00 033560 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6451	033560	324 00 0 00 033561 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6452									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6453									;IN THE SUBTEST) TO LOOP ON ERROR^
  6454
  6455					;**********
  6456
  6457
  6458					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6459					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6460					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6461					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6462					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6463
  6464			046007		SN=SN+1
  6465			777677			XX=<XX+XX+1>&777777
  6466						IFE	<XX-1>,<XX=777776>
  6467	033561	561 00 0 00 777677 		HRROI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6468	033562	270 00 0 00 034071 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ITSELF
  6469	033563	312 00 0 00 034136 		CAME	[-1,,<XX+XX>&777777]	;CHECK ADDER UPON FAILURE
  6470						STOP		^
  6471	033564	254 04 0 00 033565 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 90-3
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT                                           SEQ 0159

  6472	033565	324 00 0 00 033566 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6473									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6474									;IN THE SUBTEST) TO LOOP ON ERROR^
  6475
  6476					;**********
  6477
  6478
  6479					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6480					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6481					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6482					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6483					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6484
  6485			046010		SN=SN+1
  6486			777577			XX=<XX+XX+1>&777777
  6487						IFE	<XX-1>,<XX=777776>
  6488	033566	561 00 0 00 777577 		HRROI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6489	033567	270 00 0 00 034072 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ITSELF
  6490	033570	312 00 0 00 034137 		CAME	[-1,,<XX+XX>&777777]	;CHECK ADDER UPON FAILURE
  6491						STOP		^
  6492	033571	254 04 0 00 033572 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6493	033572	324 00 0 00 033573 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6494									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6495									;IN THE SUBTEST) TO LOOP ON ERROR^
  6496
  6497					;**********
  6498
  6499
  6500					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6501					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6502					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6503					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6504					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6505
  6506			046011		SN=SN+1
  6507			777377			XX=<XX+XX+1>&777777
  6508						IFE	<XX-1>,<XX=777776>
  6509	033573	561 00 0 00 777377 		HRROI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6510	033574	270 00 0 00 034073 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ITSELF
  6511	033575	312 00 0 00 034140 		CAME	[-1,,<XX+XX>&777777]	;CHECK ADDER UPON FAILURE
  6512						STOP		^
  6513	033576	254 04 0 00 033577 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6514	033577	324 00 0 00 033600 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6515									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6516									;IN THE SUBTEST) TO LOOP ON ERROR^
  6517
  6518					;**********
  6519
  6520
  6521					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6522					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6523					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6524					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6525					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6526
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 90-4
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT                                           SEQ 0160

  6527			046012		SN=SN+1
  6528			776777			XX=<XX+XX+1>&777777
  6529						IFE	<XX-1>,<XX=777776>
  6530	033600	561 00 0 00 776777 		HRROI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6531	033601	270 00 0 00 034074 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ITSELF
  6532	033602	312 00 0 00 034141 		CAME	[-1,,<XX+XX>&777777]	;CHECK ADDER UPON FAILURE
  6533						STOP		^
  6534	033603	254 04 0 00 033604 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6535	033604	324 00 0 00 033605 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6536									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6537									;IN THE SUBTEST) TO LOOP ON ERROR^
  6538
  6539					;**********
  6540
  6541
  6542					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6543					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6544					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6545					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6546					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6547
  6548			046013		SN=SN+1
  6549			775777			XX=<XX+XX+1>&777777
  6550						IFE	<XX-1>,<XX=777776>
  6551	033605	561 00 0 00 775777 		HRROI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6552	033606	270 00 0 00 034075 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ITSELF
  6553	033607	312 00 0 00 034142 		CAME	[-1,,<XX+XX>&777777]	;CHECK ADDER UPON FAILURE
  6554						STOP		^
  6555	033610	254 04 0 00 033611 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6556	033611	324 00 0 00 033612 		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					;**********
  6561
  6562
  6563					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6564					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6565					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6566					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6567					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6568
  6569			046014		SN=SN+1
  6570			773777			XX=<XX+XX+1>&777777
  6571						IFE	<XX-1>,<XX=777776>
  6572	033612	561 00 0 00 773777 		HRROI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6573	033613	270 00 0 00 034076 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ITSELF
  6574	033614	312 00 0 00 034143 		CAME	[-1,,<XX+XX>&777777]	;CHECK ADDER UPON FAILURE
  6575						STOP		^
  6576	033615	254 04 0 00 033616 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6577	033616	324 00 0 00 033617 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6578									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6579									;IN THE SUBTEST) TO LOOP ON ERROR^
  6580
  6581					;**********
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 90-5
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT                                           SEQ 0161

  6582
  6583
  6584					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6585					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6586					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6587					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6588					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6589
  6590			046015		SN=SN+1
  6591			767777			XX=<XX+XX+1>&777777
  6592						IFE	<XX-1>,<XX=777776>
  6593	033617	561 00 0 00 767777 		HRROI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6594	033620	270 00 0 00 034077 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ITSELF
  6595	033621	312 00 0 00 034144 		CAME	[-1,,<XX+XX>&777777]	;CHECK ADDER UPON FAILURE
  6596						STOP		^
  6597	033622	254 04 0 00 033623 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6598	033623	324 00 0 00 033624 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6599									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6600									;IN THE SUBTEST) TO LOOP ON ERROR^
  6601
  6602					;**********
  6603
  6604
  6605					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6606					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6607					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6608					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6609					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6610
  6611			046016		SN=SN+1
  6612			757777			XX=<XX+XX+1>&777777
  6613						IFE	<XX-1>,<XX=777776>
  6614	033624	561 00 0 00 757777 		HRROI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6615	033625	270 00 0 00 034100 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ITSELF
  6616	033626	312 00 0 00 034145 		CAME	[-1,,<XX+XX>&777777]	;CHECK ADDER UPON FAILURE
  6617						STOP		^
  6618	033627	254 04 0 00 033630 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6619	033630	324 00 0 00 033631 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6620									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6621									;IN THE SUBTEST) TO LOOP ON ERROR^
  6622
  6623					;**********
  6624
  6625
  6626					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6627					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6628					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6629					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6630					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6631
  6632			046017		SN=SN+1
  6633			737777			XX=<XX+XX+1>&777777
  6634						IFE	<XX-1>,<XX=777776>
  6635	033631	561 00 0 00 737777 		HRROI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6636	033632	270 00 0 00 034101 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ITSELF
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 90-6
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT                                           SEQ 0162

  6637	033633	312 00 0 00 034146 		CAME	[-1,,<XX+XX>&777777]	;CHECK ADDER UPON FAILURE
  6638						STOP		^
  6639	033634	254 04 0 00 033635 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6640	033635	324 00 0 00 033636 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6641									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6642									;IN THE SUBTEST) TO LOOP ON ERROR^
  6643
  6644					;**********
  6645
  6646
  6647					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6648					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6649					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6650					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6651					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6652
  6653			046020		SN=SN+1
  6654			677777			XX=<XX+XX+1>&777777
  6655						IFE	<XX-1>,<XX=777776>
  6656	033636	561 00 0 00 677777 		HRROI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6657	033637	270 00 0 00 034102 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ITSELF
  6658	033640	312 00 0 00 034147 		CAME	[-1,,<XX+XX>&777777]	;CHECK ADDER UPON FAILURE
  6659						STOP		^
  6660	033641	254 04 0 00 033642 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6661	033642	324 00 0 00 033643 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6662									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6663									;IN THE SUBTEST) TO LOOP ON ERROR^
  6664
  6665					;**********
  6666
  6667
  6668					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6669					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6670					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6671					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6672					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6673
  6674			046021		SN=SN+1
  6675			577777			XX=<XX+XX+1>&777777
  6676						IFE	<XX-1>,<XX=777776>
  6677	033643	561 00 0 00 577777 		HRROI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6678	033644	270 00 0 00 034103 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ITSELF
  6679	033645	312 00 0 00 034150 		CAME	[-1,,<XX+XX>&777777]	;CHECK ADDER UPON FAILURE
  6680						STOP		^
  6681	033646	254 04 0 00 033647 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6682	033647	324 00 0 00 033650 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6683									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6684									;IN THE SUBTEST) TO LOOP ON ERROR^
  6685
  6686					;**********
  6687
  6688					PAGE
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 90-7
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT                                           SEQ 0163

  6689					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6690					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6691					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6692					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6693					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6694
  6695			046022		SN=SN+1
  6696			377777			XX=<XX+XX+1>&777777
  6697	033650	561 00 0 00 377777 		HRROI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6698	033651	270 00 0 00 034104 		ADD	[-1,,XX]	;ADD A FLOATING ZERO TO ITSELF
  6699	033652	312 00 0 00 034151 		CAME	[-2,,-2]	;CHECK ADDER UPON FAILURE
  6700						STOP		^
  6701	033653	254 04 0 00 033654 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6702	033654	324 00 0 00 033655 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6703									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6704									;IN THE SUBTEST) TO LOOP ON ERROR^
  6705
  6706					;**********
  6707
  6708			000000			XX=0
  6709
  6710						REPEAT	^D18,<
  6711					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6712					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6713					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6714					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6715					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6716					
  6717					SN=SN+1
  6718						XX=<XX+XX+1>&777777
  6719						IFE	<XX-1>,<XX=777776>
  6720						HRLOI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6721						ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ITSELF
  6722						CAME	[XX+XX+1,,-2]	;CHECK ADDER UPON FAILURE
  6723						STOP		
  6724					
  6725					;**********
  6726					>
  6727
  6728					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6729					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6730					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6731					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6732					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6733
  6734			046023		SN=SN+1
  6735			000001			XX=<XX+XX+1>&777777
  6736			777776			IFE	<XX-1>,<XX=777776>
  6737	033655	525 00 0 00 777776 		HRLOI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6738	033656	270 00 0 00 034105 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ITSELF
  6739Q	033657	312 00 0 00 034152 		CAME	[XX+XX+1,,-2]	;CHECK ADDER UPON FAILURE
  6740						STOP		^
  6741	033660	254 04 0 00 033661 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6742	033661	324 00 0 00 033662 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 90-8
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT                                           SEQ 0164

  6743									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6744									;IN THE SUBTEST) TO LOOP ON ERROR^
  6745
  6746					;**********
  6747
  6748
  6749					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6750					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6751					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6752					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6753					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6754
  6755			046024		SN=SN+1
  6756			777775			XX=<XX+XX+1>&777777
  6757						IFE	<XX-1>,<XX=777776>
  6758	033662	525 00 0 00 777775 		HRLOI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6759	033663	270 00 0 00 034106 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ITSELF
  6760Q	033664	312 00 0 00 034153 		CAME	[XX+XX+1,,-2]	;CHECK ADDER UPON FAILURE
  6761						STOP		^
  6762	033665	254 04 0 00 033666 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6763	033666	324 00 0 00 033667 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6764									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6765									;IN THE SUBTEST) TO LOOP ON ERROR^
  6766
  6767					;**********
  6768
  6769
  6770					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6771					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6772					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6773					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6774					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6775
  6776			046025		SN=SN+1
  6777			777773			XX=<XX+XX+1>&777777
  6778						IFE	<XX-1>,<XX=777776>
  6779	033667	525 00 0 00 777773 		HRLOI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6780	033670	270 00 0 00 034107 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ITSELF
  6781Q	033671	312 00 0 00 034154 		CAME	[XX+XX+1,,-2]	;CHECK ADDER UPON FAILURE
  6782						STOP		^
  6783	033672	254 04 0 00 033673 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6784	033673	324 00 0 00 033674 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6785									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6786									;IN THE SUBTEST) TO LOOP ON ERROR^
  6787
  6788					;**********
  6789
  6790
  6791					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6792					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6793					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6794					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6795					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 90-9
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT                                           SEQ 0165

  6796
  6797			046026		SN=SN+1
  6798			777767			XX=<XX+XX+1>&777777
  6799						IFE	<XX-1>,<XX=777776>
  6800	033674	525 00 0 00 777767 		HRLOI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6801	033675	270 00 0 00 034110 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ITSELF
  6802Q	033676	312 00 0 00 034155 		CAME	[XX+XX+1,,-2]	;CHECK ADDER UPON FAILURE
  6803						STOP		^
  6804	033677	254 04 0 00 033700 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6805	033700	324 00 0 00 033701 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6806									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6807									;IN THE SUBTEST) TO LOOP ON ERROR^
  6808
  6809					;**********
  6810
  6811
  6812					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6813					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6814					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6815					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6816					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6817
  6818			046027		SN=SN+1
  6819			777757			XX=<XX+XX+1>&777777
  6820						IFE	<XX-1>,<XX=777776>
  6821	033701	525 00 0 00 777757 		HRLOI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6822	033702	270 00 0 00 034111 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ITSELF
  6823Q	033703	312 00 0 00 034156 		CAME	[XX+XX+1,,-2]	;CHECK ADDER UPON FAILURE
  6824						STOP		^
  6825	033704	254 04 0 00 033705 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6826	033705	324 00 0 00 033706 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6827									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6828									;IN THE SUBTEST) TO LOOP ON ERROR^
  6829
  6830					;**********
  6831
  6832
  6833					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6834					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6835					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6836					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6837					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6838
  6839			046030		SN=SN+1
  6840			777737			XX=<XX+XX+1>&777777
  6841						IFE	<XX-1>,<XX=777776>
  6842	033706	525 00 0 00 777737 		HRLOI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6843	033707	270 00 0 00 034112 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ITSELF
  6844Q	033710	312 00 0 00 034157 		CAME	[XX+XX+1,,-2]	;CHECK ADDER UPON FAILURE
  6845						STOP		^
  6846	033711	254 04 0 00 033712 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6847	033712	324 00 0 00 033713 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 90-10
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT                                           SEQ 0166

  6848									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6849									;IN THE SUBTEST) TO LOOP ON ERROR^
  6850
  6851					;**********
  6852
  6853
  6854					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6855					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6856					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6857					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6858					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6859
  6860			046031		SN=SN+1
  6861			777677			XX=<XX+XX+1>&777777
  6862						IFE	<XX-1>,<XX=777776>
  6863	033713	525 00 0 00 777677 		HRLOI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6864	033714	270 00 0 00 034113 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ITSELF
  6865Q	033715	312 00 0 00 034160 		CAME	[XX+XX+1,,-2]	;CHECK ADDER UPON FAILURE
  6866						STOP		^
  6867	033716	254 04 0 00 033717 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6868	033717	324 00 0 00 033720 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6869									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6870									;IN THE SUBTEST) TO LOOP ON ERROR^
  6871
  6872					;**********
  6873
  6874
  6875					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6876					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6877					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6878					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6879					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6880
  6881			046032		SN=SN+1
  6882			777577			XX=<XX+XX+1>&777777
  6883						IFE	<XX-1>,<XX=777776>
  6884	033720	525 00 0 00 777577 		HRLOI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6885	033721	270 00 0 00 034114 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ITSELF
  6886Q	033722	312 00 0 00 034161 		CAME	[XX+XX+1,,-2]	;CHECK ADDER UPON FAILURE
  6887						STOP		^
  6888	033723	254 04 0 00 033724 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6889	033724	324 00 0 00 033725 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6890									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6891									;IN THE SUBTEST) TO LOOP ON ERROR^
  6892
  6893					;**********
  6894
  6895
  6896					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6897					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6898					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6899					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6900					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 90-11
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT                                           SEQ 0167

  6901
  6902			046033		SN=SN+1
  6903			777377			XX=<XX+XX+1>&777777
  6904						IFE	<XX-1>,<XX=777776>
  6905	033725	525 00 0 00 777377 		HRLOI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6906	033726	270 00 0 00 034115 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ITSELF
  6907Q	033727	312 00 0 00 034162 		CAME	[XX+XX+1,,-2]	;CHECK ADDER UPON FAILURE
  6908						STOP		^
  6909	033730	254 04 0 00 033731 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6910	033731	324 00 0 00 033732 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6911									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6912									;IN THE SUBTEST) TO LOOP ON ERROR^
  6913
  6914					;**********
  6915
  6916
  6917					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6918					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6919					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6920					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6921					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6922
  6923			046034		SN=SN+1
  6924			776777			XX=<XX+XX+1>&777777
  6925						IFE	<XX-1>,<XX=777776>
  6926	033732	525 00 0 00 776777 		HRLOI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6927	033733	270 00 0 00 034116 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ITSELF
  6928Q	033734	312 00 0 00 034163 		CAME	[XX+XX+1,,-2]	;CHECK ADDER UPON FAILURE
  6929						STOP		^
  6930	033735	254 04 0 00 033736 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6931	033736	324 00 0 00 033737 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6932									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6933									;IN THE SUBTEST) TO LOOP ON ERROR^
  6934
  6935					;**********
  6936
  6937
  6938					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6939					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6940					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6941					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6942					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6943
  6944			046035		SN=SN+1
  6945			775777			XX=<XX+XX+1>&777777
  6946						IFE	<XX-1>,<XX=777776>
  6947	033737	525 00 0 00 775777 		HRLOI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6948	033740	270 00 0 00 034117 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ITSELF
  6949Q	033741	312 00 0 00 034164 		CAME	[XX+XX+1,,-2]	;CHECK ADDER UPON FAILURE
  6950						STOP		^
  6951	033742	254 04 0 00 033743 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6952	033743	324 00 0 00 033744 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 90-12
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT                                           SEQ 0168

  6953									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6954									;IN THE SUBTEST) TO LOOP ON ERROR^
  6955
  6956					;**********
  6957
  6958
  6959					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6960					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6961					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6962					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6963					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6964
  6965			046036		SN=SN+1
  6966			773777			XX=<XX+XX+1>&777777
  6967						IFE	<XX-1>,<XX=777776>
  6968	033744	525 00 0 00 773777 		HRLOI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6969	033745	270 00 0 00 034120 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ITSELF
  6970Q	033746	312 00 0 00 034165 		CAME	[XX+XX+1,,-2]	;CHECK ADDER UPON FAILURE
  6971						STOP		^
  6972	033747	254 04 0 00 033750 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6973	033750	324 00 0 00 033751 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6974									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6975									;IN THE SUBTEST) TO LOOP ON ERROR^
  6976
  6977					;**********
  6978
  6979
  6980					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  6981					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  6982					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  6983					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  6984					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  6985
  6986			046037		SN=SN+1
  6987			767777			XX=<XX+XX+1>&777777
  6988						IFE	<XX-1>,<XX=777776>
  6989	033751	525 00 0 00 767777 		HRLOI	XX		;PRELOAD AC WITH A FLOATING ZERO
  6990	033752	270 00 0 00 034121 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ITSELF
  6991Q	033753	312 00 0 00 034166 		CAME	[XX+XX+1,,-2]	;CHECK ADDER UPON FAILURE
  6992						STOP		^
  6993	033754	254 04 0 00 033755 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6994	033755	324 00 0 00 033756 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6995									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6996									;IN THE SUBTEST) TO LOOP ON ERROR^
  6997
  6998					;**********
  6999
  7000
  7001					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  7002					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  7003					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  7004					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  7005					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 90-13
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT                                           SEQ 0169

  7006
  7007			046040		SN=SN+1
  7008			757777			XX=<XX+XX+1>&777777
  7009						IFE	<XX-1>,<XX=777776>
  7010	033756	525 00 0 00 757777 		HRLOI	XX		;PRELOAD AC WITH A FLOATING ZERO
  7011	033757	270 00 0 00 034122 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ITSELF
  7012Q	033760	312 00 0 00 034167 		CAME	[XX+XX+1,,-2]	;CHECK ADDER UPON FAILURE
  7013						STOP		^
  7014	033761	254 04 0 00 033762 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7015	033762	324 00 0 00 033763 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7016									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7017									;IN THE SUBTEST) TO LOOP ON ERROR^
  7018
  7019					;**********
  7020
  7021
  7022					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  7023					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  7024					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  7025					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  7026					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  7027
  7028			046041		SN=SN+1
  7029			737777			XX=<XX+XX+1>&777777
  7030						IFE	<XX-1>,<XX=777776>
  7031	033763	525 00 0 00 737777 		HRLOI	XX		;PRELOAD AC WITH A FLOATING ZERO
  7032	033764	270 00 0 00 034123 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ITSELF
  7033Q	033765	312 00 0 00 034170 		CAME	[XX+XX+1,,-2]	;CHECK ADDER UPON FAILURE
  7034						STOP		^
  7035	033766	254 04 0 00 033767 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7036	033767	324 00 0 00 033770 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7037									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7038									;IN THE SUBTEST) TO LOOP ON ERROR^
  7039
  7040					;**********
  7041
  7042
  7043					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  7044					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  7045					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  7046					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  7047					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  7048
  7049			046042		SN=SN+1
  7050			677777			XX=<XX+XX+1>&777777
  7051						IFE	<XX-1>,<XX=777776>
  7052	033770	525 00 0 00 677777 		HRLOI	XX		;PRELOAD AC WITH A FLOATING ZERO
  7053	033771	270 00 0 00 034124 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ITSELF
  7054Q	033772	312 00 0 00 034171 		CAME	[XX+XX+1,,-2]	;CHECK ADDER UPON FAILURE
  7055						STOP		^
  7056	033773	254 04 0 00 033774 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7057	033774	324 00 0 00 033775 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 90-14
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT                                           SEQ 0170

  7058									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7059									;IN THE SUBTEST) TO LOOP ON ERROR^
  7060
  7061					;**********
  7062
  7063
  7064					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  7065					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  7066					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  7067					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  7068					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  7069
  7070			046043		SN=SN+1
  7071			577777			XX=<XX+XX+1>&777777
  7072						IFE	<XX-1>,<XX=777776>
  7073	033775	525 00 0 00 577777 		HRLOI	XX		;PRELOAD AC WITH A FLOATING ZERO
  7074	033776	270 00 0 00 034125 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ITSELF
  7075Q	033777	312 00 0 00 034172 		CAME	[XX+XX+1,,-2]	;CHECK ADDER UPON FAILURE
  7076						STOP		^
  7077	034000	254 04 0 00 034001 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7078	034001	324 00 0 00 034002 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7079									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7080									;IN THE SUBTEST) TO LOOP ON ERROR^
  7081
  7082					;**********
  7083
  7084
  7085					;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO
  7086					;ADDED TO A FLOATING ZERO IS A FLOATING ZERO
  7087					;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO.
  7088					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER.
  7089					;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY.
  7090
  7091			046044		SN=SN+1
  7092			377777			XX=<XX+XX+1>&777777
  7093						IFE	<XX-1>,<XX=777776>
  7094	034002	525 00 0 00 377777 		HRLOI	XX		;PRELOAD AC WITH A FLOATING ZERO
  7095	034003	270 00 0 00 034126 		ADD	[XX,,-1]	;ADD A FLOATING ZERO TO ITSELF
  7096	034004	312 00 0 00 034063 		CAME	[XX+XX+1,,-2]	;CHECK ADDER UPON FAILURE
  7097						STOP		^
  7098	034005	254 04 0 00 034006 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7099	034006	324 00 0 00 034007 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7100									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7101									;IN THE SUBTEST) TO LOOP ON ERROR^
  7102
  7103					;**********
  7104
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 91
DAKACM	MAC	19-JAN-77 13:40		SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT                                           SEQ 0171

  7105	034007	254 00 0 00 030057 		JRST	BEGEND
  7106					SUBTTL	*STOR* RESERVED STORAGE, JAN 18,1977
  7107
  7108					;PROGRAM LITERALS
  7109
  7110						XLIST
  7111					IFNDEF	$LPAPER,<LIST>
  7112	034010					LIT
  7113	034010	000001	000001
  7114	034011	254 00 0 00 030741 
  7115	034012	777777	777777
  7116	034013	777777	000000
  7117	034014	000000	000000
  7118	034015	000000	777777
  7119	034016	707070	707070
  7120	034017	000000	000001
  7121	034020	000000	000002
  7122	034021	000000	000004
  7123	034022	000000	000010
  7124	034023	000000	000020
  7125	034024	000000	000040
  7126	034025	000000	000100
  7127	034026	000000	000200
  7128	034027	000000	000400
  7129	034030	000000	001000
  7130	034031	000000	002000
  7131	034032	000000	004000
  7132	034033	000000	010000
  7133	034034	000000	020000
  7134	034035	000000	040000
  7135	034036	000000	100000
  7136	034037	000000	200000
  7137	034040	000000	400000
  7138	034041	000001	000000
  7139	034042	000002	000000
  7140	034043	000004	000000
  7141	034044	000010	000000
  7142	034045	000020	000000
  7143	034046	000040	000000
  7144	034047	000100	000000
  7145	034050	000200	000000
  7146	034051	000400	000000
  7147	034052	001000	000000
  7148	034053	002000	000000
  7149	034054	004000	000000
  7150	034055	010000	000000
  7151	034056	020000	000000
  7152	034057	040000	000000
  7153	034060	100000	000000
  7154	034061	200000	000000
  7155	034062	400000	000000
  7156	034063	777777	777776
  7157	034064	777777	777775
  7158	034065	777777	777773
  7159	034066	777777	777767
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 1
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0172

  7160	034067	777777	777757
  7161	034070	777777	777737
  7162	034071	777777	777677
  7163	034072	777777	777577
  7164	034073	777777	777377
  7165	034074	777777	776777
  7166	034075	777777	775777
  7167	034076	777777	773777
  7168	034077	777777	767777
  7169	034100	777777	757777
  7170	034101	777777	737777
  7171	034102	777777	677777
  7172	034103	777777	577777
  7173	034104	777777	377777
  7174	034105	777776	777777
  7175	034106	777775	777777
  7176	034107	777773	777777
  7177	034110	777767	777777
  7178	034111	777757	777777
  7179	034112	777737	777777
  7180	034113	777677	777777
  7181	034114	777577	777777
  7182	034115	777377	777777
  7183	034116	776777	777777
  7184	034117	775777	777777
  7185	034120	773777	777777
  7186	034121	767777	777777
  7187	034122	757777	777777
  7188	034123	737777	777777
  7189	034124	677777	777777
  7190	034125	577777	777777
  7191	034126	377777	777777
  7192	034127	000000	000000
  7193	034130	777777	777774
  7194	034131	777777	777772
  7195	034132	777777	777766
  7196	034133	777777	777756
  7197	034134	777777	777736
  7198	034135	777777	777676
  7199	034136	777777	777576
  7200	034137	777777	777376
  7201	034140	777777	776776
  7202	034141	777777	775776
  7203	034142	777777	773776
  7204	034143	777777	767776
  7205	034144	777777	757776
  7206	034145	777777	737776
  7207	034146	777777	677776
  7208	034147	777777	577776
  7209	034150	777777	377776
  7210	034151	777776	777776
  7211	034152	777775	777776
  7212	034153	777773	777776
  7213	034154	777767	777776
  7214	034155	777757	777776
DAKAC PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (3) 0,2	MACRO %52(537) 14:24 19-JAN-77 PAGE 1-1
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0173

  7215	034156	777737	777776
  7216	034157	777677	777776
  7217	034160	777577	777776
  7218	034161	777377	777776
  7219	034162	776777	777776
  7220	034163	775777	777776
  7221	034164	773777	777776
  7222	034165	767777	777776
  7223	034166	757777	777776
  7224	034167	737777	777776
  7225	034170	677777	777776
  7226	034171	577777	777776
  7227	034172	377777	777776
  7228						LIST
  7229	034173	000000	000000		ENDSLD:	0
  7230
  7231					IFDEF	DEBUG,<
  7232	034174				PATCH:	BLOCK DEBUG		;PATCHING AREA
  7233					>
  7234
  7235					;PROGRAM VARIABLES
  7236	034274					VAR
  7237
  7238					IFDEF	PGMEND,<
  7239	034274	000000	000000		END:	0
  7240			030000			END	BEGIN	>

%18 WARNINGS GIVEN
NO ERRORS DETECTED

PROGRAM BREAK IS 000000
ABSLUTE BREAK IS 034275
CPU TIME USED 00:28.959

11K CORE USED

ABORT	    86#
AC0	   681#                                                                                                            SEQ 0174
ALTMGO	   440#
ANXM	   354#
APR	   778	   779	   780
AROV	   354#
AROVU	   354#
AST	   555#
ATSIN	   556#
B12600	   886#
B12700	   909#
B13000	   926#
B13100	   944#
B13200	   960#
B13300	   986#
B13400	  1007#
B13600	  1025#
B14000	  1041#
B14100	  1064#
B14200	  1086#
B14400	  1110#
B14500	  1126#
B14600	  1144#
B14700	  1159#
B15000	  1183#
B15400	  1204#
B15500	  1221#
B15600	  1242#
B15700	  1258#
B16000	  1280#
B16100	  1295#
B16200	  1312#
B16300	  1338#
B16400	  1360#
B16500	  1382#
B16600	  1397#
B16700	  1421#
B17000	  1437#
B17300	  1455#
B17400	  1468#
B17700	  1482#
B20000	  1494#
B20400	  1509#
B20600	  1524#
B20700	  1539#
B21000	  1559#
B21100	  1580#
B21400	  1597#
B21500	  1631#
B21600	  1648#
B21700	  1666#
B22200	  1683#
B22300	  1701#
B22400	  1724#
B22500	  1742#                                                                                                            SEQ 0175
B22600	  1759#
B22700	  1778#
B23000	  1801#
B23200	  1822#
B23400	  1839#
B23600	  1855#
B23700	  1872#
B24000	  1887#
B24300	  1909#
B24400	  1931#
B24500	  1948#
B24600	  1964#
B24700	  1980#
B25000	  2001#
B25100	  2018#
B25200	  2034#
B25300	  2051#
B25400	  2067#
B25500	  2084#
B25600	  2100#
B25700	  2117#
B26000	  2132#
B26100	  2149#
B26200	  2164#
B26300	  2180#
B26500	  2201#
B26600	  2222#
B26700	  2237#
B27000	  2258#
B27100	  2278#
B27200	  2294#
B27300	  2309#
B27400	  2330#
B27500	  2345#
B27600	  2361#
B27700	  2376#
B30000	  2392#
B30100	  2407#
B30400	  2428#
B30500	  2443#
B30600	  2464#
B30700	  2485#
B31000	  2501#
B31100	  2516#
B31200	  2532#
B31300	  2547#
B31400	  2563#
B31500	  2578#
B31600	  2594#
B31700	  2609#
B32000	  2625#
B32100	  2640#
B32200	  2664#                                                                                                            SEQ 0176
B32300	  2679#
B32600	  2700#
B32700	  2715#
B33000	  2738#
B33100	  2759#
B33200	  2775#
B33300	  2791#
B33400	  2812#
B33500	  2833#
B33600	  2849#
B33700	  2865#
B34000	  2886#
B34100	  2902#
B34200	  2918#
B34300	  2933#
B34400	  2949#
B34500	  2964#
B34600	  2980#
B34700	  2995#
B35000	  3011#
B35500	  3034#
B35600	  3059#
B35700	  3076#
B36000	  3106#
B36100	  3122#
B36200	  3143#
B36300	  3163#
B36400	  3184#
B36500	  3204#
B36600	  3225#
B37100	  3245#
B37200	  3267#
B37300	  3288#
B37400	  3304#
B37500	  3319#
B37600	  3335#
B37700	  3350#
B40000	  3366#
B40100	  3381#
B40200	  3397#
B40300	  3413#
B40400	  3430#
B40700	  3446#
B41000	  3468#
B41100	  3490#
B41200	  3507#
B41500	  3523#
B41600	  3545#
B42000	  3568#
B42200	  3585#
B42300	  3601#
B42500	  3626#
B42700	  3641#                                                                                                            SEQ 0177
B43000	  3664#
B43100	  3686#
B43400	  3703#
B43500	  3718#
B43600	  3741#
B43700	  3761#
B44000	  3784#
B44100	  3800#
B44200	  3818#
B44300	  3835#
B44500	  3858#
B44600	  3878#
B44700	  3895#
B45000	  3910#
B45100	  3926#
B45200	  3941#
B45400	  3967#
B45500	  3995#
B45600	  4755#
B45700	  5517#
B46000	  6314#
BEGEND	   436#	  7105
BEGIN	   300	   301	   367#	   724	   846	  7240
BEGIN1	   383#	   437
BELL	   559#
BIS	   354#
CCA	   354#
CHAIN	   106#
CHNOFF	   354#
CHNON	   354#
CLK	   354#
CLKCLR	   354#
CLKDIS	   354#
CLKENB	   354#
CLKU	   354#
CLOCKF	   422#
CNTLC	   439#
COMMA	   548#
CONSW	   423#
CPOPJ	   443#
CPOPJ1	   441#
CRLF	   235	   236	   543#
CRLF2	   239	   240	   545#
CRY0	   354#
CRY1	   354#
CSHFLG	   602#
CSHMEM	   603#
CYCL60	   596#
DCK	   354#
DDT	   683#
DDTLNK	   120#	   381
DDTSRT	   381#
DEBUG	    35#	  7231	  7232                                                                                             SEQ 0178
DECVER	     5#	    11	    27	   402
DF22F	   507#
DIAGMN	   370#
DIAGNO	   682#
DIAMON	   684#
DING	    92#
DOLLAR	   562#
DONG11	   685#	   825	   841
DSKUPD	   407
DTE	   689#	   825	   827	   841	   843
DTE0	   690#
DTE1	   691#
DTE2	   692#
DTE3	   693#
END	  7239#
ENDFIX	   676#
ENDSLD	  7229#
ERMORE	   456#
ERRPC	   427#
ERRTLS	   428#
ERSTOP	    95#
EXCASB	    32#	   405
EXIOT	   354#
FOV	   354#
FOVU	   354#
FRDLNK	   118#
FSELNK	   117#
FXU	   354#
HYPEN	   553#
INHCSH	   103#
INHPAG	   100#
INXM	   354#
IOCLR	   354#
ITERAT	    73#	   400
ITRCH1	   460#
ITRCNT	   400#	   770	   799	   803	   811	   812	   816
JOB41	   354#
JOBAPR	   354#
JOBCNI	   354#
JOBDDT	   354#
JOBFF	   354#
JOBOPC	   354#
JOBREL	   354#
JOBREN	   354#
JOBSA	   354#
JOBSYM	   354#
JOBTPC	   354#
JOBUSY	   354#
JOBUUO	   354#
JOBVER	   354#
KA10	   354
KAHZ50	   108#
KAIFLG	   417#                                                                                                            SEQ 0179
KI10	   354
KL10	   354
KLFLG	   418#	   772	   790	   809
KLOLD	   315
KLTYP	   634#	   771	   782	   824	   826	   840	   842
LDLNK	   119#	   370	   372
LFP	   557#
LOOPER	    94#
LUUO	   354#
LUUO1	   487	   488
LUUO10	   487	   492
LUUO11	   487	   492
LUUO12	   487	   493
LUUO13	   487	   493
LUUO14	   487	   494
LUUO15	   487	   494
LUUO16	   487	   495
LUUO17	   487	   495
LUUO2	   487	   489
LUUO20	   487	   496
LUUO21	   487	   496
LUUO22	   487	   497
LUUO23	   487	   497
LUUO24	   487	   498
LUUO25	   487	   498
LUUO26	   487	   499
LUUO27	   487	   499
LUUO3	   487	   489
LUUO30	   487	   500
LUUO31	   487	   500
LUUO32	   487	   501
LUUO33	   487	   501
LUUO4	   487	   490
LUUO5	   487	   490
LUUO6	   487	   491
LUUO7	   487	   491
LUUOI	   354#
MAPNEW	   508#
MARGIN	   430#
MCNVER	     6#	    11	    27	   402
MEMLOW	   510#
MEMMAP	   408
MEMSIZ	   511#
MEMTOT	   509#
MINUS	   552#
MODDVC	   102#
MODDVL	   300	   300#	   403
MODDVU	   301	   301#	   404
MODLNK	   121#	   367
MONCTL	   420#	   819	   859
MONFLG	   419#	   764	   855
MONTEN	   421#	   769	   805	   834
MPVU	   354#                                                                                                            SEQ 0180
NOPNT	    90#
NXMU	   354#
OPRSEL	   104#
OPTIME	   522#
P	   147	   148	   149	   150	   354#	   442
PAG	   354#
PALERS	    96#
PARCLR	   354#
PARDIS	   354#
PAREA0	    66#
PAREA1	    67#	   398
PAREA2	    68#	   399
PAREA3	    69#	   396
PAREA4	    70#	   397
PAREA5	    71#	   409
PAREA6	    72#	   410
PAREA7	   409#
PAREA8	   410#
PARENB	   354#
PARU	   354#
PASCNT	   424#	   798
PATCH	  7232#
PDISF	   519#
PDLOVU	   354#
PERIOD	   549#
PFSTRT	   376#
PGMEND	    34#	    74#	  7238
PGMNAM	   401	   860	   863#
PI	   811
PICHN1	   354#
PICHN2	   354#
PICHN3	   354#
PICHN4	   354#
PICHN5	   354#
PICHN6	   354#
PICHN7	   354#
PICHNA	   354#
PICLR	   354#
PIOFF	   354#
PION	   354#
PLIST	   588#	   588
PLISTE	   588	   590#	   674
PLISTS	   589#
PLUS	   554#
PNTENB	   518#
PNTEXT	   397#
PNTFLG	   517#
PNTINH	   520#
PNTLPT	    91#
PNTNAM	   396#
PNTSPC	   521#
PVPAGI	   615#
PWFCLR	   354#                                                                                                            SEQ 0181
QUEST	   560#
RADIX	   563#
RADLSC	   565#
RADLSP	   564#
RANDBS	   398#
REENTR	   378#
RELIAB	    98#
REPT	   354#
REPT1	   354#
REPTU	   476#
REQSET	   354#
RESRT1	   453#
RESRT2	   454#
RETURN	   385#	   807	   814	   835
RSTART	    87#
RTP	   558#
RUNFLG	   425#
SADR1	    54#	   374
SADR10	    63#	   390
SADR11	    64#	   391
SADR2	    55#	   376
SADR3	    56#	   378
SADR4	    57#
SADR5	    58#	   439
SADR6	    59#	   440
SADR7	    60#	   387
SADR8	    61#	   388
SADR9	    62#	   389
SBINIT	   160	   384#
SCOPE	   477#
SFSTRT	   374#
SLASH	   561#
SN	  3992#	  4017	  4017#	  4037	  4037#	  4057	  4057#	  4077	  4077#	  4097	  4097#	  4117	  4117#	  4137
	  4137#	  4157	  4157#	  4177	  4177#	  4197	  4197#	  4217	  4217#	  4237	  4237#	  4257	  4257#	  4277
	  4277#	  4297	  4297#	  4317	  4317#	  4337	  4337#	  4357	  4357#	  4396	  4396#	  4416	  4416#	  4436
	  4436#	  4456	  4456#	  4476	  4476#	  4496	  4496#	  4516	  4516#	  4536	  4536#	  4556	  4556#	  4576
	  4576#	  4596	  4596#	  4616	  4616#	  4636	  4636#	  4656	  4656#	  4676	  4676#	  4696	  4696#	  4716
	  4716#	  4736	  4736#	  4754#	  4777	  4777#	  4797	  4797#	  4817	  4817#	  4837	  4837#	  4857	  4857#
	  4877	  4877#	  4897	  4897#	  4917	  4917#	  4937	  4937#	  4957	  4957#	  4977	  4977#	  4997	  4997#
	  5017	  5017#	  5037	  5037#	  5057	  5057#	  5077	  5077#	  5097	  5097#	  5117	  5117#	  5156	  5156#
	  5176	  5176#	  5196	  5196#	  5216	  5216#	  5236	  5236#	  5256	  5256#	  5276	  5276#	  5296	  5296#
	  5316	  5316#	  5336	  5336#	  5356	  5356#	  5376	  5376#	  5396	  5396#	  5416	  5416#	  5436	  5436#
	  5456	  5456#	  5476	  5476#	  5496	  5496#	  5514#	  5541	  5541#	  5562	  5562#	  5583	  5583#	  5604
	  5604#	  5625	  5625#	  5646	  5646#	  5667	  5667#	  5688	  5688#	  5709	  5709#	  5730	  5730#	  5751
	  5751#	  5772	  5772#	  5793	  5793#	  5814	  5814#	  5835	  5835#	  5856	  5856#	  5877	  5877#	  5897
	  5897#	  5936	  5936#	  5957	  5957#	  5978	  5978#	  5999	  5999#	  6020	  6020#	  6041	  6041#	  6062
	  6062#	  6083	  6083#	  6104	  6104#	  6125	  6125#	  6146	  6146#	  6167	  6167#	  6188	  6188#	  6209
	  6209#	  6230	  6230#	  6251	  6251#	  6272	  6272#	  6293	  6293#	  6311#	  6338	  6338#	  6359	  6359#
	  6380	  6380#	  6401	  6401#	  6422	  6422#	  6443	  6443#	  6464	  6464#	  6485	  6485#	  6506	  6506#
	  6527	  6527#	  6548	  6548#	  6569	  6569#	  6590	  6590#	  6611	  6611#	  6632	  6632#	  6653	  6653#
	  6674	  6674#	  6695	  6695#	  6734	  6734#	  6755	  6755#	  6776	  6776#	  6797	  6797#	  6818	  6818#
	  6839	  6839#	  6860	  6860#	  6881	  6881#	  6902	  6902#	  6923	  6923#	  6944	  6944#	  6965	  6965#
	  6986	  6986#	  7007	  7007#	  7028	  7028#	  7049	  7049#	  7070	  7070#	  7091	  7091#                    SEQ 0182
SPACE	   550#
SRTDDT	   380#
START	   368	   767	   776	   791	   795	   851#
START1	   387#
START2	   388#
START3	   389#
START4	   390#
START5	   391#
STARTA	    54	    55	    56	    57	    58	    59	    60	    61	    62	    63	    64	   383	   793	   804
	   813	   820	   830	   858	   861	   876#
SUBLNK	   122#	   384
SWTEXR	   399#
SYSEXR	   372#
TAB	   551#
TESTPC	   426#
TICKS	   429#
TOTALS	    88#
TTNBRF	   609#
TTYFIL	   525#
TTYSPD	   526#
TXTINH	    99#
USER	   416#	   760	   763	   765	   766	   800	   851#	   851	   854	   856	   857
USERF	    38#	   354#	   762	   853
USRASB	    33#	   406
USRCRF	   535#
USRLFF	   534#
UUODIS	   488#
UUOEXT	   444#
UUORTN	   445#
UUOSKP	   442#
XX	  3993#	  4018	  4018#	  4019	  4019#	  4020	  4022	  4038	  4038#	  4039	  4040	  4042	  4058	  4058#
	  4059	  4060	  4062	  4078	  4078#	  4079	  4080	  4082	  4098	  4098#	  4099	  4100	  4102	  4118
	  4118#	  4119	  4120	  4122	  4138	  4138#	  4139	  4140	  4142	  4158	  4158#	  4159	  4160	  4162
	  4178	  4178#	  4179	  4180	  4182	  4198	  4198#	  4199	  4200	  4202	  4218	  4218#	  4219	  4220
	  4222	  4238	  4238#	  4239	  4240	  4242	  4258	  4258#	  4259	  4260	  4262	  4278	  4278#	  4279
	  4280	  4282	  4298	  4298#	  4299	  4300	  4302	  4318	  4318#	  4319	  4320	  4322	  4338	  4338#
	  4339	  4340	  4342	  4358	  4358#	  4359	  4360	  4362	  4372#	  4397	  4397#	  4398	  4398#	  4399
	  4401	  4417	  4417#	  4418	  4419	  4421	  4437	  4437#	  4438	  4439	  4441	  4457	  4457#	  4458
	  4459	  4461	  4477	  4477#	  4478	  4479	  4481	  4497	  4497#	  4498	  4499	  4501	  4517	  4517#
	  4518	  4519	  4521	  4537	  4537#	  4538	  4539	  4541	  4557	  4557#	  4558	  4559	  4561	  4577
	  4577#	  4578	  4579	  4581	  4597	  4597#	  4598	  4599	  4601	  4617	  4617#	  4618	  4619	  4621
	  4637	  4637#	  4638	  4639	  4641	  4657	  4657#	  4658	  4659	  4661	  4677	  4677#	  4678	  4679
	  4681	  4697	  4697#	  4698	  4699	  4701	  4717	  4717#	  4718	  4719	  4721	  4737	  4737#	  4738
	  4739	  4741	  4778	  4778#	  4779	  4779#	  4781	  4782	  4798	  4798#	  4799	  4801	  4802	  4818
	  4818#	  4819	  4821	  4822	  4838	  4838#	  4839	  4841	  4842	  4858	  4858#	  4859	  4861	  4862
	  4878	  4878#	  4879	  4881	  4882	  4898	  4898#	  4899	  4901	  4902	  4918	  4918#	  4919	  4921
	  4922	  4938	  4938#	  4939	  4941	  4942	  4958	  4958#	  4959	  4961	  4962	  4978	  4978#	  4979
	  4981	  4982	  4998	  4998#	  4999	  5001	  5002	  5018	  5018#	  5019	  5021	  5022	  5038	  5038#
	  5039	  5041	  5042	  5058	  5058#	  5059	  5061	  5062	  5078	  5078#	  5079	  5081	  5082	  5098
	  5098#	  5099	  5101	  5102	  5118	  5118#	  5119	  5121	  5122	  5132#	  5157	  5157#	  5158	  5158#
	  5160	  5161	  5177	  5177#	  5178	  5180	  5181	  5197	  5197#	  5198	  5200	  5201	  5217	  5217#
	  5218	  5220	  5221	  5237	  5237#	  5238	  5240	  5241	  5257	  5257#	  5258	  5260	  5261	  5277
	  5277#	  5278	  5280	  5281	  5297	  5297#	  5298	  5300	  5301	  5317	  5317#	  5318	  5320	  5321     SEQ 0183
	  5337	  5337#	  5338	  5340	  5341	  5357	  5357#	  5358	  5360	  5361	  5377	  5377#	  5378	  5380
	  5381	  5397	  5397#	  5398	  5400	  5401	  5417	  5417#	  5418	  5420	  5421	  5437	  5437#	  5438
	  5440	  5441	  5457	  5457#	  5458	  5460	  5461	  5477	  5477#	  5478	  5480	  5481	  5497	  5497#
	  5498	  5500	  5501	  5515#	  5542	  5542#	  5543	  5543#	  5544	  5545	  5546	  5563	  5563#	  5564
	  5565	  5566	  5567	  5584	  5584#	  5585	  5586	  5587	  5588	  5605	  5605#	  5606	  5607	  5608
	  5609	  5626	  5626#	  5627	  5628	  5629	  5630	  5647	  5647#	  5648	  5649	  5650	  5651	  5668
	  5668#	  5669	  5670	  5671	  5672	  5689	  5689#	  5690	  5691	  5692	  5693	  5710	  5710#	  5711
	  5712	  5713	  5714	  5731	  5731#	  5732	  5733	  5734	  5735	  5752	  5752#	  5753	  5754	  5755
	  5756	  5773	  5773#	  5774	  5775	  5776	  5777	  5794	  5794#	  5795	  5796	  5797	  5798	  5815
	  5815#	  5816	  5817	  5818	  5819	  5836	  5836#	  5837	  5838	  5839	  5840	  5857	  5857#	  5858
	  5859	  5860	  5861	  5878	  5878#	  5879	  5880	  5881	  5882	  5898	  5898#	  5899	  5900	  5910#
	  5937	  5937#	  5938	  5938#	  5939	  5940	  5941	  5958	  5958#	  5959	  5960	  5961	  5962	  5979
	  5979#	  5980	  5981	  5982	  5983	  6000	  6000#	  6001	  6002	  6003	  6004	  6021	  6021#	  6022
	  6023	  6024	  6025	  6042	  6042#	  6043	  6044	  6045	  6046	  6063	  6063#	  6064	  6065	  6066
	  6067	  6084	  6084#	  6085	  6086	  6087	  6088	  6105	  6105#	  6106	  6107	  6108	  6109	  6126
	  6126#	  6127	  6128	  6129	  6130	  6147	  6147#	  6148	  6149	  6150	  6151	  6168	  6168#	  6169
	  6170	  6171	  6172	  6189	  6189#	  6190	  6191	  6192	  6193	  6210	  6210#	  6211	  6212	  6213
	  6214	  6231	  6231#	  6232	  6233	  6234	  6235	  6252	  6252#	  6253	  6254	  6255	  6256	  6273
	  6273#	  6274	  6275	  6276	  6277	  6294	  6294#	  6295	  6296	  6297	  6298	  6312#	  6339	  6339#
	  6340	  6340#	  6341	  6342	  6343	  6360	  6360#	  6361	  6362	  6363	  6364	  6381	  6381#	  6382
	  6383	  6384	  6385	  6402	  6402#	  6403	  6404	  6405	  6406	  6423	  6423#	  6424	  6425	  6426
	  6427	  6444	  6444#	  6445	  6446	  6447	  6448	  6465	  6465#	  6466	  6467	  6468	  6469	  6486
	  6486#	  6487	  6488	  6489	  6490	  6507	  6507#	  6508	  6509	  6510	  6511	  6528	  6528#	  6529
	  6530	  6531	  6532	  6549	  6549#	  6550	  6551	  6552	  6553	  6570	  6570#	  6571	  6572	  6573
	  6574	  6591	  6591#	  6592	  6593	  6594	  6595	  6612	  6612#	  6613	  6614	  6615	  6616	  6633
	  6633#	  6634	  6635	  6636	  6637	  6654	  6654#	  6655	  6656	  6657	  6658	  6675	  6675#	  6676
	  6677	  6678	  6679	  6696	  6696#	  6697	  6698	  6708#	  6735	  6735#	  6736	  6736#	  6737	  6738
	  6739	  6756	  6756#	  6757	  6758	  6759	  6760	  6777	  6777#	  6778	  6779	  6780	  6781	  6798
	  6798#	  6799	  6800	  6801	  6802	  6819	  6819#	  6820	  6821	  6822	  6823	  6840	  6840#	  6841
	  6842	  6843	  6844	  6861	  6861#	  6862	  6863	  6864	  6865	  6882	  6882#	  6883	  6884	  6885
	  6886	  6903	  6903#	  6904	  6905	  6906	  6907	  6924	  6924#	  6925	  6926	  6927	  6928	  6945
	  6945#	  6946	  6947	  6948	  6949	  6966	  6966#	  6967	  6968	  6969	  6970	  6987	  6987#	  6988
	  6989	  6990	  6991	  7008	  7008#	  7009	  7010	  7011	  7012	  7029	  7029#	  7030	  7031	  7032
	  7033	  7050	  7050#	  7051	  7052	  7053	  7054	  7071	  7071#	  7072	  7073	  7074	  7075	  7092
	  7092#	  7093	  7094	  7095	  7096
$$420	   734#
$$421	   735#
$$422	   736#
$$423	   737#
$$424	   738#
$$425	   739#
$$426	   740#
$$427	   741#
$$430	   742#
$$431	   743#
$$432	   744#
$$433	   745#
$$434	   746#
$$435	   747#
$$436	   748#
$$437	   749#
$$500	   752#
$$501	   753#                                                                                                            SEQ 0184
$$502	   754#
$$503	   755#
$$BEGI	   720#
$$DTE0	   786	   825#
$$DTE1	   787	   827#
$$DTE2	   788	   841#
$$DTE3	   789	   843#
$$LOC	   717#	   756
$$MUUO	   640#
$$OUTE	   646#
$$STAR	   720	   721	   760#
$$TAX1	   658#
$$TAX2	   659#
$$TOGG	   652#
$$UUO	   629#
$ACC0	   467#
$BEGEN	   729#
$BEND1	   437#
$BEND2	   438#
$CHRIN	   528#
$CRLF	   530#
$DDT	   698#
$DEVCH	   354#
$DSKUP	   407#
$DTCHR	   710#
$DTCI	   704#
$DTCLK	   703#	   784
$DTCMD	   707#	   822	   838
$DTF11	   706#
$DTFLG	   702#	   783	   823	   828	   839	   844
$DTMTD	   711#
$DTMTI	   712#
$DTOPR	   709#	   785
$DTSEQ	   708#
$DTSWR	   714#
$DTT11	   705#
$DVCH1	   354#
$DVOFF	   524#
$EMODE	   405#
$ENDFX	   674#	   675
$FFF	   532#
$IBUF	   580#
$INEXT	   582#
$INNM	   581#
$ITRHL	   448#
$ITRX1	   449#
$LPAPE	  7111
$MMAP	   408#
$MODVL	   403#
$MODVU	   404#
$OBUF	   571#
$ONETM	   431#
$OUTEX	   573#                                                                                                            SEQ 0185
$OUTNM	   572#
$PAPER	   354
$PARER	   455#
$PNAME	   401#
$PSHER	   459#
$PVER	   402#
$RSRTX	   451#
$RSRTY	   452#
$SPAG1	   471#
$SPB1	   794	   800#
$SPBEN	   729	   798#
$SPBEX	   801	   809#
$SPBKL	   810	   816#
$SPBUS	   803#
$SPEC	   726	   793#
$SPKLD	   817	   834#
$START	   368#
$STD	   697#	   724#
$STKIL	   769#
$STKL	   778#
$STL	   699#
$STM	   700#	   726#
$SVAPR	   469#
$SVPAG	   470#
$SVPI	   468#
$SVUPC	   474#
$SVUUO	   473#
$TABF	   531#
$TTCHR	   527#
$TWCNT	   523#
$TYPNB	   529#
$UMODE	   406#
$UORTX	   446#
$USRHL	   450#
$UUOER	   447#	   488
$VTF	   533#
%ACTFL	   480#
%ACTUL	   481#
%COREC	   479#
%CORFL	   478#
%DISCR	   482#
%ERHI1	   621#
%ERHI2	   622#
%ERHI3	   623#
.JB41	   354#
.JBAPR	   354#
.JBCNI	   354#
.JBDDT	   354#
.JBFF	   354#
.JBOPC	   354#
.JBREL	   354#
.JBREN	   354#
.JBSA	   354#                                                                                                            SEQ 0186
.JBSYM	   354#
.JBTPC	   354#
.JBUSY	   354#
.JBUUO	   354#
.JBVER	   354#
CFLUSH	   271#
CINVAL	   270#                                                                                                            SEQ 0187
CLOKOP	   265#
CWRTBI	   272#
DROPDV	   232#
ENDUUO	   278#	   436
EOPUUO	   279#	   438
ERLOOP	   323#
ERLP1	   324#
ERLP2	   325#
ERRHLT	   167#
ERROR	   332#
ERROR1	   344#
ERUUO	   322#
EXIT	   806
FATAL	   166#
FRD36	   307#
FRD8	   308#
FREAD	   306#
FSELEC	   305#
GET	   150#
GO	   147#
HALT	   152#	   457	   734	   736	   737	   741	   755	   846	   891	   914	   931	   949	   965	   991
	  1012	  1030	  1046	  1069	  1091	  1115	  1131	  1149	  1164	  1188	  1209	  1226	  1247	  1261
	  1284	  1299	  1316	  1341	  1364	  1385	  1400	  1424	  1440	  1459	  1472	  1485	  1497	  1513
	  1527	  1543	  1563	  1584	  1601	  1635	  1652	  1670	  1687	  1705	  1728	  1746	  1763	  1782
	  1805	  1826	  1843	  1859	  1876	  1891	  1913	  1935	  1952	  1968	  1984	  2005	  2022	  2038
	  2055	  2071	  2088	  2104	  2121	  2136	  2153	  2168	  2184	  2205	  2226	  2241	  2262	  2282
	  2298	  2313	  2334	  2349	  2365	  2380	  2396	  2411	  2432	  2447	  2468	  2489	  2505	  2520
	  2536	  2551	  2567	  2582	  2598	  2613	  2629	  2644	  2668	  2683	  2704	  2719	  2742	  2763
	  2779	  2795	  2816	  2837	  2853	  2869	  2890	  2906	  2922	  2937	  2953	  2968	  2984	  2999
	  3015	  3039	  3064	  3081	  3111	  3126	  3147	  3167	  3188	  3208	  3229	  3249	  3271	  3292
	  3308	  3323	  3339	  3354	  3370	  3385	  3401	  3417	  3434	  3450	  3472	  3494	  3511	  3527
	  3549	  3572	  3589	  3605	  3630	  3645	  3668	  3690	  3707	  3722	  3744	  3765	  3788	  3804
	  3822	  3839	  3862	  3881	  3898	  3913	  3929	  3946	  3972	  4024	  4044	  4064	  4084	  4104
	  4124	  4144	  4164	  4184	  4204	  4224	  4244	  4264	  4284	  4304	  4324	  4344	  4364	  4403
	  4423	  4443	  4463	  4483	  4503	  4523	  4543	  4563	  4583	  4603	  4623	  4643	  4663	  4683
	  4703	  4723	  4743	  4784	  4804	  4824	  4844	  4864	  4884	  4904	  4924	  4944	  4964	  4984
	  5004	  5024	  5044	  5064	  5084	  5104	  5124	  5163	  5183	  5203	  5223	  5243	  5263	  5283
	  5303	  5323	  5343	  5363	  5383	  5403	  5423	  5443	  5463	  5483	  5503	  5548	  5569	  5590
	  5611	  5632	  5653	  5674	  5695	  5716	  5737	  5758	  5779	  5800	  5821	  5842	  5863	  5884
	  5903	  5943	  5964	  5985	  6006	  6027	  6048	  6069	  6090	  6111	  6132	  6153	  6174	  6195
	  6216	  6237	  6258	  6279	  6300	  6345	  6366	  6387	  6408	  6429	  6450	  6471	  6492	  6513
	  6534	  6555	  6576	  6597	  6618	  6639	  6660	  6681	  6701	  6741	  6762	  6783	  6804	  6825
	  6846	  6867	  6888	  6909	  6930	  6951	  6972	  6993	  7014	  7035	  7056	  7077	  7098
JEN	   154#
JRSTF	   153#
MAPADR	   288#
MAPCNK	   289#
MAPMEM	   285#
MAPPNT	   291#
MAPSET	   290#
MEMSEG	   287#
MEMZRO	   286#
MODPCP	   298#                                                                                                            SEQ 0188
MODPCU	   297#
MTROP	   266#
NAME	     9#	    11
PBELL	   241#
PCRL	   235#
PCRL2	   239#
PCRL2F	   240#
PCRLF	   236#
PFORCE	   243#
PGMINT	   160#
PJRST	   151#
PMSG	   245#
PMSGF	   248#
PNT1	   201#
PNT11	   215#
PNT11F	   216#
PNT1F	   202#
PNT2	   203#
PNT2F	   204#
PNT3	   205#
PNT3F	   206#
PNT4	   207#
PNT4F	   208#
PNT5	   209#
PNT5F	   210#
PNT6	   211#
PNT6F	   212#
PNT7	   213#
PNT7F	   214#
PNTA	   187#
PNTADF	   218#
PNTADR	   217#
PNTAF	   188#
PNTAL	   189#
PNTALF	   190#
PNTCHF	   200#
PNTCHR	   199#
PNTCI	   197#
PNTCIF	   198#
PNTCW	   233#
PNTCWF	   234#
PNTDCF	   226#
PNTDEC	   225#
PNTDS	   227#
PNTDSF	   228#
PNTHW	   221#
PNTHWF	   222#
PNTMGN	   312#
PNTMSF	   194#
PNTMSG	   193#
PNTNM	   229#
PNTOCF	   224#
PNTOCS	   223#                                                                                                            SEQ 0189
PNTOCT	   219#
PNTOTF	   220#
PNTSIX	   230#
PNTSXF	   231#
PSIXL	   191#
PSIXLF	   192#
PSIXM	   195#
PSIXMF	   196#
PSP	   237#
PSPF	   238#
PUT	   149#
REPTUO	   326#
RTN	   148#	   444
S	    78#	    80	    84	   113	   115	   124	   127	   142	   143	   145	   156	   158	   162	   164
	   169	   173	   318	   320	   354	   359	   365	   392	   394	   412	   414	   432	   434	   463
	   465	   483	   485	   503	   505	   513	   515	   536	   541	   567	   569	   576	   578	   584
	   586	   592	   594	   598	   600	   605	   607	   611	   613	   617	   619	   625	   627	   630
	   632	   636	   638	   642	   644	   648	   650	   654	   656	   661	   666	   670	   672
SIXBTZ	   254#
STOP	    46#	   890	   913	   930	   948	   964	   990	  1011	  1029	  1045	  1068	  1090	  1114	  1130
	  1148	  1163	  1187	  1208	  1225	  1246	  1260	  1283	  1298	  1315	  1340	  1363	  1384	  1399
	  1423	  1439	  1458	  1471	  1484	  1496	  1512	  1526	  1542	  1562	  1583	  1600	  1634	  1651
	  1669	  1686	  1704	  1727	  1745	  1762	  1781	  1804	  1825	  1842	  1858	  1875	  1890	  1912
	  1934	  1951	  1967	  1983	  2004	  2021	  2037	  2054	  2070	  2087	  2103	  2120	  2135	  2152
	  2167	  2183	  2204	  2225	  2240	  2261	  2281	  2297	  2312	  2333	  2348	  2364	  2379	  2395
	  2410	  2431	  2446	  2467	  2488	  2504	  2519	  2535	  2550	  2566	  2581	  2597	  2612	  2628
	  2643	  2667	  2682	  2703	  2718	  2741	  2762	  2778	  2794	  2815	  2836	  2852	  2868	  2889
	  2905	  2921	  2936	  2952	  2967	  2983	  2998	  3014	  3038	  3063	  3080	  3110	  3125	  3146
	  3166	  3187	  3207	  3228	  3248	  3270	  3291	  3307	  3322	  3338	  3353	  3369	  3384	  3400
	  3416	  3433	  3449	  3471	  3493	  3510	  3526	  3548	  3571	  3588	  3604	  3629	  3644	  3667
	  3689	  3706	  3721	  3743	  3763	  3786	  3802	  3821	  3838	  3861	  3880	  3897	  3912	  3928
	  3945	  3971	  4023	  4043	  4063	  4083	  4103	  4123	  4143	  4163	  4183	  4203	  4223	  4243
	  4263	  4283	  4303	  4323	  4343	  4363	  4402	  4422	  4442	  4462	  4482	  4502	  4522	  4542
	  4562	  4582	  4602	  4622	  4642	  4662	  4682	  4702	  4722	  4742	  4783	  4803	  4823	  4843
	  4863	  4883	  4903	  4923	  4943	  4963	  4983	  5003	  5023	  5043	  5063	  5083	  5103	  5123
	  5162	  5182	  5202	  5222	  5242	  5262	  5282	  5302	  5322	  5342	  5362	  5382	  5402	  5422
	  5442	  5462	  5482	  5502	  5547	  5568	  5589	  5610	  5631	  5652	  5673	  5694	  5715	  5736
	  5757	  5778	  5799	  5820	  5841	  5862	  5883	  5902	  5942	  5963	  5984	  6005	  6026	  6047
	  6068	  6089	  6110	  6131	  6152	  6173	  6194	  6215	  6236	  6257	  6278	  6299	  6344	  6365
	  6386	  6407	  6428	  6449	  6470	  6491	  6512	  6533	  6554	  6575	  6596	  6617	  6638	  6659
	  6680	  6700	  6740	  6761	  6782	  6803	  6824	  6845	  6866	  6887	  6908	  6929	  6950	  6971
	  6992	  7013	  7034	  7055	  7076	  7097
SWITCH	   260#
TTALTM	   182#
TTICHR	   175#
TTICNV	   180#
TTIDEC	   179#
TTINO	   177#
TTIOCT	   178#
TTIYES	   176#
TTLOOK	   181#
TTSIXB	   183#
TTYINP	   184#                                                                                                            SEQ 0190
%....Q	  6298	  6739	  6760	  6781	  6802	  6823	  6844	  6865	  6886	  6907	  6928	  6949	  6970	  6991
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 1
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0191


*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
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0192

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
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0193

*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
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0194

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,034010
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   200040034010 0            000001000001 
IT1	030614 0      0   0   200040034010 0            000001000001 
AT3	030614 0      0   0   000000034010 0            200040034010 
AT6	030614 034010 0   0   000000034010 0            200040034010 
FT0	030614 034010 0   0   000001000001 0            200040034010 
FT1A	030614 034010 0   0   000001000001 0            000001000001 
FT9	030615 034010 0   0   000001000001 0            000001000001 
ET0	030615 034010 0   0   000001000001 0            000001000001 
ST1	030615 034010 0   0   000001000001 0            000001000001 
ST2	030615 034010 0   0   000001000001 0            000001000001 
ST9	030615 034010 0   0   000001000001 0            000001000001 


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

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


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


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

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

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

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

C(E)=400000 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
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0199

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


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

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


*030743 TDN 	0,034012
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030743 030743 0   0   610000034012 0            0            
IT1	030743 0      0   0   610000034012 0            0            
AT3	030743 0      0   0   000000034012 0            610000034012 
AT6	030743 034012 0   0   000000034012 0            610000034012 
FT0	030743 034012 0   0   777777777777 0            610000034012 
FT1A	030743 034012 0   0   777777777777 0            777777777777 
FT2	030743 034012 0   0   0            0            777777777777 
FT2RQ	030743 034012 0   0   0            0            777777777777 
FT3	030743 034012 0   0   0            0            777777777777 
FT9	030744 034012 0   0   0            0            777777777777 
ET0	030744 034012 0   0   0            0            777777777777 
ET1	030744 034012 0   0   0            0            0            
ET2	030744 034012 0   0   0            0            0            
ST1A	030744 034012 0   0   0            0            0            
ST9	030744 034012 0   0   0            0            0            

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


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


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


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


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


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

*030747 JUMPA	0,030750
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030747 030747 0   0   324000030750 0            000000030750 
IT1	030747 0      0   0   324000030750 0            000000030750 
AT3	030747 0      0   0   000000030750 0            324000030750 
AT6	030747 030750 0   0   000000030750 0            324000030750 
FT1A	030747 030750 0   0   000000030750 0            000000030750 
FT2	030747 030750 0   0   0            0            000000030750 
FT2RQ	030747 030750 0   0   0            0            000000030750 
FT3	030747 030750 0   0   0            0            000000030750 
FT9	030750 030750 0   0   0            0            000000030750 
ET0	030750 030750 0   0   0            0            000000030750 
ST1A	030750 030750 0   0   0            0            000000030750 
ST9	030750 030750 0   0   0            0            000000030750 


*030750 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030750 030750 0   0   474000000000 0            0            
IT1	030750 0      0   0   474000000000 0            0            
AT3	030750 0      0   0   0            0            474000000000 
AT6	030750 0      0   0   0            0            474000000000 
FT1A	030750 0      0   0   0            0            0            
FT9	030751 0      0   0   0            0            0            
ET0	030751 0      0   0   777777777777 0            0            
ST1	030751 0      0   0   777777777777 0            0            
ST2	030751 0      0   0   777777777777 0            0            
ST9	030751 0      0   0   777777777777 0            0            


*030751 TSN 	0,034013
INITIAL
C(AC)=777777 777777 
C(E)=777777 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030751 030751 0   0   611000034013 0            777777000000 
IT1	030751 0      0   0   611000034013 0            777777000000 
AT3	030751 0      0   0   000000034013 0            611000034013 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 12
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0202

AT6	030751 034013 0   0   000000034013 0            611000034013 
FT0	030751 034013 0   0   777777000000 0            611000034013 
FT1A	030751 034013 0   0   777777000000 0            777777000000 
FT2	030751 034013 0   0   0            0            777777000000 
FT2RQ	030751 034013 0   0   777777777777 0            777777000000 
FT3	030751 034013 0   0   777777777777 0            777777000000 
FT9	030752 034013 0   0   777777777777 0            777777000000 
ET0	030752 034013 0   0   777777777777 0            777777000000 
ET1	030752 034013 0   0   777777777777 0            777777000000 
ET2	030752 034013 0   0   777777777777 0            777777000000 
ST1A	030752 034013 0   0   777777777777 0            777777000000 
ST9	030752 034013 0   0   777777777777 0            777777000000 


*030752 CAM 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


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


*030753 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030753 030753 0   0   312000034012 0            777777777777 
IT1	030753 0      0   0   312000034012 0            777777777777 
AT3	030753 0      0   0   000000034012 0            312000034012 
AT6	030753 034012 0   0   000000034012 0            312000034012 
FT0	030753 034012 0   0   777777777777 0            312000034012 
FT1A	030753 034012 0   0   777777777777 0            777777777777 
FT2	030753 034012 0   0   0            0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 13
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0203

FT2RQ	030753 034012 0   0   777777777777 0            777777777777 
FT3	030753 034012 0   0   777777777777 0            777777777777 
FT9	030754 034012 0   0   777777777777 0            777777777777 
ET0	030755 034012 0   0   0            0            777777777777 
ST1A	030755 034012 0   0   0            0            777777777777 
ST9	030755 034012 0   0   0            0            777777777777 


*030755 JUMPA	0,030756
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030755 030755 0   0   324000030756 0            000000030756 
IT1	030755 0      0   0   324000030756 0            000000030756 
AT3	030755 0      0   0   000000030756 0            324000030756 
AT6	030755 030756 0   0   000000030756 0            324000030756 
FT1A	030755 030756 0   0   000000030756 0            000000030756 
FT2	030755 030756 0   0   0            0            000000030756 
FT2RQ	030755 030756 0   0   777777777777 0            000000030756 
FT3	030755 030756 0   0   777777777777 0            000000030756 
FT9	030756 030756 0   0   777777777777 0            000000030756 
ET0	030756 030756 0   0   777777777777 0            000000030756 
ST1A	030756 030756 0   0   777777777777 0            000000030756 
ST9	030756 030756 0   0   777777777777 0            000000030756 


*030756 SETZ 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

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


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

*030757 TRN 	0,123456
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030757 030757 0   0   600000123456 0            0            
IT1	030757 0      0   0   600000123456 0            0            
AT3	030757 0      0   0   000000123456 0            600000123456 
AT6	030757 123456 0   0   000000123456 0            600000123456 
FT1A	030757 123456 0   0   000000123456 0            000000123456 
FT2	030757 123456 0   0   0            0            000000123456 
FT2RQ	030757 123456 0   0   0            0            000000123456 
FT3	030757 123456 0   0   0            0            000000123456 
FT9	030760 123456 0   0   0            0            000000123456 
ET0	030760 123456 0   0   0            0            000000123456 
ET1	030760 123456 0   0   0            0            0            
ET2	030760 123456 0   0   0            0            0            
ST1A	030760 123456 0   0   0            0            0            
ST9	030760 123456 0   0   0            0            0            


*030760 CAM 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


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


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

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


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


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030763 030763 0   0   324000030764 0            000000030764 
IT1	030763 0      0   0   324000030764 0            000000030764 
AT3	030763 0      0   0   000000030764 0            324000030764 
AT6	030763 030764 0   0   000000030764 0            324000030764 
FT1A	030763 030764 0   0   000000030764 0            000000030764 
FT2	030763 030764 0   0   0            0            000000030764 
FT2RQ	030763 030764 0   0   0            0            000000030764 
FT3	030763 030764 0   0   0            0            000000030764 
FT9	030764 030764 0   0   0            0            000000030764 
ET0	030764 030764 0   0   0            0            000000030764 
ST1A	030764 030764 0   0   0            0            000000030764 
ST9	030764 030764 0   0   0            0            000000030764 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030764 030764 0   0   474000000000 0            0            
IT1	030764 0      0   0   474000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 16
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0206

AT3	030764 0      0   0   0            0            474000000000 
AT6	030764 0      0   0   0            0            474000000000 
FT1A	030764 0      0   0   0            0            0            
FT9	030765 0      0   0   0            0            0            
ET0	030765 0      0   0   777777777777 0            0            
ST1	030765 0      0   0   777777777777 0            0            
ST2	030765 0      0   0   777777777777 0            0            
ST9	030765 0      0   0   777777777777 0            0            


*030765 TLN 	0,123456
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030765 030765 0   0   601000123456 0            000000123456 
IT1	030765 0      0   0   601000123456 0            000000123456 
AT3	030765 0      0   0   000000123456 0            601000123456 
AT6	030765 123456 0   0   000000123456 0            601000123456 
FT1A	030765 123456 0   0   000000123456 0            000000123456 
FT2	030765 123456 0   0   0            0            000000123456 
FT2RQ	030765 123456 0   0   777777777777 0            000000123456 
FT3	030765 123456 0   0   777777777777 0            000000123456 
FT9	030766 123456 0   0   777777777777 0            000000123456 
ET0	030766 123456 0   0   777777777777 0            000000123456 
ET1	030766 123456 0   0   777777777777 0            000000123456 
ET2	030766 123456 0   0   777777777777 0            000000123456 
ST1A	030766 123456 0   0   777777777777 0            000000123456 
ST9	030766 123456 0   0   777777777777 0            000000123456 


*030766 CAM 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030766 030766 0   0   310000000000 0            777777777777 
IT1	030766 0      0   0   310000000000 0            777777777777 
AT3	030766 0      0   0   0            0            310000000000 
AT6	030766 0      0   0   0            0            310000000000 
FT0	030766 0      0   0   777777777777 0            310000000000 
FT1A	030766 0      0   0   777777777777 0            777777777777 
FT2	030766 0      0   0   0            0            777777777777 
FT2RQ	030766 0      0   0   777777777777 0            777777777777 
FT3	030766 0      0   0   777777777777 0            777777777777 
FT9	030767 0      0   0   777777777777 0            777777777777 
ET0	030767 0      0   0   0            0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 17
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0207

ST1A	030767 0      0   0   0            0            777777777777 
ST9	030767 0      0   0   0            0            777777777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030767 030767 0   0   312000000000 0            777777777777 
IT1	030767 0      0   0   312000000000 0            777777777777 
AT3	030767 0      0   0   0            0            312000000000 
AT6	030767 0      0   0   0            0            312000000000 
FT0	030767 0      0   0   777777777777 0            312000000000 
FT1A	030767 0      0   0   777777777777 0            777777777777 
FT2	030767 0      0   0   0            0            777777777777 
FT2RQ	030767 0      0   0   777777777777 0            777777777777 
FT3	030767 0      0   0   777777777777 0            777777777777 
FT9	030770 0      0   0   777777777777 0            777777777777 
ET0	030771 0      0   0   0            0            777777777777 
ST1A	030771 0      0   0   0            0            777777777777 
ST9	030771 0      0   0   0            0            777777777777 


*030771 JUMPA	0,030772
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030771 030771 0   0   324000030772 0            000000030772 
IT1	030771 0      0   0   324000030772 0            000000030772 
AT3	030771 0      0   0   000000030772 0            324000030772 
AT6	030771 030772 0   0   000000030772 0            324000030772 
FT1A	030771 030772 0   0   000000030772 0            000000030772 
FT2	030771 030772 0   0   0            0            000000030772 
FT2RQ	030771 030772 0   0   777777777777 0            000000030772 
FT3	030771 030772 0   0   777777777777 0            000000030772 
FT9	030772 030772 0   0   777777777777 0            000000030772 
ET0	030772 030772 0   0   777777777777 0            000000030772 
ST1A	030772 030772 0   0   777777777777 0            000000030772 
ST9	030772 030772 0   0   777777777777 0            000000030772 


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

*030772 SETZ 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

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


*030773 TDO 	0,034012
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   670000034012 0            0            
IT1	030773 0      0   0   670000034012 0            0            
AT3	030773 0      0   0   000000034012 0            670000034012 
AT6	030773 034012 0   0   000000034012 0            670000034012 
FT0	030773 034012 0   0   777777777777 0            670000034012 
FT1A	030773 034012 0   0   777777777777 0            777777777777 
FT2	030773 034012 0   0   0            0            777777777777 
FT2RQ	030773 034012 0   0   0            0            777777777777 
FT3	030773 034012 0   0   0            0            777777777777 
FT9	030774 034012 0   0   0            0            777777777777 
ET0	030774 034012 0   0   0            0            777777777777 
ET1	030774 034012 0   0   777777777777 0            0            
ET2	030774 034012 0   0   777777777777 0            0            
ST1	030774 034012 0   0   777777777777 0            0            
ST2	030774 034012 0   0   777777777777 0            0            
ST9	030774 034012 0   0   777777777777 0            0            


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

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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030774 030774 0   0   300000000000 0            0            
IT1	030774 0      0   0   300000000000 0            0            
AT3	030774 0      0   0   0            0            300000000000 
AT6	030774 0      0   0   0            0            300000000000 
FT1A	030774 0      0   0   0            0            0            
FT2	030774 0      0   0   0            0            0            
FT2RQ	030774 0      0   0   777777777777 0            0            
FT3	030774 0      0   0   777777777777 0            0            
FT9	030775 0      0   0   777777777777 0            0            
ET0	030775 0      0   0   777777777777 0            0            
ST1A	030775 0      0   0   777777777777 0            0            
ST9	030775 0      0   0   777777777777 0            0            


*030775 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


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


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

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

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


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031001 031001 0   0   670000000000 0            0            
IT1	031001 0      0   0   670000000000 0            0            
AT3	031001 0      0   0   0            0            670000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 21
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0211

AT6	031001 0      0   0   0            0            670000000000 
FT0	031001 0      0   0   0            0            670000000000 
FT1A	031001 0      0   0   0            0            0            
FT2	031001 0      0   0   0            0            0            
FT2RQ	031001 0      0   0   0            0            0            
FT3	031001 0      0   0   0            0            0            
FT9	031002 0      0   0   0            0            0            
ET0	031002 0      0   0   0            0            0            
ET1	031002 0      0   0   0            0            0            
ET2	031002 0      0   0   0            0            0            
ST1	031002 0      0   0   0            0            0            
ST2	031002 0      0   0   0            0            0            
ST9	031002 0      0   0   0            0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031002 031002 0   0   300000000000 0            0            
IT1	031002 0      0   0   300000000000 0            0            
AT3	031002 0      0   0   0            0            300000000000 
AT6	031002 0      0   0   0            0            300000000000 
FT1A	031002 0      0   0   0            0            0            
FT2	031002 0      0   0   0            0            0            
FT2RQ	031002 0      0   0   0            0            0            
FT3	031002 0      0   0   0            0            0            
FT9	031003 0      0   0   0            0            0            
ET0	031003 0      0   0   0            0            0            
ST1A	031003 0      0   0   0            0            0            
ST9	031003 0      0   0   0            0            0            


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031003 031003 0   0   332000000000 0            0            
IT1	031003 0      0   0   332000000000 0            0            
AT3	031003 0      0   0   0            0            332000000000 
AT6	031003 0      0   0   0            0            332000000000 
FT0	031003 0      0   0   0            0            332000000000 
FT1A	031003 0      0   0   0            0            0            
FT9	031004 0      0   0   0            0            0            
ET0	031005 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 22
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0212

ST1A	031005 0      0   0   0            0            0            
ST9	031005 0      0   0   0            0            0            


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


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


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

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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 23
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0213

*031007 TDO 	0,034014
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   670000034014 0            0            
IT1	031007 0      0   0   670000034014 0            0            
AT3	031007 0      0   0   000000034014 0            670000034014 
AT6	031007 034014 0   0   000000034014 0            670000034014 
FT0	031007 034014 0   0   0            0            670000034014 
FT1A	031007 034014 0   0   0            0            0            
FT2	031007 034014 0   0   0            0            0            
FT2RQ	031007 034014 0   0   0            0            0            
FT3	031007 034014 0   0   0            0            0            
FT9	031010 034014 0   0   0            0            0            
ET0	031010 034014 0   0   0            0            0            
ET1	031010 034014 0   0   0            0            0            
ET2	031010 034014 0   0   0            0            0            
ST1	031010 034014 0   0   0            0            0            
ST2	031010 034014 0   0   0            0            0            
ST9	031010 034014 0   0   0            0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031010 031010 0   0   300000000000 0            0            
IT1	031010 0      0   0   300000000000 0            0            
AT3	031010 0      0   0   0            0            300000000000 
AT6	031010 0      0   0   0            0            300000000000 
FT1A	031010 0      0   0   0            0            0            
FT2	031010 0      0   0   0            0            0            
FT2RQ	031010 0      0   0   0            0            0            
FT3	031010 0      0   0   0            0            0            
FT9	031011 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            


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

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

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


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


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


*031014 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031014 031014 0   0   474000000000 0            0            
IT1	031014 0      0   0   474000000000 0            0            
AT3	031014 0      0   0   0            0            474000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 25
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0215

AT6	031014 0      0   0   0            0            474000000000 
FT1A	031014 0      0   0   0            0            0            
FT9	031015 0      0   0   0            0            0            
ET0	031015 0      0   0   777777777777 0            0            
ST1	031015 0      0   0   777777777777 0            0            
ST2	031015 0      0   0   777777777777 0            0            
ST9	031015 0      0   0   777777777777 0            0            


*031015 TDO 	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	031015 031015 0   0   670000000000 0            777777777777 
IT1	031015 0      0   0   670000000000 0            777777777777 
AT3	031015 0      0   0   0            0            670000000000 
AT6	031015 0      0   0   0            0            670000000000 
FT0	031015 0      0   0   777777777777 0            670000000000 
FT1A	031015 0      0   0   777777777777 0            777777777777 
FT2	031015 0      0   0   0            0            777777777777 
FT2RQ	031015 0      0   0   777777777777 0            777777777777 
FT3	031015 0      0   0   777777777777 0            777777777777 
FT9	031016 0      0   0   777777777777 0            777777777777 
ET0	031016 0      0   0   777777777777 0            777777777777 
ET1	031016 0      0   0   777777777777 0            777777777777 
ET2	031016 0      0   0   777777777777 0            777777777777 
ST1	031016 0      0   0   777777777777 0            777777777777 
ST2	031016 0      0   0   777777777777 0            777777777777 
ST9	031016 0      0   0   777777777777 0            777777777777 


*031016 CAI 	0,000000
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031016 031016 0   0   300000000000 0            0            
IT1	031016 0      0   0   300000000000 0            0            
AT3	031016 0      0   0   0            0            300000000000 
AT6	031016 0      0   0   0            0            300000000000 
FT1A	031016 0      0   0   0            0            0            
FT2	031016 0      0   0   0            0            0            
FT2RQ	031016 0      0   0   777777777777 0            0            
FT3	031016 0      0   0   777777777777 0            0            
FT9	031017 0      0   0   777777777777 0            0            
ET0	031017 0      0   0   777777777777 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 26
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0216

ST1A	031017 0      0   0   777777777777 0            0            
ST9	031017 0      0   0   777777777777 0            0            


*031017 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031017 031017 0   0   312000034012 0            777777777777 
IT1	031017 0      0   0   312000034012 0            777777777777 
AT3	031017 0      0   0   000000034012 0            312000034012 
AT6	031017 034012 0   0   000000034012 0            312000034012 
FT0	031017 034012 0   0   777777777777 0            312000034012 
FT1A	031017 034012 0   0   777777777777 0            777777777777 
FT2	031017 034012 0   0   0            0            777777777777 
FT2RQ	031017 034012 0   0   777777777777 0            777777777777 
FT3	031017 034012 0   0   777777777777 0            777777777777 
FT9	031020 034012 0   0   777777777777 0            777777777777 
ET0	031021 034012 0   0   0            0            777777777777 
ST1A	031021 034012 0   0   0            0            777777777777 
ST9	031021 034012 0   0   0            0            777777777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031021 031021 0   0   324000031022 0            000000031022 
IT1	031021 0      0   0   324000031022 0            000000031022 
AT3	031021 0      0   0   000000031022 0            324000031022 
AT6	031021 031022 0   0   000000031022 0            324000031022 
FT1A	031021 031022 0   0   000000031022 0            000000031022 
FT2	031021 031022 0   0   0            0            000000031022 
FT2RQ	031021 031022 0   0   777777777777 0            000000031022 
FT3	031021 031022 0   0   777777777777 0            000000031022 
FT9	031022 031022 0   0   777777777777 0            000000031022 
ET0	031022 031022 0   0   777777777777 0            000000031022 
ST1A	031022 031022 0   0   777777777777 0            000000031022 
ST9	031022 031022 0   0   777777777777 0            000000031022 


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

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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031022 031022 0   0   474000000000 0            0            
IT1	031022 0      0   0   474000000000 0            0            
AT3	031022 0      0   0   0            0            474000000000 
AT6	031022 0      0   0   0            0            474000000000 
FT1A	031022 0      0   0   0            0            0            
FT9	031023 0      0   0   0            0            0            
ET0	031023 0      0   0   777777777777 0            0            
ST1	031023 0      0   0   777777777777 0            0            
ST2	031023 0      0   0   777777777777 0            0            
ST9	031023 0      0   0   777777777777 0            0            


*031023 TDO 	0,034014
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031023 031023 0   0   670000034014 0            0            
IT1	031023 0      0   0   670000034014 0            0            
AT3	031023 0      0   0   000000034014 0            670000034014 
AT6	031023 034014 0   0   000000034014 0            670000034014 
FT0	031023 034014 0   0   0            0            670000034014 
FT1A	031023 034014 0   0   0            0            0            
FT2	031023 034014 0   0   0            0            0            
FT2RQ	031023 034014 0   0   777777777777 0            0            
FT3	031023 034014 0   0   777777777777 0            0            
FT9	031024 034014 0   0   777777777777 0            0            
ET0	031024 034014 0   0   777777777777 0            0            
ET1	031024 034014 0   0   777777777777 0            0            
ET2	031024 034014 0   0   777777777777 0            0            
ST1	031024 034014 0   0   777777777777 0            0            
ST2	031024 034014 0   0   777777777777 0            0            
ST9	031024 034014 0   0   777777777777 0            0            


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

*031024 CAI 	0,000000
INITIAL
C(AC)=777777 777777 
FINAL


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


*031025 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031025 031025 0   0   312000034012 0            777777777777 
IT1	031025 0      0   0   312000034012 0            777777777777 
AT3	031025 0      0   0   000000034012 0            312000034012 
AT6	031025 034012 0   0   000000034012 0            312000034012 
FT0	031025 034012 0   0   777777777777 0            312000034012 
FT1A	031025 034012 0   0   777777777777 0            777777777777 
FT2	031025 034012 0   0   0            0            777777777777 
FT2RQ	031025 034012 0   0   777777777777 0            777777777777 
FT3	031025 034012 0   0   777777777777 0            777777777777 
FT9	031026 034012 0   0   777777777777 0            777777777777 
ET0	031027 034012 0   0   0            0            777777777777 
ST1A	031027 034012 0   0   0            0            777777777777 
ST9	031027 034012 0   0   0            0            777777777777 


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

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


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


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

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


*031031 TDZ 	0,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   630000000000 0            0            
IT1	031031 0      0   0   630000000000 0            0            
AT3	031031 0      0   0   0            0            630000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 30
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0220

AT6	031031 0      0   0   0            0            630000000000 
FT0	031031 0      0   0   0            0            630000000000 
FT1A	031031 0      0   0   0            0            0            
FT2	031031 0      0   0   0            0            0            
FT2RQ	031031 0      0   0   0            0            0            
FT3	031031 0      0   0   0            0            0            
FT9	031032 0      0   0   0            0            0            
ET0	031032 0      0   0   0            0            0            
ET1	031032 0      0   0   0            0            0            
ET2	031032 0      0   0   0            0            0            
ST1	031032 0      0   0   0            0            0            
ST2	031032 0      0   0   0            0            0            
ST9	031032 0      0   0   0            0            0            


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


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


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031033 031033 0   0   332000000000 0            0            
IT1	031033 0      0   0   332000000000 0            0            
AT3	031033 0      0   0   0            0            332000000000 
AT6	031033 0      0   0   0            0            332000000000 
FT0	031033 0      0   0   0            0            332000000000 
FT1A	031033 0      0   0   0            0            0            
FT9	031034 0      0   0   0            0            0            
ET0	031035 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 31
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0221

ST1A	031035 0      0   0   0            0            0            
ST9	031035 0      0   0   0            0            0            


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


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


*031036 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031036 031036 0   0   474000000000 0            0            
IT1	031036 0      0   0   474000000000 0            0            
AT3	031036 0      0   0   0            0            474000000000 
AT6	031036 0      0   0   0            0            474000000000 
FT1A	031036 0      0   0   0            0            0            
FT9	031037 0      0   0   0            0            0            
ET0	031037 0      0   0   777777777777 0            0            
ST1	031037 0      0   0   777777777777 0            0            
ST2	031037 0      0   0   777777777777 0            0            
ST9	031037 0      0   0   777777777777 0            0            


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

*031037 TDZ 	0,034013
INITIAL
C(AC)=777777 777777 
C(E)=777777 000000 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031037 031037 0   0   630000034013 0            777777000000 
IT1	031037 0      0   0   630000034013 0            777777000000 
AT3	031037 0      0   0   000000034013 0            630000034013 
AT6	031037 034013 0   0   000000034013 0            630000034013 
FT0	031037 034013 0   0   777777000000 0            630000034013 
FT1A	031037 034013 0   0   777777000000 0            777777000000 
FT2	031037 034013 0   0   0            0            777777000000 
FT2RQ	031037 034013 0   0   777777777777 0            777777000000 
FT3	031037 034013 0   0   777777777777 0            777777000000 
FT9	031040 034013 0   0   777777777777 0            777777000000 
ET0	031040 034013 0   0   777777777777 0            777777000000 
ET1	031040 034013 0   0   000000777777 0            777777000000 
ET2	031040 034013 0   0   000000777777 0            777777000000 
ST1	031040 034013 0   0   000000777777 0            777777000000 
ST2	031040 034013 0   0   000000777777 0            777777000000 
ST9	031040 034013 0   0   000000777777 0            777777000000 


*031040 CAI 	0,000000
INITIAL
C(AC)=000000 777777 
FINAL


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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 33
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0223

*031041 CAME	0,034015
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031041 031041 0   0   312000034015 0            000000777777 
IT1	031041 0      0   0   312000034015 0            000000777777 
AT3	031041 0      0   0   000000034015 0            312000034015 
AT6	031041 034015 0   0   000000034015 0            312000034015 
FT0	031041 034015 0   0   000000777777 0            312000034015 
FT1A	031041 034015 0   0   000000777777 0            000000777777 
FT2	031041 034015 0   0   0            0            000000777777 
FT2RQ	031041 034015 0   0   000000777777 0            000000777777 
FT3	031041 034015 0   0   000000777777 0            000000777777 
FT9	031042 034015 0   0   000000777777 0            000000777777 
ET0	031043 034015 0   0   0            0            000000777777 
ST1A	031043 034015 0   0   0            0            000000777777 
ST9	031043 034015 0   0   0            0            000000777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031043 031043 0   0   324000031044 0            000000031044 
IT1	031043 0      0   0   324000031044 0            000000031044 
AT3	031043 0      0   0   000000031044 0            324000031044 
AT6	031043 031044 0   0   000000031044 0            324000031044 
FT1A	031043 031044 0   0   000000031044 0            000000031044 
FT2	031043 031044 0   0   0            0            000000031044 
FT2RQ	031043 031044 0   0   000000777777 0            000000031044 
FT3	031043 031044 0   0   000000777777 0            000000031044 
FT9	031044 031044 0   0   000000777777 0            000000031044 
ET0	031044 031044 0   0   000000777777 0            000000031044 
ST1A	031044 031044 0   0   000000777777 0            000000031044 
ST9	031044 031044 0   0   000000777777 0            000000031044 


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

*031044 SETO 	0,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031044 031044 0   0   474000000000 0            0            
IT1	031044 0      0   0   474000000000 0            0            
AT3	031044 0      0   0   0            0            474000000000 
AT6	031044 0      0   0   0            0            474000000000 
FT1A	031044 0      0   0   0            0            0            
FT9	031045 0      0   0   0            0            0            
ET0	031045 0      0   0   777777777777 0            0            
ST1	031045 0      0   0   777777777777 0            0            
ST2	031045 0      0   0   777777777777 0            0            
ST9	031045 0      0   0   777777777777 0            0            


*031045 TDZ 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031045 031045 0   0   630000000000 0            777777777777 
IT1	031045 0      0   0   630000000000 0            777777777777 
AT3	031045 0      0   0   0            0            630000000000 
AT6	031045 0      0   0   0            0            630000000000 
FT0	031045 0      0   0   777777777777 0            630000000000 
FT1A	031045 0      0   0   777777777777 0            777777777777 
FT2	031045 0      0   0   0            0            777777777777 
FT2RQ	031045 0      0   0   777777777777 0            777777777777 
FT3	031045 0      0   0   777777777777 0            777777777777 
FT9	031046 0      0   0   777777777777 0            777777777777 
ET0	031046 0      0   0   777777777777 0            777777777777 
ET1	031046 0      0   0   0            0            777777777777 
ET2	031046 0      0   0   0            0            777777777777 
ST1	031046 0      0   0   0            0            777777777777 
ST2	031046 0      0   0   0            0            777777777777 
ST9	031046 0      0   0   0            0            777777777777 


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

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


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


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

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


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031051 031051 0   0   324000031052 0            000000031052 
IT1	031051 0      0   0   324000031052 0            000000031052 
AT3	031051 0      0   0   000000031052 0            324000031052 
AT6	031051 031052 0   0   000000031052 0            324000031052 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 36
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0226

FT1A	031051 031052 0   0   000000031052 0            000000031052 
FT2	031051 031052 0   0   0            0            000000031052 
FT2RQ	031051 031052 0   0   0            0            000000031052 
FT3	031051 031052 0   0   0            0            000000031052 
FT9	031052 031052 0   0   0            0            000000031052 
ET0	031052 031052 0   0   0            0            000000031052 
ST1A	031052 031052 0   0   0            0            000000031052 
ST9	031052 031052 0   0   0            0            000000031052 


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


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031053 031053 0   0   630000034012 0            0            
IT1	031053 0      0   0   630000034012 0            0            
AT3	031053 0      0   0   000000034012 0            630000034012 
AT6	031053 034012 0   0   000000034012 0            630000034012 
FT0	031053 034012 0   0   777777777777 0            630000034012 
FT1A	031053 034012 0   0   777777777777 0            777777777777 
FT2	031053 034012 0   0   0            0            777777777777 
FT2RQ	031053 034012 0   0   0            0            777777777777 
FT3	031053 034012 0   0   0            0            777777777777 
FT9	031054 034012 0   0   0            0            777777777777 
ET0	031054 034012 0   0   0            0            777777777777 
ET1	031054 034012 0   0   0            0            0            
ET2	031054 034012 0   0   0            0            0            
ST1	031054 034012 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 37
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0227

ST2	031054 034012 0   0   0            0            0            
ST9	031054 034012 0   0   0            0            0            


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


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


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

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


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

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


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


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031060 031060 0   0   474000000000 0            0            
IT1	031060 0      0   0   474000000000 0            0            
AT3	031060 0      0   0   0            0            474000000000 
AT6	031060 0      0   0   0            0            474000000000 
FT1A	031060 0      0   0   0            0            0            
FT9	031061 0      0   0   0            0            0            
ET0	031061 0      0   0   777777777777 0            0            
ST1	031061 0      0   0   777777777777 0            0            
ST2	031061 0      0   0   777777777777 0            0            
ST9	031061 0      0   0   777777777777 0            0            


*031061 TDZ 	0,034014
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031061 031061 0   0   630000034014 0            0            
IT1	031061 0      0   0   630000034014 0            0            
AT3	031061 0      0   0   000000034014 0            630000034014 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 39
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0229

AT6	031061 034014 0   0   000000034014 0            630000034014 
FT0	031061 034014 0   0   0            0            630000034014 
FT1A	031061 034014 0   0   0            0            0            
FT2	031061 034014 0   0   0            0            0            
FT2RQ	031061 034014 0   0   777777777777 0            0            
FT3	031061 034014 0   0   777777777777 0            0            
FT9	031062 034014 0   0   777777777777 0            0            
ET0	031062 034014 0   0   777777777777 0            0            
ET1	031062 034014 0   0   777777777777 0            0            
ET2	031062 034014 0   0   777777777777 0            0            
ST1	031062 034014 0   0   777777777777 0            0            
ST2	031062 034014 0   0   777777777777 0            0            
ST9	031062 034014 0   0   777777777777 0            0            


*031062 CAI 	0,000000
INITIAL
C(AC)=777777 777777 
FINAL


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


*031063 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031063 031063 0   0   312000034012 0            777777777777 
IT1	031063 0      0   0   312000034012 0            777777777777 
AT3	031063 0      0   0   000000034012 0            312000034012 
AT6	031063 034012 0   0   000000034012 0            312000034012 
FT0	031063 034012 0   0   777777777777 0            312000034012 
FT1A	031063 034012 0   0   777777777777 0            777777777777 
FT2	031063 034012 0   0   0            0            777777777777 
FT2RQ	031063 034012 0   0   777777777777 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 40
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0230

FT3	031063 034012 0   0   777777777777 0            777777777777 
FT9	031064 034012 0   0   777777777777 0            777777777777 
ET0	031065 034012 0   0   0            0            777777777777 
ST1A	031065 034012 0   0   0            0            777777777777 
ST9	031065 034012 0   0   0            0            777777777777 


*031065 JUMPA	0,031066
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031065 031065 0   0   324000031066 0            000000031066 
IT1	031065 0      0   0   324000031066 0            000000031066 
AT3	031065 0      0   0   000000031066 0            324000031066 
AT6	031065 031066 0   0   000000031066 0            324000031066 
FT1A	031065 031066 0   0   000000031066 0            000000031066 
FT2	031065 031066 0   0   0            0            000000031066 
FT2RQ	031065 031066 0   0   777777777777 0            000000031066 
FT3	031065 031066 0   0   777777777777 0            000000031066 
FT9	031066 031066 0   0   777777777777 0            000000031066 
ET0	031066 031066 0   0   777777777777 0            000000031066 
ST1A	031066 031066 0   0   777777777777 0            000000031066 
ST9	031066 031066 0   0   777777777777 0            000000031066 


*031066 SETO 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031066 031066 0   0   474000000000 0            0            
IT1	031066 0      0   0   474000000000 0            0            
AT3	031066 0      0   0   0            0            474000000000 
AT6	031066 0      0   0   0            0            474000000000 
FT1A	031066 0      0   0   0            0            0            
FT9	031067 0      0   0   0            0            0            
ET0	031067 0      0   0   777777777777 0            0            
ST1	031067 0      0   0   777777777777 0            0            
ST2	031067 0      0   0   777777777777 0            0            
ST9	031067 0      0   0   777777777777 0            0            


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

*031067 TDC 	0,034015
INITIAL
C(AC)=777777 777777 
C(E)=000000 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031067 031067 0   0   650000034015 0            000000777777 
IT1	031067 0      0   0   650000034015 0            000000777777 
AT3	031067 0      0   0   000000034015 0            650000034015 
AT6	031067 034015 0   0   000000034015 0            650000034015 
FT0	031067 034015 0   0   000000777777 0            650000034015 
FT1A	031067 034015 0   0   000000777777 0            000000777777 
FT2	031067 034015 0   0   0            0            000000777777 
FT2RQ	031067 034015 0   0   777777777777 0            000000777777 
FT3	031067 034015 0   0   777777777777 0            000000777777 
FT9	031070 034015 0   0   777777777777 0            000000777777 
ET0	031070 034015 0   0   777777777777 0            000000777777 
ET1	031070 034015 0   0   777777000000 0            000000777777 
ET2	031070 034015 0   0   777777000000 0            000000777777 
ST1	031070 034015 0   0   777777000000 0            000000777777 
ST2	031070 034015 0   0   777777000000 0            000000777777 
ST9	031070 034015 0   0   777777000000 0            000000777777 


*031070 CAI 	0,000000
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031070 031070 0   0   300000000000 0            0            
IT1	031070 0      0   0   300000000000 0            0            
AT3	031070 0      0   0   0            0            300000000000 
AT6	031070 0      0   0   0            0            300000000000 
FT1A	031070 0      0   0   0            0            0            
FT2	031070 0      0   0   0            0            0            
FT2RQ	031070 0      0   0   777777000000 0            0            
FT3	031070 0      0   0   777777000000 0            0            
FT9	031071 0      0   0   777777000000 0            0            
ET0	031071 0      0   0   777777000000 0            0            
ST1A	031071 0      0   0   777777000000 0            0            
ST9	031071 0      0   0   777777000000 0            0            


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

*031071 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031071 031071 0   0   312000034013 0            777777000000 
IT1	031071 0      0   0   312000034013 0            777777000000 
AT3	031071 0      0   0   000000034013 0            312000034013 
AT6	031071 034013 0   0   000000034013 0            312000034013 
FT0	031071 034013 0   0   777777000000 0            312000034013 
FT1A	031071 034013 0   0   777777000000 0            777777000000 
FT2	031071 034013 0   0   0            0            777777000000 
FT2RQ	031071 034013 0   0   777777000000 0            777777000000 
FT3	031071 034013 0   0   777777000000 0            777777000000 
FT9	031072 034013 0   0   777777000000 0            777777000000 
ET0	031073 034013 0   0   0            0            777777000000 
ST1A	031073 034013 0   0   0            0            777777000000 
ST9	031073 034013 0   0   0            0            777777000000 


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


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


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

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

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


*031075 TDC 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031075 031075 0   0   650000000000 0            0            
IT1	031075 0      0   0   650000000000 0            0            
AT3	031075 0      0   0   0            0            650000000000 
AT6	031075 0      0   0   0            0            650000000000 
FT0	031075 0      0   0   0            0            650000000000 
FT1A	031075 0      0   0   0            0            0            
FT2	031075 0      0   0   0            0            0            
FT2RQ	031075 0      0   0   0            0            0            
FT3	031075 0      0   0   0            0            0            
FT9	031076 0      0   0   0            0            0            
ET0	031076 0      0   0   0            0            0            
ET1	031076 0      0   0   0            0            0            
ET2	031076 0      0   0   0            0            0            
ST1	031076 0      0   0   0            0            0            
ST2	031076 0      0   0   0            0            0            
ST9	031076 0      0   0   0            0            0            


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

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


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


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

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


*031101 JUMPA	0,031102
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031101 031101 0   0   324000031102 0            000000031102 
IT1	031101 0      0   0   324000031102 0            000000031102 
AT3	031101 0      0   0   000000031102 0            324000031102 
AT6	031101 031102 0   0   000000031102 0            324000031102 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 45
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0235

FT1A	031101 031102 0   0   000000031102 0            000000031102 
FT2	031101 031102 0   0   0            0            000000031102 
FT2RQ	031101 031102 0   0   0            0            000000031102 
FT3	031101 031102 0   0   0            0            000000031102 
FT9	031102 031102 0   0   0            0            000000031102 
ET0	031102 031102 0   0   0            0            000000031102 
ST1A	031102 031102 0   0   0            0            000000031102 
ST9	031102 031102 0   0   0            0            000000031102 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031102 031102 0   0   474000000000 0            0            
IT1	031102 0      0   0   474000000000 0            0            
AT3	031102 0      0   0   0            0            474000000000 
AT6	031102 0      0   0   0            0            474000000000 
FT1A	031102 0      0   0   0            0            0            
FT9	031103 0      0   0   0            0            0            
ET0	031103 0      0   0   777777777777 0            0            
ST1	031103 0      0   0   777777777777 0            0            
ST2	031103 0      0   0   777777777777 0            0            
ST9	031103 0      0   0   777777777777 0            0            


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031103 031103 0   0   650000000000 0            777777777777 
IT1	031103 0      0   0   650000000000 0            777777777777 
AT3	031103 0      0   0   0            0            650000000000 
AT6	031103 0      0   0   0            0            650000000000 
FT0	031103 0      0   0   777777777777 0            650000000000 
FT1A	031103 0      0   0   777777777777 0            777777777777 
FT2	031103 0      0   0   0            0            777777777777 
FT2RQ	031103 0      0   0   777777777777 0            777777777777 
FT3	031103 0      0   0   777777777777 0            777777777777 
FT9	031104 0      0   0   777777777777 0            777777777777 
ET0	031104 0      0   0   777777777777 0            777777777777 
ET1	031104 0      0   0   0            0            777777777777 
ET2	031104 0      0   0   0            0            777777777777 
ST1	031104 0      0   0   0            0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 46
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0236

ST2	031104 0      0   0   0            0            777777777777 
ST9	031104 0      0   0   0            0            777777777777 


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


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


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

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


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

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


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


*031111 TDC 	0,034012
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031111 031111 0   0   650000034012 0            0            
IT1	031111 0      0   0   650000034012 0            0            
AT3	031111 0      0   0   000000034012 0            650000034012 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 48
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0238

AT6	031111 034012 0   0   000000034012 0            650000034012 
FT0	031111 034012 0   0   777777777777 0            650000034012 
FT1A	031111 034012 0   0   777777777777 0            777777777777 
FT2	031111 034012 0   0   0            0            777777777777 
FT2RQ	031111 034012 0   0   0            0            777777777777 
FT3	031111 034012 0   0   0            0            777777777777 
FT9	031112 034012 0   0   0            0            777777777777 
ET0	031112 034012 0   0   0            0            777777777777 
ET1	031112 034012 0   0   777777777777 0            0            
ET2	031112 034012 0   0   777777777777 0            0            
ST1	031112 034012 0   0   777777777777 0            0            
ST2	031112 034012 0   0   777777777777 0            0            
ST9	031112 034012 0   0   777777777777 0            0            


*031112 CAI 	0,000000
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031112 031112 0   0   300000000000 0            0            
IT1	031112 0      0   0   300000000000 0            0            
AT3	031112 0      0   0   0            0            300000000000 
AT6	031112 0      0   0   0            0            300000000000 
FT1A	031112 0      0   0   0            0            0            
FT2	031112 0      0   0   0            0            0            
FT2RQ	031112 0      0   0   777777777777 0            0            
FT3	031112 0      0   0   777777777777 0            0            
FT9	031113 0      0   0   777777777777 0            0            
ET0	031113 0      0   0   777777777777 0            0            
ST1A	031113 0      0   0   777777777777 0            0            
ST9	031113 0      0   0   777777777777 0            0            


*031113 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031113 031113 0   0   312000034012 0            777777777777 
IT1	031113 0      0   0   312000034012 0            777777777777 
AT3	031113 0      0   0   000000034012 0            312000034012 
AT6	031113 034012 0   0   000000034012 0            312000034012 
FT0	031113 034012 0   0   777777777777 0            312000034012 
FT1A	031113 034012 0   0   777777777777 0            777777777777 
FT2	031113 034012 0   0   0            0            777777777777 
FT2RQ	031113 034012 0   0   777777777777 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 49
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0239

FT3	031113 034012 0   0   777777777777 0            777777777777 
FT9	031114 034012 0   0   777777777777 0            777777777777 
ET0	031115 034012 0   0   0            0            777777777777 
ST1A	031115 034012 0   0   0            0            777777777777 
ST9	031115 034012 0   0   0            0            777777777777 


*031115 JUMPA	0,031116
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031115 031115 0   0   324000031116 0            000000031116 
IT1	031115 0      0   0   324000031116 0            000000031116 
AT3	031115 0      0   0   000000031116 0            324000031116 
AT6	031115 031116 0   0   000000031116 0            324000031116 
FT1A	031115 031116 0   0   000000031116 0            000000031116 
FT2	031115 031116 0   0   0            0            000000031116 
FT2RQ	031115 031116 0   0   777777777777 0            000000031116 
FT3	031115 031116 0   0   777777777777 0            000000031116 
FT9	031116 031116 0   0   777777777777 0            000000031116 
ET0	031116 031116 0   0   777777777777 0            000000031116 
ST1A	031116 031116 0   0   777777777777 0            000000031116 
ST9	031116 031116 0   0   777777777777 0            000000031116 


*031116 SETO 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031116 031116 0   0   474000000000 0            0            
IT1	031116 0      0   0   474000000000 0            0            
AT3	031116 0      0   0   0            0            474000000000 
AT6	031116 0      0   0   0            0            474000000000 
FT1A	031116 0      0   0   0            0            0            
FT9	031117 0      0   0   0            0            0            
ET0	031117 0      0   0   777777777777 0            0            
ST1	031117 0      0   0   777777777777 0            0            
ST2	031117 0      0   0   777777777777 0            0            
ST9	031117 0      0   0   777777777777 0            0            


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

*031117 TDC 	0,034014
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031117 031117 0   0   650000034014 0            0            
IT1	031117 0      0   0   650000034014 0            0            
AT3	031117 0      0   0   000000034014 0            650000034014 
AT6	031117 034014 0   0   000000034014 0            650000034014 
FT0	031117 034014 0   0   0            0            650000034014 
FT1A	031117 034014 0   0   0            0            0            
FT2	031117 034014 0   0   0            0            0            
FT2RQ	031117 034014 0   0   777777777777 0            0            
FT3	031117 034014 0   0   777777777777 0            0            
FT9	031120 034014 0   0   777777777777 0            0            
ET0	031120 034014 0   0   777777777777 0            0            
ET1	031120 034014 0   0   777777777777 0            0            
ET2	031120 034014 0   0   777777777777 0            0            
ST1	031120 034014 0   0   777777777777 0            0            
ST2	031120 034014 0   0   777777777777 0            0            
ST9	031120 034014 0   0   777777777777 0            0            


*031120 CAI 	0,000000
INITIAL
C(AC)=777777 777777 
FINAL


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


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

*031121 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031121 031121 0   0   312000034012 0            777777777777 
IT1	031121 0      0   0   312000034012 0            777777777777 
AT3	031121 0      0   0   000000034012 0            312000034012 
AT6	031121 034012 0   0   000000034012 0            312000034012 
FT0	031121 034012 0   0   777777777777 0            312000034012 
FT1A	031121 034012 0   0   777777777777 0            777777777777 
FT2	031121 034012 0   0   0            0            777777777777 
FT2RQ	031121 034012 0   0   777777777777 0            777777777777 
FT3	031121 034012 0   0   777777777777 0            777777777777 
FT9	031122 034012 0   0   777777777777 0            777777777777 
ET0	031123 034012 0   0   0            0            777777777777 
ST1A	031123 034012 0   0   0            0            777777777777 
ST9	031123 034012 0   0   0            0            777777777777 


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


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

*031124 SETZ 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

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


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031125 031125 0   0   614000000000 0            0            
IT1	031125 0      0   0   614000000000 0            0            
AT3	031125 0      0   0   0            0            614000000000 
AT6	031125 0      0   0   0            0            614000000000 
FT0	031125 0      0   0   0            0            614000000000 
FT1A	031125 0      0   0   0            0            0            
FT2	031125 0      0   0   0            0            0            
FT2RQ	031125 0      0   0   0            0            0            
FT3	031125 0      0   0   0            0            0            
FT9	031126 0      0   0   0            0            0            
ET0	031126 0      0   0   0            0            0            
ET1	031126 0      0   0   0            0            0            
ET2	031127 0      0   0   0            0            0            
ST1A	031127 0      0   0   0            0            0            
ST9	031127 0      0   0   0            0            0            


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

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


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031130 031130 0   0   474000000000 0            0            
IT1	031130 0      0   0   474000000000 0            0            
AT3	031130 0      0   0   0            0            474000000000 
AT6	031130 0      0   0   0            0            474000000000 
FT1A	031130 0      0   0   0            0            0            
FT9	031131 0      0   0   0            0            0            
ET0	031131 0      0   0   777777777777 0            0            
ST1	031131 0      0   0   777777777777 0            0            
ST2	031131 0      0   0   777777777777 0            0            
ST9	031131 0      0   0   777777777777 0            0            


*031131 TDN 	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	031131 031131 0   0   610000000000 0            777777777777 
IT1	031131 0      0   0   610000000000 0            777777777777 
AT3	031131 0      0   0   0            0            610000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 54
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0244

AT6	031131 0      0   0   0            0            610000000000 
FT0	031131 0      0   0   777777777777 0            610000000000 
FT1A	031131 0      0   0   777777777777 0            777777777777 
FT2	031131 0      0   0   0            0            777777777777 
FT2RQ	031131 0      0   0   777777777777 0            777777777777 
FT3	031131 0      0   0   777777777777 0            777777777777 
FT9	031132 0      0   0   777777777777 0            777777777777 
ET0	031132 0      0   0   777777777777 0            777777777777 
ET1	031132 0      0   0   777777777777 0            777777777777 
ET2	031132 0      0   0   777777777777 0            777777777777 
ST1A	031132 0      0   0   777777777777 0            777777777777 
ST9	031132 0      0   0   777777777777 0            777777777777 


*031132 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	031132 031132 0   0   334000000000 0            777777777777 
IT1	031132 0      0   0   334000000000 0            777777777777 
AT3	031132 0      0   0   0            0            334000000000 
AT6	031132 0      0   0   0            0            334000000000 
FT0	031132 0      0   0   777777777777 0            334000000000 
FT1A	031132 0      0   0   777777777777 0            777777777777 
FT9	031133 0      0   0   777777777777 0            777777777777 
ET0	031134 0      0   0   777777777777 0            777777777777 
ST1A	031134 0      0   0   777777777777 0            777777777777 
ST9	031134 0      0   0   777777777777 0            777777777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031134 031134 0   0   324000031135 0            000000031135 
IT1	031134 0      0   0   324000031135 0            000000031135 
AT3	031134 0      0   0   000000031135 0            324000031135 
AT6	031134 031135 0   0   000000031135 0            324000031135 
FT1A	031134 031135 0   0   000000031135 0            000000031135 
FT2	031134 031135 0   0   0            0            000000031135 
FT2RQ	031134 031135 0   0   777777777777 0            000000031135 
FT3	031134 031135 0   0   777777777777 0            000000031135 
FT9	031135 031135 0   0   777777777777 0            000000031135 
ET0	031135 031135 0   0   777777777777 0            000000031135 
ST1A	031135 031135 0   0   777777777777 0            000000031135 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 55
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0245

ST9	031135 031135 0   0   777777777777 0            000000031135 


*031135 SETZ 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

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


*031136 TDN 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031136 031136 0   0   610000000000 0            0            
IT1	031136 0      0   0   610000000000 0            0            
AT3	031136 0      0   0   0            0            610000000000 
AT6	031136 0      0   0   0            0            610000000000 
FT0	031136 0      0   0   0            0            610000000000 
FT1A	031136 0      0   0   0            0            0            
FT2	031136 0      0   0   0            0            0            
FT2RQ	031136 0      0   0   0            0            0            
FT3	031136 0      0   0   0            0            0            
FT9	031137 0      0   0   0            0            0            
ET0	031137 0      0   0   0            0            0            
ET1	031137 0      0   0   0            0            0            
ET2	031137 0      0   0   0            0            0            
ST1A	031137 0      0   0   0            0            0            
ST9	031137 0      0   0   0            0            0            


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

*031137 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	031137 031137 0   0   334000000000 0            0            
IT1	031137 0      0   0   334000000000 0            0            
AT3	031137 0      0   0   0            0            334000000000 
AT6	031137 0      0   0   0            0            334000000000 
FT0	031137 0      0   0   0            0            334000000000 
FT1A	031137 0      0   0   0            0            0            
FT9	031140 0      0   0   0            0            0            
ET0	031141 0      0   0   0            0            0            
ST1A	031141 0      0   0   0            0            0            
ST9	031141 0      0   0   0            0            0            


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


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


*031142 MOVE 	0,034013
INITIAL
C(AC)=000000 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031142 031142 0   0   200000034013 0            777777000000 
IT1	031142 0      0   0   200000034013 0            777777000000 
AT3	031142 0      0   0   000000034013 0            200000034013 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 57
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0247

AT6	031142 034013 0   0   000000034013 0            200000034013 
FT0	031142 034013 0   0   777777000000 0            200000034013 
FT1A	031142 034013 0   0   777777000000 0            777777000000 
FT9	031143 034013 0   0   777777000000 0            777777000000 
ET0	031143 034013 0   0   777777000000 0            777777000000 
ST1	031143 034013 0   0   777777000000 0            777777000000 
ST2	031143 034013 0   0   777777000000 0            777777000000 
ST9	031143 034013 0   0   777777000000 0            777777000000 


*031143 TDNE	0,034016
INITIAL
C(AC)=777777 000000 
C(E)=707070 707070 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031143 031143 0   0   612000034016 0            707070000000 
IT1	031143 0      0   0   612000034016 0            707070000000 
AT3	031143 0      0   0   000000034016 0            612000034016 
AT6	031143 034016 0   0   000000034016 0            612000034016 
FT0	031143 034016 0   0   707070707070 0            612000034016 
FT1A	031143 034016 0   0   707070707070 0            707070707070 
FT2	031143 034016 0   0   0            0            707070707070 
FT2RQ	031143 034016 0   0   777777000000 0            707070707070 
FT3	031143 034016 0   0   777777000000 0            707070707070 
FT9	031144 034016 0   0   777777000000 0            707070707070 
ET0	031144 034016 0   0   777777000000 0            707070707070 
ET1	031144 034016 0   0   777777000000 0            707070000000 
ET2	031144 034016 0   0   777777000000 0            707070000000 
ST1A	031144 034016 0   0   777777000000 0            707070000000 
ST9	031144 034016 0   0   777777000000 0            707070000000 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031144 031144 0   0   334000000000 0            777777000000 
IT1	031144 0      0   0   334000000000 0            777777000000 
AT3	031144 0      0   0   0            0            334000000000 
AT6	031144 0      0   0   0            0            334000000000 
FT0	031144 0      0   0   777777000000 0            334000000000 
FT1A	031144 0      0   0   777777000000 0            777777000000 
FT9	031145 0      0   0   777777000000 0            777777000000 
ET0	031146 0      0   0   777777000000 0            777777000000 
ST1A	031146 0      0   0   777777000000 0            777777000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 58
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0248

ST9	031146 0      0   0   777777000000 0            777777000000 


*031146 JUMPA	0,031147
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031146 031146 0   0   324000031147 0            000000031147 
IT1	031146 0      0   0   324000031147 0            000000031147 
AT3	031146 0      0   0   000000031147 0            324000031147 
AT6	031146 031147 0   0   000000031147 0            324000031147 
FT1A	031146 031147 0   0   000000031147 0            000000031147 
FT2	031146 031147 0   0   0            0            000000031147 
FT2RQ	031146 031147 0   0   777777000000 0            000000031147 
FT3	031146 031147 0   0   777777000000 0            000000031147 
FT9	031147 031147 0   0   777777000000 0            000000031147 
ET0	031147 031147 0   0   777777000000 0            000000031147 
ST1A	031147 031147 0   0   777777000000 0            000000031147 
ST9	031147 031147 0   0   777777000000 0            000000031147 


*031147 SETZ 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=000000 000000 

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


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

*031150 TDNE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031150 031150 0   0   612000000000 0            0            
IT1	031150 0      0   0   612000000000 0            0            
AT3	031150 0      0   0   0            0            612000000000 
AT6	031150 0      0   0   0            0            612000000000 
FT0	031150 0      0   0   0            0            612000000000 
FT1A	031150 0      0   0   0            0            0            
FT2	031150 0      0   0   0            0            0            
FT2RQ	031150 0      0   0   0            0            0            
FT3	031150 0      0   0   0            0            0            
FT9	031151 0      0   0   0            0            0            
ET0	031151 0      0   0   0            0            0            
ET1	031151 0      0   0   0            0            0            
ET2	031152 0      0   0   0            0            0            
ST1A	031152 0      0   0   0            0            0            
ST9	031152 0      0   0   0            0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031152 031152 0   0   324000031153 0            000000031153 
IT1	031152 0      0   0   324000031153 0            000000031153 
AT3	031152 0      0   0   000000031153 0            324000031153 
AT6	031152 031153 0   0   000000031153 0            324000031153 
FT1A	031152 031153 0   0   000000031153 0            000000031153 
FT2	031152 031153 0   0   0            0            000000031153 
FT2RQ	031152 031153 0   0   0            0            000000031153 
FT3	031152 031153 0   0   0            0            000000031153 
FT9	031153 031153 0   0   0            0            000000031153 
ET0	031153 031153 0   0   0            0            000000031153 
ST1A	031153 031153 0   0   0            0            000000031153 
ST9	031153 031153 0   0   0            0            000000031153 


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

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


*031154 TDNN	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031154 031154 0   0   616000000000 0            0            
IT1	031154 0      0   0   616000000000 0            0            
AT3	031154 0      0   0   0            0            616000000000 
AT6	031154 0      0   0   0            0            616000000000 
FT0	031154 0      0   0   0            0            616000000000 
FT1A	031154 0      0   0   0            0            0            
FT2	031154 0      0   0   0            0            0            
FT2RQ	031154 0      0   0   0            0            0            
FT3	031154 0      0   0   0            0            0            
FT9	031155 0      0   0   0            0            0            
ET0	031155 0      0   0   0            0            0            
ET1	031155 0      0   0   0            0            0            
ET2	031155 0      0   0   0            0            0            
ST1A	031155 0      0   0   0            0            0            
ST9	031155 0      0   0   0            0            0            


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

*031155 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	031155 031155 0   0   334000000000 0            0            
IT1	031155 0      0   0   334000000000 0            0            
AT3	031155 0      0   0   0            0            334000000000 
AT6	031155 0      0   0   0            0            334000000000 
FT0	031155 0      0   0   0            0            334000000000 
FT1A	031155 0      0   0   0            0            0            
FT9	031156 0      0   0   0            0            0            
ET0	031157 0      0   0   0            0            0            
ST1A	031157 0      0   0   0            0            0            
ST9	031157 0      0   0   0            0            0            


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


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


*031160 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

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

AT6	031160 0      0   0   0            0            474000000000 
FT1A	031160 0      0   0   0            0            0            
FT9	031161 0      0   0   0            0            0            
ET0	031161 0      0   0   777777777777 0            0            
ST1	031161 0      0   0   777777777777 0            0            
ST2	031161 0      0   0   777777777777 0            0            
ST9	031161 0      0   0   777777777777 0            0            


*031161 TDNA	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	031161 031161 0   0   614000000000 0            777777777777 
IT1	031161 0      0   0   614000000000 0            777777777777 
AT3	031161 0      0   0   0            0            614000000000 
AT6	031161 0      0   0   0            0            614000000000 
FT0	031161 0      0   0   777777777777 0            614000000000 
FT1A	031161 0      0   0   777777777777 0            777777777777 
FT2	031161 0      0   0   0            0            777777777777 
FT2RQ	031161 0      0   0   777777777777 0            777777777777 
FT3	031161 0      0   0   777777777777 0            777777777777 
FT9	031162 0      0   0   777777777777 0            777777777777 
ET0	031162 0      0   0   777777777777 0            777777777777 
ET1	031162 0      0   0   777777777777 0            777777777777 
ET2	031163 0      0   0   777777777777 0            777777777777 
ST1A	031163 0      0   0   777777777777 0            777777777777 
ST9	031163 0      0   0   777777777777 0            777777777777 


*031163 JUMPA	0,031164
INITIAL
C(AC)=777777 777777 
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 
FT1A	031163 031164 0   0   000000031164 0            000000031164 
FT2	031163 031164 0   0   0            0            000000031164 
FT2RQ	031163 031164 0   0   777777777777 0            000000031164 
FT3	031163 031164 0   0   777777777777 0            000000031164 
FT9	031164 031164 0   0   777777777777 0            000000031164 
ET0	031164 031164 0   0   777777777777 0            000000031164 
ST1A	031164 031164 0   0   777777777777 0            000000031164 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 63
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0253

ST9	031164 031164 0   0   777777777777 0            000000031164 


*031164 MOVE 	0,034013
INITIAL
C(AC)=777777 777777 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031164 031164 0   0   200000034013 0            777777000000 
IT1	031164 0      0   0   200000034013 0            777777000000 
AT3	031164 0      0   0   000000034013 0            200000034013 
AT6	031164 034013 0   0   000000034013 0            200000034013 
FT0	031164 034013 0   0   777777000000 0            200000034013 
FT1A	031164 034013 0   0   777777000000 0            777777000000 
FT9	031165 034013 0   0   777777000000 0            777777000000 
ET0	031165 034013 0   0   777777000000 0            777777000000 
ST1	031165 034013 0   0   777777000000 0            777777000000 
ST2	031165 034013 0   0   777777000000 0            777777000000 
ST9	031165 034013 0   0   777777000000 0            777777000000 


*031165 TDNN	0,034016
INITIAL
C(AC)=777777 000000 
C(E)=707070 707070 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031165 031165 0   0   616000034016 0            707070000000 
IT1	031165 0      0   0   616000034016 0            707070000000 
AT3	031165 0      0   0   000000034016 0            616000034016 
AT6	031165 034016 0   0   000000034016 0            616000034016 
FT0	031165 034016 0   0   707070707070 0            616000034016 
FT1A	031165 034016 0   0   707070707070 0            707070707070 
FT2	031165 034016 0   0   0            0            707070707070 
FT2RQ	031165 034016 0   0   777777000000 0            707070707070 
FT3	031165 034016 0   0   777777000000 0            707070707070 
FT9	031166 034016 0   0   777777000000 0            707070707070 
ET0	031166 034016 0   0   777777000000 0            707070707070 
ET1	031166 034016 0   0   777777000000 0            707070000000 
ET2	031167 034016 0   0   777777000000 0            707070000000 
ST1A	031167 034016 0   0   777777000000 0            707070000000 
ST9	031167 034016 0   0   777777000000 0            707070000000 


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

*031167 JUMPA	0,031170
INITIAL
C(AC)=777777 000000 
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   777777000000 0            000000031170 
FT3	031167 031170 0   0   777777000000 0            000000031170 
FT9	031170 031170 0   0   777777000000 0            000000031170 
ET0	031170 031170 0   0   777777000000 0            000000031170 
ST1A	031170 031170 0   0   777777000000 0            000000031170 
ST9	031170 031170 0   0   777777000000 0            000000031170 


*031170 SETO 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 777777 

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


*031171 TDNE	0,034014
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031171 031171 0   0   612000034014 0            0            
IT1	031171 0      0   0   612000034014 0            0            
AT3	031171 0      0   0   000000034014 0            612000034014 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 65
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0255

AT6	031171 034014 0   0   000000034014 0            612000034014 
FT0	031171 034014 0   0   0            0            612000034014 
FT1A	031171 034014 0   0   0            0            0            
FT2	031171 034014 0   0   0            0            0            
FT2RQ	031171 034014 0   0   777777777777 0            0            
FT3	031171 034014 0   0   777777777777 0            0            
FT9	031172 034014 0   0   777777777777 0            0            
ET0	031172 034014 0   0   777777777777 0            0            
ET1	031172 034014 0   0   777777777777 0            0            
ET2	031173 034014 0   0   777777777777 0            0            
ST1A	031173 034014 0   0   777777777777 0            0            
ST9	031173 034014 0   0   777777777777 0            0            


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


*031174 SETZ 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031174 031174 0   0   400000000000 0            0            
IT1	031174 0      0   0   400000000000 0            0            
AT3	031174 0      0   0   0            0            400000000000 
AT6	031174 0      0   0   0            0            400000000000 
FT1A	031174 0      0   0   0            0            0            
FT9	031175 0      0   0   0            0            0            
ET0	031175 0      0   0   0            0            0            
ST1	031175 0      0   0   0            0            0            
ST2	031175 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 66
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0256

ST9	031175 0      0   0   0            0            0            


*031175 TDNE	0,034012
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031175 031175 0   0   612000034012 0            0            
IT1	031175 0      0   0   612000034012 0            0            
AT3	031175 0      0   0   000000034012 0            612000034012 
AT6	031175 034012 0   0   000000034012 0            612000034012 
FT0	031175 034012 0   0   777777777777 0            612000034012 
FT1A	031175 034012 0   0   777777777777 0            777777777777 
FT2	031175 034012 0   0   0            0            777777777777 
FT2RQ	031175 034012 0   0   0            0            777777777777 
FT3	031175 034012 0   0   0            0            777777777777 
FT9	031176 034012 0   0   0            0            777777777777 
ET0	031176 034012 0   0   0            0            777777777777 
ET1	031176 034012 0   0   0            0            0            
ET2	031177 034012 0   0   0            0            0            
ST1A	031177 034012 0   0   0            0            0            
ST9	031177 034012 0   0   0            0            0            


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


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

*031200 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

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


*031201 TDN 	0,034014
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031201 031201 0   0   610000034014 0            0            
IT1	031201 0      0   0   610000034014 0            0            
AT3	031201 0      0   0   000000034014 0            610000034014 
AT6	031201 034014 0   0   000000034014 0            610000034014 
FT0	031201 034014 0   0   0            0            610000034014 
FT1A	031201 034014 0   0   0            0            0            
FT2	031201 034014 0   0   0            0            0            
FT2RQ	031201 034014 0   0   777777777777 0            0            
FT3	031201 034014 0   0   777777777777 0            0            
FT9	031202 034014 0   0   777777777777 0            0            
ET0	031202 034014 0   0   777777777777 0            0            
ET1	031202 034014 0   0   777777777777 0            0            
ET2	031202 034014 0   0   777777777777 0            0            
ST1A	031202 034014 0   0   777777777777 0            0            
ST9	031202 034014 0   0   777777777777 0            0            


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

*031202 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	031202 031202 0   0   334000000000 0            777777777777 
IT1	031202 0      0   0   334000000000 0            777777777777 
AT3	031202 0      0   0   0            0            334000000000 
AT6	031202 0      0   0   0            0            334000000000 
FT0	031202 0      0   0   777777777777 0            334000000000 
FT1A	031202 0      0   0   777777777777 0            777777777777 
FT9	031203 0      0   0   777777777777 0            777777777777 
ET0	031204 0      0   0   777777777777 0            777777777777 
ST1A	031204 0      0   0   777777777777 0            777777777777 
ST9	031204 0      0   0   777777777777 0            777777777777 


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


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


*031205 SETZ 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031205 031205 0   0   400000000000 0            0            
IT1	031205 0      0   0   400000000000 0            0            
AT3	031205 0      0   0   0            0            400000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 69
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0259

AT6	031205 0      0   0   0            0            400000000000 
FT1A	031205 0      0   0   0            0            0            
FT9	031206 0      0   0   0            0            0            
ET0	031206 0      0   0   0            0            0            
ST1	031206 0      0   0   0            0            0            
ST2	031206 0      0   0   0            0            0            
ST9	031206 0      0   0   0            0            0            


*031206 TDN 	0,034012
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031206 031206 0   0   610000034012 0            0            
IT1	031206 0      0   0   610000034012 0            0            
AT3	031206 0      0   0   000000034012 0            610000034012 
AT6	031206 034012 0   0   000000034012 0            610000034012 
FT0	031206 034012 0   0   777777777777 0            610000034012 
FT1A	031206 034012 0   0   777777777777 0            777777777777 
FT2	031206 034012 0   0   0            0            777777777777 
FT2RQ	031206 034012 0   0   0            0            777777777777 
FT3	031206 034012 0   0   0            0            777777777777 
FT9	031207 034012 0   0   0            0            777777777777 
ET0	031207 034012 0   0   0            0            777777777777 
ET1	031207 034012 0   0   0            0            0            
ET2	031207 034012 0   0   0            0            0            
ST1A	031207 034012 0   0   0            0            0            
ST9	031207 034012 0   0   0            0            0            


*031207 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	031207 031207 0   0   334000000000 0            0            
IT1	031207 0      0   0   334000000000 0            0            
AT3	031207 0      0   0   0            0            334000000000 
AT6	031207 0      0   0   0            0            334000000000 
FT0	031207 0      0   0   0            0            334000000000 
FT1A	031207 0      0   0   0            0            0            
FT9	031210 0      0   0   0            0            0            
ET0	031211 0      0   0   0            0            0            
ST1A	031211 0      0   0   0            0            0            
ST9	031211 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 70
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0260



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


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


*031212 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

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


*031213 TDNA	0,034014
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031213 031213 0   0   614000034014 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 71
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0261

IT1	031213 0      0   0   614000034014 0            0            
AT3	031213 0      0   0   000000034014 0            614000034014 
AT6	031213 034014 0   0   000000034014 0            614000034014 
FT0	031213 034014 0   0   0            0            614000034014 
FT1A	031213 034014 0   0   0            0            0            
FT2	031213 034014 0   0   0            0            0            
FT2RQ	031213 034014 0   0   777777777777 0            0            
FT3	031213 034014 0   0   777777777777 0            0            
FT9	031214 034014 0   0   777777777777 0            0            
ET0	031214 034014 0   0   777777777777 0            0            
ET1	031214 034014 0   0   777777777777 0            0            
ET2	031215 034014 0   0   777777777777 0            0            
ST1A	031215 034014 0   0   777777777777 0            0            
ST9	031215 034014 0   0   777777777777 0            0            


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


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


*031216 SETZ 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031216 031216 0   0   400000000000 0            0            
IT1	031216 0      0   0   400000000000 0            0            
AT3	031216 0      0   0   0            0            400000000000 
AT6	031216 0      0   0   0            0            400000000000 
FT1A	031216 0      0   0   0            0            0            
FT9	031217 0      0   0   0            0            0            
ET0	031217 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 72
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0262

ST1	031217 0      0   0   0            0            0            
ST2	031217 0      0   0   0            0            0            
ST9	031217 0      0   0   0            0            0            


*031217 TDNA	0,034012
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031217 031217 0   0   614000034012 0            0            
IT1	031217 0      0   0   614000034012 0            0            
AT3	031217 0      0   0   000000034012 0            614000034012 
AT6	031217 034012 0   0   000000034012 0            614000034012 
FT0	031217 034012 0   0   777777777777 0            614000034012 
FT1A	031217 034012 0   0   777777777777 0            777777777777 
FT2	031217 034012 0   0   0            0            777777777777 
FT2RQ	031217 034012 0   0   0            0            777777777777 
FT3	031217 034012 0   0   0            0            777777777777 
FT9	031220 034012 0   0   0            0            777777777777 
ET0	031220 034012 0   0   0            0            777777777777 
ET1	031220 034012 0   0   0            0            0            
ET2	031221 034012 0   0   0            0            0            
ST1A	031221 034012 0   0   0            0            0            
ST9	031221 034012 0   0   0            0            0            


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


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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 73
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0263

*031222 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

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


*031223 TDNE	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	031223 031223 0   0   612000000000 0            777777777777 
IT1	031223 0      0   0   612000000000 0            777777777777 
AT3	031223 0      0   0   0            0            612000000000 
AT6	031223 0      0   0   0            0            612000000000 
FT0	031223 0      0   0   777777777777 0            612000000000 
FT1A	031223 0      0   0   777777777777 0            777777777777 
FT2	031223 0      0   0   0            0            777777777777 
FT2RQ	031223 0      0   0   777777777777 0            777777777777 
FT3	031223 0      0   0   777777777777 0            777777777777 
FT9	031224 0      0   0   777777777777 0            777777777777 
ET0	031224 0      0   0   777777777777 0            777777777777 
ET1	031224 0      0   0   777777777777 0            777777777777 
ET2	031224 0      0   0   777777777777 0            777777777777 
ST1A	031224 0      0   0   777777777777 0            777777777777 
ST9	031224 0      0   0   777777777777 0            777777777777 


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

*031224 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	031224 031224 0   0   334000000000 0            777777777777 
IT1	031224 0      0   0   334000000000 0            777777777777 
AT3	031224 0      0   0   0            0            334000000000 
AT6	031224 0      0   0   0            0            334000000000 
FT0	031224 0      0   0   777777777777 0            334000000000 
FT1A	031224 0      0   0   777777777777 0            777777777777 
FT9	031225 0      0   0   777777777777 0            777777777777 
ET0	031226 0      0   0   777777777777 0            777777777777 
ST1A	031226 0      0   0   777777777777 0            777777777777 
ST9	031226 0      0   0   777777777777 0            777777777777 


*031226 JUMPA	0,031227
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031226 031226 0   0   324000031227 0            000000031227 
IT1	031226 0      0   0   324000031227 0            000000031227 
AT3	031226 0      0   0   000000031227 0            324000031227 
AT6	031226 031227 0   0   000000031227 0            324000031227 
FT1A	031226 031227 0   0   000000031227 0            000000031227 
FT2	031226 031227 0   0   0            0            000000031227 
FT2RQ	031226 031227 0   0   777777777777 0            000000031227 
FT3	031226 031227 0   0   777777777777 0            000000031227 
FT9	031227 031227 0   0   777777777777 0            000000031227 
ET0	031227 031227 0   0   777777777777 0            000000031227 
ST1A	031227 031227 0   0   777777777777 0            000000031227 
ST9	031227 031227 0   0   777777777777 0            000000031227 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031227 031227 0   0   474000000000 0            0            
IT1	031227 0      0   0   474000000000 0            0            
AT3	031227 0      0   0   0            0            474000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 75
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0265

AT6	031227 0      0   0   0            0            474000000000 
FT1A	031227 0      0   0   0            0            0            
FT9	031230 0      0   0   0            0            0            
ET0	031230 0      0   0   777777777777 0            0            
ST1	031230 0      0   0   777777777777 0            0            
ST2	031230 0      0   0   777777777777 0            0            
ST9	031230 0      0   0   777777777777 0            0            


*031230 TDNN	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	031230 031230 0   0   616000000000 0            777777777777 
IT1	031230 0      0   0   616000000000 0            777777777777 
AT3	031230 0      0   0   0            0            616000000000 
AT6	031230 0      0   0   0            0            616000000000 
FT0	031230 0      0   0   777777777777 0            616000000000 
FT1A	031230 0      0   0   777777777777 0            777777777777 
FT2	031230 0      0   0   0            0            777777777777 
FT2RQ	031230 0      0   0   777777777777 0            777777777777 
FT3	031230 0      0   0   777777777777 0            777777777777 
FT9	031231 0      0   0   777777777777 0            777777777777 
ET0	031231 0      0   0   777777777777 0            777777777777 
ET1	031231 0      0   0   777777777777 0            777777777777 
ET2	031232 0      0   0   777777777777 0            777777777777 
ST1A	031232 0      0   0   777777777777 0            777777777777 
ST9	031232 0      0   0   777777777777 0            777777777777 


*031232 JUMPA	0,031233
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031232 031232 0   0   324000031233 0            000000031233 
IT1	031232 0      0   0   324000031233 0            000000031233 
AT3	031232 0      0   0   000000031233 0            324000031233 
AT6	031232 031233 0   0   000000031233 0            324000031233 
FT1A	031232 031233 0   0   000000031233 0            000000031233 
FT2	031232 031233 0   0   0            0            000000031233 
FT2RQ	031232 031233 0   0   777777777777 0            000000031233 
FT3	031232 031233 0   0   777777777777 0            000000031233 
FT9	031233 031233 0   0   777777777777 0            000000031233 
ET0	031233 031233 0   0   777777777777 0            000000031233 
ST1A	031233 031233 0   0   777777777777 0            000000031233 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 76
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0266

ST9	031233 031233 0   0   777777777777 0            000000031233 


*031233 SETZ 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

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


*031234 TDNN	0,034012
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031234 031234 0   0   616000034012 0            0            
IT1	031234 0      0   0   616000034012 0            0            
AT3	031234 0      0   0   000000034012 0            616000034012 
AT6	031234 034012 0   0   000000034012 0            616000034012 
FT0	031234 034012 0   0   777777777777 0            616000034012 
FT1A	031234 034012 0   0   777777777777 0            777777777777 
FT2	031234 034012 0   0   0            0            777777777777 
FT2RQ	031234 034012 0   0   0            0            777777777777 
FT3	031234 034012 0   0   0            0            777777777777 
FT9	031235 034012 0   0   0            0            777777777777 
ET0	031235 034012 0   0   0            0            777777777777 
ET1	031235 034012 0   0   0            0            0            
ET2	031235 034012 0   0   0            0            0            
ST1A	031235 034012 0   0   0            0            0            
ST9	031235 034012 0   0   0            0            0            


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

*031235 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	031235 031235 0   0   334000000000 0            0            
IT1	031235 0      0   0   334000000000 0            0            
AT3	031235 0      0   0   0            0            334000000000 
AT6	031235 0      0   0   0            0            334000000000 
FT0	031235 0      0   0   0            0            334000000000 
FT1A	031235 0      0   0   0            0            0            
FT9	031236 0      0   0   0            0            0            
ET0	031237 0      0   0   0            0            0            
ST1A	031237 0      0   0   0            0            0            
ST9	031237 0      0   0   0            0            0            


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


*031240 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031240 031240 0   0   474000000000 0            0            
IT1	031240 0      0   0   474000000000 0            0            
AT3	031240 0      0   0   0            0            474000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 78
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0268

AT6	031240 0      0   0   0            0            474000000000 
FT1A	031240 0      0   0   0            0            0            
FT9	031241 0      0   0   0            0            0            
ET0	031241 0      0   0   777777777777 0            0            
ST1	031241 0      0   0   777777777777 0            0            
ST2	031241 0      0   0   777777777777 0            0            
ST9	031241 0      0   0   777777777777 0            0            


*031241 TDNN	0,034014
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031241 031241 0   0   616000034014 0            0            
IT1	031241 0      0   0   616000034014 0            0            
AT3	031241 0      0   0   000000034014 0            616000034014 
AT6	031241 034014 0   0   000000034014 0            616000034014 
FT0	031241 034014 0   0   0            0            616000034014 
FT1A	031241 034014 0   0   0            0            0            
FT2	031241 034014 0   0   0            0            0            
FT2RQ	031241 034014 0   0   777777777777 0            0            
FT3	031241 034014 0   0   777777777777 0            0            
FT9	031242 034014 0   0   777777777777 0            0            
ET0	031242 034014 0   0   777777777777 0            0            
ET1	031242 034014 0   0   777777777777 0            0            
ET2	031242 034014 0   0   777777777777 0            0            
ST1A	031242 034014 0   0   777777777777 0            0            
ST9	031242 034014 0   0   777777777777 0            0            


*031242 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	031242 031242 0   0   334000000000 0            777777777777 
IT1	031242 0      0   0   334000000000 0            777777777777 
AT3	031242 0      0   0   0            0            334000000000 
AT6	031242 0      0   0   0            0            334000000000 
FT0	031242 0      0   0   777777777777 0            334000000000 
FT1A	031242 0      0   0   777777777777 0            777777777777 
FT9	031243 0      0   0   777777777777 0            777777777777 
ET0	031244 0      0   0   777777777777 0            777777777777 
ST1A	031244 0      0   0   777777777777 0            777777777777 
ST9	031244 0      0   0   777777777777 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 79
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0269



*031244 JUMPA	0,031245
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031244 031244 0   0   324000031245 0            000000031245 
IT1	031244 0      0   0   324000031245 0            000000031245 
AT3	031244 0      0   0   000000031245 0            324000031245 
AT6	031244 031245 0   0   000000031245 0            324000031245 
FT1A	031244 031245 0   0   000000031245 0            000000031245 
FT2	031244 031245 0   0   0            0            000000031245 
FT2RQ	031244 031245 0   0   777777777777 0            000000031245 
FT3	031244 031245 0   0   777777777777 0            000000031245 
FT9	031245 031245 0   0   777777777777 0            000000031245 
ET0	031245 031245 0   0   777777777777 0            000000031245 
ST1A	031245 031245 0   0   777777777777 0            000000031245 
ST9	031245 031245 0   0   777777777777 0            000000031245 


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

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


*031246 TDO 	0,034013
INITIAL
C(AC)=000000 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031246 031246 0   0   670000034013 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 80
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0270

IT1	031246 0      0   0   670000034013 0            0            
AT3	031246 0      0   0   000000034013 0            670000034013 
AT6	031246 034013 0   0   000000034013 0            670000034013 
FT0	031246 034013 0   0   777777000000 0            670000034013 
FT1A	031246 034013 0   0   777777000000 0            777777000000 
FT2	031246 034013 0   0   0            0            777777000000 
FT2RQ	031246 034013 0   0   0            0            777777000000 
FT3	031246 034013 0   0   0            0            777777000000 
FT9	031247 034013 0   0   0            0            777777000000 
ET0	031247 034013 0   0   0            0            777777000000 
ET1	031247 034013 0   0   777777000000 0            0            
ET2	031247 034013 0   0   777777000000 0            0            
ST1	031247 034013 0   0   777777000000 0            0            
ST2	031247 034013 0   0   777777000000 0            0            
ST9	031247 034013 0   0   777777000000 0            0            


*031247 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031247 031247 0   0   312000034013 0            777777000000 
IT1	031247 0      0   0   312000034013 0            777777000000 
AT3	031247 0      0   0   000000034013 0            312000034013 
AT6	031247 034013 0   0   000000034013 0            312000034013 
FT0	031247 034013 0   0   777777000000 0            312000034013 
FT1A	031247 034013 0   0   777777000000 0            777777000000 
FT2	031247 034013 0   0   0            0            777777000000 
FT2RQ	031247 034013 0   0   777777000000 0            777777000000 
FT3	031247 034013 0   0   777777000000 0            777777000000 
FT9	031250 034013 0   0   777777000000 0            777777000000 
ET0	031251 034013 0   0   0            0            777777000000 
ST1A	031251 034013 0   0   0            0            777777000000 
ST9	031251 034013 0   0   0            0            777777000000 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031251 031251 0   0   324000031252 0            000000031252 
IT1	031251 0      0   0   324000031252 0            000000031252 
AT3	031251 0      0   0   000000031252 0            324000031252 
AT6	031251 031252 0   0   000000031252 0            324000031252 
FT1A	031251 031252 0   0   000000031252 0            000000031252 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 81
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0271

FT2	031251 031252 0   0   0            0            000000031252 
FT2RQ	031251 031252 0   0   777777000000 0            000000031252 
FT3	031251 031252 0   0   777777000000 0            000000031252 
FT9	031252 031252 0   0   777777000000 0            000000031252 
ET0	031252 031252 0   0   777777000000 0            000000031252 
ST1A	031252 031252 0   0   777777000000 0            000000031252 
ST9	031252 031252 0   0   777777000000 0            000000031252 


*031252 SETZ 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=000000 000000 

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


*031253 TSO 	0,034013
INITIAL
C(AC)=000000 000000 
C(E)=777777 000000 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031253 031253 0   0   671000034013 0            0            
IT1	031253 0      0   0   671000034013 0            0            
AT3	031253 0      0   0   000000034013 0            671000034013 
AT6	031253 034013 0   0   000000034013 0            671000034013 
FT0	031253 034013 0   0   777777000000 0            671000034013 
FT1A	031253 034013 0   0   777777000000 0            777777000000 
FT2	031253 034013 0   0   0            0            777777000000 
FT2RQ	031253 034013 0   0   0            0            777777000000 
FT3	031253 034013 0   0   0            0            777777000000 
FT9	031254 034013 0   0   0            0            777777000000 
ET0	031254 034013 0   0   0            0            777777000000 
ET1	031254 034013 0   0   777777000000 0            0            
ET2	031254 034013 0   0   000000777777 0            0            
ST1	031254 034013 0   0   000000777777 0            0            
ST2	031254 034013 0   0   000000777777 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 82
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0272

ST9	031254 034013 0   0   000000777777 0            0            


*031254 CAME	0,034015
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031254 031254 0   0   312000034015 0            000000777777 
IT1	031254 0      0   0   312000034015 0            000000777777 
AT3	031254 0      0   0   000000034015 0            312000034015 
AT6	031254 034015 0   0   000000034015 0            312000034015 
FT0	031254 034015 0   0   000000777777 0            312000034015 
FT1A	031254 034015 0   0   000000777777 0            000000777777 
FT2	031254 034015 0   0   0            0            000000777777 
FT2RQ	031254 034015 0   0   000000777777 0            000000777777 
FT3	031254 034015 0   0   000000777777 0            000000777777 
FT9	031255 034015 0   0   000000777777 0            000000777777 
ET0	031256 034015 0   0   0            0            000000777777 
ST1A	031256 034015 0   0   0            0            000000777777 
ST9	031256 034015 0   0   0            0            000000777777 


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


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


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

*031257 SETZ 	0,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=000000 000000 

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


*031260 TSO 	0,034015
INITIAL
C(AC)=000000 000000 
C(E)=000000 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031260 031260 0   0   671000034015 0            0            
IT1	031260 0      0   0   671000034015 0            0            
AT3	031260 0      0   0   000000034015 0            671000034015 
AT6	031260 034015 0   0   000000034015 0            671000034015 
FT0	031260 034015 0   0   000000777777 0            671000034015 
FT1A	031260 034015 0   0   000000777777 0            000000777777 
FT2	031260 034015 0   0   0            0            000000777777 
FT2RQ	031260 034015 0   0   0            0            000000777777 
FT3	031260 034015 0   0   0            0            000000777777 
FT9	031261 034015 0   0   0            0            000000777777 
ET0	031261 034015 0   0   0            0            000000777777 
ET1	031261 034015 0   0   000000777777 0            0            
ET2	031261 034015 0   0   777777000000 0            0            
ST1	031261 034015 0   0   777777000000 0            0            
ST2	031261 034015 0   0   777777000000 0            0            
ST9	031261 034015 0   0   777777000000 0            0            


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

*031261 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031261 031261 0   0   312000034013 0            777777000000 
IT1	031261 0      0   0   312000034013 0            777777000000 
AT3	031261 0      0   0   000000034013 0            312000034013 
AT6	031261 034013 0   0   000000034013 0            312000034013 
FT0	031261 034013 0   0   777777000000 0            312000034013 
FT1A	031261 034013 0   0   777777000000 0            777777000000 
FT2	031261 034013 0   0   0            0            777777000000 
FT2RQ	031261 034013 0   0   777777000000 0            777777000000 
FT3	031261 034013 0   0   777777000000 0            777777000000 
FT9	031262 034013 0   0   777777000000 0            777777000000 
ET0	031263 034013 0   0   0            0            777777000000 
ST1A	031263 034013 0   0   0            0            777777000000 
ST9	031263 034013 0   0   0            0            777777000000 


*031263 JUMPA	0,031264
INITIAL
C(AC)=777777 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   777777000000 0            000000031264 
FT3	031263 031264 0   0   777777000000 0            000000031264 
FT9	031264 031264 0   0   777777000000 0            000000031264 
ET0	031264 031264 0   0   777777000000 0            000000031264 
ST1A	031264 031264 0   0   777777000000 0            000000031264 
ST9	031264 031264 0   0   777777000000 0            000000031264 


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

*031264 SETZ 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=000000 000000 

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


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031265 031265 0   0   671000000000 0            0            
IT1	031265 0      0   0   671000000000 0            0            
AT3	031265 0      0   0   0            0            671000000000 
AT6	031265 0      0   0   0            0            671000000000 
FT0	031265 0      0   0   0            0            671000000000 
FT1A	031265 0      0   0   0            0            0            
FT2	031265 0      0   0   0            0            0            
FT2RQ	031265 0      0   0   0            0            0            
FT3	031265 0      0   0   0            0            0            
FT9	031266 0      0   0   0            0            0            
ET0	031266 0      0   0   0            0            0            
ET1	031266 0      0   0   0            0            0            
ET2	031266 0      0   0   0            0            0            
ST1	031266 0      0   0   0            0            0            
ST2	031266 0      0   0   0            0            0            
ST9	031266 0      0   0   0            0            0            


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

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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031266 031266 0   0   332000000000 0            0            
IT1	031266 0      0   0   332000000000 0            0            
AT3	031266 0      0   0   0            0            332000000000 
AT6	031266 0      0   0   0            0            332000000000 
FT0	031266 0      0   0   0            0            332000000000 
FT1A	031266 0      0   0   0            0            0            
FT9	031267 0      0   0   0            0            0            
ET0	031270 0      0   0   0            0            0            
ST1A	031270 0      0   0   0            0            0            
ST9	031270 0      0   0   0            0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031270 031270 0   0   324000031271 0            000000031271 
IT1	031270 0      0   0   324000031271 0            000000031271 
AT3	031270 0      0   0   000000031271 0            324000031271 
AT6	031270 031271 0   0   000000031271 0            324000031271 
FT1A	031270 031271 0   0   000000031271 0            000000031271 
FT2	031270 031271 0   0   0            0            000000031271 
FT2RQ	031270 031271 0   0   0            0            000000031271 
FT3	031270 031271 0   0   0            0            000000031271 
FT9	031271 031271 0   0   0            0            000000031271 
ET0	031271 031271 0   0   0            0            000000031271 
ST1A	031271 031271 0   0   0            0            000000031271 
ST9	031271 031271 0   0   0            0            000000031271 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031271 031271 0   0   474000000000 0            0            
IT1	031271 0      0   0   474000000000 0            0            
AT3	031271 0      0   0   0            0            474000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 87
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0277

AT6	031271 0      0   0   0            0            474000000000 
FT1A	031271 0      0   0   0            0            0            
FT9	031272 0      0   0   0            0            0            
ET0	031272 0      0   0   777777777777 0            0            
ST1	031272 0      0   0   777777777777 0            0            
ST2	031272 0      0   0   777777777777 0            0            
ST9	031272 0      0   0   777777777777 0            0            


*031272 TSO 	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	031272 031272 0   0   671000000000 0            777777777777 
IT1	031272 0      0   0   671000000000 0            777777777777 
AT3	031272 0      0   0   0            0            671000000000 
AT6	031272 0      0   0   0            0            671000000000 
FT0	031272 0      0   0   777777777777 0            671000000000 
FT1A	031272 0      0   0   777777777777 0            777777777777 
FT2	031272 0      0   0   0            0            777777777777 
FT2RQ	031272 0      0   0   777777777777 0            777777777777 
FT3	031272 0      0   0   777777777777 0            777777777777 
FT9	031273 0      0   0   777777777777 0            777777777777 
ET0	031273 0      0   0   777777777777 0            777777777777 
ET1	031273 0      0   0   777777777777 0            777777777777 
ET2	031273 0      0   0   777777777777 0            777777777777 
ST1	031273 0      0   0   777777777777 0            777777777777 
ST2	031273 0      0   0   777777777777 0            777777777777 
ST9	031273 0      0   0   777777777777 0            777777777777 


*031273 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031273 031273 0   0   312000034012 0            777777777777 
IT1	031273 0      0   0   312000034012 0            777777777777 
AT3	031273 0      0   0   000000034012 0            312000034012 
AT6	031273 034012 0   0   000000034012 0            312000034012 
FT0	031273 034012 0   0   777777777777 0            312000034012 
FT1A	031273 034012 0   0   777777777777 0            777777777777 
FT2	031273 034012 0   0   0            0            777777777777 
FT2RQ	031273 034012 0   0   777777777777 0            777777777777 
FT3	031273 034012 0   0   777777777777 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 88
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0278

FT9	031274 034012 0   0   777777777777 0            777777777777 
ET0	031275 034012 0   0   0            0            777777777777 
ST1A	031275 034012 0   0   0            0            777777777777 
ST9	031275 034012 0   0   0            0            777777777777 


*031275 JUMPA	0,031276
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031275 031275 0   0   324000031276 0            000000031276 
IT1	031275 0      0   0   324000031276 0            000000031276 
AT3	031275 0      0   0   000000031276 0            324000031276 
AT6	031275 031276 0   0   000000031276 0            324000031276 
FT1A	031275 031276 0   0   000000031276 0            000000031276 
FT2	031275 031276 0   0   0            0            000000031276 
FT2RQ	031275 031276 0   0   777777777777 0            000000031276 
FT3	031275 031276 0   0   777777777777 0            000000031276 
FT9	031276 031276 0   0   777777777777 0            000000031276 
ET0	031276 031276 0   0   777777777777 0            000000031276 
ST1A	031276 031276 0   0   777777777777 0            000000031276 
ST9	031276 031276 0   0   777777777777 0            000000031276 


*031276 MOVE 	0,034013
INITIAL
C(AC)=777777 777777 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031276 031276 0   0   200000034013 0            777777000000 
IT1	031276 0      0   0   200000034013 0            777777000000 
AT3	031276 0      0   0   000000034013 0            200000034013 
AT6	031276 034013 0   0   000000034013 0            200000034013 
FT0	031276 034013 0   0   777777000000 0            200000034013 
FT1A	031276 034013 0   0   777777000000 0            777777000000 
FT9	031277 034013 0   0   777777000000 0            777777000000 
ET0	031277 034013 0   0   777777000000 0            777777000000 
ST1	031277 034013 0   0   777777000000 0            777777000000 
ST2	031277 034013 0   0   777777000000 0            777777000000 
ST9	031277 034013 0   0   777777000000 0            777777000000 


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

*031277 TSO 	0,034015
INITIAL
C(AC)=777777 000000 
C(E)=000000 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031277 031277 0   0   671000034015 0            000000777777 
IT1	031277 0      0   0   671000034015 0            000000777777 
AT3	031277 0      0   0   000000034015 0            671000034015 
AT6	031277 034015 0   0   000000034015 0            671000034015 
FT0	031277 034015 0   0   000000777777 0            671000034015 
FT1A	031277 034015 0   0   000000777777 0            000000777777 
FT2	031277 034015 0   0   0            0            000000777777 
FT2RQ	031277 034015 0   0   777777000000 0            000000777777 
FT3	031277 034015 0   0   777777000000 0            000000777777 
FT9	0      034015 0   0   777777000000 0            000000777777 
ET0	0      034015 0   0   000000777777 0            000000777777 
ET1	0      034015 0   0   000000777777 0            000000777777 
ET2	0      034015 0   0   777777000000 0            000000777777 
ST1	0      034015 0   0   777777000000 0            000000777777 
ST2	0      034015 0   0   777777000000 0            000000777777 
ST9	0      034015 0   0   777777000000 0            000000777777 


*031300 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   312000034013 0            777777000000 
IT1	0      0      0   0   312000034013 0            777777000000 
AT3	0      0      0   0   000000034013 0            312000034013 
AT6	0      034013 0   0   000000034013 0            312000034013 
FT0	0      034013 0   0   777777000000 0            312000034013 
FT1A	0      034013 0   0   777777000000 0            777777000000 
FT2	0      034013 0   0   0            0            777777000000 
FT2RQ	0      034013 0   0   777777000000 0            777777000000 
FT3	0      034013 0   0   777777000000 0            777777000000 
FT9	031301 034013 0   0   777777000000 0            777777000000 
ET0	031302 034013 0   0   0            0            777777000000 
ST1A	031302 034013 0   0   0            0            777777000000 
ST9	031302 034013 0   0   0            0            777777000000 


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

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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031302 031302 0   0   324000031303 0            000000031303 
IT1	031302 0      0   0   324000031303 0            000000031303 
AT3	031302 0      0   0   000000031303 0            324000031303 
AT6	031302 031303 0   0   000000031303 0            324000031303 
FT1A	031302 031303 0   0   000000031303 0            000000031303 
FT2	031302 031303 0   0   0            0            000000031303 
FT2RQ	031302 031303 0   0   777777000000 0            000000031303 
FT3	031302 031303 0   0   777777000000 0            000000031303 
FT9	031303 031303 0   0   777777000000 0            000000031303 
ET0	031303 031303 0   0   777777000000 0            000000031303 
ST1A	031303 031303 0   0   777777000000 0            000000031303 
ST9	031303 031303 0   0   777777000000 0            000000031303 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031303 031303 0   0   201000777777 0            000000777777 
IT1	031303 0      0   0   201000777777 0            000000777777 
AT3	031303 0      0   0   000000777777 0            201000777777 
AT6	031303 777777 0   0   000000777777 0            201000777777 
FT1A	031303 777777 0   0   000000777777 0            000000777777 
FT9	031304 777777 0   0   000000777777 0            000000777777 
ET0	031304 777777 0   0   000000777777 0            000000777777 
ST1	031304 777777 0   0   000000777777 0            000000777777 
ST2	031304 777777 0   0   000000777777 0            000000777777 
ST9	031304 777777 0   0   000000777777 0            000000777777 


*031304 TSO 	0,034014
INITIAL
C(AC)=000000 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031304 031304 0   0   671000034014 0            0            
IT1	031304 0      0   0   671000034014 0            0            
AT3	031304 0      0   0   000000034014 0            671000034014 
AT6	031304 034014 0   0   000000034014 0            671000034014 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 91
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0281

FT0	031304 034014 0   0   0            0            671000034014 
FT1A	031304 034014 0   0   0            0            0            
FT2	031304 034014 0   0   0            0            0            
FT2RQ	031304 034014 0   0   000000777777 0            0            
FT3	031304 034014 0   0   000000777777 0            0            
FT9	031305 034014 0   0   000000777777 0            0            
ET0	031305 034014 0   0   777777000000 0            0            
ET1	031305 034014 0   0   777777000000 0            0            
ET2	031305 034014 0   0   000000777777 0            0            
ST1	031305 034014 0   0   000000777777 0            0            
ST2	031305 034014 0   0   000000777777 0            0            
ST9	031305 034014 0   0   000000777777 0            0            


*031305 CAME	0,034015
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031305 031305 0   0   312000034015 0            000000777777 
IT1	031305 0      0   0   312000034015 0            000000777777 
AT3	031305 0      0   0   000000034015 0            312000034015 
AT6	031305 034015 0   0   000000034015 0            312000034015 
FT0	031305 034015 0   0   000000777777 0            312000034015 
FT1A	031305 034015 0   0   000000777777 0            000000777777 
FT2	031305 034015 0   0   0            0            000000777777 
FT2RQ	031305 034015 0   0   000000777777 0            000000777777 
FT3	031305 034015 0   0   000000777777 0            000000777777 
FT9	031306 034015 0   0   000000777777 0            000000777777 
ET0	031307 034015 0   0   0            0            000000777777 
ST1A	031307 034015 0   0   0            0            000000777777 
ST9	031307 034015 0   0   0            0            000000777777 


*031307 JUMPA	0,031310
INITIAL
C(AC)=000000 777777 
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   000000777777 0            000000031310 
FT3	031307 031310 0   0   000000777777 0            000000031310 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 92
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0282

FT9	031310 031310 0   0   000000777777 0            000000031310 
ET0	031310 031310 0   0   000000777777 0            000000031310 
ST1A	031310 031310 0   0   000000777777 0            000000031310 
ST9	031310 031310 0   0   000000777777 0            000000031310 


*031310 MOVE 	0,034013
INITIAL
C(AC)=000000 777777 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031310 031310 0   0   200000034013 0            777777000000 
IT1	031310 0      0   0   200000034013 0            777777000000 
AT3	031310 0      0   0   000000034013 0            200000034013 
AT6	031310 034013 0   0   000000034013 0            200000034013 
FT0	031310 034013 0   0   777777000000 0            200000034013 
FT1A	031310 034013 0   0   777777000000 0            777777000000 
FT9	031311 034013 0   0   777777000000 0            777777000000 
ET0	031311 034013 0   0   777777000000 0            777777000000 
ST1	031311 034013 0   0   777777000000 0            777777000000 
ST2	031311 034013 0   0   777777000000 0            777777000000 
ST9	031311 034013 0   0   777777000000 0            777777000000 


*031311 TSO 	0,034014
INITIAL
C(AC)=777777 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031311 031311 0   0   671000034014 0            0            
IT1	031311 0      0   0   671000034014 0            0            
AT3	031311 0      0   0   000000034014 0            671000034014 
AT6	031311 034014 0   0   000000034014 0            671000034014 
FT0	031311 034014 0   0   0            0            671000034014 
FT1A	031311 034014 0   0   0            0            0            
FT2	031311 034014 0   0   0            0            0            
FT2RQ	031311 034014 0   0   777777000000 0            0            
FT3	031311 034014 0   0   777777000000 0            0            
FT9	031312 034014 0   0   777777000000 0            0            
ET0	031312 034014 0   0   000000777777 0            0            
ET1	031312 034014 0   0   000000777777 0            0            
ET2	031312 034014 0   0   777777000000 0            0            
ST1	031312 034014 0   0   777777000000 0            0            
ST2	031312 034014 0   0   777777000000 0            0            
ST9	031312 034014 0   0   777777000000 0            0            

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


*031312 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031312 031312 0   0   312000034013 0            777777000000 
IT1	031312 0      0   0   312000034013 0            777777000000 
AT3	031312 0      0   0   000000034013 0            312000034013 
AT6	031312 034013 0   0   000000034013 0            312000034013 
FT0	031312 034013 0   0   777777000000 0            312000034013 
FT1A	031312 034013 0   0   777777000000 0            777777000000 
FT2	031312 034013 0   0   0            0            777777000000 
FT2RQ	031312 034013 0   0   777777000000 0            777777000000 
FT3	031312 034013 0   0   777777000000 0            777777000000 
FT9	031313 034013 0   0   777777000000 0            777777000000 
ET0	031314 034013 0   0   0            0            777777000000 
ST1A	031314 034013 0   0   0            0            777777000000 
ST9	031314 034013 0   0   0            0            777777000000 


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


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


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

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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031315 031315 0   0   201000777777 0            000000777777 
IT1	031315 0      0   0   201000777777 0            000000777777 
AT3	031315 0      0   0   000000777777 0            201000777777 
AT6	031315 777777 0   0   000000777777 0            201000777777 
FT1A	031315 777777 0   0   000000777777 0            000000777777 
FT9	031316 777777 0   0   000000777777 0            000000777777 
ET0	031316 777777 0   0   000000777777 0            000000777777 
ST1	031316 777777 0   0   000000777777 0            000000777777 
ST2	031316 777777 0   0   000000777777 0            000000777777 
ST9	031316 777777 0   0   000000777777 0            000000777777 


*031316 TSO 	0,034012
INITIAL
C(AC)=000000 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031316 031316 0   0   671000034012 0            777777000000 
IT1	031316 0      0   0   671000034012 0            777777000000 
AT3	031316 0      0   0   000000034012 0            671000034012 
AT6	031316 034012 0   0   000000034012 0            671000034012 
FT0	031316 034012 0   0   777777777777 0            671000034012 
FT1A	031316 034012 0   0   777777777777 0            777777777777 
FT2	031316 034012 0   0   0            0            777777777777 
FT2RQ	031316 034012 0   0   000000777777 0            777777777777 
FT3	031316 034012 0   0   000000777777 0            777777777777 
FT9	031317 034012 0   0   000000777777 0            777777777777 
ET0	031317 034012 0   0   777777000000 0            777777777777 
ET1	031317 034012 0   0   777777777777 0            777777000000 
ET2	031317 034012 0   0   777777777777 0            777777000000 
ST1	031317 034012 0   0   777777777777 0            777777000000 
ST2	031317 034012 0   0   777777777777 0            777777000000 
ST9	031317 034012 0   0   777777777777 0            777777000000 


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

*031317 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031317 031317 0   0   312000034012 0            777777777777 
IT1	031317 0      0   0   312000034012 0            777777777777 
AT3	031317 0      0   0   000000034012 0            312000034012 
AT6	031317 034012 0   0   000000034012 0            312000034012 
FT0	031317 034012 0   0   777777777777 0            312000034012 
FT1A	031317 034012 0   0   777777777777 0            777777777777 
FT2	031317 034012 0   0   0            0            777777777777 
FT2RQ	031317 034012 0   0   777777777777 0            777777777777 
FT3	031317 034012 0   0   777777777777 0            777777777777 
FT9	031320 034012 0   0   777777777777 0            777777777777 
ET0	031321 034012 0   0   0            0            777777777777 
ST1A	031321 034012 0   0   0            0            777777777777 
ST9	031321 034012 0   0   0            0            777777777777 


*031321 JUMPA	0,031322
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031321 031321 0   0   324000031322 0            000000031322 
IT1	031321 0      0   0   324000031322 0            000000031322 
AT3	031321 0      0   0   000000031322 0            324000031322 
AT6	031321 031322 0   0   000000031322 0            324000031322 
FT1A	031321 031322 0   0   000000031322 0            000000031322 
FT2	031321 031322 0   0   0            0            000000031322 
FT2RQ	031321 031322 0   0   777777777777 0            000000031322 
FT3	031321 031322 0   0   777777777777 0            000000031322 
FT9	031322 031322 0   0   777777777777 0            000000031322 
ET0	031322 031322 0   0   777777777777 0            000000031322 
ST1A	031322 031322 0   0   777777777777 0            000000031322 
ST9	031322 031322 0   0   777777777777 0            000000031322 


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

*031322 MOVE 	0,034013
INITIAL
C(AC)=777777 777777 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031322 031322 0   0   200000034013 0            777777000000 
IT1	031322 0      0   0   200000034013 0            777777000000 
AT3	031322 0      0   0   000000034013 0            200000034013 
AT6	031322 034013 0   0   000000034013 0            200000034013 
FT0	031322 034013 0   0   777777000000 0            200000034013 
FT1A	031322 034013 0   0   777777000000 0            777777000000 
FT9	031323 034013 0   0   777777000000 0            777777000000 
ET0	031323 034013 0   0   777777000000 0            777777000000 
ST1	031323 034013 0   0   777777000000 0            777777000000 
ST2	031323 034013 0   0   777777000000 0            777777000000 
ST9	031323 034013 0   0   777777000000 0            777777000000 


*031323 TSO 	0,034012
INITIAL
C(AC)=777777 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031323 031323 0   0   671000034012 0            000000777777 
IT1	031323 0      0   0   671000034012 0            000000777777 
AT3	031323 0      0   0   000000034012 0            671000034012 
AT6	031323 034012 0   0   000000034012 0            671000034012 
FT0	031323 034012 0   0   777777777777 0            671000034012 
FT1A	031323 034012 0   0   777777777777 0            777777777777 
FT2	031323 034012 0   0   0            0            777777777777 
FT2RQ	031323 034012 0   0   777777000000 0            777777777777 
FT3	031323 034012 0   0   777777000000 0            777777777777 
FT9	031324 034012 0   0   777777000000 0            777777777777 
ET0	031324 034012 0   0   000000777777 0            777777777777 
ET1	031324 034012 0   0   777777777777 0            000000777777 
ET2	031324 034012 0   0   777777777777 0            000000777777 
ST1	031324 034012 0   0   777777777777 0            000000777777 
ST2	031324 034012 0   0   777777777777 0            000000777777 
ST9	031324 034012 0   0   777777777777 0            000000777777 


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

*031324 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031324 031324 0   0   312000034012 0            777777777777 
IT1	031324 0      0   0   312000034012 0            777777777777 
AT3	031324 0      0   0   000000034012 0            312000034012 
AT6	031324 034012 0   0   000000034012 0            312000034012 
FT0	031324 034012 0   0   777777777777 0            312000034012 
FT1A	031324 034012 0   0   777777777777 0            777777777777 
FT2	031324 034012 0   0   0            0            777777777777 
FT2RQ	031324 034012 0   0   777777777777 0            777777777777 
FT3	031324 034012 0   0   777777777777 0            777777777777 
FT9	031325 034012 0   0   777777777777 0            777777777777 
ET0	031326 034012 0   0   0            0            777777777777 
ST1A	031326 034012 0   0   0            0            777777777777 
ST9	031326 034012 0   0   0            0            777777777777 


*031326 JUMPA	0,031327
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031326 031326 0   0   324000031327 0            000000031327 
IT1	031326 0      0   0   324000031327 0            000000031327 
AT3	031326 0      0   0   000000031327 0            324000031327 
AT6	031326 031327 0   0   000000031327 0            324000031327 
FT1A	031326 031327 0   0   000000031327 0            000000031327 
FT2	031326 031327 0   0   0            0            000000031327 
FT2RQ	031326 031327 0   0   777777777777 0            000000031327 
FT3	031326 031327 0   0   777777777777 0            000000031327 
FT9	031327 031327 0   0   777777777777 0            000000031327 
ET0	031327 031327 0   0   777777777777 0            000000031327 
ST1A	031327 031327 0   0   777777777777 0            000000031327 
ST9	031327 031327 0   0   777777777777 0            000000031327 


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

*031327 SETZ 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

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


*031330 HLL 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031330 031330 0   0   500000000000 0            0            
IT1	031330 0      0   0   500000000000 0            0            
AT3	031330 0      0   0   0            0            500000000000 
AT6	031330 0      0   0   0            0            500000000000 
FT0	031330 0      0   0   0            0            500000000000 
FT1A	031330 0      0   0   0            0            0            
FT2	031330 0      0   0   0            0            0            
FT2RQ	031330 0      0   0   0            0            0            
FT3	031330 0      0   0   0            0            0            
FT9	031331 0      0   0   0            0            0            
ET0	031331 0      0   0   0            0            0            
ST1	031331 0      0   0   0            0            0            
ST2	031331 0      0   0   0            0            0            
ST9	031331 0      0   0   0            0            0            


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

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

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


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


*031334 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031334 031334 0   0   474000000000 0            0            
IT1	031334 0      0   0   474000000000 0            0            
AT3	031334 0      0   0   0            0            474000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 100
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0290

AT6	031334 0      0   0   0            0            474000000000 
FT1A	031334 0      0   0   0            0            0            
FT9	031335 0      0   0   0            0            0            
ET0	031335 0      0   0   777777777777 0            0            
ST1	031335 0      0   0   777777777777 0            0            
ST2	031335 0      0   0   777777777777 0            0            
ST9	031335 0      0   0   777777777777 0            0            


*031335 HLL 	0,034014
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031335 031335 0   0   500000034014 0            777777777777 
IT1	031335 0      0   0   500000034014 0            777777777777 
AT3	031335 0      0   0   000000034014 0            500000034014 
AT6	031335 034014 0   0   000000034014 0            500000034014 
FT0	031335 034014 0   0   0            0            500000034014 
FT1A	031335 034014 0   0   0            0            0            
FT2	031335 034014 0   0   0            0            0            
FT2RQ	031335 034014 0   0   777777777777 0            0            
FT3	031335 034014 0   0   777777777777 0            0            
FT9	031336 034014 0   0   777777777777 0            0            
ET0	031336 034014 0   0   000000777777 0            777777777777 
ST1	031336 034014 0   0   000000777777 0            777777777777 
ST2	031336 034014 0   0   000000777777 0            777777777777 
ST9	031336 034014 0   0   000000777777 0            777777777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031336 031336 0   0   302000777777 0            000000777777 
IT1	031336 0      0   0   302000777777 0            000000777777 
AT3	031336 0      0   0   000000777777 0            302000777777 
AT6	031336 777777 0   0   000000777777 0            302000777777 
FT1A	031336 777777 0   0   000000777777 0            000000777777 
FT2	031336 777777 0   0   0            0            000000777777 
FT2RQ	031336 777777 0   0   000000777777 0            000000777777 
FT3	031336 777777 0   0   000000777777 0            000000777777 
FT9	031337 777777 0   0   000000777777 0            000000777777 
ET0	031340 777777 0   0   0            0            000000777777 
ST1A	031340 777777 0   0   0            0            000000777777 
ST9	031340 777777 0   0   0            0            000000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 101
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0291



*031340 JUMPA	0,031341
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031340 031340 0   0   324000031341 0            000000031341 
IT1	031340 0      0   0   324000031341 0            000000031341 
AT3	031340 0      0   0   000000031341 0            324000031341 
AT6	031340 031341 0   0   000000031341 0            324000031341 
FT1A	031340 031341 0   0   000000031341 0            000000031341 
FT2	031340 031341 0   0   0            0            000000031341 
FT2RQ	031340 031341 0   0   000000777777 0            000000031341 
FT3	031340 031341 0   0   000000777777 0            000000031341 
FT9	031341 031341 0   0   000000777777 0            000000031341 
ET0	031341 031341 0   0   000000777777 0            000000031341 
ST1A	031341 031341 0   0   000000777777 0            000000031341 
ST9	031341 031341 0   0   000000777777 0            000000031341 


*031341 SETO 	0,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031341 031341 0   0   474000000000 0            0            
IT1	031341 0      0   0   474000000000 0            0            
AT3	031341 0      0   0   0            0            474000000000 
AT6	031341 0      0   0   0            0            474000000000 
FT1A	031341 0      0   0   0            0            0            
FT9	031342 0      0   0   0            0            0            
ET0	031342 0      0   0   777777777777 0            0            
ST1	031342 0      0   0   777777777777 0            0            
ST2	031342 0      0   0   777777777777 0            0            
ST9	031342 0      0   0   777777777777 0            0            


*031342 HLL 	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	031342 031342 0   0   500000000000 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 102
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0292

IT1	031342 0      0   0   500000000000 0            777777777777 
AT3	031342 0      0   0   0            0            500000000000 
AT6	031342 0      0   0   0            0            500000000000 
FT0	031342 0      0   0   777777777777 0            500000000000 
FT1A	031342 0      0   0   777777777777 0            777777777777 
FT2	031342 0      0   0   0            0            777777777777 
FT2RQ	031342 0      0   0   777777777777 0            777777777777 
FT3	031342 0      0   0   777777777777 0            777777777777 
FT9	031343 0      0   0   777777777777 0            777777777777 
ET0	031343 0      0   0   777777777777 0            777777777777 
ST1	031343 0      0   0   777777777777 0            777777777777 
ST2	031343 0      0   0   777777777777 0            777777777777 
ST9	031343 0      0   0   777777777777 0            777777777777 


*031343 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031343 031343 0   0   312000034012 0            777777777777 
IT1	031343 0      0   0   312000034012 0            777777777777 
AT3	031343 0      0   0   000000034012 0            312000034012 
AT6	031343 034012 0   0   000000034012 0            312000034012 
FT0	031343 034012 0   0   777777777777 0            312000034012 
FT1A	031343 034012 0   0   777777777777 0            777777777777 
FT2	031343 034012 0   0   0            0            777777777777 
FT2RQ	031343 034012 0   0   777777777777 0            777777777777 
FT3	031343 034012 0   0   777777777777 0            777777777777 
FT9	031344 034012 0   0   777777777777 0            777777777777 
ET0	031345 034012 0   0   0            0            777777777777 
ST1A	031345 034012 0   0   0            0            777777777777 
ST9	031345 034012 0   0   0            0            777777777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031345 031345 0   0   324000031346 0            000000031346 
IT1	031345 0      0   0   324000031346 0            000000031346 
AT3	031345 0      0   0   000000031346 0            324000031346 
AT6	031345 031346 0   0   000000031346 0            324000031346 
FT1A	031345 031346 0   0   000000031346 0            000000031346 
FT2	031345 031346 0   0   0            0            000000031346 
FT2RQ	031345 031346 0   0   777777777777 0            000000031346 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 103
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0293

FT3	031345 031346 0   0   777777777777 0            000000031346 
FT9	031346 031346 0   0   777777777777 0            000000031346 
ET0	031346 031346 0   0   777777777777 0            000000031346 
ST1A	031346 031346 0   0   777777777777 0            000000031346 
ST9	031346 031346 0   0   777777777777 0            000000031346 


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

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


*031347 HLL 	0,034012
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031347 031347 0   0   500000034012 0            0            
IT1	031347 0      0   0   500000034012 0            0            
AT3	031347 0      0   0   000000034012 0            500000034012 
AT6	031347 034012 0   0   000000034012 0            500000034012 
FT0	031347 034012 0   0   777777777777 0            500000034012 
FT1A	031347 034012 0   0   777777777777 0            777777777777 
FT2	031347 034012 0   0   0            0            777777777777 
FT2RQ	031347 034012 0   0   0            0            777777777777 
FT3	031347 034012 0   0   0            0            777777777777 
FT9	031350 034012 0   0   0            0            777777777777 
ET0	031350 034012 0   0   777777000000 0            0            
ST1	031350 034012 0   0   777777000000 0            0            
ST2	031350 034012 0   0   777777000000 0            0            
ST9	031350 034012 0   0   777777000000 0            0            


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

*031350 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031350 031350 0   0   312000034013 0            777777000000 
IT1	031350 0      0   0   312000034013 0            777777000000 
AT3	031350 0      0   0   000000034013 0            312000034013 
AT6	031350 034013 0   0   000000034013 0            312000034013 
FT0	031350 034013 0   0   777777000000 0            312000034013 
FT1A	031350 034013 0   0   777777000000 0            777777000000 
FT2	031350 034013 0   0   0            0            777777000000 
FT2RQ	031350 034013 0   0   777777000000 0            777777000000 
FT3	031350 034013 0   0   777777000000 0            777777000000 
FT9	031351 034013 0   0   777777000000 0            777777000000 
ET0	031352 034013 0   0   0            0            777777000000 
ST1A	031352 034013 0   0   0            0            777777000000 
ST9	031352 034013 0   0   0            0            777777000000 


*031352 JUMPA	0,031353
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031352 031352 0   0   324000031353 0            000000031353 
IT1	031352 0      0   0   324000031353 0            000000031353 
AT3	031352 0      0   0   000000031353 0            324000031353 
AT6	031352 031353 0   0   000000031353 0            324000031353 
FT1A	031352 031353 0   0   000000031353 0            000000031353 
FT2	031352 031353 0   0   0            0            000000031353 
FT2RQ	031352 031353 0   0   777777000000 0            000000031353 
FT3	031352 031353 0   0   777777000000 0            000000031353 
FT9	031353 031353 0   0   777777000000 0            000000031353 
ET0	031353 031353 0   0   777777000000 0            000000031353 
ST1A	031353 031353 0   0   777777000000 0            000000031353 
ST9	031353 031353 0   0   777777000000 0            000000031353 


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

*031353 SETZ 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=000000 000000 

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


*031354 HLL 	0,034013
INITIAL
C(AC)=000000 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031354 031354 0   0   500000034013 0            0            
IT1	031354 0      0   0   500000034013 0            0            
AT3	031354 0      0   0   000000034013 0            500000034013 
AT6	031354 034013 0   0   000000034013 0            500000034013 
FT0	031354 034013 0   0   777777000000 0            500000034013 
FT1A	031354 034013 0   0   777777000000 0            777777000000 
FT2	031354 034013 0   0   0            0            777777000000 
FT2RQ	031354 034013 0   0   0            0            777777000000 
FT3	031354 034013 0   0   0            0            777777000000 
FT9	031355 034013 0   0   0            0            777777000000 
ET0	031355 034013 0   0   777777000000 0            0            
ST1	031355 034013 0   0   777777000000 0            0            
ST2	031355 034013 0   0   777777000000 0            0            
ST9	031355 034013 0   0   777777000000 0            0            


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

*031355 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031355 031355 0   0   312000034013 0            777777000000 
IT1	031355 0      0   0   312000034013 0            777777000000 
AT3	031355 0      0   0   000000034013 0            312000034013 
AT6	031355 034013 0   0   000000034013 0            312000034013 
FT0	031355 034013 0   0   777777000000 0            312000034013 
FT1A	031355 034013 0   0   777777000000 0            777777000000 
FT2	031355 034013 0   0   0            0            777777000000 
FT2RQ	031355 034013 0   0   777777000000 0            777777000000 
FT3	031355 034013 0   0   777777000000 0            777777000000 
FT9	031356 034013 0   0   777777000000 0            777777000000 
ET0	031357 034013 0   0   0            0            777777000000 
ST1A	031357 034013 0   0   0            0            777777000000 
ST9	031357 034013 0   0   0            0            777777000000 


*031357 JUMPA	0,031360
INITIAL
C(AC)=777777 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   777777000000 0            000000031360 
FT3	031357 031360 0   0   777777000000 0            000000031360 
FT9	031360 031360 0   0   777777000000 0            000000031360 
ET0	031360 031360 0   0   777777000000 0            000000031360 
ST1A	031360 031360 0   0   777777000000 0            000000031360 
ST9	031360 031360 0   0   777777000000 0            000000031360 


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

*031360 SETO 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031360 031360 0   0   474000000000 0            0            
IT1	031360 0      0   0   474000000000 0            0            
AT3	031360 0      0   0   0            0            474000000000 
AT6	031360 0      0   0   0            0            474000000000 
FT1A	031360 0      0   0   0            0            0            
FT9	031361 0      0   0   0            0            0            
ET0	031361 0      0   0   777777777777 0            0            
ST1	031361 0      0   0   777777777777 0            0            
ST2	031361 0      0   0   777777777777 0            0            
ST9	031361 0      0   0   777777777777 0            0            


*031361 HLL 	0,034015
INITIAL
C(AC)=777777 777777 
C(E)=000000 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031361 031361 0   0   500000034015 0            777777777777 
IT1	031361 0      0   0   500000034015 0            777777777777 
AT3	031361 0      0   0   000000034015 0            500000034015 
AT6	031361 034015 0   0   000000034015 0            500000034015 
FT0	031361 034015 0   0   000000777777 0            500000034015 
FT1A	031361 034015 0   0   000000777777 0            000000777777 
FT2	031361 034015 0   0   0            0            000000777777 
FT2RQ	031361 034015 0   0   777777777777 0            000000777777 
FT3	031361 034015 0   0   777777777777 0            000000777777 
FT9	031362 034015 0   0   777777777777 0            000000777777 
ET0	031362 034015 0   0   000000777777 0            777777777777 
ST1	031362 034015 0   0   000000777777 0            777777777777 
ST2	031362 034015 0   0   000000777777 0            777777777777 
ST9	031362 034015 0   0   000000777777 0            777777777777 


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

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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031362 031362 0   0   302000777777 0            000000777777 
IT1	031362 0      0   0   302000777777 0            000000777777 
AT3	031362 0      0   0   000000777777 0            302000777777 
AT6	031362 777777 0   0   000000777777 0            302000777777 
FT1A	031362 777777 0   0   000000777777 0            000000777777 
FT2	031362 777777 0   0   0            0            000000777777 
FT2RQ	031362 777777 0   0   000000777777 0            000000777777 
FT3	031362 777777 0   0   000000777777 0            000000777777 
FT9	031363 777777 0   0   000000777777 0            000000777777 
ET0	031364 777777 0   0   0            0            000000777777 
ST1A	031364 777777 0   0   0            0            000000777777 
ST9	031364 777777 0   0   0            0            000000777777 


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


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


*031365 SETZ 	0,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031365 031365 0   0   400000000000 0            0            
IT1	031365 0      0   0   400000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 109
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0299

AT3	031365 0      0   0   0            0            400000000000 
AT6	031365 0      0   0   0            0            400000000000 
FT1A	031365 0      0   0   0            0            0            
FT9	031366 0      0   0   0            0            0            
ET0	031366 0      0   0   0            0            0            
ST1	031366 0      0   0   0            0            0            
ST2	031366 0      0   0   0            0            0            
ST9	031366 0      0   0   0            0            0            


*031366 HLLZ 	0,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   510000000000 0            0            
IT1	031366 0      0   0   510000000000 0            0            
AT3	031366 0      0   0   0            0            510000000000 
AT6	031366 0      0   0   0            0            510000000000 
FT0	031366 0      0   0   0            0            510000000000 
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            


*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            


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

*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 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031372 031372 0   0   474000000000 0            0            
IT1	031372 0      0   0   474000000000 0            0            
AT3	031372 0      0   0   0            0            474000000000 
AT6	031372 0      0   0   0            0            474000000000 
FT1A	031372 0      0   0   0            0            0            
FT9	031373 0      0   0   0            0            0            
ET0	031373 0      0   0   777777777777 0            0            
ST1	031373 0      0   0   777777777777 0            0            
ST2	031373 0      0   0   777777777777 0            0            
ST9	031373 0      0   0   777777777777 0            0            


*031373 HLLZ 	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031373 031373 0   0   510000034012 0            777777777777 
IT1	031373 0      0   0   510000034012 0            777777777777 
AT3	031373 0      0   0   000000034012 0            510000034012 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 111
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0301

AT6	031373 034012 0   0   000000034012 0            510000034012 
FT0	031373 034012 0   0   777777777777 0            510000034012 
FT1A	031373 034012 0   0   777777777777 0            777777777777 
FT9	031374 034012 0   0   777777777777 0            777777777777 
ET0	031374 034012 0   0   777777000000 0            777777777777 
ST1	031374 034012 0   0   777777000000 0            777777777777 
ST2	031374 034012 0   0   777777000000 0            777777777777 
ST9	031374 034012 0   0   777777000000 0            777777777777 


*031374 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031374 031374 0   0   312000034013 0            777777000000 
IT1	031374 0      0   0   312000034013 0            777777000000 
AT3	031374 0      0   0   000000034013 0            312000034013 
AT6	031374 034013 0   0   000000034013 0            312000034013 
FT0	031374 034013 0   0   777777000000 0            312000034013 
FT1A	031374 034013 0   0   777777000000 0            777777000000 
FT2	031374 034013 0   0   0            0            777777000000 
FT2RQ	031374 034013 0   0   777777000000 0            777777000000 
FT3	031374 034013 0   0   777777000000 0            777777000000 
FT9	031375 034013 0   0   777777000000 0            777777000000 
ET0	031376 034013 0   0   0            0            777777000000 
ST1A	031376 034013 0   0   0            0            777777000000 
ST9	031376 034013 0   0   0            0            777777000000 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031376 031376 0   0   324000031377 0            000000031377 
IT1	031376 0      0   0   324000031377 0            000000031377 
AT3	031376 0      0   0   000000031377 0            324000031377 
AT6	031376 031377 0   0   000000031377 0            324000031377 
FT1A	031376 031377 0   0   000000031377 0            000000031377 
FT2	031376 031377 0   0   0            0            000000031377 
FT2RQ	031376 031377 0   0   777777000000 0            000000031377 
FT3	031376 031377 0   0   777777000000 0            000000031377 
FT9	031377 031377 0   0   777777000000 0            000000031377 
ET0	031377 031377 0   0   777777000000 0            000000031377 
ST1A	031377 031377 0   0   777777000000 0            000000031377 
ST9	031377 031377 0   0   777777000000 0            000000031377 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 112
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0302



*031377 SETZ 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=000000 000000 

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


*031400 HLLZ 	0,034012
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   510000034012 0            777777777777 
IT1	0      0      0   0   510000034012 0            777777777777 
AT3	0      0      0   0   000000034012 0            510000034012 
AT6	0      034012 0   0   000000034012 0            510000034012 
FT0	0      034012 0   0   777777777777 0            510000034012 
FT1A	0      034012 0   0   777777777777 0            777777777777 
FT9	031401 034012 0   0   777777777777 0            777777777777 
ET0	031401 034012 0   0   777777000000 0            777777777777 
ST1	031401 034012 0   0   777777000000 0            777777777777 
ST2	031401 034012 0   0   777777000000 0            777777777777 
ST9	031401 034012 0   0   777777000000 0            777777777777 


*031401 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031401 031401 0   0   312000034013 0            777777000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 113
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0303

IT1	031401 0      0   0   312000034013 0            777777000000 
AT3	031401 0      0   0   000000034013 0            312000034013 
AT6	031401 034013 0   0   000000034013 0            312000034013 
FT0	031401 034013 0   0   777777000000 0            312000034013 
FT1A	031401 034013 0   0   777777000000 0            777777000000 
FT2	031401 034013 0   0   0            0            777777000000 
FT2RQ	031401 034013 0   0   777777000000 0            777777000000 
FT3	031401 034013 0   0   777777000000 0            777777000000 
FT9	031402 034013 0   0   777777000000 0            777777000000 
ET0	031403 034013 0   0   0            0            777777000000 
ST1A	031403 034013 0   0   0            0            777777000000 
ST9	031403 034013 0   0   0            0            777777000000 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031403 031403 0   0   324000031404 0            000000031404 
IT1	031403 0      0   0   324000031404 0            000000031404 
AT3	031403 0      0   0   000000031404 0            324000031404 
AT6	031403 031404 0   0   000000031404 0            324000031404 
FT1A	031403 031404 0   0   000000031404 0            000000031404 
FT2	031403 031404 0   0   0            0            000000031404 
FT2RQ	031403 031404 0   0   777777000000 0            000000031404 
FT3	031403 031404 0   0   777777000000 0            000000031404 
FT9	031404 031404 0   0   777777000000 0            000000031404 
ET0	031404 031404 0   0   777777000000 0            000000031404 
ST1A	031404 031404 0   0   777777000000 0            000000031404 
ST9	031404 031404 0   0   777777000000 0            000000031404 


*031404 SETO 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031404 031404 0   0   474000000000 0            0            
IT1	031404 0      0   0   474000000000 0            0            
AT3	031404 0      0   0   0            0            474000000000 
AT6	031404 0      0   0   0            0            474000000000 
FT1A	031404 0      0   0   0            0            0            
FT9	031405 0      0   0   0            0            0            
ET0	031405 0      0   0   777777777777 0            0            
ST1	031405 0      0   0   777777777777 0            0            
ST2	031405 0      0   0   777777777777 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 114
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0304

ST9	031405 0      0   0   777777777777 0            0            


*031405 HLLZ 	0,034014
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031405 031405 0   0   510000034014 0            0            
IT1	031405 0      0   0   510000034014 0            0            
AT3	031405 0      0   0   000000034014 0            510000034014 
AT6	031405 034014 0   0   000000034014 0            510000034014 
FT0	031405 034014 0   0   0            0            510000034014 
FT1A	031405 034014 0   0   0            0            0            
FT9	031406 034014 0   0   0            0            0            
ET0	031406 034014 0   0   0            0            0            
ST1	031406 034014 0   0   0            0            0            
ST2	031406 034014 0   0   0            0            0            
ST9	031406 034014 0   0   0            0            0            


*031406 SKIPE	0,000000
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   332000000000 0            0            
IT1	031406 0      0   0   332000000000 0            0            
AT3	031406 0      0   0   0            0            332000000000 
AT6	031406 0      0   0   0            0            332000000000 
FT0	031406 0      0   0   0            0            332000000000 
FT1A	031406 0      0   0   0            0            0            
FT9	031407 0      0   0   0            0            0            
ET0	031410 0      0   0   0            0            0            
ST1A	031410 0      0   0   0            0            0            
ST9	031410 0      0   0   0            0            0            


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

*031410 JUMPA	0,031411
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031410 031410 0   0   324000031411 0            000000031411 
IT1	031410 0      0   0   324000031411 0            000000031411 
AT3	031410 0      0   0   000000031411 0            324000031411 
AT6	031410 031411 0   0   000000031411 0            324000031411 
FT1A	031410 031411 0   0   000000031411 0            000000031411 
FT2	031410 031411 0   0   0            0            000000031411 
FT2RQ	031410 031411 0   0   0            0            000000031411 
FT3	031410 031411 0   0   0            0            000000031411 
FT9	031411 031411 0   0   0            0            000000031411 
ET0	031411 031411 0   0   0            0            000000031411 
ST1A	031411 031411 0   0   0            0            000000031411 
ST9	031411 031411 0   0   0            0            000000031411 


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


*031412 HLLZ 	0,034014
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031412 031412 0   0   510000034014 0            0            
IT1	031412 0      0   0   510000034014 0            0            
AT3	031412 0      0   0   000000034014 0            510000034014 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 116
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0306

AT6	031412 034014 0   0   000000034014 0            510000034014 
FT0	031412 034014 0   0   0            0            510000034014 
FT1A	031412 034014 0   0   0            0            0            
FT9	031413 034014 0   0   0            0            0            
ET0	031413 034014 0   0   0            0            0            
ST1	031413 034014 0   0   0            0            0            
ST2	031413 034014 0   0   0            0            0            
ST9	031413 034014 0   0   0            0            0            


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031413 031413 0   0   332000000000 0            0            
IT1	031413 0      0   0   332000000000 0            0            
AT3	031413 0      0   0   0            0            332000000000 
AT6	031413 0      0   0   0            0            332000000000 
FT0	031413 0      0   0   0            0            332000000000 
FT1A	031413 0      0   0   0            0            0            
FT9	031414 0      0   0   0            0            0            
ET0	031415 0      0   0   0            0            0            
ST1A	031415 0      0   0   0            0            0            
ST9	031415 0      0   0   0            0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031415 031415 0   0   324000031416 0            000000031416 
IT1	031415 0      0   0   324000031416 0            000000031416 
AT3	031415 0      0   0   000000031416 0            324000031416 
AT6	031415 031416 0   0   000000031416 0            324000031416 
FT1A	031415 031416 0   0   000000031416 0            000000031416 
FT2	031415 031416 0   0   0            0            000000031416 
FT2RQ	031415 031416 0   0   0            0            000000031416 
FT3	031415 031416 0   0   0            0            000000031416 
FT9	031416 031416 0   0   0            0            000000031416 
ET0	031416 031416 0   0   0            0            000000031416 
ST1A	031416 031416 0   0   0            0            000000031416 
ST9	031416 031416 0   0   0            0            000000031416 


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

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

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


*031417 HLLZI	0,777777
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031417 031417 0   0   511000777777 0            000000777777 
IT1	031417 0      0   0   511000777777 0            000000777777 
AT3	031417 0      0   0   000000777777 0            511000777777 
AT6	031417 777777 0   0   000000777777 0            511000777777 
FT1A	031417 777777 0   0   000000777777 0            000000777777 
FT9	031420 777777 0   0   000000777777 0            000000777777 
ET0	031420 777777 0   0   0            0            000000777777 
ST1	031420 777777 0   0   0            0            000000777777 
ST2	031420 777777 0   0   0            0            000000777777 
ST9	031420 777777 0   0   0            0            000000777777 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031420 031420 0   0   332000000000 0            0            
IT1	031420 0      0   0   332000000000 0            0            
AT3	031420 0      0   0   0            0            332000000000 
AT6	031420 0      0   0   0            0            332000000000 
FT0	031420 0      0   0   0            0            332000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 118
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0308

FT1A	031420 0      0   0   0            0            0            
FT9	031421 0      0   0   0            0            0            
ET0	031422 0      0   0   0            0            0            
ST1A	031422 0      0   0   0            0            0            
ST9	031422 0      0   0   0            0            0            


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


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


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


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

*031424 HLLZI	0,777777
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031424 031424 0   0   511000777777 0            000000777777 
IT1	031424 0      0   0   511000777777 0            000000777777 
AT3	031424 0      0   0   000000777777 0            511000777777 
AT6	031424 777777 0   0   000000777777 0            511000777777 
FT1A	031424 777777 0   0   000000777777 0            000000777777 
FT9	031425 777777 0   0   000000777777 0            000000777777 
ET0	031425 777777 0   0   0            0            000000777777 
ST1	031425 777777 0   0   0            0            000000777777 
ST2	031425 777777 0   0   0            0            000000777777 
ST9	031425 777777 0   0   0            0            000000777777 


*031425 SKIPE	0,000000
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   332000000000 0            0            
IT1	031425 0      0   0   332000000000 0            0            
AT3	031425 0      0   0   0            0            332000000000 
AT6	031425 0      0   0   0            0            332000000000 
FT0	031425 0      0   0   0            0            332000000000 
FT1A	031425 0      0   0   0            0            0            
FT9	031426 0      0   0   0            0            0            
ET0	031427 0      0   0   0            0            0            
ST1A	031427 0      0   0   0            0            0            
ST9	031427 0      0   0   0            0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031427 031427 0   0   324000031430 0            000000031430 
IT1	031427 0      0   0   324000031430 0            000000031430 
AT3	031427 0      0   0   000000031430 0            324000031430 
AT6	031427 031430 0   0   000000031430 0            324000031430 
FT1A	031427 031430 0   0   000000031430 0            000000031430 
FT2	031427 031430 0   0   0            0            000000031430 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 120
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0310

FT2RQ	031427 031430 0   0   0            0            000000031430 
FT3	031427 031430 0   0   0            0            000000031430 
FT9	031430 031430 0   0   0            0            000000031430 
ET0	031430 031430 0   0   0            0            000000031430 
ST1A	031430 031430 0   0   0            0            000000031430 
ST9	031430 031430 0   0   0            0            000000031430 


*031430 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031430 031430 0   0   474000000000 0            0            
IT1	031430 0      0   0   474000000000 0            0            
AT3	031430 0      0   0   0            0            474000000000 
AT6	031430 0      0   0   0            0            474000000000 
FT1A	031430 0      0   0   0            0            0            
FT9	031431 0      0   0   0            0            0            
ET0	031431 0      0   0   777777777777 0            0            
ST1	031431 0      0   0   777777777777 0            0            
ST2	031431 0      0   0   777777777777 0            0            
ST9	031431 0      0   0   777777777777 0            0            


*031431 HLLZ 	0,034013
INITIAL
C(AC)=777777 777777 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031431 031431 0   0   510000034013 0            777777000000 
IT1	031431 0      0   0   510000034013 0            777777000000 
AT3	031431 0      0   0   000000034013 0            510000034013 
AT6	031431 034013 0   0   000000034013 0            510000034013 
FT0	031431 034013 0   0   777777000000 0            510000034013 
FT1A	031431 034013 0   0   777777000000 0            777777000000 
FT9	031432 034013 0   0   777777000000 0            777777000000 
ET0	031432 034013 0   0   777777000000 0            777777000000 
ST1	031432 034013 0   0   777777000000 0            777777000000 
ST2	031432 034013 0   0   777777000000 0            777777000000 
ST9	031432 034013 0   0   777777000000 0            777777000000 


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

*031432 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031432 031432 0   0   312000034013 0            777777000000 
IT1	031432 0      0   0   312000034013 0            777777000000 
AT3	031432 0      0   0   000000034013 0            312000034013 
AT6	031432 034013 0   0   000000034013 0            312000034013 
FT0	031432 034013 0   0   777777000000 0            312000034013 
FT1A	031432 034013 0   0   777777000000 0            777777000000 
FT2	031432 034013 0   0   0            0            777777000000 
FT2RQ	031432 034013 0   0   777777000000 0            777777000000 
FT3	031432 034013 0   0   777777000000 0            777777000000 
FT9	031433 034013 0   0   777777000000 0            777777000000 
ET0	031434 034013 0   0   0            0            777777000000 
ST1A	031434 034013 0   0   0            0            777777000000 
ST9	031434 034013 0   0   0            0            777777000000 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031434 031434 0   0   324000031435 0            000000031435 
IT1	031434 0      0   0   324000031435 0            000000031435 
AT3	031434 0      0   0   000000031435 0            324000031435 
AT6	031434 031435 0   0   000000031435 0            324000031435 
FT1A	031434 031435 0   0   000000031435 0            000000031435 
FT2	031434 031435 0   0   0            0            000000031435 
FT2RQ	031434 031435 0   0   777777000000 0            000000031435 
FT3	031434 031435 0   0   777777000000 0            000000031435 
FT9	031435 031435 0   0   777777000000 0            000000031435 
ET0	031435 031435 0   0   777777000000 0            000000031435 
ST1A	031435 031435 0   0   777777000000 0            000000031435 
ST9	031435 031435 0   0   777777000000 0            000000031435 


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

*031435 SETZ 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=000000 000000 

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


*031436 HLLZ 	0,034013
INITIAL
C(AC)=000000 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031436 031436 0   0   510000034013 0            777777000000 
IT1	031436 0      0   0   510000034013 0            777777000000 
AT3	031436 0      0   0   000000034013 0            510000034013 
AT6	031436 034013 0   0   000000034013 0            510000034013 
FT0	031436 034013 0   0   777777000000 0            510000034013 
FT1A	031436 034013 0   0   777777000000 0            777777000000 
FT9	031437 034013 0   0   777777000000 0            777777000000 
ET0	031437 034013 0   0   777777000000 0            777777000000 
ST1	031437 034013 0   0   777777000000 0            777777000000 
ST2	031437 034013 0   0   777777000000 0            777777000000 
ST9	031437 034013 0   0   777777000000 0            777777000000 


*031437 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031437 031437 0   0   312000034013 0            777777000000 
IT1	031437 0      0   0   312000034013 0            777777000000 
AT3	031437 0      0   0   000000034013 0            312000034013 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 123
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0313

AT6	031437 034013 0   0   000000034013 0            312000034013 
FT0	031437 034013 0   0   777777000000 0            312000034013 
FT1A	031437 034013 0   0   777777000000 0            777777000000 
FT2	031437 034013 0   0   0            0            777777000000 
FT2RQ	031437 034013 0   0   777777000000 0            777777000000 
FT3	031437 034013 0   0   777777000000 0            777777000000 
FT9	031440 034013 0   0   777777000000 0            777777000000 
ET0	031441 034013 0   0   0            0            777777000000 
ST1A	031441 034013 0   0   0            0            777777000000 
ST9	031441 034013 0   0   0            0            777777000000 


*031441 JUMPA	0,031442
INITIAL
C(AC)=777777 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 
FT1A	031441 031442 0   0   000000031442 0            000000031442 
FT2	031441 031442 0   0   0            0            000000031442 
FT2RQ	031441 031442 0   0   777777000000 0            000000031442 
FT3	031441 031442 0   0   777777000000 0            000000031442 
FT9	031442 031442 0   0   777777000000 0            000000031442 
ET0	031442 031442 0   0   777777000000 0            000000031442 
ST1A	031442 031442 0   0   777777000000 0            000000031442 
ST9	031442 031442 0   0   777777000000 0            000000031442 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031442 031442 0   0   201000777777 0            000000777777 
IT1	031442 0      0   0   201000777777 0            000000777777 
AT3	031442 0      0   0   000000777777 0            201000777777 
AT6	031442 777777 0   0   000000777777 0            201000777777 
FT1A	031442 777777 0   0   000000777777 0            000000777777 
FT9	031443 777777 0   0   000000777777 0            000000777777 
ET0	031443 777777 0   0   000000777777 0            000000777777 
ST1	031443 777777 0   0   000000777777 0            000000777777 
ST2	031443 777777 0   0   000000777777 0            000000777777 
ST9	031443 777777 0   0   000000777777 0            000000777777 


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

*031443 HLLZ 	0,034012
INITIAL
C(AC)=000000 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031443 031443 0   0   510000034012 0            777777777777 
IT1	031443 0      0   0   510000034012 0            777777777777 
AT3	031443 0      0   0   000000034012 0            510000034012 
AT6	031443 034012 0   0   000000034012 0            510000034012 
FT0	031443 034012 0   0   777777777777 0            510000034012 
FT1A	031443 034012 0   0   777777777777 0            777777777777 
FT9	031444 034012 0   0   777777777777 0            777777777777 
ET0	031444 034012 0   0   777777000000 0            777777777777 
ST1	031444 034012 0   0   777777000000 0            777777777777 
ST2	031444 034012 0   0   777777000000 0            777777777777 
ST9	031444 034012 0   0   777777000000 0            777777777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031444 031444 0   0   312000034013 0            777777000000 
IT1	031444 0      0   0   312000034013 0            777777000000 
AT3	031444 0      0   0   000000034013 0            312000034013 
AT6	031444 034013 0   0   000000034013 0            312000034013 
FT0	031444 034013 0   0   777777000000 0            312000034013 
FT1A	031444 034013 0   0   777777000000 0            777777000000 
FT2	031444 034013 0   0   0            0            777777000000 
FT2RQ	031444 034013 0   0   777777000000 0            777777000000 
FT3	031444 034013 0   0   777777000000 0            777777000000 
FT9	031445 034013 0   0   777777000000 0            777777000000 
ET0	031446 034013 0   0   0            0            777777000000 
ST1A	031446 034013 0   0   0            0            777777000000 
ST9	031446 034013 0   0   0            0            777777000000 


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

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


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


*031447 MOVSI	0,777777
INITIAL
C(AC)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031447 031447 0   0   205000777777 0            000000777777 
IT1	031447 0      0   0   205000777777 0            000000777777 
AT3	031447 0      0   0   000000777777 0            205000777777 
AT6	031447 777777 0   0   000000777777 0            205000777777 
FT1A	031447 777777 0   0   000000777777 0            000000777777 
FT9	031450 777777 0   0   000000777777 0            000000777777 
ET0	031450 777777 0   0   777777000000 0            000000777777 
ST1	031450 777777 0   0   777777000000 0            000000777777 
ST2	031450 777777 0   0   777777000000 0            000000777777 
ST9	031450 777777 0   0   777777000000 0            000000777777 


*031450 HLLZ 	0,034012
INITIAL
C(AC)=777777 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031450 031450 0   0   510000034012 0            777777777777 
IT1	031450 0      0   0   510000034012 0            777777777777 
AT3	031450 0      0   0   000000034012 0            510000034012 
AT6	031450 034012 0   0   000000034012 0            510000034012 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 126
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0316

FT0	031450 034012 0   0   777777777777 0            510000034012 
FT1A	031450 034012 0   0   777777777777 0            777777777777 
FT9	031451 034012 0   0   777777777777 0            777777777777 
ET0	031451 034012 0   0   777777000000 0            777777777777 
ST1	031451 034012 0   0   777777000000 0            777777777777 
ST2	031451 034012 0   0   777777000000 0            777777777777 
ST9	031451 034012 0   0   777777000000 0            777777777777 


*031451 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031451 031451 0   0   312000034013 0            777777000000 
IT1	031451 0      0   0   312000034013 0            777777000000 
AT3	031451 0      0   0   000000034013 0            312000034013 
AT6	031451 034013 0   0   000000034013 0            312000034013 
FT0	031451 034013 0   0   777777000000 0            312000034013 
FT1A	031451 034013 0   0   777777000000 0            777777000000 
FT2	031451 034013 0   0   0            0            777777000000 
FT2RQ	031451 034013 0   0   777777000000 0            777777000000 
FT3	031451 034013 0   0   777777000000 0            777777000000 
FT9	031452 034013 0   0   777777000000 0            777777000000 
ET0	031453 034013 0   0   0            0            777777000000 
ST1A	031453 034013 0   0   0            0            777777000000 
ST9	031453 034013 0   0   0            0            777777000000 


*031453 JUMPA	0,031454
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031453 031453 0   0   324000031454 0            000000031454 
IT1	031453 0      0   0   324000031454 0            000000031454 
AT3	031453 0      0   0   000000031454 0            324000031454 
AT6	031453 031454 0   0   000000031454 0            324000031454 
FT1A	031453 031454 0   0   000000031454 0            000000031454 
FT2	031453 031454 0   0   0            0            000000031454 
FT2RQ	031453 031454 0   0   777777000000 0            000000031454 
FT3	031453 031454 0   0   777777000000 0            000000031454 
FT9	031454 031454 0   0   777777000000 0            000000031454 
ET0	031454 031454 0   0   777777000000 0            000000031454 
ST1A	031454 031454 0   0   777777000000 0            000000031454 
ST9	031454 031454 0   0   777777000000 0            000000031454 

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


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031454 031454 0   0   201000777777 0            000000777777 
IT1	031454 0      0   0   201000777777 0            000000777777 
AT3	031454 0      0   0   000000777777 0            201000777777 
AT6	031454 777777 0   0   000000777777 0            201000777777 
FT1A	031454 777777 0   0   000000777777 0            000000777777 
FT9	031455 777777 0   0   000000777777 0            000000777777 
ET0	031455 777777 0   0   000000777777 0            000000777777 
ST1	031455 777777 0   0   000000777777 0            000000777777 
ST2	031455 777777 0   0   000000777777 0            000000777777 
ST9	031455 777777 0   0   000000777777 0            000000777777 


*031455 HLLZ 	0,034014
INITIAL
C(AC)=000000 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031455 031455 0   0   510000034014 0            0            
IT1	031455 0      0   0   510000034014 0            0            
AT3	031455 0      0   0   000000034014 0            510000034014 
AT6	031455 034014 0   0   000000034014 0            510000034014 
FT0	031455 034014 0   0   0            0            510000034014 
FT1A	031455 034014 0   0   0            0            0            
FT9	031456 034014 0   0   0            0            0            
ET0	031456 034014 0   0   0            0            0            
ST1	031456 034014 0   0   0            0            0            
ST2	031456 034014 0   0   0            0            0            
ST9	031456 034014 0   0   0            0            0            


*031456 SKIPE	0,000000
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   332000000000 0            0            
IT1	031456 0      0   0   332000000000 0            0            
AT3	031456 0      0   0   0            0            332000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 128
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0318

AT6	031456 0      0   0   0            0            332000000000 
FT0	031456 0      0   0   0            0            332000000000 
FT1A	031456 0      0   0   0            0            0            
FT9	031457 0      0   0   0            0            0            
ET0	031460 0      0   0   0            0            0            
ST1A	031460 0      0   0   0            0            0            
ST9	031460 0      0   0   0            0            0            


*031460 JUMPA	0,031461
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031460 031460 0   0   324000031461 0            000000031461 
IT1	031460 0      0   0   324000031461 0            000000031461 
AT3	031460 0      0   0   000000031461 0            324000031461 
AT6	031460 031461 0   0   000000031461 0            324000031461 
FT1A	031460 031461 0   0   000000031461 0            000000031461 
FT2	031460 031461 0   0   0            0            000000031461 
FT2RQ	031460 031461 0   0   0            0            000000031461 
FT3	031460 031461 0   0   0            0            000000031461 
FT9	031461 031461 0   0   0            0            000000031461 
ET0	031461 031461 0   0   0            0            000000031461 
ST1A	031461 031461 0   0   0            0            000000031461 
ST9	031461 031461 0   0   0            0            000000031461 


*031461 MOVSI	0,777777
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031461 031461 0   0   205000777777 0            000000777777 
IT1	031461 0      0   0   205000777777 0            000000777777 
AT3	031461 0      0   0   000000777777 0            205000777777 
AT6	031461 777777 0   0   000000777777 0            205000777777 
FT1A	031461 777777 0   0   000000777777 0            000000777777 
FT9	031462 777777 0   0   000000777777 0            000000777777 
ET0	031462 777777 0   0   777777000000 0            000000777777 
ST1	031462 777777 0   0   777777000000 0            000000777777 
ST2	031462 777777 0   0   777777000000 0            000000777777 
ST9	031462 777777 0   0   777777000000 0            000000777777 


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

*031462 HLLZ 	0,034014
INITIAL
C(AC)=777777 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031462 031462 0   0   510000034014 0            0            
IT1	031462 0      0   0   510000034014 0            0            
AT3	031462 0      0   0   000000034014 0            510000034014 
AT6	031462 034014 0   0   000000034014 0            510000034014 
FT0	031462 034014 0   0   0            0            510000034014 
FT1A	031462 034014 0   0   0            0            0            
FT9	031463 034014 0   0   0            0            0            
ET0	031463 034014 0   0   0            0            0            
ST1	031463 034014 0   0   0            0            0            
ST2	031463 034014 0   0   0            0            0            
ST9	031463 034014 0   0   0            0            0            


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031463 031463 0   0   332000000000 0            0            
IT1	031463 0      0   0   332000000000 0            0            
AT3	031463 0      0   0   0            0            332000000000 
AT6	031463 0      0   0   0            0            332000000000 
FT0	031463 0      0   0   0            0            332000000000 
FT1A	031463 0      0   0   0            0            0            
FT9	031464 0      0   0   0            0            0            
ET0	031465 0      0   0   0            0            0            
ST1A	031465 0      0   0   0            0            0            
ST9	031465 0      0   0   0            0            0            


*031465 JUMPA	0,031466
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031465 031465 0   0   324000031466 0            000000031466 
IT1	031465 0      0   0   324000031466 0            000000031466 
AT3	031465 0      0   0   000000031466 0            324000031466 
AT6	031465 031466 0   0   000000031466 0            324000031466 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 130
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0320

FT1A	031465 031466 0   0   000000031466 0            000000031466 
FT2	031465 031466 0   0   0            0            000000031466 
FT2RQ	031465 031466 0   0   0            0            000000031466 
FT3	031465 031466 0   0   0            0            000000031466 
FT9	031466 031466 0   0   0            0            000000031466 
ET0	031466 031466 0   0   0            0            000000031466 
ST1A	031466 031466 0   0   0            0            000000031466 
ST9	031466 031466 0   0   0            0            000000031466 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031466 031466 0   0   201000777777 0            000000777777 
IT1	031466 0      0   0   201000777777 0            000000777777 
AT3	031466 0      0   0   000000777777 0            201000777777 
AT6	031466 777777 0   0   000000777777 0            201000777777 
FT1A	031466 777777 0   0   000000777777 0            000000777777 
FT9	031467 777777 0   0   000000777777 0            000000777777 
ET0	031467 777777 0   0   000000777777 0            000000777777 
ST1	031467 777777 0   0   000000777777 0            000000777777 
ST2	031467 777777 0   0   000000777777 0            000000777777 
ST9	031467 777777 0   0   000000777777 0            000000777777 


*031467 HLLZ 	0,034013
INITIAL
C(AC)=000000 777777 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031467 031467 0   0   510000034013 0            777777000000 
IT1	031467 0      0   0   510000034013 0            777777000000 
AT3	031467 0      0   0   000000034013 0            510000034013 
AT6	031467 034013 0   0   000000034013 0            510000034013 
FT0	031467 034013 0   0   777777000000 0            510000034013 
FT1A	031467 034013 0   0   777777000000 0            777777000000 
FT9	031470 034013 0   0   777777000000 0            777777000000 
ET0	031470 034013 0   0   777777000000 0            777777000000 
ST1	031470 034013 0   0   777777000000 0            777777000000 
ST2	031470 034013 0   0   777777000000 0            777777000000 
ST9	031470 034013 0   0   777777000000 0            777777000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 131
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0321

*031470 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031470 031470 0   0   312000034013 0            777777000000 
IT1	031470 0      0   0   312000034013 0            777777000000 
AT3	031470 0      0   0   000000034013 0            312000034013 
AT6	031470 034013 0   0   000000034013 0            312000034013 
FT0	031470 034013 0   0   777777000000 0            312000034013 
FT1A	031470 034013 0   0   777777000000 0            777777000000 
FT2	031470 034013 0   0   0            0            777777000000 
FT2RQ	031470 034013 0   0   777777000000 0            777777000000 
FT3	031470 034013 0   0   777777000000 0            777777000000 
FT9	031471 034013 0   0   777777000000 0            777777000000 
ET0	031472 034013 0   0   0            0            777777000000 
ST1A	031472 034013 0   0   0            0            777777000000 
ST9	031472 034013 0   0   0            0            777777000000 


*031472 JUMPA	0,031473
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031472 031472 0   0   324000031473 0            000000031473 
IT1	031472 0      0   0   324000031473 0            000000031473 
AT3	031472 0      0   0   000000031473 0            324000031473 
AT6	031472 031473 0   0   000000031473 0            324000031473 
FT1A	031472 031473 0   0   000000031473 0            000000031473 
FT2	031472 031473 0   0   0            0            000000031473 
FT2RQ	031472 031473 0   0   777777000000 0            000000031473 
FT3	031472 031473 0   0   777777000000 0            000000031473 
FT9	031473 031473 0   0   777777000000 0            000000031473 
ET0	031473 031473 0   0   777777000000 0            000000031473 
ST1A	031473 031473 0   0   777777000000 0            000000031473 
ST9	031473 031473 0   0   777777000000 0            000000031473 


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

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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031473 031473 0   0   201000777777 0            000000777777 
IT1	031473 0      0   0   201000777777 0            000000777777 
AT3	031473 0      0   0   000000777777 0            201000777777 
AT6	031473 777777 0   0   000000777777 0            201000777777 
FT1A	031473 777777 0   0   000000777777 0            000000777777 
FT9	031474 777777 0   0   000000777777 0            000000777777 
ET0	031474 777777 0   0   000000777777 0            000000777777 
ST1	031474 777777 0   0   000000777777 0            000000777777 
ST2	031474 777777 0   0   000000777777 0            000000777777 
ST9	031474 777777 0   0   000000777777 0            000000777777 


*031474 HLLZI	0,777777
INITIAL
C(AC)=000000 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031474 031474 0   0   511000777777 0            000000777777 
IT1	031474 0      0   0   511000777777 0            000000777777 
AT3	031474 0      0   0   000000777777 0            511000777777 
AT6	031474 777777 0   0   000000777777 0            511000777777 
FT1A	031474 777777 0   0   000000777777 0            000000777777 
FT9	031475 777777 0   0   000000777777 0            000000777777 
ET0	031475 777777 0   0   0            0            000000777777 
ST1	031475 777777 0   0   0            0            000000777777 
ST2	031475 777777 0   0   0            0            000000777777 
ST9	031475 777777 0   0   0            0            000000777777 


*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            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 133
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0323

FT9	031476 0      0   0   0            0            0            
ET0	031477 0      0   0   0            0            0            
ST1A	031477 0      0   0   0            0            0            
ST9	031477 0      0   0   0            0            0            


*031477 JUMPA	0,031500
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031477 031477 0   0   324000031500 0            000000031500 
IT1	031477 0      0   0   324000031500 0            000000031500 
AT3	031477 0      0   0   000000031500 0            324000031500 
AT6	031477 0      0   0   000000031500 0            324000031500 
FT1A	031477 0      0   0   000000031500 0            000000031500 
FT2	031477 0      0   0   0            0            000000031500 
FT2RQ	031477 0      0   0   0            0            000000031500 
FT3	031477 0      0   0   0            0            000000031500 
FT9	0      0      0   0   0            0            000000031500 
ET0	0      0      0   0   0            0            000000031500 
ST1A	0      0      0   0   0            0            000000031500 
ST9	0      0      0   0   0            0            000000031500 


*031500 MOVSI	0,777777
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 000000 

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


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

*031501 HLLZ 	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031501 031501 0   0   510000034013 0            777777000000 
IT1	031501 0      0   0   510000034013 0            777777000000 
AT3	031501 0      0   0   000000034013 0            510000034013 
AT6	031501 034013 0   0   000000034013 0            510000034013 
FT0	031501 034013 0   0   777777000000 0            510000034013 
FT1A	031501 034013 0   0   777777000000 0            777777000000 
FT9	031502 034013 0   0   777777000000 0            777777000000 
ET0	031502 034013 0   0   777777000000 0            777777000000 
ST1	031502 034013 0   0   777777000000 0            777777000000 
ST2	031502 034013 0   0   777777000000 0            777777000000 
ST9	031502 034013 0   0   777777000000 0            777777000000 


*031502 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031502 031502 0   0   312000034013 0            777777000000 
IT1	031502 0      0   0   312000034013 0            777777000000 
AT3	031502 0      0   0   000000034013 0            312000034013 
AT6	031502 034013 0   0   000000034013 0            312000034013 
FT0	031502 034013 0   0   777777000000 0            312000034013 
FT1A	031502 034013 0   0   777777000000 0            777777000000 
FT2	031502 034013 0   0   0            0            777777000000 
FT2RQ	031502 034013 0   0   777777000000 0            777777000000 
FT3	031502 034013 0   0   777777000000 0            777777000000 
FT9	031503 034013 0   0   777777000000 0            777777000000 
ET0	031504 034013 0   0   0            0            777777000000 
ST1A	031504 034013 0   0   0            0            777777000000 
ST9	031504 034013 0   0   0            0            777777000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 135
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0325

*031504 JUMPA	0,031505
INITIAL
C(AC)=777777 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   777777000000 0            000000031505 
FT3	031504 031505 0   0   777777000000 0            000000031505 
FT9	031505 031505 0   0   777777000000 0            000000031505 
ET0	031505 031505 0   0   777777000000 0            000000031505 
ST1A	031505 031505 0   0   777777000000 0            000000031505 
ST9	031505 031505 0   0   777777000000 0            000000031505 


*031505 MOVSI	0,777777
INITIAL
C(AC)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031505 031505 0   0   205000777777 0            000000777777 
IT1	031505 0      0   0   205000777777 0            000000777777 
AT3	031505 0      0   0   000000777777 0            205000777777 
AT6	031505 777777 0   0   000000777777 0            205000777777 
FT1A	031505 777777 0   0   000000777777 0            000000777777 
FT9	031506 777777 0   0   000000777777 0            000000777777 
ET0	031506 777777 0   0   777777000000 0            000000777777 
ST1	031506 777777 0   0   777777000000 0            000000777777 
ST2	031506 777777 0   0   777777000000 0            000000777777 
ST9	031506 777777 0   0   777777000000 0            000000777777 


*031506 HLLZI	0,777777
INITIAL
C(AC)=777777 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031506 031506 0   0   511000777777 0            000000777777 
IT1	031506 0      0   0   511000777777 0            000000777777 
AT3	031506 0      0   0   000000777777 0            511000777777 
AT6	031506 777777 0   0   000000777777 0            511000777777 
FT1A	031506 777777 0   0   000000777777 0            000000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 136
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0326

FT9	031507 777777 0   0   000000777777 0            000000777777 
ET0	031507 777777 0   0   0            0            000000777777 
ST1	031507 777777 0   0   0            0            000000777777 
ST2	031507 777777 0   0   0            0            000000777777 
ST9	031507 777777 0   0   0            0            000000777777 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031507 031507 0   0   332000000000 0            0            
IT1	031507 0      0   0   332000000000 0            0            
AT3	031507 0      0   0   0            0            332000000000 
AT6	031507 0      0   0   0            0            332000000000 
FT0	031507 0      0   0   0            0            332000000000 
FT1A	031507 0      0   0   0            0            0            
FT9	031510 0      0   0   0            0            0            
ET0	031511 0      0   0   0            0            0            
ST1A	031511 0      0   0   0            0            0            
ST9	031511 0      0   0   0            0            0            


*031511 JUMPA	0,031512
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031511 031511 0   0   324000031512 0            000000031512 
IT1	031511 0      0   0   324000031512 0            000000031512 
AT3	031511 0      0   0   000000031512 0            324000031512 
AT6	031511 031512 0   0   000000031512 0            324000031512 
FT1A	031511 031512 0   0   000000031512 0            000000031512 
FT2	031511 031512 0   0   0            0            000000031512 
FT2RQ	031511 031512 0   0   0            0            000000031512 
FT3	031511 031512 0   0   0            0            000000031512 
FT9	031512 031512 0   0   0            0            000000031512 
ET0	031512 031512 0   0   0            0            000000031512 
ST1A	031512 031512 0   0   0            0            000000031512 
ST9	031512 031512 0   0   0            0            000000031512 


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

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


*031513 HRR 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031513 031513 0   0   540000000000 0            0            
IT1	031513 0      0   0   540000000000 0            0            
AT3	031513 0      0   0   0            0            540000000000 
AT6	031513 0      0   0   0            0            540000000000 
FT0	031513 0      0   0   0            0            540000000000 
FT1A	031513 0      0   0   0            0            0            
FT2	031513 0      0   0   0            0            0            
FT2RQ	031513 0      0   0   0            0            0            
FT3	031513 0      0   0   0            0            0            
FT9	031514 0      0   0   0            0            0            
ET0	031514 0      0   0   0            0            0            
ST1	031514 0      0   0   0            0            0            
ST2	031514 0      0   0   0            0            0            
ST9	031514 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 138
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0328

*031514 SKIPE	0,000000
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   332000000000 0            0            
IT1	031514 0      0   0   332000000000 0            0            
AT3	031514 0      0   0   0            0            332000000000 
AT6	031514 0      0   0   0            0            332000000000 
FT0	031514 0      0   0   0            0            332000000000 
FT1A	031514 0      0   0   0            0            0            
FT9	031515 0      0   0   0            0            0            
ET0	031516 0      0   0   0            0            0            
ST1A	031516 0      0   0   0            0            0            
ST9	031516 0      0   0   0            0            0            


*031516 JUMPA	0,031517
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031516 031516 0   0   324000031517 0            000000031517 
IT1	031516 0      0   0   324000031517 0            000000031517 
AT3	031516 0      0   0   000000031517 0            324000031517 
AT6	031516 031517 0   0   000000031517 0            324000031517 
FT1A	031516 031517 0   0   000000031517 0            000000031517 
FT2	031516 031517 0   0   0            0            000000031517 
FT2RQ	031516 031517 0   0   0            0            000000031517 
FT3	031516 031517 0   0   0            0            000000031517 
FT9	031517 031517 0   0   0            0            000000031517 
ET0	031517 031517 0   0   0            0            000000031517 
ST1A	031517 031517 0   0   0            0            000000031517 
ST9	031517 031517 0   0   0            0            000000031517 


*031517 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031517 031517 0   0   474000000000 0            0            
IT1	031517 0      0   0   474000000000 0            0            
AT3	031517 0      0   0   0            0            474000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 139
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0329

AT6	031517 0      0   0   0            0            474000000000 
FT1A	031517 0      0   0   0            0            0            
FT9	031520 0      0   0   0            0            0            
ET0	031520 0      0   0   777777777777 0            0            
ST1	031520 0      0   0   777777777777 0            0            
ST2	031520 0      0   0   777777777777 0            0            
ST9	031520 0      0   0   777777777777 0            0            


*031520 HRR 	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	031520 031520 0   0   540000000000 0            777777777777 
IT1	031520 0      0   0   540000000000 0            777777777777 
AT3	031520 0      0   0   0            0            540000000000 
AT6	031520 0      0   0   0            0            540000000000 
FT0	031520 0      0   0   777777777777 0            540000000000 
FT1A	031520 0      0   0   777777777777 0            777777777777 
FT2	031520 0      0   0   0            0            777777777777 
FT2RQ	031520 0      0   0   777777777777 0            777777777777 
FT3	031520 0      0   0   777777777777 0            777777777777 
FT9	031521 0      0   0   777777777777 0            777777777777 
ET0	031521 0      0   0   777777777777 0            777777777777 
ST1	031521 0      0   0   777777777777 0            777777777777 
ST2	031521 0      0   0   777777777777 0            777777777777 
ST9	031521 0      0   0   777777777777 0            777777777777 


*031521 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031521 031521 0   0   312000034012 0            777777777777 
IT1	031521 0      0   0   312000034012 0            777777777777 
AT3	031521 0      0   0   000000034012 0            312000034012 
AT6	031521 034012 0   0   000000034012 0            312000034012 
FT0	031521 034012 0   0   777777777777 0            312000034012 
FT1A	031521 034012 0   0   777777777777 0            777777777777 
FT2	031521 034012 0   0   0            0            777777777777 
FT2RQ	031521 034012 0   0   777777777777 0            777777777777 
FT3	031521 034012 0   0   777777777777 0            777777777777 
FT9	031522 034012 0   0   777777777777 0            777777777777 
ET0	031523 034012 0   0   0            0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 140
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0330

ST1A	031523 034012 0   0   0            0            777777777777 
ST9	031523 034012 0   0   0            0            777777777777 


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


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


*031524 SETO 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031524 031524 0   0   474000000000 0            0            
IT1	031524 0      0   0   474000000000 0            0            
AT3	031524 0      0   0   0            0            474000000000 
AT6	031524 0      0   0   0            0            474000000000 
FT1A	031524 0      0   0   0            0            0            
FT9	031525 0      0   0   0            0            0            
ET0	031525 0      0   0   777777777777 0            0            
ST1	031525 0      0   0   777777777777 0            0            
ST2	031525 0      0   0   777777777777 0            0            
ST9	031525 0      0   0   777777777777 0            0            


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

*031525 HRR 	0,034013
INITIAL
C(AC)=777777 777777 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031525 031525 0   0   540000034013 0            777777777777 
IT1	031525 0      0   0   540000034013 0            777777777777 
AT3	031525 0      0   0   000000034013 0            540000034013 
AT6	031525 034013 0   0   000000034013 0            540000034013 
FT0	031525 034013 0   0   777777000000 0            540000034013 
FT1A	031525 034013 0   0   777777000000 0            777777000000 
FT2	031525 034013 0   0   0            0            777777000000 
FT2RQ	031525 034013 0   0   777777777777 0            777777000000 
FT3	031525 034013 0   0   777777777777 0            777777000000 
FT9	031526 034013 0   0   777777777777 0            777777000000 
ET0	031526 034013 0   0   777777000000 0            777777777777 
ST1	031526 034013 0   0   777777000000 0            777777777777 
ST2	031526 034013 0   0   777777000000 0            777777777777 
ST9	031526 034013 0   0   777777000000 0            777777777777 


*031526 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031526 031526 0   0   312000034013 0            777777000000 
IT1	031526 0      0   0   312000034013 0            777777000000 
AT3	031526 0      0   0   000000034013 0            312000034013 
AT6	031526 034013 0   0   000000034013 0            312000034013 
FT0	031526 034013 0   0   777777000000 0            312000034013 
FT1A	031526 034013 0   0   777777000000 0            777777000000 
FT2	031526 034013 0   0   0            0            777777000000 
FT2RQ	031526 034013 0   0   777777000000 0            777777000000 
FT3	031526 034013 0   0   777777000000 0            777777000000 
FT9	031527 034013 0   0   777777000000 0            777777000000 
ET0	031530 034013 0   0   0            0            777777000000 
ST1A	031530 034013 0   0   0            0            777777000000 
ST9	031530 034013 0   0   0            0            777777000000 


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

*031530 JUMPA	0,031531
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031530 031530 0   0   324000031531 0            000000031531 
IT1	031530 0      0   0   324000031531 0            000000031531 
AT3	031530 0      0   0   000000031531 0            324000031531 
AT6	031530 031531 0   0   000000031531 0            324000031531 
FT1A	031530 031531 0   0   000000031531 0            000000031531 
FT2	031530 031531 0   0   0            0            000000031531 
FT2RQ	031530 031531 0   0   777777000000 0            000000031531 
FT3	031530 031531 0   0   777777000000 0            000000031531 
FT9	031531 031531 0   0   777777000000 0            000000031531 
ET0	031531 031531 0   0   777777000000 0            000000031531 
ST1A	031531 031531 0   0   777777000000 0            000000031531 
ST9	031531 031531 0   0   777777000000 0            000000031531 


*031531 SETO 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031531 031531 0   0   474000000000 0            0            
IT1	031531 0      0   0   474000000000 0            0            
AT3	031531 0      0   0   0            0            474000000000 
AT6	031531 0      0   0   0            0            474000000000 
FT1A	031531 0      0   0   0            0            0            
FT9	031532 0      0   0   0            0            0            
ET0	031532 0      0   0   777777777777 0            0            
ST1	031532 0      0   0   777777777777 0            0            
ST2	031532 0      0   0   777777777777 0            0            
ST9	031532 0      0   0   777777777777 0            0            


*031532 HRRI	0,777777
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031532 031532 0   0   541000777777 0            777777777777 
IT1	031532 0      0   0   541000777777 0            777777777777 
AT3	031532 0      0   0   000000777777 0            541000777777 
AT6	031532 777777 0   0   000000777777 0            541000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 143
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0333

FT1A	031532 777777 0   0   000000777777 0            000000777777 
FT2	031532 777777 0   0   0            0            000000777777 
FT2RQ	031532 777777 0   0   777777777777 0            000000777777 
FT3	031532 777777 0   0   777777777777 0            000000777777 
FT9	031533 777777 0   0   777777777777 0            000000777777 
ET0	031533 777777 0   0   777777777777 0            777777777777 
ST1	031533 777777 0   0   777777777777 0            777777777777 
ST2	031533 777777 0   0   777777777777 0            777777777777 
ST9	031533 777777 0   0   777777777777 0            777777777777 


*031533 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031533 031533 0   0   312000034012 0            777777777777 
IT1	031533 0      0   0   312000034012 0            777777777777 
AT3	031533 0      0   0   000000034012 0            312000034012 
AT6	031533 034012 0   0   000000034012 0            312000034012 
FT0	031533 034012 0   0   777777777777 0            312000034012 
FT1A	031533 034012 0   0   777777777777 0            777777777777 
FT2	031533 034012 0   0   0            0            777777777777 
FT2RQ	031533 034012 0   0   777777777777 0            777777777777 
FT3	031533 034012 0   0   777777777777 0            777777777777 
FT9	031534 034012 0   0   777777777777 0            777777777777 
ET0	031535 034012 0   0   0            0            777777777777 
ST1A	031535 034012 0   0   0            0            777777777777 
ST9	031535 034012 0   0   0            0            777777777777 


*031535 JUMPA	0,031536
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031535 031535 0   0   324000031536 0            000000031536 
IT1	031535 0      0   0   324000031536 0            000000031536 
AT3	031535 0      0   0   000000031536 0            324000031536 
AT6	031535 031536 0   0   000000031536 0            324000031536 
FT1A	031535 031536 0   0   000000031536 0            000000031536 
FT2	031535 031536 0   0   0            0            000000031536 
FT2RQ	031535 031536 0   0   777777777777 0            000000031536 
FT3	031535 031536 0   0   777777777777 0            000000031536 
FT9	031536 031536 0   0   777777777777 0            000000031536 
ET0	031536 031536 0   0   777777777777 0            000000031536 
ST1A	031536 031536 0   0   777777777777 0            000000031536 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 144
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0334

ST9	031536 031536 0   0   777777777777 0            000000031536 


*031536 SETO 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031536 031536 0   0   474000000000 0            0            
IT1	031536 0      0   0   474000000000 0            0            
AT3	031536 0      0   0   0            0            474000000000 
AT6	031536 0      0   0   0            0            474000000000 
FT1A	031536 0      0   0   0            0            0            
FT9	031537 0      0   0   0            0            0            
ET0	031537 0      0   0   777777777777 0            0            
ST1	031537 0      0   0   777777777777 0            0            
ST2	031537 0      0   0   777777777777 0            0            
ST9	031537 0      0   0   777777777777 0            0            


*031537 HRR 	0,034014
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031537 031537 0   0   540000034014 0            777777777777 
IT1	031537 0      0   0   540000034014 0            777777777777 
AT3	031537 0      0   0   000000034014 0            540000034014 
AT6	031537 034014 0   0   000000034014 0            540000034014 
FT0	031537 034014 0   0   0            0            540000034014 
FT1A	031537 034014 0   0   0            0            0            
FT2	031537 034014 0   0   0            0            0            
FT2RQ	031537 034014 0   0   777777777777 0            0            
FT3	031537 034014 0   0   777777777777 0            0            
FT9	031540 034014 0   0   777777777777 0            0            
ET0	031540 034014 0   0   777777000000 0            777777777777 
ST1	031540 034014 0   0   777777000000 0            777777777777 
ST2	031540 034014 0   0   777777000000 0            777777777777 
ST9	031540 034014 0   0   777777000000 0            777777777777 


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

*031540 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031540 031540 0   0   312000034013 0            777777000000 
IT1	031540 0      0   0   312000034013 0            777777000000 
AT3	031540 0      0   0   000000034013 0            312000034013 
AT6	031540 034013 0   0   000000034013 0            312000034013 
FT0	031540 034013 0   0   777777000000 0            312000034013 
FT1A	031540 034013 0   0   777777000000 0            777777000000 
FT2	031540 034013 0   0   0            0            777777000000 
FT2RQ	031540 034013 0   0   777777000000 0            777777000000 
FT3	031540 034013 0   0   777777000000 0            777777000000 
FT9	031541 034013 0   0   777777000000 0            777777000000 
ET0	031542 034013 0   0   0            0            777777000000 
ST1A	031542 034013 0   0   0            0            777777000000 
ST9	031542 034013 0   0   0            0            777777000000 


*031542 JUMPA	0,031543
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031542 031542 0   0   324000031543 0            000000031543 
IT1	031542 0      0   0   324000031543 0            000000031543 
AT3	031542 0      0   0   000000031543 0            324000031543 
AT6	031542 031543 0   0   000000031543 0            324000031543 
FT1A	031542 031543 0   0   000000031543 0            000000031543 
FT2	031542 031543 0   0   0            0            000000031543 
FT2RQ	031542 031543 0   0   777777000000 0            000000031543 
FT3	031542 031543 0   0   777777000000 0            000000031543 
FT9	031543 031543 0   0   777777000000 0            000000031543 
ET0	031543 031543 0   0   777777000000 0            000000031543 
ST1A	031543 031543 0   0   777777000000 0            000000031543 
ST9	031543 031543 0   0   777777000000 0            000000031543 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 146
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0336

*031543 SETZ 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=000000 000000 

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


*031544 HRR 	0,034014
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031544 031544 0   0   540000034014 0            0            
IT1	031544 0      0   0   540000034014 0            0            
AT3	031544 0      0   0   000000034014 0            540000034014 
AT6	031544 034014 0   0   000000034014 0            540000034014 
FT0	031544 034014 0   0   0            0            540000034014 
FT1A	031544 034014 0   0   0            0            0            
FT2	031544 034014 0   0   0            0            0            
FT2RQ	031544 034014 0   0   0            0            0            
FT3	031544 034014 0   0   0            0            0            
FT9	031545 034014 0   0   0            0            0            
ET0	031545 034014 0   0   0            0            0            
ST1	031545 034014 0   0   0            0            0            
ST2	031545 034014 0   0   0            0            0            
ST9	031545 034014 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 147
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0337

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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031545 031545 0   0   332000000000 0            0            
IT1	031545 0      0   0   332000000000 0            0            
AT3	031545 0      0   0   0            0            332000000000 
AT6	031545 0      0   0   0            0            332000000000 
FT0	031545 0      0   0   0            0            332000000000 
FT1A	031545 0      0   0   0            0            0            
FT9	031546 0      0   0   0            0            0            
ET0	031547 0      0   0   0            0            0            
ST1A	031547 0      0   0   0            0            0            
ST9	031547 0      0   0   0            0            0            


*031547 JUMPA	0,031550
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031547 031547 0   0   324000031550 0            000000031550 
IT1	031547 0      0   0   324000031550 0            000000031550 
AT3	031547 0      0   0   000000031550 0            324000031550 
AT6	031547 031550 0   0   000000031550 0            324000031550 
FT1A	031547 031550 0   0   000000031550 0            000000031550 
FT2	031547 031550 0   0   0            0            000000031550 
FT2RQ	031547 031550 0   0   0            0            000000031550 
FT3	031547 031550 0   0   0            0            000000031550 
FT9	031550 031550 0   0   0            0            000000031550 
ET0	031550 031550 0   0   0            0            000000031550 
ST1A	031550 031550 0   0   0            0            000000031550 
ST9	031550 031550 0   0   0            0            000000031550 


*031550 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	031550 031550 0   0   400000000000 0            0            
IT1	031550 0      0   0   400000000000 0            0            
AT3	031550 0      0   0   0            0            400000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 148
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0338

AT6	031550 0      0   0   0            0            400000000000 
FT1A	031550 0      0   0   0            0            0            
FT9	031551 0      0   0   0            0            0            
ET0	031551 0      0   0   0            0            0            
ST1	031551 0      0   0   0            0            0            
ST2	031551 0      0   0   0            0            0            
ST9	031551 0      0   0   0            0            0            


*031551 HRR 	0,034012
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031551 031551 0   0   540000034012 0            0            
IT1	031551 0      0   0   540000034012 0            0            
AT3	031551 0      0   0   000000034012 0            540000034012 
AT6	031551 034012 0   0   000000034012 0            540000034012 
FT0	031551 034012 0   0   777777777777 0            540000034012 
FT1A	031551 034012 0   0   777777777777 0            777777777777 
FT2	031551 034012 0   0   0            0            777777777777 
FT2RQ	031551 034012 0   0   0            0            777777777777 
FT3	031551 034012 0   0   0            0            777777777777 
FT9	031552 034012 0   0   0            0            777777777777 
ET0	031552 034012 0   0   000000777777 0            0            
ST1	031552 034012 0   0   000000777777 0            0            
ST2	031552 034012 0   0   000000777777 0            0            
ST9	031552 034012 0   0   000000777777 0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031552 031552 0   0   302000777777 0            000000777777 
IT1	031552 0      0   0   302000777777 0            000000777777 
AT3	031552 0      0   0   000000777777 0            302000777777 
AT6	031552 777777 0   0   000000777777 0            302000777777 
FT1A	031552 777777 0   0   000000777777 0            000000777777 
FT2	031552 777777 0   0   0            0            000000777777 
FT2RQ	031552 777777 0   0   000000777777 0            000000777777 
FT3	031552 777777 0   0   000000777777 0            000000777777 
FT9	031553 777777 0   0   000000777777 0            000000777777 
ET0	031554 777777 0   0   0            0            000000777777 
ST1A	031554 777777 0   0   0            0            000000777777 
ST9	031554 777777 0   0   0            0            000000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 149
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0339



*031554 JUMPA	0,031555
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031554 031554 0   0   324000031555 0            000000031555 
IT1	031554 0      0   0   324000031555 0            000000031555 
AT3	031554 0      0   0   000000031555 0            324000031555 
AT6	031554 031555 0   0   000000031555 0            324000031555 
FT1A	031554 031555 0   0   000000031555 0            000000031555 
FT2	031554 031555 0   0   0            0            000000031555 
FT2RQ	031554 031555 0   0   000000777777 0            000000031555 
FT3	031554 031555 0   0   000000777777 0            000000031555 
FT9	031555 031555 0   0   000000777777 0            000000031555 
ET0	031555 031555 0   0   000000777777 0            000000031555 
ST1A	031555 031555 0   0   000000777777 0            000000031555 
ST9	031555 031555 0   0   000000777777 0            000000031555 


*031555 SETZ 	0,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=000000 000000 

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


*031556 HRRI	0,777777
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031556 031556 0   0   541000777777 0            0            
IT1	031556 0      0   0   541000777777 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 150
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0340

AT3	031556 0      0   0   000000777777 0            541000777777 
AT6	031556 777777 0   0   000000777777 0            541000777777 
FT1A	031556 777777 0   0   000000777777 0            000000777777 
FT2	031556 777777 0   0   0            0            000000777777 
FT2RQ	031556 777777 0   0   0            0            000000777777 
FT3	031556 777777 0   0   0            0            000000777777 
FT9	031557 777777 0   0   0            0            000000777777 
ET0	031557 777777 0   0   000000777777 0            0            
ST1	031557 777777 0   0   000000777777 0            0            
ST2	031557 777777 0   0   000000777777 0            0            
ST9	031557 777777 0   0   000000777777 0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031557 031557 0   0   302000777777 0            000000777777 
IT1	031557 0      0   0   302000777777 0            000000777777 
AT3	031557 0      0   0   000000777777 0            302000777777 
AT6	031557 777777 0   0   000000777777 0            302000777777 
FT1A	031557 777777 0   0   000000777777 0            000000777777 
FT2	031557 777777 0   0   0            0            000000777777 
FT2RQ	031557 777777 0   0   000000777777 0            000000777777 
FT3	031557 777777 0   0   000000777777 0            000000777777 
FT9	031560 777777 0   0   000000777777 0            000000777777 
ET0	031561 777777 0   0   0            0            000000777777 
ST1A	031561 777777 0   0   0            0            000000777777 
ST9	031561 777777 0   0   0            0            000000777777 


*031561 JUMPA	0,031562
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031561 031561 0   0   324000031562 0            000000031562 
IT1	031561 0      0   0   324000031562 0            000000031562 
AT3	031561 0      0   0   000000031562 0            324000031562 
AT6	031561 031562 0   0   000000031562 0            324000031562 
FT1A	031561 031562 0   0   000000031562 0            000000031562 
FT2	031561 031562 0   0   0            0            000000031562 
FT2RQ	031561 031562 0   0   000000777777 0            000000031562 
FT3	031561 031562 0   0   000000777777 0            000000031562 
FT9	031562 031562 0   0   000000777777 0            000000031562 
ET0	031562 031562 0   0   000000777777 0            000000031562 
ST1A	031562 031562 0   0   000000777777 0            000000031562 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 151
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0341

ST9	031562 031562 0   0   000000777777 0            000000031562 


*031562 SETZ 	0,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=000000 000000 

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


*031563 HRR 	0,034013
INITIAL
C(AC)=000000 000000 
C(E)=777777 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031563 031563 0   0   540000034013 0            0            
IT1	031563 0      0   0   540000034013 0            0            
AT3	031563 0      0   0   000000034013 0            540000034013 
AT6	031563 034013 0   0   000000034013 0            540000034013 
FT0	031563 034013 0   0   777777000000 0            540000034013 
FT1A	031563 034013 0   0   777777000000 0            777777000000 
FT2	031563 034013 0   0   0            0            777777000000 
FT2RQ	031563 034013 0   0   0            0            777777000000 
FT3	031563 034013 0   0   0            0            777777000000 
FT9	031564 034013 0   0   0            0            777777000000 
ET0	031564 034013 0   0   0            0            0            
ST1	031564 034013 0   0   0            0            0            
ST2	031564 034013 0   0   0            0            0            
ST9	031564 034013 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 152
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0342

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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031564 031564 0   0   332000000000 0            0            
IT1	031564 0      0   0   332000000000 0            0            
AT3	031564 0      0   0   0            0            332000000000 
AT6	031564 0      0   0   0            0            332000000000 
FT0	031564 0      0   0   0            0            332000000000 
FT1A	031564 0      0   0   0            0            0            
FT9	031565 0      0   0   0            0            0            
ET0	031566 0      0   0   0            0            0            
ST1A	031566 0      0   0   0            0            0            
ST9	031566 0      0   0   0            0            0            


*031566 JUMPA	0,031567
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031566 031566 0   0   324000031567 0            000000031567 
IT1	031566 0      0   0   324000031567 0            000000031567 
AT3	031566 0      0   0   000000031567 0            324000031567 
AT6	031566 031567 0   0   000000031567 0            324000031567 
FT1A	031566 031567 0   0   000000031567 0            000000031567 
FT2	031566 031567 0   0   0            0            000000031567 
FT2RQ	031566 031567 0   0   0            0            000000031567 
FT3	031566 031567 0   0   0            0            000000031567 
FT9	031567 031567 0   0   0            0            000000031567 
ET0	031567 031567 0   0   0            0            000000031567 
ST1A	031567 031567 0   0   0            0            000000031567 
ST9	031567 031567 0   0   0            0            000000031567 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031567 031567 0   0   201000777777 0            000000777777 
IT1	031567 0      0   0   201000777777 0            000000777777 
AT3	031567 0      0   0   000000777777 0            201000777777 
AT6	031567 777777 0   0   000000777777 0            201000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 153
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0343

FT1A	031567 777777 0   0   000000777777 0            000000777777 
FT9	031570 777777 0   0   000000777777 0            000000777777 
ET0	031570 777777 0   0   000000777777 0            000000777777 
ST1	031570 777777 0   0   000000777777 0            000000777777 
ST2	031570 777777 0   0   000000777777 0            000000777777 
ST9	031570 777777 0   0   000000777777 0            000000777777 


*031570 HRR 	0,034013
INITIAL
C(AC)=000000 777777 
C(E)=777777 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031570 031570 0   0   540000034013 0            000000777777 
IT1	031570 0      0   0   540000034013 0            000000777777 
AT3	031570 0      0   0   000000034013 0            540000034013 
AT6	031570 034013 0   0   000000034013 0            540000034013 
FT0	031570 034013 0   0   777777000000 0            540000034013 
FT1A	031570 034013 0   0   777777000000 0            777777000000 
FT2	031570 034013 0   0   0            0            777777000000 
FT2RQ	031570 034013 0   0   000000777777 0            777777000000 
FT3	031570 034013 0   0   000000777777 0            777777000000 
FT9	031571 034013 0   0   000000777777 0            777777000000 
ET0	031571 034013 0   0   0            0            000000777777 
ST1	031571 034013 0   0   0            0            000000777777 
ST2	031571 034013 0   0   0            0            000000777777 
ST9	031571 034013 0   0   0            0            000000777777 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031571 031571 0   0   332000000000 0            0            
IT1	031571 0      0   0   332000000000 0            0            
AT3	031571 0      0   0   0            0            332000000000 
AT6	031571 0      0   0   0            0            332000000000 
FT0	031571 0      0   0   0            0            332000000000 
FT1A	031571 0      0   0   0            0            0            
FT9	031572 0      0   0   0            0            0            
ET0	031573 0      0   0   0            0            0            
ST1A	031573 0      0   0   0            0            0            
ST9	031573 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 154
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0344

*031573 JUMPA	0,031574
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031573 031573 0   0   324000031574 0            000000031574 
IT1	031573 0      0   0   324000031574 0            000000031574 
AT3	031573 0      0   0   000000031574 0            324000031574 
AT6	031573 031574 0   0   000000031574 0            324000031574 
FT1A	031573 031574 0   0   000000031574 0            000000031574 
FT2	031573 031574 0   0   0            0            000000031574 
FT2RQ	031573 031574 0   0   0            0            000000031574 
FT3	031573 031574 0   0   0            0            000000031574 
FT9	031574 031574 0   0   0            0            000000031574 
ET0	031574 031574 0   0   0            0            000000031574 
ST1A	031574 031574 0   0   0            0            000000031574 
ST9	031574 031574 0   0   0            0            000000031574 


*031574 MOVSI	0,777777
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031574 031574 0   0   205000777777 0            000000777777 
IT1	031574 0      0   0   205000777777 0            000000777777 
AT3	031574 0      0   0   000000777777 0            205000777777 
AT6	031574 777777 0   0   000000777777 0            205000777777 
FT1A	031574 777777 0   0   000000777777 0            000000777777 
FT9	031575 777777 0   0   000000777777 0            000000777777 
ET0	031575 777777 0   0   777777000000 0            000000777777 
ST1	031575 777777 0   0   777777000000 0            000000777777 
ST2	031575 777777 0   0   777777000000 0            000000777777 
ST9	031575 777777 0   0   777777000000 0            000000777777 


*031575 HRRI	0,777777
INITIAL
C(AC)=777777 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031575 031575 0   0   541000777777 0            777777000000 
IT1	031575 0      0   0   541000777777 0            777777000000 
AT3	031575 0      0   0   000000777777 0            541000777777 
AT6	031575 777777 0   0   000000777777 0            541000777777 
FT1A	031575 777777 0   0   000000777777 0            000000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 155
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0345

FT2	031575 777777 0   0   0            0            000000777777 
FT2RQ	031575 777777 0   0   777777000000 0            000000777777 
FT3	031575 777777 0   0   777777000000 0            000000777777 
FT9	031576 777777 0   0   777777000000 0            000000777777 
ET0	031576 777777 0   0   777777777777 0            777777000000 
ST1	031576 777777 0   0   777777777777 0            777777000000 
ST2	031576 777777 0   0   777777777777 0            777777000000 
ST9	031576 777777 0   0   777777777777 0            777777000000 


*031576 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031576 031576 0   0   312000034012 0            777777777777 
IT1	031576 0      0   0   312000034012 0            777777777777 
AT3	031576 0      0   0   000000034012 0            312000034012 
AT6	031576 034012 0   0   000000034012 0            312000034012 
FT0	031576 034012 0   0   777777777777 0            312000034012 
FT1A	031576 034012 0   0   777777777777 0            777777777777 
FT2	031576 034012 0   0   0            0            777777777777 
FT2RQ	031576 034012 0   0   777777777777 0            777777777777 
FT3	031576 034012 0   0   777777777777 0            777777777777 
FT9	031577 034012 0   0   777777777777 0            777777777777 
ET0	0      034012 0   0   0            0            777777777777 
ST1A	0      034012 0   0   0            0            777777777777 
ST9	0      034012 0   0   0            0            777777777777 


*031600 JUMPA	0,031601
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000031601 0            000000031601 
IT1	0      0      0   0   324000031601 0            000000031601 
AT3	0      0      0   0   000000031601 0            324000031601 
AT6	0      031601 0   0   000000031601 0            324000031601 
FT1A	0      031601 0   0   000000031601 0            000000031601 
FT2	0      031601 0   0   0            0            000000031601 
FT2RQ	0      031601 0   0   777777777777 0            000000031601 
FT3	0      031601 0   0   777777777777 0            000000031601 
FT9	031601 031601 0   0   777777777777 0            000000031601 
ET0	031601 031601 0   0   777777777777 0            000000031601 
ST1A	031601 031601 0   0   777777777777 0            000000031601 
ST9	031601 031601 0   0   777777777777 0            000000031601 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 156
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0346



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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031601 031601 0   0   201000777777 0            000000777777 
IT1	031601 0      0   0   201000777777 0            000000777777 
AT3	031601 0      0   0   000000777777 0            201000777777 
AT6	031601 777777 0   0   000000777777 0            201000777777 
FT1A	031601 777777 0   0   000000777777 0            000000777777 
FT9	031602 777777 0   0   000000777777 0            000000777777 
ET0	031602 777777 0   0   000000777777 0            000000777777 
ST1	031602 777777 0   0   000000777777 0            000000777777 
ST2	031602 777777 0   0   000000777777 0            000000777777 
ST9	031602 777777 0   0   000000777777 0            000000777777 


*031602 HRRI	0,777777
INITIAL
C(AC)=000000 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031602 031602 0   0   541000777777 0            000000777777 
IT1	031602 0      0   0   541000777777 0            000000777777 
AT3	031602 0      0   0   000000777777 0            541000777777 
AT6	031602 777777 0   0   000000777777 0            541000777777 
FT1A	031602 777777 0   0   000000777777 0            000000777777 
FT2	031602 777777 0   0   0            0            000000777777 
FT2RQ	031602 777777 0   0   000000777777 0            000000777777 
FT3	031602 777777 0   0   000000777777 0            000000777777 
FT9	031603 777777 0   0   000000777777 0            000000777777 
ET0	031603 777777 0   0   000000777777 0            000000777777 
ST1	031603 777777 0   0   000000777777 0            000000777777 
ST2	031603 777777 0   0   000000777777 0            000000777777 
ST9	031603 777777 0   0   000000777777 0            000000777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031603 031603 0   0   302000777777 0            000000777777 
IT1	031603 0      0   0   302000777777 0            000000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 157
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0347

AT3	031603 0      0   0   000000777777 0            302000777777 
AT6	031603 777777 0   0   000000777777 0            302000777777 
FT1A	031603 777777 0   0   000000777777 0            000000777777 
FT2	031603 777777 0   0   0            0            000000777777 
FT2RQ	031603 777777 0   0   000000777777 0            000000777777 
FT3	031603 777777 0   0   000000777777 0            000000777777 
FT9	031604 777777 0   0   000000777777 0            000000777777 
ET0	031605 777777 0   0   0            0            000000777777 
ST1A	031605 777777 0   0   0            0            000000777777 
ST9	031605 777777 0   0   0            0            000000777777 


*031605 JUMPA	0,031606
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031605 031605 0   0   324000031606 0            000000031606 
IT1	031605 0      0   0   324000031606 0            000000031606 
AT3	031605 0      0   0   000000031606 0            324000031606 
AT6	031605 031606 0   0   000000031606 0            324000031606 
FT1A	031605 031606 0   0   000000031606 0            000000031606 
FT2	031605 031606 0   0   0            0            000000031606 
FT2RQ	031605 031606 0   0   000000777777 0            000000031606 
FT3	031605 031606 0   0   000000777777 0            000000031606 
FT9	031606 031606 0   0   000000777777 0            000000031606 
ET0	031606 031606 0   0   000000777777 0            000000031606 
ST1A	031606 031606 0   0   000000777777 0            000000031606 
ST9	031606 031606 0   0   000000777777 0            000000031606 


*031606 MOVSI	0,777777
INITIAL
C(AC)=000000 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031606 031606 0   0   205000777777 0            000000777777 
IT1	031606 0      0   0   205000777777 0            000000777777 
AT3	031606 0      0   0   000000777777 0            205000777777 
AT6	031606 777777 0   0   000000777777 0            205000777777 
FT1A	031606 777777 0   0   000000777777 0            000000777777 
FT9	031607 777777 0   0   000000777777 0            000000777777 
ET0	031607 777777 0   0   777777000000 0            000000777777 
ST1	031607 777777 0   0   777777000000 0            000000777777 
ST2	031607 777777 0   0   777777000000 0            000000777777 
ST9	031607 777777 0   0   777777000000 0            000000777777 


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

*031607 HRR 	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031607 031607 0   0   540000034013 0            777777000000 
IT1	031607 0      0   0   540000034013 0            777777000000 
AT3	031607 0      0   0   000000034013 0            540000034013 
AT6	031607 034013 0   0   000000034013 0            540000034013 
FT0	031607 034013 0   0   777777000000 0            540000034013 
FT1A	031607 034013 0   0   777777000000 0            777777000000 
FT2	031607 034013 0   0   0            0            777777000000 
FT2RQ	031607 034013 0   0   777777000000 0            777777000000 
FT3	031607 034013 0   0   777777000000 0            777777000000 
FT9	031610 034013 0   0   777777000000 0            777777000000 
ET0	031610 034013 0   0   777777000000 0            777777000000 
ST1	031610 034013 0   0   777777000000 0            777777000000 
ST2	031610 034013 0   0   777777000000 0            777777000000 
ST9	031610 034013 0   0   777777000000 0            777777000000 


*031610 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031610 031610 0   0   312000034013 0            777777000000 
IT1	031610 0      0   0   312000034013 0            777777000000 
AT3	031610 0      0   0   000000034013 0            312000034013 
AT6	031610 034013 0   0   000000034013 0            312000034013 
FT0	031610 034013 0   0   777777000000 0            312000034013 
FT1A	031610 034013 0   0   777777000000 0            777777000000 
FT2	031610 034013 0   0   0            0            777777000000 
FT2RQ	031610 034013 0   0   777777000000 0            777777000000 
FT3	031610 034013 0   0   777777000000 0            777777000000 
FT9	031611 034013 0   0   777777000000 0            777777000000 
ET0	031612 034013 0   0   0            0            777777000000 
ST1A	031612 034013 0   0   0            0            777777000000 
ST9	031612 034013 0   0   0            0            777777000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 159
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0349

*031612 JUMPA	0,031613
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031612 031612 0   0   324000031613 0            000000031613 
IT1	031612 0      0   0   324000031613 0            000000031613 
AT3	031612 0      0   0   000000031613 0            324000031613 
AT6	031612 031613 0   0   000000031613 0            324000031613 
FT1A	031612 031613 0   0   000000031613 0            000000031613 
FT2	031612 031613 0   0   0            0            000000031613 
FT2RQ	031612 031613 0   0   777777000000 0            000000031613 
FT3	031612 031613 0   0   777777000000 0            000000031613 
FT9	031613 031613 0   0   777777000000 0            000000031613 
ET0	031613 031613 0   0   777777000000 0            000000031613 
ST1A	031613 031613 0   0   777777000000 0            000000031613 
ST9	031613 031613 0   0   777777000000 0            000000031613 


*031613 SETZ 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=000000 000000 

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


*031614 HRRZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031614 031614 0   0   550000000000 0            0            
IT1	031614 0      0   0   550000000000 0            0            
AT3	031614 0      0   0   0            0            550000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 160
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0350

AT6	031614 0      0   0   0            0            550000000000 
FT0	031614 0      0   0   0            0            550000000000 
FT1A	031614 0      0   0   0            0            0            
FT9	031615 0      0   0   0            0            0            
ET0	031615 0      0   0   0            0            0            
ST1	031615 0      0   0   0            0            0            
ST2	031615 0      0   0   0            0            0            
ST9	031615 0      0   0   0            0            0            


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031615 031615 0   0   332000000000 0            0            
IT1	031615 0      0   0   332000000000 0            0            
AT3	031615 0      0   0   0            0            332000000000 
AT6	031615 0      0   0   0            0            332000000000 
FT0	031615 0      0   0   0            0            332000000000 
FT1A	031615 0      0   0   0            0            0            
FT9	031616 0      0   0   0            0            0            
ET0	031617 0      0   0   0            0            0            
ST1A	031617 0      0   0   0            0            0            
ST9	031617 0      0   0   0            0            0            


*031617 JUMPA	0,031620
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031617 031617 0   0   324000031620 0            000000031620 
IT1	031617 0      0   0   324000031620 0            000000031620 
AT3	031617 0      0   0   000000031620 0            324000031620 
AT6	031617 031620 0   0   000000031620 0            324000031620 
FT1A	031617 031620 0   0   000000031620 0            000000031620 
FT2	031617 031620 0   0   0            0            000000031620 
FT2RQ	031617 031620 0   0   0            0            000000031620 
FT3	031617 031620 0   0   0            0            000000031620 
FT9	031620 031620 0   0   0            0            000000031620 
ET0	031620 031620 0   0   0            0            000000031620 
ST1A	031620 031620 0   0   0            0            000000031620 
ST9	031620 031620 0   0   0            0            000000031620 


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

*031620 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031620 031620 0   0   474000000000 0            0            
IT1	031620 0      0   0   474000000000 0            0            
AT3	031620 0      0   0   0            0            474000000000 
AT6	031620 0      0   0   0            0            474000000000 
FT1A	031620 0      0   0   0            0            0            
FT9	031621 0      0   0   0            0            0            
ET0	031621 0      0   0   777777777777 0            0            
ST1	031621 0      0   0   777777777777 0            0            
ST2	031621 0      0   0   777777777777 0            0            
ST9	031621 0      0   0   777777777777 0            0            


*031621 HRRZI	0,777777
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031621 031621 0   0   551000777777 0            000000777777 
IT1	031621 0      0   0   551000777777 0            000000777777 
AT3	031621 0      0   0   000000777777 0            551000777777 
AT6	031621 777777 0   0   000000777777 0            551000777777 
FT1A	031621 777777 0   0   000000777777 0            000000777777 
FT9	031622 777777 0   0   000000777777 0            000000777777 
ET0	031622 777777 0   0   000000777777 0            000000777777 
ST1	031622 777777 0   0   000000777777 0            000000777777 
ST2	031622 777777 0   0   000000777777 0            000000777777 
ST9	031622 777777 0   0   000000777777 0            000000777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031622 031622 0   0   302000777777 0            000000777777 
IT1	031622 0      0   0   302000777777 0            000000777777 
AT3	031622 0      0   0   000000777777 0            302000777777 
AT6	031622 777777 0   0   000000777777 0            302000777777 
FT1A	031622 777777 0   0   000000777777 0            000000777777 
FT2	031622 777777 0   0   0            0            000000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 162
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0352

FT2RQ	031622 777777 0   0   000000777777 0            000000777777 
FT3	031622 777777 0   0   000000777777 0            000000777777 
FT9	031623 777777 0   0   000000777777 0            000000777777 
ET0	031624 777777 0   0   0            0            000000777777 
ST1A	031624 777777 0   0   0            0            000000777777 
ST9	031624 777777 0   0   0            0            000000777777 


*031624 JUMPA	0,031625
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031624 031624 0   0   324000031625 0            000000031625 
IT1	031624 0      0   0   324000031625 0            000000031625 
AT3	031624 0      0   0   000000031625 0            324000031625 
AT6	031624 031625 0   0   000000031625 0            324000031625 
FT1A	031624 031625 0   0   000000031625 0            000000031625 
FT2	031624 031625 0   0   0            0            000000031625 
FT2RQ	031624 031625 0   0   000000777777 0            000000031625 
FT3	031624 031625 0   0   000000777777 0            000000031625 
FT9	031625 031625 0   0   000000777777 0            000000031625 
ET0	031625 031625 0   0   000000777777 0            000000031625 
ST1A	031625 031625 0   0   000000777777 0            000000031625 
ST9	031625 031625 0   0   000000777777 0            000000031625 


*031625 SETO 	0,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031625 031625 0   0   474000000000 0            0            
IT1	031625 0      0   0   474000000000 0            0            
AT3	031625 0      0   0   0            0            474000000000 
AT6	031625 0      0   0   0            0            474000000000 
FT1A	031625 0      0   0   0            0            0            
FT9	031626 0      0   0   0            0            0            
ET0	031626 0      0   0   777777777777 0            0            
ST1	031626 0      0   0   777777777777 0            0            
ST2	031626 0      0   0   777777777777 0            0            
ST9	031626 0      0   0   777777777777 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 163
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0353

*031626 HRRZI	0,000000
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031626 031626 0   0   551000000000 0            0            
IT1	031626 0      0   0   551000000000 0            0            
AT3	031626 0      0   0   0            0            551000000000 
AT6	031626 0      0   0   0            0            551000000000 
FT1A	031626 0      0   0   0            0            0            
FT9	031627 0      0   0   0            0            0            
ET0	031627 0      0   0   0            0            0            
ST1	031627 0      0   0   0            0            0            
ST2	031627 0      0   0   0            0            0            
ST9	031627 0      0   0   0            0            0            


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031627 031627 0   0   332000000000 0            0            
IT1	031627 0      0   0   332000000000 0            0            
AT3	031627 0      0   0   0            0            332000000000 
AT6	031627 0      0   0   0            0            332000000000 
FT0	031627 0      0   0   0            0            332000000000 
FT1A	031627 0      0   0   0            0            0            
FT9	031630 0      0   0   0            0            0            
ET0	031631 0      0   0   0            0            0            
ST1A	031631 0      0   0   0            0            0            
ST9	031631 0      0   0   0            0            0            


*031631 JUMPA	0,031632
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031631 031631 0   0   324000031632 0            000000031632 
IT1	031631 0      0   0   324000031632 0            000000031632 
AT3	031631 0      0   0   000000031632 0            324000031632 
AT6	031631 031632 0   0   000000031632 0            324000031632 
FT1A	031631 031632 0   0   000000031632 0            000000031632 
FT2	031631 031632 0   0   0            0            000000031632 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 164
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0354

FT2RQ	031631 031632 0   0   0            0            000000031632 
FT3	031631 031632 0   0   0            0            000000031632 
FT9	031632 031632 0   0   0            0            000000031632 
ET0	031632 031632 0   0   0            0            000000031632 
ST1A	031632 031632 0   0   0            0            000000031632 
ST9	031632 031632 0   0   0            0            000000031632 


*031632 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031632 031632 0   0   474000000000 0            0            
IT1	031632 0      0   0   474000000000 0            0            
AT3	031632 0      0   0   0            0            474000000000 
AT6	031632 0      0   0   0            0            474000000000 
FT1A	031632 0      0   0   0            0            0            
FT9	031633 0      0   0   0            0            0            
ET0	031633 0      0   0   777777777777 0            0            
ST1	031633 0      0   0   777777777777 0            0            
ST2	031633 0      0   0   777777777777 0            0            
ST9	031633 0      0   0   777777777777 0            0            


*031633 HRRZ 	0,034013
INITIAL
C(AC)=777777 777777 
C(E)=777777 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031633 031633 0   0   550000034013 0            777777000000 
IT1	031633 0      0   0   550000034013 0            777777000000 
AT3	031633 0      0   0   000000034013 0            550000034013 
AT6	031633 034013 0   0   000000034013 0            550000034013 
FT0	031633 034013 0   0   777777000000 0            550000034013 
FT1A	031633 034013 0   0   777777000000 0            777777000000 
FT9	031634 034013 0   0   777777000000 0            777777000000 
ET0	031634 034013 0   0   0            0            777777000000 
ST1	031634 034013 0   0   0            0            777777000000 
ST2	031634 034013 0   0   0            0            777777000000 
ST9	031634 034013 0   0   0            0            777777000000 


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

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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031634 031634 0   0   332000000000 0            0            
IT1	031634 0      0   0   332000000000 0            0            
AT3	031634 0      0   0   0            0            332000000000 
AT6	031634 0      0   0   0            0            332000000000 
FT0	031634 0      0   0   0            0            332000000000 
FT1A	031634 0      0   0   0            0            0            
FT9	031635 0      0   0   0            0            0            
ET0	031636 0      0   0   0            0            0            
ST1A	031636 0      0   0   0            0            0            
ST9	031636 0      0   0   0            0            0            


*031636 JUMPA	0,031637
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031636 031636 0   0   324000031637 0            000000031637 
IT1	031636 0      0   0   324000031637 0            000000031637 
AT3	031636 0      0   0   000000031637 0            324000031637 
AT6	031636 031637 0   0   000000031637 0            324000031637 
FT1A	031636 031637 0   0   000000031637 0            000000031637 
FT2	031636 031637 0   0   0            0            000000031637 
FT2RQ	031636 031637 0   0   0            0            000000031637 
FT3	031636 031637 0   0   0            0            000000031637 
FT9	031637 031637 0   0   0            0            000000031637 
ET0	031637 031637 0   0   0            0            000000031637 
ST1A	031637 031637 0   0   0            0            000000031637 
ST9	031637 031637 0   0   0            0            000000031637 


*031637 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031637 031637 0   0   474000000000 0            0            
IT1	031637 0      0   0   474000000000 0            0            
AT3	031637 0      0   0   0            0            474000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 166
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0356

AT6	031637 0      0   0   0            0            474000000000 
FT1A	031637 0      0   0   0            0            0            
FT9	031640 0      0   0   0            0            0            
ET0	031640 0      0   0   777777777777 0            0            
ST1	031640 0      0   0   777777777777 0            0            
ST2	031640 0      0   0   777777777777 0            0            
ST9	031640 0      0   0   777777777777 0            0            


*031640 HRRZ 	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031640 031640 0   0   550000034012 0            777777777777 
IT1	031640 0      0   0   550000034012 0            777777777777 
AT3	031640 0      0   0   000000034012 0            550000034012 
AT6	031640 034012 0   0   000000034012 0            550000034012 
FT0	031640 034012 0   0   777777777777 0            550000034012 
FT1A	031640 034012 0   0   777777777777 0            777777777777 
FT9	031641 034012 0   0   777777777777 0            777777777777 
ET0	031641 034012 0   0   000000777777 0            777777777777 
ST1	031641 034012 0   0   000000777777 0            777777777777 
ST2	031641 034012 0   0   000000777777 0            777777777777 
ST9	031641 034012 0   0   000000777777 0            777777777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031641 031641 0   0   302000777777 0            000000777777 
IT1	031641 0      0   0   302000777777 0            000000777777 
AT3	031641 0      0   0   000000777777 0            302000777777 
AT6	031641 777777 0   0   000000777777 0            302000777777 
FT1A	031641 777777 0   0   000000777777 0            000000777777 
FT2	031641 777777 0   0   0            0            000000777777 
FT2RQ	031641 777777 0   0   000000777777 0            000000777777 
FT3	031641 777777 0   0   000000777777 0            000000777777 
FT9	031642 777777 0   0   000000777777 0            000000777777 
ET0	031643 777777 0   0   0            0            000000777777 
ST1A	031643 777777 0   0   0            0            000000777777 
ST9	031643 777777 0   0   0            0            000000777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 167
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0357

*031643 JUMPA	0,031644
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031643 031643 0   0   324000031644 0            000000031644 
IT1	031643 0      0   0   324000031644 0            000000031644 
AT3	031643 0      0   0   000000031644 0            324000031644 
AT6	031643 031644 0   0   000000031644 0            324000031644 
FT1A	031643 031644 0   0   000000031644 0            000000031644 
FT2	031643 031644 0   0   0            0            000000031644 
FT2RQ	031643 031644 0   0   000000777777 0            000000031644 
FT3	031643 031644 0   0   000000777777 0            000000031644 
FT9	031644 031644 0   0   000000777777 0            000000031644 
ET0	031644 031644 0   0   000000777777 0            000000031644 
ST1A	031644 031644 0   0   000000777777 0            000000031644 
ST9	031644 031644 0   0   000000777777 0            000000031644 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031644 031644 0   0   201000777777 0            000000777777 
IT1	031644 0      0   0   201000777777 0            000000777777 
AT3	031644 0      0   0   000000777777 0            201000777777 
AT6	031644 777777 0   0   000000777777 0            201000777777 
FT1A	031644 777777 0   0   000000777777 0            000000777777 
FT9	031645 777777 0   0   000000777777 0            000000777777 
ET0	031645 777777 0   0   000000777777 0            000000777777 
ST1	031645 777777 0   0   000000777777 0            000000777777 
ST2	031645 777777 0   0   000000777777 0            000000777777 
ST9	031645 777777 0   0   000000777777 0            000000777777 


*031645 HRRZ 	0,034012
INITIAL
C(AC)=000000 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031645 031645 0   0   550000034012 0            777777777777 
IT1	031645 0      0   0   550000034012 0            777777777777 
AT3	031645 0      0   0   000000034012 0            550000034012 
AT6	031645 034012 0   0   000000034012 0            550000034012 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 168
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0358

FT0	031645 034012 0   0   777777777777 0            550000034012 
FT1A	031645 034012 0   0   777777777777 0            777777777777 
FT9	031646 034012 0   0   777777777777 0            777777777777 
ET0	031646 034012 0   0   000000777777 0            777777777777 
ST1	031646 034012 0   0   000000777777 0            777777777777 
ST2	031646 034012 0   0   000000777777 0            777777777777 
ST9	031646 034012 0   0   000000777777 0            777777777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031646 031646 0   0   302000777777 0            000000777777 
IT1	031646 0      0   0   302000777777 0            000000777777 
AT3	031646 0      0   0   000000777777 0            302000777777 
AT6	031646 777777 0   0   000000777777 0            302000777777 
FT1A	031646 777777 0   0   000000777777 0            000000777777 
FT2	031646 777777 0   0   0            0            000000777777 
FT2RQ	031646 777777 0   0   000000777777 0            000000777777 
FT3	031646 777777 0   0   000000777777 0            000000777777 
FT9	031647 777777 0   0   000000777777 0            000000777777 
ET0	031650 777777 0   0   0            0            000000777777 
ST1A	031650 777777 0   0   0            0            000000777777 
ST9	031650 777777 0   0   0            0            000000777777 


*031650 JUMPA	0,031651
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031650 031650 0   0   324000031651 0            000000031651 
IT1	031650 0      0   0   324000031651 0            000000031651 
AT3	031650 0      0   0   000000031651 0            324000031651 
AT6	031650 031651 0   0   000000031651 0            324000031651 
FT1A	031650 031651 0   0   000000031651 0            000000031651 
FT2	031650 031651 0   0   0            0            000000031651 
FT2RQ	031650 031651 0   0   000000777777 0            000000031651 
FT3	031650 031651 0   0   000000777777 0            000000031651 
FT9	031651 031651 0   0   000000777777 0            000000031651 
ET0	031651 031651 0   0   000000777777 0            000000031651 
ST1A	031651 031651 0   0   000000777777 0            000000031651 
ST9	031651 031651 0   0   000000777777 0            000000031651 


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

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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031651 031651 0   0   201000777777 0            000000777777 
IT1	031651 0      0   0   201000777777 0            000000777777 
AT3	031651 0      0   0   000000777777 0            201000777777 
AT6	031651 777777 0   0   000000777777 0            201000777777 
FT1A	031651 777777 0   0   000000777777 0            000000777777 
FT9	031652 777777 0   0   000000777777 0            000000777777 
ET0	031652 777777 0   0   000000777777 0            000000777777 
ST1	031652 777777 0   0   000000777777 0            000000777777 
ST2	031652 777777 0   0   000000777777 0            000000777777 
ST9	031652 777777 0   0   000000777777 0            000000777777 


*031652 HRRZ 	0,034014
INITIAL
C(AC)=000000 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031652 031652 0   0   550000034014 0            0            
IT1	031652 0      0   0   550000034014 0            0            
AT3	031652 0      0   0   000000034014 0            550000034014 
AT6	031652 034014 0   0   000000034014 0            550000034014 
FT0	031652 034014 0   0   0            0            550000034014 
FT1A	031652 034014 0   0   0            0            0            
FT9	031653 034014 0   0   0            0            0            
ET0	031653 034014 0   0   0            0            0            
ST1	031653 034014 0   0   0            0            0            
ST2	031653 034014 0   0   0            0            0            
ST9	031653 034014 0   0   0            0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031653 031653 0   0   302000000000 0            0            
IT1	031653 0      0   0   302000000000 0            0            
AT3	031653 0      0   0   0            0            302000000000 
AT6	031653 0      0   0   0            0            302000000000 
FT1A	031653 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 170
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0360

FT2	031653 0      0   0   0            0            0            
FT2RQ	031653 0      0   0   0            0            0            
FT3	031653 0      0   0   0            0            0            
FT9	031654 0      0   0   0            0            0            
ET0	031655 0      0   0   0            0            0            
ST1A	031655 0      0   0   0            0            0            
ST9	031655 0      0   0   0            0            0            


*031655 JUMPA	0,031656
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031655 031655 0   0   324000031656 0            000000031656 
IT1	031655 0      0   0   324000031656 0            000000031656 
AT3	031655 0      0   0   000000031656 0            324000031656 
AT6	031655 031656 0   0   000000031656 0            324000031656 
FT1A	031655 031656 0   0   000000031656 0            000000031656 
FT2	031655 031656 0   0   0            0            000000031656 
FT2RQ	031655 031656 0   0   0            0            000000031656 
FT3	031655 031656 0   0   0            0            000000031656 
FT9	031656 031656 0   0   0            0            000000031656 
ET0	031656 031656 0   0   0            0            000000031656 
ST1A	031656 031656 0   0   0            0            000000031656 
ST9	031656 031656 0   0   0            0            000000031656 


*031656 MOVSI	0,777777
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031656 031656 0   0   205000777777 0            000000777777 
IT1	031656 0      0   0   205000777777 0            000000777777 
AT3	031656 0      0   0   000000777777 0            205000777777 
AT6	031656 777777 0   0   000000777777 0            205000777777 
FT1A	031656 777777 0   0   000000777777 0            000000777777 
FT9	031657 777777 0   0   000000777777 0            000000777777 
ET0	031657 777777 0   0   777777000000 0            000000777777 
ST1	031657 777777 0   0   777777000000 0            000000777777 
ST2	031657 777777 0   0   777777000000 0            000000777777 
ST9	031657 777777 0   0   777777000000 0            000000777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 171
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0361

*031657 HRRZ 	0,034012
INITIAL
C(AC)=777777 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031657 031657 0   0   550000034012 0            777777777777 
IT1	031657 0      0   0   550000034012 0            777777777777 
AT3	031657 0      0   0   000000034012 0            550000034012 
AT6	031657 034012 0   0   000000034012 0            550000034012 
FT0	031657 034012 0   0   777777777777 0            550000034012 
FT1A	031657 034012 0   0   777777777777 0            777777777777 
FT9	031660 034012 0   0   777777777777 0            777777777777 
ET0	031660 034012 0   0   000000777777 0            777777777777 
ST1	031660 034012 0   0   000000777777 0            777777777777 
ST2	031660 034012 0   0   000000777777 0            777777777777 
ST9	031660 034012 0   0   000000777777 0            777777777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031660 031660 0   0   302000777777 0            000000777777 
IT1	031660 0      0   0   302000777777 0            000000777777 
AT3	031660 0      0   0   000000777777 0            302000777777 
AT6	031660 777777 0   0   000000777777 0            302000777777 
FT1A	031660 777777 0   0   000000777777 0            000000777777 
FT2	031660 777777 0   0   0            0            000000777777 
FT2RQ	031660 777777 0   0   000000777777 0            000000777777 
FT3	031660 777777 0   0   000000777777 0            000000777777 
FT9	031661 777777 0   0   000000777777 0            000000777777 
ET0	031662 777777 0   0   0            0            000000777777 
ST1A	031662 777777 0   0   0            0            000000777777 
ST9	031662 777777 0   0   0            0            000000777777 


*031662 JUMPA	0,031663
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031662 031662 0   0   324000031663 0            000000031663 
IT1	031662 0      0   0   324000031663 0            000000031663 
AT3	031662 0      0   0   000000031663 0            324000031663 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 172
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0362

AT6	031662 031663 0   0   000000031663 0            324000031663 
FT1A	031662 031663 0   0   000000031663 0            000000031663 
FT2	031662 031663 0   0   0            0            000000031663 
FT2RQ	031662 031663 0   0   000000777777 0            000000031663 
FT3	031662 031663 0   0   000000777777 0            000000031663 
FT9	031663 031663 0   0   000000777777 0            000000031663 
ET0	031663 031663 0   0   000000777777 0            000000031663 
ST1A	031663 031663 0   0   000000777777 0            000000031663 
ST9	031663 031663 0   0   000000777777 0            000000031663 


*031663 MOVSI	0,777777
INITIAL
C(AC)=000000 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031663 031663 0   0   205000777777 0            000000777777 
IT1	031663 0      0   0   205000777777 0            000000777777 
AT3	031663 0      0   0   000000777777 0            205000777777 
AT6	031663 777777 0   0   000000777777 0            205000777777 
FT1A	031663 777777 0   0   000000777777 0            000000777777 
FT9	031664 777777 0   0   000000777777 0            000000777777 
ET0	031664 777777 0   0   777777000000 0            000000777777 
ST1	031664 777777 0   0   777777000000 0            000000777777 
ST2	031664 777777 0   0   777777000000 0            000000777777 
ST9	031664 777777 0   0   777777000000 0            000000777777 


*031664 HRRZ 	0,034014
INITIAL
C(AC)=777777 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031664 031664 0   0   550000034014 0            0            
IT1	031664 0      0   0   550000034014 0            0            
AT3	031664 0      0   0   000000034014 0            550000034014 
AT6	031664 034014 0   0   000000034014 0            550000034014 
FT0	031664 034014 0   0   0            0            550000034014 
FT1A	031664 034014 0   0   0            0            0            
FT9	031665 034014 0   0   0            0            0            
ET0	031665 034014 0   0   0            0            0            
ST1	031665 034014 0   0   0            0            0            
ST2	031665 034014 0   0   0            0            0            
ST9	031665 034014 0   0   0            0            0            


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

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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031665 031665 0   0   302000000000 0            0            
IT1	031665 0      0   0   302000000000 0            0            
AT3	031665 0      0   0   0            0            302000000000 
AT6	031665 0      0   0   0            0            302000000000 
FT1A	031665 0      0   0   0            0            0            
FT2	031665 0      0   0   0            0            0            
FT2RQ	031665 0      0   0   0            0            0            
FT3	031665 0      0   0   0            0            0            
FT9	031666 0      0   0   0            0            0            
ET0	031667 0      0   0   0            0            0            
ST1A	031667 0      0   0   0            0            0            
ST9	031667 0      0   0   0            0            0            


*031667 JUMPA	0,031670
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031667 031667 0   0   324000031670 0            000000031670 
IT1	031667 0      0   0   324000031670 0            000000031670 
AT3	031667 0      0   0   000000031670 0            324000031670 
AT6	031667 031670 0   0   000000031670 0            324000031670 
FT1A	031667 031670 0   0   000000031670 0            000000031670 
FT2	031667 031670 0   0   0            0            000000031670 
FT2RQ	031667 031670 0   0   0            0            000000031670 
FT3	031667 031670 0   0   0            0            000000031670 
FT9	031670 031670 0   0   0            0            000000031670 
ET0	031670 031670 0   0   0            0            000000031670 
ST1A	031670 031670 0   0   0            0            000000031670 
ST9	031670 031670 0   0   0            0            000000031670 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031670 031670 0   0   201000777777 0            000000777777 
IT1	031670 0      0   0   201000777777 0            000000777777 
AT3	031670 0      0   0   000000777777 0            201000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 174
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0364

AT6	031670 777777 0   0   000000777777 0            201000777777 
FT1A	031670 777777 0   0   000000777777 0            000000777777 
FT9	031671 777777 0   0   000000777777 0            000000777777 
ET0	031671 777777 0   0   000000777777 0            000000777777 
ST1	031671 777777 0   0   000000777777 0            000000777777 
ST2	031671 777777 0   0   000000777777 0            000000777777 
ST9	031671 777777 0   0   000000777777 0            000000777777 


*031671 HRRZ 	0,034013
INITIAL
C(AC)=000000 777777 
C(E)=777777 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031671 031671 0   0   550000034013 0            777777000000 
IT1	031671 0      0   0   550000034013 0            777777000000 
AT3	031671 0      0   0   000000034013 0            550000034013 
AT6	031671 034013 0   0   000000034013 0            550000034013 
FT0	031671 034013 0   0   777777000000 0            550000034013 
FT1A	031671 034013 0   0   777777000000 0            777777000000 
FT9	031672 034013 0   0   777777000000 0            777777000000 
ET0	031672 034013 0   0   0            0            777777000000 
ST1	031672 034013 0   0   0            0            777777000000 
ST2	031672 034013 0   0   0            0            777777000000 
ST9	031672 034013 0   0   0            0            777777000000 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031672 031672 0   0   332000000000 0            0            
IT1	031672 0      0   0   332000000000 0            0            
AT3	031672 0      0   0   0            0            332000000000 
AT6	031672 0      0   0   0            0            332000000000 
FT0	031672 0      0   0   0            0            332000000000 
FT1A	031672 0      0   0   0            0            0            
FT9	031673 0      0   0   0            0            0            
ET0	031674 0      0   0   0            0            0            
ST1A	031674 0      0   0   0            0            0            
ST9	031674 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 175
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0365

*031674 JUMPA	0,031675
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031674 031674 0   0   324000031675 0            000000031675 
IT1	031674 0      0   0   324000031675 0            000000031675 
AT3	031674 0      0   0   000000031675 0            324000031675 
AT6	031674 031675 0   0   000000031675 0            324000031675 
FT1A	031674 031675 0   0   000000031675 0            000000031675 
FT2	031674 031675 0   0   0            0            000000031675 
FT2RQ	031674 031675 0   0   0            0            000000031675 
FT3	031674 031675 0   0   0            0            000000031675 
FT9	031675 031675 0   0   0            0            000000031675 
ET0	031675 031675 0   0   0            0            000000031675 
ST1A	031675 031675 0   0   0            0            000000031675 
ST9	031675 031675 0   0   0            0            000000031675 


*031675 MOVSI	0,777777
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031675 031675 0   0   205000777777 0            000000777777 
IT1	031675 0      0   0   205000777777 0            000000777777 
AT3	031675 0      0   0   000000777777 0            205000777777 
AT6	031675 777777 0   0   000000777777 0            205000777777 
FT1A	031675 777777 0   0   000000777777 0            000000777777 
FT9	031676 777777 0   0   000000777777 0            000000777777 
ET0	031676 777777 0   0   777777000000 0            000000777777 
ST1	031676 777777 0   0   777777000000 0            000000777777 
ST2	031676 777777 0   0   777777000000 0            000000777777 
ST9	031676 777777 0   0   777777000000 0            000000777777 


*031676 HRRZ 	0,034015
INITIAL
C(AC)=777777 000000 
C(E)=000000 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031676 031676 0   0   550000034015 0            000000777777 
IT1	031676 0      0   0   550000034015 0            000000777777 
AT3	031676 0      0   0   000000034015 0            550000034015 
AT6	031676 034015 0   0   000000034015 0            550000034015 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 176
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0366

FT0	031676 034015 0   0   000000777777 0            550000034015 
FT1A	031676 034015 0   0   000000777777 0            000000777777 
FT9	031677 034015 0   0   000000777777 0            000000777777 
ET0	031677 034015 0   0   000000777777 0            000000777777 
ST1	031677 034015 0   0   000000777777 0            000000777777 
ST2	031677 034015 0   0   000000777777 0            000000777777 
ST9	031677 034015 0   0   000000777777 0            000000777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031677 031677 0   0   302000777777 0            000000777777 
IT1	031677 0      0   0   302000777777 0            000000777777 
AT3	031677 0      0   0   000000777777 0            302000777777 
AT6	031677 777777 0   0   000000777777 0            302000777777 
FT1A	031677 777777 0   0   000000777777 0            000000777777 
FT2	031677 777777 0   0   0            0            000000777777 
FT2RQ	031677 777777 0   0   000000777777 0            000000777777 
FT3	031677 777777 0   0   000000777777 0            000000777777 
FT9	0      777777 0   0   000000777777 0            000000777777 
ET0	031701 777777 0   0   0            0            000000777777 
ST1A	031701 777777 0   0   0            0            000000777777 
ST9	031701 777777 0   0   0            0            000000777777 


*031701 JUMPA	0,031702
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031701 031701 0   0   324000031702 0            000000031702 
IT1	031701 0      0   0   324000031702 0            000000031702 
AT3	031701 0      0   0   000000031702 0            324000031702 
AT6	031701 031702 0   0   000000031702 0            324000031702 
FT1A	031701 031702 0   0   000000031702 0            000000031702 
FT2	031701 031702 0   0   0            0            000000031702 
FT2RQ	031701 031702 0   0   000000777777 0            000000031702 
FT3	031701 031702 0   0   000000777777 0            000000031702 
FT9	031702 031702 0   0   000000777777 0            000000031702 
ET0	031702 031702 0   0   000000777777 0            000000031702 
ST1A	031702 031702 0   0   000000777777 0            000000031702 
ST9	031702 031702 0   0   000000777777 0            000000031702 


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

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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031702 031702 0   0   201000777777 0            000000777777 
IT1	031702 0      0   0   201000777777 0            000000777777 
AT3	031702 0      0   0   000000777777 0            201000777777 
AT6	031702 777777 0   0   000000777777 0            201000777777 
FT1A	031702 777777 0   0   000000777777 0            000000777777 
FT9	031703 777777 0   0   000000777777 0            000000777777 
ET0	031703 777777 0   0   000000777777 0            000000777777 
ST1	031703 777777 0   0   000000777777 0            000000777777 
ST2	031703 777777 0   0   000000777777 0            000000777777 
ST9	031703 777777 0   0   000000777777 0            000000777777 


*031703 HRRZI	0,777777
INITIAL
C(AC)=000000 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031703 031703 0   0   551000777777 0            000000777777 
IT1	031703 0      0   0   551000777777 0            000000777777 
AT3	031703 0      0   0   000000777777 0            551000777777 
AT6	031703 777777 0   0   000000777777 0            551000777777 
FT1A	031703 777777 0   0   000000777777 0            000000777777 
FT9	031704 777777 0   0   000000777777 0            000000777777 
ET0	031704 777777 0   0   000000777777 0            000000777777 
ST1	031704 777777 0   0   000000777777 0            000000777777 
ST2	031704 777777 0   0   000000777777 0            000000777777 
ST9	031704 777777 0   0   000000777777 0            000000777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031704 031704 0   0   302000777777 0            000000777777 
IT1	031704 0      0   0   302000777777 0            000000777777 
AT3	031704 0      0   0   000000777777 0            302000777777 
AT6	031704 777777 0   0   000000777777 0            302000777777 
FT1A	031704 777777 0   0   000000777777 0            000000777777 
FT2	031704 777777 0   0   0            0            000000777777 
FT2RQ	031704 777777 0   0   000000777777 0            000000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 178
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0368

FT3	031704 777777 0   0   000000777777 0            000000777777 
FT9	031705 777777 0   0   000000777777 0            000000777777 
ET0	031706 777777 0   0   0            0            000000777777 
ST1A	031706 777777 0   0   0            0            000000777777 
ST9	031706 777777 0   0   0            0            000000777777 


*031706 JUMPA	0,031707
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031706 031706 0   0   324000031707 0            000000031707 
IT1	031706 0      0   0   324000031707 0            000000031707 
AT3	031706 0      0   0   000000031707 0            324000031707 
AT6	031706 031707 0   0   000000031707 0            324000031707 
FT1A	031706 031707 0   0   000000031707 0            000000031707 
FT2	031706 031707 0   0   0            0            000000031707 
FT2RQ	031706 031707 0   0   000000777777 0            000000031707 
FT3	031706 031707 0   0   000000777777 0            000000031707 
FT9	031707 031707 0   0   000000777777 0            000000031707 
ET0	031707 031707 0   0   000000777777 0            000000031707 
ST1A	031707 031707 0   0   000000777777 0            000000031707 
ST9	031707 031707 0   0   000000777777 0            000000031707 


*031707 MOVSI	0,777777
INITIAL
C(AC)=000000 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031707 031707 0   0   205000777777 0            000000777777 
IT1	031707 0      0   0   205000777777 0            000000777777 
AT3	031707 0      0   0   000000777777 0            205000777777 
AT6	031707 777777 0   0   000000777777 0            205000777777 
FT1A	031707 777777 0   0   000000777777 0            000000777777 
FT9	031710 777777 0   0   000000777777 0            000000777777 
ET0	031710 777777 0   0   777777000000 0            000000777777 
ST1	031710 777777 0   0   777777000000 0            000000777777 
ST2	031710 777777 0   0   777777000000 0            000000777777 
ST9	031710 777777 0   0   777777000000 0            000000777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 179
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0369

*031710 HRRZ 	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031710 031710 0   0   550000034013 0            777777000000 
IT1	031710 0      0   0   550000034013 0            777777000000 
AT3	031710 0      0   0   000000034013 0            550000034013 
AT6	031710 034013 0   0   000000034013 0            550000034013 
FT0	031710 034013 0   0   777777000000 0            550000034013 
FT1A	031710 034013 0   0   777777000000 0            777777000000 
FT9	031711 034013 0   0   777777000000 0            777777000000 
ET0	031711 034013 0   0   0            0            777777000000 
ST1	031711 034013 0   0   0            0            777777000000 
ST2	031711 034013 0   0   0            0            777777000000 
ST9	031711 034013 0   0   0            0            777777000000 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031711 031711 0   0   302000000000 0            0            
IT1	031711 0      0   0   302000000000 0            0            
AT3	031711 0      0   0   0            0            302000000000 
AT6	031711 0      0   0   0            0            302000000000 
FT1A	031711 0      0   0   0            0            0            
FT2	031711 0      0   0   0            0            0            
FT2RQ	031711 0      0   0   0            0            0            
FT3	031711 0      0   0   0            0            0            
FT9	031712 0      0   0   0            0            0            
ET0	031713 0      0   0   0            0            0            
ST1A	031713 0      0   0   0            0            0            
ST9	031713 0      0   0   0            0            0            


*031713 JUMPA	0,031714
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031713 031713 0   0   324000031714 0            000000031714 
IT1	031713 0      0   0   324000031714 0            000000031714 
AT3	031713 0      0   0   000000031714 0            324000031714 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 180
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0370

AT6	031713 031714 0   0   000000031714 0            324000031714 
FT1A	031713 031714 0   0   000000031714 0            000000031714 
FT2	031713 031714 0   0   0            0            000000031714 
FT2RQ	031713 031714 0   0   0            0            000000031714 
FT3	031713 031714 0   0   0            0            000000031714 
FT9	031714 031714 0   0   0            0            000000031714 
ET0	031714 031714 0   0   0            0            000000031714 
ST1A	031714 031714 0   0   0            0            000000031714 
ST9	031714 031714 0   0   0            0            000000031714 


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


*031715 HRL 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031715 031715 0   0   504000000000 0            0            
IT1	031715 0      0   0   504000000000 0            0            
AT3	031715 0      0   0   0            0            504000000000 
AT6	031715 0      0   0   0            0            504000000000 
FT0	031715 0      0   0   0            0            504000000000 
FT1A	031715 0      0   0   0            0            0            
FT2	031715 0      0   0   0            0            0            
FT2RQ	031715 0      0   0   0            0            0            
FT3	031715 0      0   0   0            0            0            
FT9	031716 0      0   0   0            0            0            
ET0	031716 0      0   0   0            0            0            
ET1	031716 0      0   0   0            0            0            
ST1	031716 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 181
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0371

ST2	031716 0      0   0   0            0            0            
ST9	031716 0      0   0   0            0            0            


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031716 031716 0   0   332000000000 0            0            
IT1	031716 0      0   0   332000000000 0            0            
AT3	031716 0      0   0   0            0            332000000000 
AT6	031716 0      0   0   0            0            332000000000 
FT0	031716 0      0   0   0            0            332000000000 
FT1A	031716 0      0   0   0            0            0            
FT9	031717 0      0   0   0            0            0            
ET0	031720 0      0   0   0            0            0            
ST1A	031720 0      0   0   0            0            0            
ST9	031720 0      0   0   0            0            0            


*031720 JUMPA	0,031721
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031720 031720 0   0   324000031721 0            000000031721 
IT1	031720 0      0   0   324000031721 0            000000031721 
AT3	031720 0      0   0   000000031721 0            324000031721 
AT6	031720 031721 0   0   000000031721 0            324000031721 
FT1A	031720 031721 0   0   000000031721 0            000000031721 
FT2	031720 031721 0   0   0            0            000000031721 
FT2RQ	031720 031721 0   0   0            0            000000031721 
FT3	031720 031721 0   0   0            0            000000031721 
FT9	031721 031721 0   0   0            0            000000031721 
ET0	031721 031721 0   0   0            0            000000031721 
ST1A	031721 031721 0   0   0            0            000000031721 
ST9	031721 031721 0   0   0            0            000000031721 


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

*031721 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031721 031721 0   0   474000000000 0            0            
IT1	031721 0      0   0   474000000000 0            0            
AT3	031721 0      0   0   0            0            474000000000 
AT6	031721 0      0   0   0            0            474000000000 
FT1A	031721 0      0   0   0            0            0            
FT9	031722 0      0   0   0            0            0            
ET0	031722 0      0   0   777777777777 0            0            
ST1	031722 0      0   0   777777777777 0            0            
ST2	031722 0      0   0   777777777777 0            0            
ST9	031722 0      0   0   777777777777 0            0            


*031722 HRL 	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031722 031722 0   0   504000034012 0            777777777777 
IT1	031722 0      0   0   504000034012 0            777777777777 
AT3	031722 0      0   0   000000034012 0            504000034012 
AT6	031722 034012 0   0   000000034012 0            504000034012 
FT0	031722 034012 0   0   777777777777 0            504000034012 
FT1A	031722 034012 0   0   777777777777 0            777777777777 
FT2	031722 034012 0   0   0            0            777777777777 
FT2RQ	031722 034012 0   0   777777777777 0            777777777777 
FT3	031722 034012 0   0   777777777777 0            777777777777 
FT9	031723 034012 0   0   777777777777 0            777777777777 
ET0	031723 034012 0   0   777777777777 0            777777777777 
ET1	031723 034012 0   0   777777777777 0            777777777777 
ST1	031723 034012 0   0   777777777777 0            777777777777 
ST2	031723 034012 0   0   777777777777 0            777777777777 
ST9	031723 034012 0   0   777777777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 183
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0373

*031723 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031723 031723 0   0   312000034012 0            777777777777 
IT1	031723 0      0   0   312000034012 0            777777777777 
AT3	031723 0      0   0   000000034012 0            312000034012 
AT6	031723 034012 0   0   000000034012 0            312000034012 
FT0	031723 034012 0   0   777777777777 0            312000034012 
FT1A	031723 034012 0   0   777777777777 0            777777777777 
FT2	031723 034012 0   0   0            0            777777777777 
FT2RQ	031723 034012 0   0   777777777777 0            777777777777 
FT3	031723 034012 0   0   777777777777 0            777777777777 
FT9	031724 034012 0   0   777777777777 0            777777777777 
ET0	031725 034012 0   0   0            0            777777777777 
ST1A	031725 034012 0   0   0            0            777777777777 
ST9	031725 034012 0   0   0            0            777777777777 


*031725 JUMPA	0,031726
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031725 031725 0   0   324000031726 0            000000031726 
IT1	031725 0      0   0   324000031726 0            000000031726 
AT3	031725 0      0   0   000000031726 0            324000031726 
AT6	031725 031726 0   0   000000031726 0            324000031726 
FT1A	031725 031726 0   0   000000031726 0            000000031726 
FT2	031725 031726 0   0   0            0            000000031726 
FT2RQ	031725 031726 0   0   777777777777 0            000000031726 
FT3	031725 031726 0   0   777777777777 0            000000031726 
FT9	031726 031726 0   0   777777777777 0            000000031726 
ET0	031726 031726 0   0   777777777777 0            000000031726 
ST1A	031726 031726 0   0   777777777777 0            000000031726 
ST9	031726 031726 0   0   777777777777 0            000000031726 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 184
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0374

*031726 SETO 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031726 031726 0   0   474000000000 0            0            
IT1	031726 0      0   0   474000000000 0            0            
AT3	031726 0      0   0   0            0            474000000000 
AT6	031726 0      0   0   0            0            474000000000 
FT1A	031726 0      0   0   0            0            0            
FT9	031727 0      0   0   0            0            0            
ET0	031727 0      0   0   777777777777 0            0            
ST1	031727 0      0   0   777777777777 0            0            
ST2	031727 0      0   0   777777777777 0            0            
ST9	031727 0      0   0   777777777777 0            0            


*031727 HRL 	0,034014
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031727 031727 0   0   504000034014 0            777777777777 
IT1	031727 0      0   0   504000034014 0            777777777777 
AT3	031727 0      0   0   000000034014 0            504000034014 
AT6	031727 034014 0   0   000000034014 0            504000034014 
FT0	031727 034014 0   0   0            0            504000034014 
FT1A	031727 034014 0   0   0            0            0            
FT2	031727 034014 0   0   0            0            0            
FT2RQ	031727 034014 0   0   777777777777 0            0            
FT3	031727 034014 0   0   777777777777 0            0            
FT9	031730 034014 0   0   777777777777 0            0            
ET0	031730 034014 0   0   0            0            777777777777 
ET1	031730 034014 0   0   000000777777 0            777777777777 
ST1	031730 034014 0   0   000000777777 0            777777777777 
ST2	031730 034014 0   0   000000777777 0            777777777777 
ST9	031730 034014 0   0   000000777777 0            777777777777 


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

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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031730 031730 0   0   302000777777 0            000000777777 
IT1	031730 0      0   0   302000777777 0            000000777777 
AT3	031730 0      0   0   000000777777 0            302000777777 
AT6	031730 777777 0   0   000000777777 0            302000777777 
FT1A	031730 777777 0   0   000000777777 0            000000777777 
FT2	031730 777777 0   0   0            0            000000777777 
FT2RQ	031730 777777 0   0   000000777777 0            000000777777 
FT3	031730 777777 0   0   000000777777 0            000000777777 
FT9	031731 777777 0   0   000000777777 0            000000777777 
ET0	031732 777777 0   0   0            0            000000777777 
ST1A	031732 777777 0   0   0            0            000000777777 
ST9	031732 777777 0   0   0            0            000000777777 


*031732 JUMPA	0,031733
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031732 031732 0   0   324000031733 0            000000031733 
IT1	031732 0      0   0   324000031733 0            000000031733 
AT3	031732 0      0   0   000000031733 0            324000031733 
AT6	031732 031733 0   0   000000031733 0            324000031733 
FT1A	031732 031733 0   0   000000031733 0            000000031733 
FT2	031732 031733 0   0   0            0            000000031733 
FT2RQ	031732 031733 0   0   000000777777 0            000000031733 
FT3	031732 031733 0   0   000000777777 0            000000031733 
FT9	031733 031733 0   0   000000777777 0            000000031733 
ET0	031733 031733 0   0   000000777777 0            000000031733 
ST1A	031733 031733 0   0   000000777777 0            000000031733 
ST9	031733 031733 0   0   000000777777 0            000000031733 


*031733 SETO 	0,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031733 031733 0   0   474000000000 0            0            
IT1	031733 0      0   0   474000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 186
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0376

AT3	031733 0      0   0   0            0            474000000000 
AT6	031733 0      0   0   0            0            474000000000 
FT1A	031733 0      0   0   0            0            0            
FT9	031734 0      0   0   0            0            0            
ET0	031734 0      0   0   777777777777 0            0            
ST1	031734 0      0   0   777777777777 0            0            
ST2	031734 0      0   0   777777777777 0            0            
ST9	031734 0      0   0   777777777777 0            0            


*031734 HLR 	0,034014
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031734 031734 0   0   544000034014 0            777777777777 
IT1	031734 0      0   0   544000034014 0            777777777777 
AT3	031734 0      0   0   000000034014 0            544000034014 
AT6	031734 034014 0   0   000000034014 0            544000034014 
FT0	031734 034014 0   0   0            0            544000034014 
FT1A	031734 034014 0   0   0            0            0            
FT2	031734 034014 0   0   0            0            0            
FT2RQ	031734 034014 0   0   777777777777 0            0            
FT3	031734 034014 0   0   777777777777 0            0            
FT9	031735 034014 0   0   777777777777 0            0            
ET0	031735 034014 0   0   0            0            777777777777 
ET1	031735 034014 0   0   777777000000 0            777777777777 
ST1	031735 034014 0   0   777777000000 0            777777777777 
ST2	031735 034014 0   0   777777000000 0            777777777777 
ST9	031735 034014 0   0   777777000000 0            777777777777 


*031735 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031735 031735 0   0   312000034013 0            777777000000 
IT1	031735 0      0   0   312000034013 0            777777000000 
AT3	031735 0      0   0   000000034013 0            312000034013 
AT6	031735 034013 0   0   000000034013 0            312000034013 
FT0	031735 034013 0   0   777777000000 0            312000034013 
FT1A	031735 034013 0   0   777777000000 0            777777000000 
FT2	031735 034013 0   0   0            0            777777000000 
FT2RQ	031735 034013 0   0   777777000000 0            777777000000 
FT3	031735 034013 0   0   777777000000 0            777777000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 187
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0377

FT9	031736 034013 0   0   777777000000 0            777777000000 
ET0	031737 034013 0   0   0            0            777777000000 
ST1A	031737 034013 0   0   0            0            777777000000 
ST9	031737 034013 0   0   0            0            777777000000 


*031737 JUMPA	0,031740
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031737 031737 0   0   324000031740 0            000000031740 
IT1	031737 0      0   0   324000031740 0            000000031740 
AT3	031737 0      0   0   000000031740 0            324000031740 
AT6	031737 031740 0   0   000000031740 0            324000031740 
FT1A	031737 031740 0   0   000000031740 0            000000031740 
FT2	031737 031740 0   0   0            0            000000031740 
FT2RQ	031737 031740 0   0   777777000000 0            000000031740 
FT3	031737 031740 0   0   777777000000 0            000000031740 
FT9	031740 031740 0   0   777777000000 0            000000031740 
ET0	031740 031740 0   0   777777000000 0            000000031740 
ST1A	031740 031740 0   0   777777000000 0            000000031740 
ST9	031740 031740 0   0   777777000000 0            000000031740 


*031740 SETZ 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=000000 000000 

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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 188
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0378

*031741 HRL 	0,034012
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031741 031741 0   0   504000034012 0            0            
IT1	031741 0      0   0   504000034012 0            0            
AT3	031741 0      0   0   000000034012 0            504000034012 
AT6	031741 034012 0   0   000000034012 0            504000034012 
FT0	031741 034012 0   0   777777777777 0            504000034012 
FT1A	031741 034012 0   0   777777777777 0            777777777777 
FT2	031741 034012 0   0   0            0            777777777777 
FT2RQ	031741 034012 0   0   0            0            777777777777 
FT3	031741 034012 0   0   0            0            777777777777 
FT9	031742 034012 0   0   0            0            777777777777 
ET0	031742 034012 0   0   777777777777 0            0            
ET1	031742 034012 0   0   777777000000 0            0            
ST1	031742 034012 0   0   777777000000 0            0            
ST2	031742 034012 0   0   777777000000 0            0            
ST9	031742 034012 0   0   777777000000 0            0            


*031742 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031742 031742 0   0   312000034013 0            777777000000 
IT1	031742 0      0   0   312000034013 0            777777000000 
AT3	031742 0      0   0   000000034013 0            312000034013 
AT6	031742 034013 0   0   000000034013 0            312000034013 
FT0	031742 034013 0   0   777777000000 0            312000034013 
FT1A	031742 034013 0   0   777777000000 0            777777000000 
FT2	031742 034013 0   0   0            0            777777000000 
FT2RQ	031742 034013 0   0   777777000000 0            777777000000 
FT3	031742 034013 0   0   777777000000 0            777777000000 
FT9	031743 034013 0   0   777777000000 0            777777000000 
ET0	031744 034013 0   0   0            0            777777000000 
ST1A	031744 034013 0   0   0            0            777777000000 
ST9	031744 034013 0   0   0            0            777777000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 189
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0379

*031744 JUMPA	0,031745
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031744 031744 0   0   324000031745 0            000000031745 
IT1	031744 0      0   0   324000031745 0            000000031745 
AT3	031744 0      0   0   000000031745 0            324000031745 
AT6	031744 031745 0   0   000000031745 0            324000031745 
FT1A	031744 031745 0   0   000000031745 0            000000031745 
FT2	031744 031745 0   0   0            0            000000031745 
FT2RQ	031744 031745 0   0   777777000000 0            000000031745 
FT3	031744 031745 0   0   777777000000 0            000000031745 
FT9	031745 031745 0   0   777777000000 0            000000031745 
ET0	031745 031745 0   0   777777000000 0            000000031745 
ST1A	031745 031745 0   0   777777000000 0            000000031745 
ST9	031745 031745 0   0   777777000000 0            000000031745 


*031745 SETZ 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=000000 000000 

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


*031746 HLR 	0,034012
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031746 031746 0   0   544000034012 0            0            
IT1	031746 0      0   0   544000034012 0            0            
AT3	031746 0      0   0   000000034012 0            544000034012 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 190
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0380

AT6	031746 034012 0   0   000000034012 0            544000034012 
FT0	031746 034012 0   0   777777777777 0            544000034012 
FT1A	031746 034012 0   0   777777777777 0            777777777777 
FT2	031746 034012 0   0   0            0            777777777777 
FT2RQ	031746 034012 0   0   0            0            777777777777 
FT3	031746 034012 0   0   0            0            777777777777 
FT9	031747 034012 0   0   0            0            777777777777 
ET0	031747 034012 0   0   777777777777 0            0            
ET1	031747 034012 0   0   000000777777 0            0            
ST1	031747 034012 0   0   000000777777 0            0            
ST2	031747 034012 0   0   000000777777 0            0            
ST9	031747 034012 0   0   000000777777 0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031747 031747 0   0   302000777777 0            000000777777 
IT1	031747 0      0   0   302000777777 0            000000777777 
AT3	031747 0      0   0   000000777777 0            302000777777 
AT6	031747 777777 0   0   000000777777 0            302000777777 
FT1A	031747 777777 0   0   000000777777 0            000000777777 
FT2	031747 777777 0   0   0            0            000000777777 
FT2RQ	031747 777777 0   0   000000777777 0            000000777777 
FT3	031747 777777 0   0   000000777777 0            000000777777 
FT9	031750 777777 0   0   000000777777 0            000000777777 
ET0	031751 777777 0   0   0            0            000000777777 
ST1A	031751 777777 0   0   0            0            000000777777 
ST9	031751 777777 0   0   0            0            000000777777 


*031751 JUMPA	0,031752
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031751 031751 0   0   324000031752 0            000000031752 
IT1	031751 0      0   0   324000031752 0            000000031752 
AT3	031751 0      0   0   000000031752 0            324000031752 
AT6	031751 031752 0   0   000000031752 0            324000031752 
FT1A	031751 031752 0   0   000000031752 0            000000031752 
FT2	031751 031752 0   0   0            0            000000031752 
FT2RQ	031751 031752 0   0   000000777777 0            000000031752 
FT3	031751 031752 0   0   000000777777 0            000000031752 
FT9	031752 031752 0   0   000000777777 0            000000031752 
ET0	031752 031752 0   0   000000777777 0            000000031752 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 191
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0381

ST1A	031752 031752 0   0   000000777777 0            000000031752 
ST9	031752 031752 0   0   000000777777 0            000000031752 


*031752 SETZ 	0,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=000000 000000 

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


*031753 HRLI	0,777777
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031753 031753 0   0   505000777777 0            0            
IT1	031753 0      0   0   505000777777 0            0            
AT3	031753 0      0   0   000000777777 0            505000777777 
AT6	031753 777777 0   0   000000777777 0            505000777777 
FT1A	031753 777777 0   0   000000777777 0            000000777777 
FT2	031753 777777 0   0   0            0            000000777777 
FT2RQ	031753 777777 0   0   0            0            000000777777 
FT3	031753 777777 0   0   0            0            000000777777 
FT9	031754 777777 0   0   0            0            000000777777 
ET0	031754 777777 0   0   000000777777 0            0            
ET1	031754 777777 0   0   777777000000 0            0            
ST1	031754 777777 0   0   777777000000 0            0            
ST2	031754 777777 0   0   777777000000 0            0            
ST9	031754 777777 0   0   777777000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 192
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0382

*031754 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031754 031754 0   0   312000034013 0            777777000000 
IT1	031754 0      0   0   312000034013 0            777777000000 
AT3	031754 0      0   0   000000034013 0            312000034013 
AT6	031754 034013 0   0   000000034013 0            312000034013 
FT0	031754 034013 0   0   777777000000 0            312000034013 
FT1A	031754 034013 0   0   777777000000 0            777777000000 
FT2	031754 034013 0   0   0            0            777777000000 
FT2RQ	031754 034013 0   0   777777000000 0            777777000000 
FT3	031754 034013 0   0   777777000000 0            777777000000 
FT9	031755 034013 0   0   777777000000 0            777777000000 
ET0	031756 034013 0   0   0            0            777777000000 
ST1A	031756 034013 0   0   0            0            777777000000 
ST9	031756 034013 0   0   0            0            777777000000 


*031756 JUMPA	0,031757
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031756 031756 0   0   324000031757 0            000000031757 
IT1	031756 0      0   0   324000031757 0            000000031757 
AT3	031756 0      0   0   000000031757 0            324000031757 
AT6	031756 031757 0   0   000000031757 0            324000031757 
FT1A	031756 031757 0   0   000000031757 0            000000031757 
FT2	031756 031757 0   0   0            0            000000031757 
FT2RQ	031756 031757 0   0   777777000000 0            000000031757 
FT3	031756 031757 0   0   777777000000 0            000000031757 
FT9	031757 031757 0   0   777777000000 0            000000031757 
ET0	031757 031757 0   0   777777000000 0            000000031757 
ST1A	031757 031757 0   0   777777000000 0            000000031757 
ST9	031757 031757 0   0   777777000000 0            000000031757 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 193
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0383

*031757 SETZ 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=000000 000000 

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


*031760 HLR 	0,034013
INITIAL
C(AC)=000000 000000 
C(E)=777777 000000 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031760 031760 0   0   544000034013 0            0            
IT1	031760 0      0   0   544000034013 0            0            
AT3	031760 0      0   0   000000034013 0            544000034013 
AT6	031760 034013 0   0   000000034013 0            544000034013 
FT0	031760 034013 0   0   777777000000 0            544000034013 
FT1A	031760 034013 0   0   777777000000 0            777777000000 
FT2	031760 034013 0   0   0            0            777777000000 
FT2RQ	031760 034013 0   0   0            0            777777000000 
FT3	031760 034013 0   0   0            0            777777000000 
FT9	031761 034013 0   0   0            0            777777000000 
ET0	031761 034013 0   0   777777000000 0            0            
ET1	031761 034013 0   0   000000777777 0            0            
ST1	031761 034013 0   0   000000777777 0            0            
ST2	031761 034013 0   0   000000777777 0            0            
ST9	031761 034013 0   0   000000777777 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 194
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0384

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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031761 031761 0   0   302000777777 0            000000777777 
IT1	031761 0      0   0   302000777777 0            000000777777 
AT3	031761 0      0   0   000000777777 0            302000777777 
AT6	031761 777777 0   0   000000777777 0            302000777777 
FT1A	031761 777777 0   0   000000777777 0            000000777777 
FT2	031761 777777 0   0   0            0            000000777777 
FT2RQ	031761 777777 0   0   000000777777 0            000000777777 
FT3	031761 777777 0   0   000000777777 0            000000777777 
FT9	031762 777777 0   0   000000777777 0            000000777777 
ET0	031763 777777 0   0   0            0            000000777777 
ST1A	031763 777777 0   0   0            0            000000777777 
ST9	031763 777777 0   0   0            0            000000777777 


*031763 JUMPA	0,031764
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031763 031763 0   0   324000031764 0            000000031764 
IT1	031763 0      0   0   324000031764 0            000000031764 
AT3	031763 0      0   0   000000031764 0            324000031764 
AT6	031763 031764 0   0   000000031764 0            324000031764 
FT1A	031763 031764 0   0   000000031764 0            000000031764 
FT2	031763 031764 0   0   0            0            000000031764 
FT2RQ	031763 031764 0   0   000000777777 0            000000031764 
FT3	031763 031764 0   0   000000777777 0            000000031764 
FT9	031764 031764 0   0   000000777777 0            000000031764 
ET0	031764 031764 0   0   000000777777 0            000000031764 
ST1A	031764 031764 0   0   000000777777 0            000000031764 
ST9	031764 031764 0   0   000000777777 0            000000031764 


*031764 SETZ 	0,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031764 031764 0   0   400000000000 0            0            
IT1	031764 0      0   0   400000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 195
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0385

AT3	031764 0      0   0   0            0            400000000000 
AT6	031764 0      0   0   0            0            400000000000 
FT1A	031764 0      0   0   0            0            0            
FT9	031765 0      0   0   0            0            0            
ET0	031765 0      0   0   0            0            0            
ST1	031765 0      0   0   0            0            0            
ST2	031765 0      0   0   0            0            0            
ST9	031765 0      0   0   0            0            0            


*031765 HRL 	0,034013
INITIAL
C(AC)=000000 000000 
C(E)=777777 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031765 031765 0   0   504000034013 0            0            
IT1	031765 0      0   0   504000034013 0            0            
AT3	031765 0      0   0   000000034013 0            504000034013 
AT6	031765 034013 0   0   000000034013 0            504000034013 
FT0	031765 034013 0   0   777777000000 0            504000034013 
FT1A	031765 034013 0   0   777777000000 0            777777000000 
FT2	031765 034013 0   0   0            0            777777000000 
FT2RQ	031765 034013 0   0   0            0            777777000000 
FT3	031765 034013 0   0   0            0            777777000000 
FT9	031766 034013 0   0   0            0            777777000000 
ET0	031766 034013 0   0   777777000000 0            0            
ET1	031766 034013 0   0   0            0            0            
ST1	031766 034013 0   0   0            0            0            
ST2	031766 034013 0   0   0            0            0            
ST9	031766 034013 0   0   0            0            0            


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031766 031766 0   0   332000000000 0            0            
IT1	031766 0      0   0   332000000000 0            0            
AT3	031766 0      0   0   0            0            332000000000 
AT6	031766 0      0   0   0            0            332000000000 
FT0	031766 0      0   0   0            0            332000000000 
FT1A	031766 0      0   0   0            0            0            
FT9	031767 0      0   0   0            0            0            
ET0	031770 0      0   0   0            0            0            
ST1A	031770 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 196
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0386

ST9	031770 0      0   0   0            0            0            


*031770 JUMPA	0,031771
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031770 031770 0   0   324000031771 0            000000031771 
IT1	031770 0      0   0   324000031771 0            000000031771 
AT3	031770 0      0   0   000000031771 0            324000031771 
AT6	031770 031771 0   0   000000031771 0            324000031771 
FT1A	031770 031771 0   0   000000031771 0            000000031771 
FT2	031770 031771 0   0   0            0            000000031771 
FT2RQ	031770 031771 0   0   0            0            000000031771 
FT3	031770 031771 0   0   0            0            000000031771 
FT9	031771 031771 0   0   0            0            000000031771 
ET0	031771 031771 0   0   0            0            000000031771 
ST1A	031771 031771 0   0   0            0            000000031771 
ST9	031771 031771 0   0   0            0            000000031771 


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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 197
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0387

*031772 HLRI	0,777777
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031772 031772 0   0   545000777777 0            0            
IT1	031772 0      0   0   545000777777 0            0            
AT3	031772 0      0   0   000000777777 0            545000777777 
AT6	031772 777777 0   0   000000777777 0            545000777777 
FT1A	031772 777777 0   0   000000777777 0            000000777777 
FT2	031772 777777 0   0   0            0            000000777777 
FT2RQ	031772 777777 0   0   0            0            000000777777 
FT3	031772 777777 0   0   0            0            000000777777 
FT9	031773 777777 0   0   0            0            000000777777 
ET0	031773 777777 0   0   000000777777 0            0            
ET1	031773 777777 0   0   0            0            0            
ST1	031773 777777 0   0   0            0            0            
ST2	031773 777777 0   0   0            0            0            
ST9	031773 777777 0   0   0            0            0            


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031773 031773 0   0   332000000000 0            0            
IT1	031773 0      0   0   332000000000 0            0            
AT3	031773 0      0   0   0            0            332000000000 
AT6	031773 0      0   0   0            0            332000000000 
FT0	031773 0      0   0   0            0            332000000000 
FT1A	031773 0      0   0   0            0            0            
FT9	031774 0      0   0   0            0            0            
ET0	031775 0      0   0   0            0            0            
ST1A	031775 0      0   0   0            0            0            
ST9	031775 0      0   0   0            0            0            


*031775 JUMPA	0,031776
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031775 031775 0   0   324000031776 0            000000031776 
IT1	031775 0      0   0   324000031776 0            000000031776 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 198
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0388

AT3	031775 0      0   0   000000031776 0            324000031776 
AT6	031775 031776 0   0   000000031776 0            324000031776 
FT1A	031775 031776 0   0   000000031776 0            000000031776 
FT2	031775 031776 0   0   0            0            000000031776 
FT2RQ	031775 031776 0   0   0            0            000000031776 
FT3	031775 031776 0   0   0            0            000000031776 
FT9	031776 031776 0   0   0            0            000000031776 
ET0	031776 031776 0   0   0            0            000000031776 
ST1A	031776 031776 0   0   0            0            000000031776 
ST9	031776 031776 0   0   0            0            000000031776 


*031776 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031776 031776 0   0   474000000000 0            0            
IT1	031776 0      0   0   474000000000 0            0            
AT3	031776 0      0   0   0            0            474000000000 
AT6	031776 0      0   0   0            0            474000000000 
FT1A	031776 0      0   0   0            0            0            
FT9	031777 0      0   0   0            0            0            
ET0	031777 0      0   0   777777777777 0            0            
ST1	031777 0      0   0   777777777777 0            0            
ST2	031777 0      0   0   777777777777 0            0            
ST9	031777 0      0   0   777777777777 0            0            


*031777 HRLI	0,777777
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031777 031777 0   0   505000777777 0            777777777777 
IT1	031777 0      0   0   505000777777 0            777777777777 
AT3	031777 0      0   0   000000777777 0            505000777777 
AT6	031777 777777 0   0   000000777777 0            505000777777 
FT1A	031777 777777 0   0   000000777777 0            000000777777 
FT2	031777 777777 0   0   0            0            000000777777 
FT2RQ	031777 777777 0   0   777777777777 0            000000777777 
FT3	031777 777777 0   0   777777777777 0            000000777777 
FT9	0      777777 0   0   777777777777 0            000000777777 
ET0	0      777777 0   0   000000777777 0            777777777777 
ET1	0      777777 0   0   777777777777 0            777777777777 
ST1	0      777777 0   0   777777777777 0            777777777777 
ST2	0      777777 0   0   777777777777 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 199
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0389

ST9	0      777777 0   0   777777777777 0            777777777777 


*032000 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   312000034012 0            777777777777 
IT1	0      0      0   0   312000034012 0            777777777777 
AT3	0      0      0   0   000000034012 0            312000034012 
AT6	0      034012 0   0   000000034012 0            312000034012 
FT0	0      034012 0   0   777777777777 0            312000034012 
FT1A	0      034012 0   0   777777777777 0            777777777777 
FT2	0      034012 0   0   0            0            777777777777 
FT2RQ	0      034012 0   0   777777777777 0            777777777777 
FT3	0      034012 0   0   777777777777 0            777777777777 
FT9	032001 034012 0   0   777777777777 0            777777777777 
ET0	032002 034012 0   0   0            0            777777777777 
ST1A	032002 034012 0   0   0            0            777777777777 
ST9	032002 034012 0   0   0            0            777777777777 


*032002 JUMPA	0,032003
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032002 032002 0   0   324000032003 0            000000032003 
IT1	032002 0      0   0   324000032003 0            000000032003 
AT3	032002 0      0   0   000000032003 0            324000032003 
AT6	032002 032003 0   0   000000032003 0            324000032003 
FT1A	032002 032003 0   0   000000032003 0            000000032003 
FT2	032002 032003 0   0   0            0            000000032003 
FT2RQ	032002 032003 0   0   777777777777 0            000000032003 
FT3	032002 032003 0   0   777777777777 0            000000032003 
FT9	032003 032003 0   0   777777777777 0            000000032003 
ET0	032003 032003 0   0   777777777777 0            000000032003 
ST1A	032003 032003 0   0   777777777777 0            000000032003 
ST9	032003 032003 0   0   777777777777 0            000000032003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 200
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0390

*032003 SETO 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032003 032003 0   0   474000000000 0            0            
IT1	032003 0      0   0   474000000000 0            0            
AT3	032003 0      0   0   0            0            474000000000 
AT6	032003 0      0   0   0            0            474000000000 
FT1A	032003 0      0   0   0            0            0            
FT9	032004 0      0   0   0            0            0            
ET0	032004 0      0   0   777777777777 0            0            
ST1	032004 0      0   0   777777777777 0            0            
ST2	032004 0      0   0   777777777777 0            0            
ST9	032004 0      0   0   777777777777 0            0            


*032004 HLR 	0,034013
INITIAL
C(AC)=777777 777777 
C(E)=777777 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032004 032004 0   0   544000034013 0            777777777777 
IT1	032004 0      0   0   544000034013 0            777777777777 
AT3	032004 0      0   0   000000034013 0            544000034013 
AT6	032004 034013 0   0   000000034013 0            544000034013 
FT0	032004 034013 0   0   777777000000 0            544000034013 
FT1A	032004 034013 0   0   777777000000 0            777777000000 
FT2	032004 034013 0   0   0            0            777777000000 
FT2RQ	032004 034013 0   0   777777777777 0            777777000000 
FT3	032004 034013 0   0   777777777777 0            777777000000 
FT9	032005 034013 0   0   777777777777 0            777777000000 
ET0	032005 034013 0   0   777777000000 0            777777777777 
ET1	032005 034013 0   0   777777777777 0            777777777777 
ST1	032005 034013 0   0   777777777777 0            777777777777 
ST2	032005 034013 0   0   777777777777 0            777777777777 
ST9	032005 034013 0   0   777777777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 201
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0391

*032005 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032005 032005 0   0   312000034012 0            777777777777 
IT1	032005 0      0   0   312000034012 0            777777777777 
AT3	032005 0      0   0   000000034012 0            312000034012 
AT6	032005 034012 0   0   000000034012 0            312000034012 
FT0	032005 034012 0   0   777777777777 0            312000034012 
FT1A	032005 034012 0   0   777777777777 0            777777777777 
FT2	032005 034012 0   0   0            0            777777777777 
FT2RQ	032005 034012 0   0   777777777777 0            777777777777 
FT3	032005 034012 0   0   777777777777 0            777777777777 
FT9	032006 034012 0   0   777777777777 0            777777777777 
ET0	032007 034012 0   0   0            0            777777777777 
ST1A	032007 034012 0   0   0            0            777777777777 
ST9	032007 034012 0   0   0            0            777777777777 


*032007 JUMPA	0,032010
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032007 032007 0   0   324000032010 0            000000032010 
IT1	032007 0      0   0   324000032010 0            000000032010 
AT3	032007 0      0   0   000000032010 0            324000032010 
AT6	032007 032010 0   0   000000032010 0            324000032010 
FT1A	032007 032010 0   0   000000032010 0            000000032010 
FT2	032007 032010 0   0   0            0            000000032010 
FT2RQ	032007 032010 0   0   777777777777 0            000000032010 
FT3	032007 032010 0   0   777777777777 0            000000032010 
FT9	032010 032010 0   0   777777777777 0            000000032010 
ET0	032010 032010 0   0   777777777777 0            000000032010 
ST1A	032010 032010 0   0   777777777777 0            000000032010 
ST9	032010 032010 0   0   777777777777 0            000000032010 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 202
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0392

*032010 SETO 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032010 032010 0   0   474000000000 0            0            
IT1	032010 0      0   0   474000000000 0            0            
AT3	032010 0      0   0   0            0            474000000000 
AT6	032010 0      0   0   0            0            474000000000 
FT1A	032010 0      0   0   0            0            0            
FT9	032011 0      0   0   0            0            0            
ET0	032011 0      0   0   777777777777 0            0            
ST1	032011 0      0   0   777777777777 0            0            
ST2	032011 0      0   0   777777777777 0            0            
ST9	032011 0      0   0   777777777777 0            0            


*032011 HRL 	0,034013
INITIAL
C(AC)=777777 777777 
C(E)=777777 000000 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032011 032011 0   0   504000034013 0            777777777777 
IT1	032011 0      0   0   504000034013 0            777777777777 
AT3	032011 0      0   0   000000034013 0            504000034013 
AT6	032011 034013 0   0   000000034013 0            504000034013 
FT0	032011 034013 0   0   777777000000 0            504000034013 
FT1A	032011 034013 0   0   777777000000 0            777777000000 
FT2	032011 034013 0   0   0            0            777777000000 
FT2RQ	032011 034013 0   0   777777777777 0            777777000000 
FT3	032011 034013 0   0   777777777777 0            777777000000 
FT9	032012 034013 0   0   777777777777 0            777777000000 
ET0	032012 034013 0   0   777777000000 0            777777777777 
ET1	032012 034013 0   0   000000777777 0            777777777777 
ST1	032012 034013 0   0   000000777777 0            777777777777 
ST2	032012 034013 0   0   000000777777 0            777777777777 
ST9	032012 034013 0   0   000000777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 203
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0393

*032012 CAME	0,034015
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032012 032012 0   0   312000034015 0            000000777777 
IT1	032012 0      0   0   312000034015 0            000000777777 
AT3	032012 0      0   0   000000034015 0            312000034015 
AT6	032012 034015 0   0   000000034015 0            312000034015 
FT0	032012 034015 0   0   000000777777 0            312000034015 
FT1A	032012 034015 0   0   000000777777 0            000000777777 
FT2	032012 034015 0   0   0            0            000000777777 
FT2RQ	032012 034015 0   0   000000777777 0            000000777777 
FT3	032012 034015 0   0   000000777777 0            000000777777 
FT9	032013 034015 0   0   000000777777 0            000000777777 
ET0	032014 034015 0   0   0            0            000000777777 
ST1A	032014 034015 0   0   0            0            000000777777 
ST9	032014 034015 0   0   0            0            000000777777 


*032014 JUMPA	0,032015
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032014 032014 0   0   324000032015 0            000000032015 
IT1	032014 0      0   0   324000032015 0            000000032015 
AT3	032014 0      0   0   000000032015 0            324000032015 
AT6	032014 032015 0   0   000000032015 0            324000032015 
FT1A	032014 032015 0   0   000000032015 0            000000032015 
FT2	032014 032015 0   0   0            0            000000032015 
FT2RQ	032014 032015 0   0   000000777777 0            000000032015 
FT3	032014 032015 0   0   000000777777 0            000000032015 
FT9	032015 032015 0   0   000000777777 0            000000032015 
ET0	032015 032015 0   0   000000777777 0            000000032015 
ST1A	032015 032015 0   0   000000777777 0            000000032015 
ST9	032015 032015 0   0   000000777777 0            000000032015 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 204
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0394

*032015 SETO 	0,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032015 032015 0   0   474000000000 0            0            
IT1	032015 0      0   0   474000000000 0            0            
AT3	032015 0      0   0   0            0            474000000000 
AT6	032015 0      0   0   0            0            474000000000 
FT1A	032015 0      0   0   0            0            0            
FT9	032016 0      0   0   0            0            0            
ET0	032016 0      0   0   777777777777 0            0            
ST1	032016 0      0   0   777777777777 0            0            
ST2	032016 0      0   0   777777777777 0            0            
ST9	032016 0      0   0   777777777777 0            0            


*032016 HLRI	0,777777
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032016 032016 0   0   545000777777 0            777777777777 
IT1	032016 0      0   0   545000777777 0            777777777777 
AT3	032016 0      0   0   000000777777 0            545000777777 
AT6	032016 777777 0   0   000000777777 0            545000777777 
FT1A	032016 777777 0   0   000000777777 0            000000777777 
FT2	032016 777777 0   0   0            0            000000777777 
FT2RQ	032016 777777 0   0   777777777777 0            000000777777 
FT3	032016 777777 0   0   777777777777 0            000000777777 
FT9	032017 777777 0   0   777777777777 0            000000777777 
ET0	032017 777777 0   0   000000777777 0            777777777777 
ET1	032017 777777 0   0   777777000000 0            777777777777 
ST1	032017 777777 0   0   777777000000 0            777777777777 
ST2	032017 777777 0   0   777777000000 0            777777777777 
ST9	032017 777777 0   0   777777000000 0            777777777777 


*032017 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032017 032017 0   0   312000034013 0            777777000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 205
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0395

IT1	032017 0      0   0   312000034013 0            777777000000 
AT3	032017 0      0   0   000000034013 0            312000034013 
AT6	032017 034013 0   0   000000034013 0            312000034013 
FT0	032017 034013 0   0   777777000000 0            312000034013 
FT1A	032017 034013 0   0   777777000000 0            777777000000 
FT2	032017 034013 0   0   0            0            777777000000 
FT2RQ	032017 034013 0   0   777777000000 0            777777000000 
FT3	032017 034013 0   0   777777000000 0            777777000000 
FT9	032020 034013 0   0   777777000000 0            777777000000 
ET0	032021 034013 0   0   0            0            777777000000 
ST1A	032021 034013 0   0   0            0            777777000000 
ST9	032021 034013 0   0   0            0            777777000000 


*032021 JUMPA	0,032022
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032021 032021 0   0   324000032022 0            000000032022 
IT1	032021 0      0   0   324000032022 0            000000032022 
AT3	032021 0      0   0   000000032022 0            324000032022 
AT6	032021 032022 0   0   000000032022 0            324000032022 
FT1A	032021 032022 0   0   000000032022 0            000000032022 
FT2	032021 032022 0   0   0            0            000000032022 
FT2RQ	032021 032022 0   0   777777000000 0            000000032022 
FT3	032021 032022 0   0   777777000000 0            000000032022 
FT9	032022 032022 0   0   777777000000 0            000000032022 
ET0	032022 032022 0   0   777777000000 0            000000032022 
ST1A	032022 032022 0   0   777777000000 0            000000032022 
ST9	032022 032022 0   0   777777000000 0            000000032022 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032022 032022 0   0   201000777777 0            000000777777 
IT1	032022 0      0   0   201000777777 0            000000777777 
AT3	032022 0      0   0   000000777777 0            201000777777 
AT6	032022 777777 0   0   000000777777 0            201000777777 
FT1A	032022 777777 0   0   000000777777 0            000000777777 
FT9	032023 777777 0   0   000000777777 0            000000777777 
ET0	032023 777777 0   0   000000777777 0            000000777777 
ST1	032023 777777 0   0   000000777777 0            000000777777 
ST2	032023 777777 0   0   000000777777 0            000000777777 
ST9	032023 777777 0   0   000000777777 0            000000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 206
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0396



*032023 HRL 	0,034014
INITIAL
C(AC)=000000 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032023 032023 0   0   504000034014 0            000000777777 
IT1	032023 0      0   0   504000034014 0            000000777777 
AT3	032023 0      0   0   000000034014 0            504000034014 
AT6	032023 034014 0   0   000000034014 0            504000034014 
FT0	032023 034014 0   0   0            0            504000034014 
FT1A	032023 034014 0   0   0            0            0            
FT2	032023 034014 0   0   0            0            0            
FT2RQ	032023 034014 0   0   000000777777 0            0            
FT3	032023 034014 0   0   000000777777 0            0            
FT9	032024 034014 0   0   000000777777 0            0            
ET0	032024 034014 0   0   0            0            000000777777 
ET1	032024 034014 0   0   000000777777 0            000000777777 
ST1	032024 034014 0   0   000000777777 0            000000777777 
ST2	032024 034014 0   0   000000777777 0            000000777777 
ST9	032024 034014 0   0   000000777777 0            000000777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032024 032024 0   0   302000777777 0            000000777777 
IT1	032024 0      0   0   302000777777 0            000000777777 
AT3	032024 0      0   0   000000777777 0            302000777777 
AT6	032024 777777 0   0   000000777777 0            302000777777 
FT1A	032024 777777 0   0   000000777777 0            000000777777 
FT2	032024 777777 0   0   0            0            000000777777 
FT2RQ	032024 777777 0   0   000000777777 0            000000777777 
FT3	032024 777777 0   0   000000777777 0            000000777777 
FT9	032025 777777 0   0   000000777777 0            000000777777 
ET0	032026 777777 0   0   0            0            000000777777 
ST1A	032026 777777 0   0   0            0            000000777777 
ST9	032026 777777 0   0   0            0            000000777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 207
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0397

*032026 JUMPA	0,032027
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032026 032026 0   0   324000032027 0            000000032027 
IT1	032026 0      0   0   324000032027 0            000000032027 
AT3	032026 0      0   0   000000032027 0            324000032027 
AT6	032026 032027 0   0   000000032027 0            324000032027 
FT1A	032026 032027 0   0   000000032027 0            000000032027 
FT2	032026 032027 0   0   0            0            000000032027 
FT2RQ	032026 032027 0   0   000000777777 0            000000032027 
FT3	032026 032027 0   0   000000777777 0            000000032027 
FT9	032027 032027 0   0   000000777777 0            000000032027 
ET0	032027 032027 0   0   000000777777 0            000000032027 
ST1A	032027 032027 0   0   000000777777 0            000000032027 
ST9	032027 032027 0   0   000000777777 0            000000032027 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032027 032027 0   0   201000777777 0            000000777777 
IT1	032027 0      0   0   201000777777 0            000000777777 
AT3	032027 0      0   0   000000777777 0            201000777777 
AT6	032027 777777 0   0   000000777777 0            201000777777 
FT1A	032027 777777 0   0   000000777777 0            000000777777 
FT9	032030 777777 0   0   000000777777 0            000000777777 
ET0	032030 777777 0   0   000000777777 0            000000777777 
ST1	032030 777777 0   0   000000777777 0            000000777777 
ST2	032030 777777 0   0   000000777777 0            000000777777 
ST9	032030 777777 0   0   000000777777 0            000000777777 


*032030 HLRI	0,000000
INITIAL
C(AC)=000000 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032030 032030 0   0   545000000000 0            000000777777 
IT1	032030 0      0   0   545000000000 0            000000777777 
AT3	032030 0      0   0   0            0            545000000000 
AT6	032030 0      0   0   0            0            545000000000 
FT1A	032030 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 208
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0398

FT2	032030 0      0   0   0            0            0            
FT2RQ	032030 0      0   0   000000777777 0            0            
FT3	032030 0      0   0   000000777777 0            0            
FT9	032031 0      0   0   000000777777 0            0            
ET0	032031 0      0   0   0            0            000000777777 
ET1	032031 0      0   0   0            0            000000777777 
ST1	032031 0      0   0   0            0            000000777777 
ST2	032031 0      0   0   0            0            000000777777 
ST9	032031 0      0   0   0            0            000000777777 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032031 032031 0   0   332000000000 0            0            
IT1	032031 0      0   0   332000000000 0            0            
AT3	032031 0      0   0   0            0            332000000000 
AT6	032031 0      0   0   0            0            332000000000 
FT0	032031 0      0   0   0            0            332000000000 
FT1A	032031 0      0   0   0            0            0            
FT9	032032 0      0   0   0            0            0            
ET0	032033 0      0   0   0            0            0            
ST1A	032033 0      0   0   0            0            0            
ST9	032033 0      0   0   0            0            0            


*032033 JUMPA	0,032034
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032033 032033 0   0   324000032034 0            000000032034 
IT1	032033 0      0   0   324000032034 0            000000032034 
AT3	032033 0      0   0   000000032034 0            324000032034 
AT6	032033 032034 0   0   000000032034 0            324000032034 
FT1A	032033 032034 0   0   000000032034 0            000000032034 
FT2	032033 032034 0   0   0            0            000000032034 
FT2RQ	032033 032034 0   0   0            0            000000032034 
FT3	032033 032034 0   0   0            0            000000032034 
FT9	032034 032034 0   0   0            0            000000032034 
ET0	032034 032034 0   0   0            0            000000032034 
ST1A	032034 032034 0   0   0            0            000000032034 
ST9	032034 032034 0   0   0            0            000000032034 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 209
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0399

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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032034 032034 0   0   201000777777 0            000000777777 
IT1	032034 0      0   0   201000777777 0            000000777777 
AT3	032034 0      0   0   000000777777 0            201000777777 
AT6	032034 777777 0   0   000000777777 0            201000777777 
FT1A	032034 777777 0   0   000000777777 0            000000777777 
FT9	032035 777777 0   0   000000777777 0            000000777777 
ET0	032035 777777 0   0   000000777777 0            000000777777 
ST1	032035 777777 0   0   000000777777 0            000000777777 
ST2	032035 777777 0   0   000000777777 0            000000777777 
ST9	032035 777777 0   0   000000777777 0            000000777777 


*032035 HRL 	0,034012
INITIAL
C(AC)=000000 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032035 032035 0   0   504000034012 0            000000777777 
IT1	032035 0      0   0   504000034012 0            000000777777 
AT3	032035 0      0   0   000000034012 0            504000034012 
AT6	032035 034012 0   0   000000034012 0            504000034012 
FT0	032035 034012 0   0   777777777777 0            504000034012 
FT1A	032035 034012 0   0   777777777777 0            777777777777 
FT2	032035 034012 0   0   0            0            777777777777 
FT2RQ	032035 034012 0   0   000000777777 0            777777777777 
FT3	032035 034012 0   0   000000777777 0            777777777777 
FT9	032036 034012 0   0   000000777777 0            777777777777 
ET0	032036 034012 0   0   777777777777 0            000000777777 
ET1	032036 034012 0   0   777777777777 0            000000777777 
ST1	032036 034012 0   0   777777777777 0            000000777777 
ST2	032036 034012 0   0   777777777777 0            000000777777 
ST9	032036 034012 0   0   777777777777 0            000000777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 210
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0400

*032036 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032036 032036 0   0   312000034012 0            777777777777 
IT1	032036 0      0   0   312000034012 0            777777777777 
AT3	032036 0      0   0   000000034012 0            312000034012 
AT6	032036 034012 0   0   000000034012 0            312000034012 
FT0	032036 034012 0   0   777777777777 0            312000034012 
FT1A	032036 034012 0   0   777777777777 0            777777777777 
FT2	032036 034012 0   0   0            0            777777777777 
FT2RQ	032036 034012 0   0   777777777777 0            777777777777 
FT3	032036 034012 0   0   777777777777 0            777777777777 
FT9	032037 034012 0   0   777777777777 0            777777777777 
ET0	032040 034012 0   0   0            0            777777777777 
ST1A	032040 034012 0   0   0            0            777777777777 
ST9	032040 034012 0   0   0            0            777777777777 


*032040 JUMPA	0,032041
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032040 032040 0   0   324000032041 0            000000032041 
IT1	032040 0      0   0   324000032041 0            000000032041 
AT3	032040 0      0   0   000000032041 0            324000032041 
AT6	032040 032041 0   0   000000032041 0            324000032041 
FT1A	032040 032041 0   0   000000032041 0            000000032041 
FT2	032040 032041 0   0   0            0            000000032041 
FT2RQ	032040 032041 0   0   777777777777 0            000000032041 
FT3	032040 032041 0   0   777777777777 0            000000032041 
FT9	032041 032041 0   0   777777777777 0            000000032041 
ET0	032041 032041 0   0   777777777777 0            000000032041 
ST1A	032041 032041 0   0   777777777777 0            000000032041 
ST9	032041 032041 0   0   777777777777 0            000000032041 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 211
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0401

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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032041 032041 0   0   201000777777 0            000000777777 
IT1	032041 0      0   0   201000777777 0            000000777777 
AT3	032041 0      0   0   000000777777 0            201000777777 
AT6	032041 777777 0   0   000000777777 0            201000777777 
FT1A	032041 777777 0   0   000000777777 0            000000777777 
FT9	032042 777777 0   0   000000777777 0            000000777777 
ET0	032042 777777 0   0   000000777777 0            000000777777 
ST1	032042 777777 0   0   000000777777 0            000000777777 
ST2	032042 777777 0   0   000000777777 0            000000777777 
ST9	032042 777777 0   0   000000777777 0            000000777777 


*032042 HLR 	0,034012
INITIAL
C(AC)=000000 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032042 032042 0   0   544000034012 0            000000777777 
IT1	032042 0      0   0   544000034012 0            000000777777 
AT3	032042 0      0   0   000000034012 0            544000034012 
AT6	032042 034012 0   0   000000034012 0            544000034012 
FT0	032042 034012 0   0   777777777777 0            544000034012 
FT1A	032042 034012 0   0   777777777777 0            777777777777 
FT2	032042 034012 0   0   0            0            777777777777 
FT2RQ	032042 034012 0   0   000000777777 0            777777777777 
FT3	032042 034012 0   0   000000777777 0            777777777777 
FT9	032043 034012 0   0   000000777777 0            777777777777 
ET0	032043 034012 0   0   777777777777 0            000000777777 
ET1	032043 034012 0   0   000000777777 0            000000777777 
ST1	032043 034012 0   0   000000777777 0            000000777777 
ST2	032043 034012 0   0   000000777777 0            000000777777 
ST9	032043 034012 0   0   000000777777 0            000000777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 212
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0402

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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032043 032043 0   0   302000777777 0            000000777777 
IT1	032043 0      0   0   302000777777 0            000000777777 
AT3	032043 0      0   0   000000777777 0            302000777777 
AT6	032043 777777 0   0   000000777777 0            302000777777 
FT1A	032043 777777 0   0   000000777777 0            000000777777 
FT2	032043 777777 0   0   0            0            000000777777 
FT2RQ	032043 777777 0   0   000000777777 0            000000777777 
FT3	032043 777777 0   0   000000777777 0            000000777777 
FT9	032044 777777 0   0   000000777777 0            000000777777 
ET0	032045 777777 0   0   0            0            000000777777 
ST1A	032045 777777 0   0   0            0            000000777777 
ST9	032045 777777 0   0   0            0            000000777777 


*032045 JUMPA	0,032046
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032045 032045 0   0   324000032046 0            000000032046 
IT1	032045 0      0   0   324000032046 0            000000032046 
AT3	032045 0      0   0   000000032046 0            324000032046 
AT6	032045 032046 0   0   000000032046 0            324000032046 
FT1A	032045 032046 0   0   000000032046 0            000000032046 
FT2	032045 032046 0   0   0            0            000000032046 
FT2RQ	032045 032046 0   0   000000777777 0            000000032046 
FT3	032045 032046 0   0   000000777777 0            000000032046 
FT9	032046 032046 0   0   000000777777 0            000000032046 
ET0	032046 032046 0   0   000000777777 0            000000032046 
ST1A	032046 032046 0   0   000000777777 0            000000032046 
ST9	032046 032046 0   0   000000777777 0            000000032046 


*032046 MOVSI	0,777777
INITIAL
C(AC)=000000 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032046 032046 0   0   205000777777 0            000000777777 
IT1	032046 0      0   0   205000777777 0            000000777777 
AT3	032046 0      0   0   000000777777 0            205000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 213
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0403

AT6	032046 777777 0   0   000000777777 0            205000777777 
FT1A	032046 777777 0   0   000000777777 0            000000777777 
FT9	032047 777777 0   0   000000777777 0            000000777777 
ET0	032047 777777 0   0   777777000000 0            000000777777 
ST1	032047 777777 0   0   777777000000 0            000000777777 
ST2	032047 777777 0   0   777777000000 0            000000777777 
ST9	032047 777777 0   0   777777000000 0            000000777777 


*032047 HRL 	0,034014
INITIAL
C(AC)=777777 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032047 032047 0   0   504000034014 0            777777000000 
IT1	032047 0      0   0   504000034014 0            777777000000 
AT3	032047 0      0   0   000000034014 0            504000034014 
AT6	032047 034014 0   0   000000034014 0            504000034014 
FT0	032047 034014 0   0   0            0            504000034014 
FT1A	032047 034014 0   0   0            0            0            
FT2	032047 034014 0   0   0            0            0            
FT2RQ	032047 034014 0   0   777777000000 0            0            
FT3	032047 034014 0   0   777777000000 0            0            
FT9	032050 034014 0   0   777777000000 0            0            
ET0	032050 034014 0   0   0            0            777777000000 
ET1	032050 034014 0   0   0            0            777777000000 
ST1	032050 034014 0   0   0            0            777777000000 
ST2	032050 034014 0   0   0            0            777777000000 
ST9	032050 034014 0   0   0            0            777777000000 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032050 032050 0   0   302000000000 0            0            
IT1	032050 0      0   0   302000000000 0            0            
AT3	032050 0      0   0   0            0            302000000000 
AT6	032050 0      0   0   0            0            302000000000 
FT1A	032050 0      0   0   0            0            0            
FT2	032050 0      0   0   0            0            0            
FT2RQ	032050 0      0   0   0            0            0            
FT3	032050 0      0   0   0            0            0            
FT9	032051 0      0   0   0            0            0            
ET0	032052 0      0   0   0            0            0            
ST1A	032052 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 214
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0404

ST9	032052 0      0   0   0            0            0            


*032052 JUMPA	0,032053
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032052 032052 0   0   324000032053 0            000000032053 
IT1	032052 0      0   0   324000032053 0            000000032053 
AT3	032052 0      0   0   000000032053 0            324000032053 
AT6	032052 032053 0   0   000000032053 0            324000032053 
FT1A	032052 032053 0   0   000000032053 0            000000032053 
FT2	032052 032053 0   0   0            0            000000032053 
FT2RQ	032052 032053 0   0   0            0            000000032053 
FT3	032052 032053 0   0   0            0            000000032053 
FT9	032053 032053 0   0   0            0            000000032053 
ET0	032053 032053 0   0   0            0            000000032053 
ST1A	032053 032053 0   0   0            0            000000032053 
ST9	032053 032053 0   0   0            0            000000032053 


*032053 MOVSI	0,777777
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032053 032053 0   0   205000777777 0            000000777777 
IT1	032053 0      0   0   205000777777 0            000000777777 
AT3	032053 0      0   0   000000777777 0            205000777777 
AT6	032053 777777 0   0   000000777777 0            205000777777 
FT1A	032053 777777 0   0   000000777777 0            000000777777 
FT9	032054 777777 0   0   000000777777 0            000000777777 
ET0	032054 777777 0   0   777777000000 0            000000777777 
ST1	032054 777777 0   0   777777000000 0            000000777777 
ST2	032054 777777 0   0   777777000000 0            000000777777 
ST9	032054 777777 0   0   777777000000 0            000000777777 


*032054 HLR 	0,034014
INITIAL
C(AC)=777777 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032054 032054 0   0   544000034014 0            777777000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 215
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0405

IT1	032054 0      0   0   544000034014 0            777777000000 
AT3	032054 0      0   0   000000034014 0            544000034014 
AT6	032054 034014 0   0   000000034014 0            544000034014 
FT0	032054 034014 0   0   0            0            544000034014 
FT1A	032054 034014 0   0   0            0            0            
FT2	032054 034014 0   0   0            0            0            
FT2RQ	032054 034014 0   0   777777000000 0            0            
FT3	032054 034014 0   0   777777000000 0            0            
FT9	032055 034014 0   0   777777000000 0            0            
ET0	032055 034014 0   0   0            0            777777000000 
ET1	032055 034014 0   0   777777000000 0            777777000000 
ST1	032055 034014 0   0   777777000000 0            777777000000 
ST2	032055 034014 0   0   777777000000 0            777777000000 
ST9	032055 034014 0   0   777777000000 0            777777000000 


*032055 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032055 032055 0   0   312000034013 0            777777000000 
IT1	032055 0      0   0   312000034013 0            777777000000 
AT3	032055 0      0   0   000000034013 0            312000034013 
AT6	032055 034013 0   0   000000034013 0            312000034013 
FT0	032055 034013 0   0   777777000000 0            312000034013 
FT1A	032055 034013 0   0   777777000000 0            777777000000 
FT2	032055 034013 0   0   0            0            777777000000 
FT2RQ	032055 034013 0   0   777777000000 0            777777000000 
FT3	032055 034013 0   0   777777000000 0            777777000000 
FT9	032056 034013 0   0   777777000000 0            777777000000 
ET0	032057 034013 0   0   0            0            777777000000 
ST1A	032057 034013 0   0   0            0            777777000000 
ST9	032057 034013 0   0   0            0            777777000000 


*032057 JUMPA	0,032060
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032057 032057 0   0   324000032060 0            000000032060 
IT1	032057 0      0   0   324000032060 0            000000032060 
AT3	032057 0      0   0   000000032060 0            324000032060 
AT6	032057 032060 0   0   000000032060 0            324000032060 
FT1A	032057 032060 0   0   000000032060 0            000000032060 
FT2	032057 032060 0   0   0            0            000000032060 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 216
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0406

FT2RQ	032057 032060 0   0   777777000000 0            000000032060 
FT3	032057 032060 0   0   777777000000 0            000000032060 
FT9	032060 032060 0   0   777777000000 0            000000032060 
ET0	032060 032060 0   0   777777000000 0            000000032060 
ST1A	032060 032060 0   0   777777000000 0            000000032060 
ST9	032060 032060 0   0   777777000000 0            000000032060 


*032060 MOVSI	0,777777
INITIAL
C(AC)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032060 032060 0   0   205000777777 0            000000777777 
IT1	032060 0      0   0   205000777777 0            000000777777 
AT3	032060 0      0   0   000000777777 0            205000777777 
AT6	032060 777777 0   0   000000777777 0            205000777777 
FT1A	032060 777777 0   0   000000777777 0            000000777777 
FT9	032061 777777 0   0   000000777777 0            000000777777 
ET0	032061 777777 0   0   777777000000 0            000000777777 
ST1	032061 777777 0   0   777777000000 0            000000777777 
ST2	032061 777777 0   0   777777000000 0            000000777777 
ST9	032061 777777 0   0   777777000000 0            000000777777 


*032061 HRL 	0,034012
INITIAL
C(AC)=777777 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032061 032061 0   0   504000034012 0            777777000000 
IT1	032061 0      0   0   504000034012 0            777777000000 
AT3	032061 0      0   0   000000034012 0            504000034012 
AT6	032061 034012 0   0   000000034012 0            504000034012 
FT0	032061 034012 0   0   777777777777 0            504000034012 
FT1A	032061 034012 0   0   777777777777 0            777777777777 
FT2	032061 034012 0   0   0            0            777777777777 
FT2RQ	032061 034012 0   0   777777000000 0            777777777777 
FT3	032061 034012 0   0   777777000000 0            777777777777 
FT9	032062 034012 0   0   777777000000 0            777777777777 
ET0	032062 034012 0   0   777777777777 0            777777000000 
ET1	032062 034012 0   0   777777000000 0            777777000000 
ST1	032062 034012 0   0   777777000000 0            777777000000 
ST2	032062 034012 0   0   777777000000 0            777777000000 
ST9	032062 034012 0   0   777777000000 0            777777000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 217
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0407

*032062 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032062 032062 0   0   312000034013 0            777777000000 
IT1	032062 0      0   0   312000034013 0            777777000000 
AT3	032062 0      0   0   000000034013 0            312000034013 
AT6	032062 034013 0   0   000000034013 0            312000034013 
FT0	032062 034013 0   0   777777000000 0            312000034013 
FT1A	032062 034013 0   0   777777000000 0            777777000000 
FT2	032062 034013 0   0   0            0            777777000000 
FT2RQ	032062 034013 0   0   777777000000 0            777777000000 
FT3	032062 034013 0   0   777777000000 0            777777000000 
FT9	032063 034013 0   0   777777000000 0            777777000000 
ET0	032064 034013 0   0   0            0            777777000000 
ST1A	032064 034013 0   0   0            0            777777000000 
ST9	032064 034013 0   0   0            0            777777000000 


*032064 JUMPA	0,032065
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032064 032064 0   0   324000032065 0            000000032065 
IT1	032064 0      0   0   324000032065 0            000000032065 
AT3	032064 0      0   0   000000032065 0            324000032065 
AT6	032064 032065 0   0   000000032065 0            324000032065 
FT1A	032064 032065 0   0   000000032065 0            000000032065 
FT2	032064 032065 0   0   0            0            000000032065 
FT2RQ	032064 032065 0   0   777777000000 0            000000032065 
FT3	032064 032065 0   0   777777000000 0            000000032065 
FT9	032065 032065 0   0   777777000000 0            000000032065 
ET0	032065 032065 0   0   777777000000 0            000000032065 
ST1A	032065 032065 0   0   777777000000 0            000000032065 
ST9	032065 032065 0   0   777777000000 0            000000032065 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 218
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0408

*032065 MOVSI	0,777777
INITIAL
C(AC)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032065 032065 0   0   205000777777 0            000000777777 
IT1	032065 0      0   0   205000777777 0            000000777777 
AT3	032065 0      0   0   000000777777 0            205000777777 
AT6	032065 777777 0   0   000000777777 0            205000777777 
FT1A	032065 777777 0   0   000000777777 0            000000777777 
FT9	032066 777777 0   0   000000777777 0            000000777777 
ET0	032066 777777 0   0   777777000000 0            000000777777 
ST1	032066 777777 0   0   777777000000 0            000000777777 
ST2	032066 777777 0   0   777777000000 0            000000777777 
ST9	032066 777777 0   0   777777000000 0            000000777777 


*032066 HLR 	0,034012
INITIAL
C(AC)=777777 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032066 032066 0   0   544000034012 0            777777000000 
IT1	032066 0      0   0   544000034012 0            777777000000 
AT3	032066 0      0   0   000000034012 0            544000034012 
AT6	032066 034012 0   0   000000034012 0            544000034012 
FT0	032066 034012 0   0   777777777777 0            544000034012 
FT1A	032066 034012 0   0   777777777777 0            777777777777 
FT2	032066 034012 0   0   0            0            777777777777 
FT2RQ	032066 034012 0   0   777777000000 0            777777777777 
FT3	032066 034012 0   0   777777000000 0            777777777777 
FT9	032067 034012 0   0   777777000000 0            777777777777 
ET0	032067 034012 0   0   777777777777 0            777777000000 
ET1	032067 034012 0   0   777777777777 0            777777000000 
ST1	032067 034012 0   0   777777777777 0            777777000000 
ST2	032067 034012 0   0   777777777777 0            777777000000 
ST9	032067 034012 0   0   777777777777 0            777777000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 219
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0409

*032067 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032067 032067 0   0   312000034012 0            777777777777 
IT1	032067 0      0   0   312000034012 0            777777777777 
AT3	032067 0      0   0   000000034012 0            312000034012 
AT6	032067 034012 0   0   000000034012 0            312000034012 
FT0	032067 034012 0   0   777777777777 0            312000034012 
FT1A	032067 034012 0   0   777777777777 0            777777777777 
FT2	032067 034012 0   0   0            0            777777777777 
FT2RQ	032067 034012 0   0   777777777777 0            777777777777 
FT3	032067 034012 0   0   777777777777 0            777777777777 
FT9	032070 034012 0   0   777777777777 0            777777777777 
ET0	032071 034012 0   0   0            0            777777777777 
ST1A	032071 034012 0   0   0            0            777777777777 
ST9	032071 034012 0   0   0            0            777777777777 


*032071 JUMPA	0,032072
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032071 032071 0   0   324000032072 0            000000032072 
IT1	032071 0      0   0   324000032072 0            000000032072 
AT3	032071 0      0   0   000000032072 0            324000032072 
AT6	032071 032072 0   0   000000032072 0            324000032072 
FT1A	032071 032072 0   0   000000032072 0            000000032072 
FT2	032071 032072 0   0   0            0            000000032072 
FT2RQ	032071 032072 0   0   777777777777 0            000000032072 
FT3	032071 032072 0   0   777777777777 0            000000032072 
FT9	032072 032072 0   0   777777777777 0            000000032072 
ET0	032072 032072 0   0   777777777777 0            000000032072 
ST1A	032072 032072 0   0   777777777777 0            000000032072 
ST9	032072 032072 0   0   777777777777 0            000000032072 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 220
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0410

*032072 SETZ 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

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


*032073 HLLM	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032073 032073 0   0   502000000000 0            0            
IT1	032073 0      0   0   502000000000 0            0            
AT3	032073 0      0   0   0            0            502000000000 
AT6	032073 0      0   0   0            0            502000000000 
FT0	032073 0      0   0   0            0            502000000000 
FT1A	032073 0      0   0   0            0            0            
FT2	032073 0      0   0   0            0            0            
FT2RQ	032073 0      0   0   0            0            0            
FT3	032073 0      0   0   0            0            0            
FT9	032074 0      0   0   0            0            0            
ET0	032074 0      0   0   0            0            0            
ST5	032074 0      0   0   0            0            0            
ST6A	032074 0      0   0   0            0            0            
ST9	032074 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 221
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0411

*032074 SKIPE	0,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   332000000000 0            0            
IT1	032074 0      0   0   332000000000 0            0            
AT3	032074 0      0   0   0            0            332000000000 
AT6	032074 0      0   0   0            0            332000000000 
FT0	032074 0      0   0   0            0            332000000000 
FT1A	032074 0      0   0   0            0            0            
FT9	032075 0      0   0   0            0            0            
ET0	032076 0      0   0   0            0            0            
ST1A	032076 0      0   0   0            0            0            
ST9	032076 0      0   0   0            0            0            


*032076 JUMPA	0,032077
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032076 032076 0   0   324000032077 0            000000032077 
IT1	032076 0      0   0   324000032077 0            000000032077 
AT3	032076 0      0   0   000000032077 0            324000032077 
AT6	032076 032077 0   0   000000032077 0            324000032077 
FT1A	032076 032077 0   0   000000032077 0            000000032077 
FT2	032076 032077 0   0   0            0            000000032077 
FT2RQ	032076 032077 0   0   0            0            000000032077 
FT3	032076 032077 0   0   0            0            000000032077 
FT9	032077 032077 0   0   0            0            000000032077 
ET0	032077 032077 0   0   0            0            000000032077 
ST1A	032077 032077 0   0   0            0            000000032077 
ST9	032077 032077 0   0   0            0            000000032077 


*032077 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	032077 032077 0   0   400000000000 0            0            
IT1	032077 0      0   0   400000000000 0            0            
AT3	032077 0      0   0   0            0            400000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 222
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0412

AT6	032077 0      0   0   0            0            400000000000 
FT1A	032077 0      0   0   0            0            0            
FT9	0      0      0   0   0            0            0            
ET0	0      0      0   0   0            0            0            
ST1	0      0      0   0   0            0            0            
ST2	0      0      0   0   0            0            0            
ST9	0      0      0   0   0            0            0            


*032100 SETO 	1,000000
INITIAL
C(AC)=000001 000001 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   474040000000 0            0            
IT1	0      0      0   0   474040000000 0            0            
AT3	0      0      0   0   0            0            474040000000 
AT6	0      0      0   0   0            0            474040000000 
FT1A	0      0      0   0   0            0            0            
FT9	032101 0      0   0   0            0            0            
ET0	032101 0      0   0   777777777777 0            0            
ST1	032101 0      0   0   777777777777 0            0            
ST2	032101 0      0   0   777777777777 0            0            
ST9	032101 0      0   0   777777777777 0            0            


*032101 HLLM	0,000001
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL

C(E)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032101 032101 0   0   502000000001 0            777777777777 
IT1	032101 0      0   0   502000000001 0            777777777777 
AT3	032101 0      0   0   000000000001 0            502000000001 
AT6	032101 000001 0   0   000000000001 0            502000000001 
FT0	032101 000001 0   0   777777777777 0            502000000001 
FT1A	032101 000001 0   0   777777777777 0            777777777777 
FT2	032101 000001 0   0   0            0            777777777777 
FT2RQ	032101 000001 0   0   0            0            777777777777 
FT3	032101 000001 0   0   0            0            777777777777 
FT9	032102 000001 0   0   0            0            777777777777 
ET0	032102 000001 0   0   000000777777 0            777777777777 
ST5	032102 000001 0   0   000000777777 0            777777777777 
ST6A	032102 000001 0   0   000000777777 0            777777777777 
ST9	032102 000001 0   0   000000777777 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 223
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0413



*032102 CAIE	1,777777
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032102 032102 0   0   302040777777 0            000000777777 
IT1	032102 0      0   0   302040777777 0            000000777777 
AT3	032102 0      0   0   000000777777 0            302040777777 
AT6	032102 777777 0   0   000000777777 0            302040777777 
FT1A	032102 777777 0   0   000000777777 0            000000777777 
FT2	032102 777777 0   0   0            0            000000777777 
FT2RQ	032102 777777 0   0   000000777777 0            000000777777 
FT3	032102 777777 0   0   000000777777 0            000000777777 
FT9	032103 777777 0   0   000000777777 0            000000777777 
ET0	032104 777777 0   0   0            0            000000777777 
ST1A	032104 777777 0   0   0            0            000000777777 
ST9	032104 777777 0   0   0            0            000000777777 


*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 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 224
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0414

*032105 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032105 032105 0   0   474000000000 0            0            
IT1	032105 0      0   0   474000000000 0            0            
AT3	032105 0      0   0   0            0            474000000000 
AT6	032105 0      0   0   0            0            474000000000 
FT1A	032105 0      0   0   0            0            0            
FT9	032106 0      0   0   0            0            0            
ET0	032106 0      0   0   777777777777 0            0            
ST1	032106 0      0   0   777777777777 0            0            
ST2	032106 0      0   0   777777777777 0            0            
ST9	032106 0      0   0   777777777777 0            0            


*032106 SETZ 	1,000000
INITIAL
C(AC)=000000 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032106 032106 0   0   400040000000 0            0            
IT1	032106 0      0   0   400040000000 0            0            
AT3	032106 0      0   0   0            0            400040000000 
AT6	032106 0      0   0   0            0            400040000000 
FT1A	032106 0      0   0   0            0            0            
FT9	032107 0      0   0   0            0            0            
ET0	032107 0      0   0   0            0            0            
ST1	032107 0      0   0   0            0            0            
ST2	032107 0      0   0   0            0            0            
ST9	032107 0      0   0   0            0            0            


*032107 HLLM	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL

C(E)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032107 032107 0   0   502000000001 0            0            
IT1	032107 0      0   0   502000000001 0            0            
AT3	032107 0      0   0   000000000001 0            502000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 225
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0415

AT6	032107 000001 0   0   000000000001 0            502000000001 
FT0	032107 000001 0   0   0            0            502000000001 
FT1A	032107 000001 0   0   0            0            0            
FT2	032107 000001 0   0   0            0            0            
FT2RQ	032107 000001 0   0   777777777777 0            0            
FT3	032107 000001 0   0   777777777777 0            0            
FT9	032110 000001 0   0   777777777777 0            0            
ET0	032110 000001 0   0   777777000000 0            0            
ST5	032110 000001 0   0   777777000000 0            0            
ST6A	032110 000001 0   0   777777000000 0            0            
ST9	032110 000001 0   0   777777000000 0            0            


*032110 CAME	1,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032110 032110 0   0   312040034013 0            777777000000 
IT1	032110 0      0   0   312040034013 0            777777000000 
AT3	032110 0      0   0   000000034013 0            312040034013 
AT6	032110 034013 0   0   000000034013 0            312040034013 
FT0	032110 034013 0   0   777777000000 0            312040034013 
FT1A	032110 034013 0   0   777777000000 0            777777000000 
FT2	032110 034013 0   0   0            0            777777000000 
FT2RQ	032110 034013 0   0   777777000000 0            777777000000 
FT3	032110 034013 0   0   777777000000 0            777777000000 
FT9	032111 034013 0   0   777777000000 0            777777000000 
ET0	032112 034013 0   0   0            0            777777000000 
ST1A	032112 034013 0   0   0            0            777777000000 
ST9	032112 034013 0   0   0            0            777777000000 


*032112 JUMPA	0,032113
INITIAL
C(AC)=777777 777777 
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   777777777777 0            000000032113 
FT3	032112 032113 0   0   777777777777 0            000000032113 
FT9	032113 032113 0   0   777777777777 0            000000032113 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 226
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0416

ET0	032113 032113 0   0   777777777777 0            000000032113 
ST1A	032113 032113 0   0   777777777777 0            000000032113 
ST9	032113 032113 0   0   777777777777 0            000000032113 


*032113 SETZ 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

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


*032114 SETO 	1,000000
INITIAL
C(AC)=777777 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032114 032114 0   0   474040000000 0            0            
IT1	032114 0      0   0   474040000000 0            0            
AT3	032114 0      0   0   0            0            474040000000 
AT6	032114 0      0   0   0            0            474040000000 
FT1A	032114 0      0   0   0            0            0            
FT9	032115 0      0   0   0            0            0            
ET0	032115 0      0   0   777777777777 0            0            
ST1	032115 0      0   0   777777777777 0            0            
ST2	032115 0      0   0   777777777777 0            0            
ST9	032115 0      0   0   777777777777 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 227
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0417

*032115 HRRM	0,000001
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL

C(E)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032115 032115 0   0   542000000001 0            777777777777 
IT1	032115 0      0   0   542000000001 0            777777777777 
AT3	032115 0      0   0   000000000001 0            542000000001 
AT6	032115 000001 0   0   000000000001 0            542000000001 
FT0	032115 000001 0   0   777777777777 0            542000000001 
FT1A	032115 000001 0   0   777777777777 0            777777777777 
FT2	032115 000001 0   0   0            0            777777777777 
FT2RQ	032115 000001 0   0   0            0            777777777777 
FT3	032115 000001 0   0   0            0            777777777777 
FT9	032116 000001 0   0   0            0            777777777777 
ET0	032116 000001 0   0   777777000000 0            777777777777 
ST5	032116 000001 0   0   777777000000 0            777777777777 
ST6A	032116 000001 0   0   777777000000 0            777777777777 
ST9	032116 000001 0   0   777777000000 0            777777777777 


*032116 CAME	1,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032116 032116 0   0   312040034013 0            777777000000 
IT1	032116 0      0   0   312040034013 0            777777000000 
AT3	032116 0      0   0   000000034013 0            312040034013 
AT6	032116 034013 0   0   000000034013 0            312040034013 
FT0	032116 034013 0   0   777777000000 0            312040034013 
FT1A	032116 034013 0   0   777777000000 0            777777000000 
FT2	032116 034013 0   0   0            0            777777000000 
FT2RQ	032116 034013 0   0   777777000000 0            777777000000 
FT3	032116 034013 0   0   777777000000 0            777777000000 
FT9	032117 034013 0   0   777777000000 0            777777000000 
ET0	032120 034013 0   0   0            0            777777000000 
ST1A	032120 034013 0   0   0            0            777777000000 
ST9	032120 034013 0   0   0            0            777777000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 228
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0418

*032120 JUMPA	0,032121
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032120 032120 0   0   324000032121 0            000000032121 
IT1	032120 0      0   0   324000032121 0            000000032121 
AT3	032120 0      0   0   000000032121 0            324000032121 
AT6	032120 032121 0   0   000000032121 0            324000032121 
FT1A	032120 032121 0   0   000000032121 0            000000032121 
FT2	032120 032121 0   0   0            0            000000032121 
FT2RQ	032120 032121 0   0   0            0            000000032121 
FT3	032120 032121 0   0   0            0            000000032121 
FT9	032121 032121 0   0   0            0            000000032121 
ET0	032121 032121 0   0   0            0            000000032121 
ST1A	032121 032121 0   0   0            0            000000032121 
ST9	032121 032121 0   0   0            0            000000032121 


*032121 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032121 032121 0   0   474000000000 0            0            
IT1	032121 0      0   0   474000000000 0            0            
AT3	032121 0      0   0   0            0            474000000000 
AT6	032121 0      0   0   0            0            474000000000 
FT1A	032121 0      0   0   0            0            0            
FT9	032122 0      0   0   0            0            0            
ET0	032122 0      0   0   777777777777 0            0            
ST1	032122 0      0   0   777777777777 0            0            
ST2	032122 0      0   0   777777777777 0            0            
ST9	032122 0      0   0   777777777777 0            0            


*032122 SETZ 	1,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032122 032122 0   0   400040000000 0            0            
IT1	032122 0      0   0   400040000000 0            0            
AT3	032122 0      0   0   0            0            400040000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 229
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0419

AT6	032122 0      0   0   0            0            400040000000 
FT1A	032122 0      0   0   0            0            0            
FT9	032123 0      0   0   0            0            0            
ET0	032123 0      0   0   0            0            0            
ST1	032123 0      0   0   0            0            0            
ST2	032123 0      0   0   0            0            0            
ST9	032123 0      0   0   0            0            0            


*032123 HRRM	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL

C(E)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032123 032123 0   0   542000000001 0            0            
IT1	032123 0      0   0   542000000001 0            0            
AT3	032123 0      0   0   000000000001 0            542000000001 
AT6	032123 000001 0   0   000000000001 0            542000000001 
FT0	032123 000001 0   0   0            0            542000000001 
FT1A	032123 000001 0   0   0            0            0            
FT2	032123 000001 0   0   0            0            0            
FT2RQ	032123 000001 0   0   777777777777 0            0            
FT3	032123 000001 0   0   777777777777 0            0            
FT9	032124 000001 0   0   777777777777 0            0            
ET0	032124 000001 0   0   000000777777 0            0            
ST5	032124 000001 0   0   000000777777 0            0            
ST6A	032124 000001 0   0   000000777777 0            0            
ST9	032124 000001 0   0   000000777777 0            0            


*032124 CAIE	1,777777
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032124 032124 0   0   302040777777 0            000000777777 
IT1	032124 0      0   0   302040777777 0            000000777777 
AT3	032124 0      0   0   000000777777 0            302040777777 
AT6	032124 777777 0   0   000000777777 0            302040777777 
FT1A	032124 777777 0   0   000000777777 0            000000777777 
FT2	032124 777777 0   0   0            0            000000777777 
FT2RQ	032124 777777 0   0   000000777777 0            000000777777 
FT3	032124 777777 0   0   000000777777 0            000000777777 
FT9	032125 777777 0   0   000000777777 0            000000777777 
ET0	032126 777777 0   0   0            0            000000777777 
ST1A	032126 777777 0   0   0            0            000000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 230
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0420

ST9	032126 777777 0   0   0            0            000000777777 


*032126 JUMPA	0,032127
INITIAL
C(AC)=777777 777777 
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 
FT1A	032126 032127 0   0   000000032127 0            000000032127 
FT2	032126 032127 0   0   0            0            000000032127 
FT2RQ	032126 032127 0   0   777777777777 0            000000032127 
FT3	032126 032127 0   0   777777777777 0            000000032127 
FT9	032127 032127 0   0   777777777777 0            000000032127 
ET0	032127 032127 0   0   777777777777 0            000000032127 
ST1A	032127 032127 0   0   777777777777 0            000000032127 
ST9	032127 032127 0   0   777777777777 0            000000032127 


*032127 SETO 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032127 032127 0   0   474000000000 0            0            
IT1	032127 0      0   0   474000000000 0            0            
AT3	032127 0      0   0   0            0            474000000000 
AT6	032127 0      0   0   0            0            474000000000 
FT1A	032127 0      0   0   0            0            0            
FT9	032130 0      0   0   0            0            0            
ET0	032130 0      0   0   777777777777 0            0            
ST1	032130 0      0   0   777777777777 0            0            
ST2	032130 0      0   0   777777777777 0            0            
ST9	032130 0      0   0   777777777777 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 231
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0421

*032130 HLLO 	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	032130 032130 0   0   520000000000 0            777777777777 
IT1	032130 0      0   0   520000000000 0            777777777777 
AT3	032130 0      0   0   0            0            520000000000 
AT6	032130 0      0   0   0            0            520000000000 
FT0	032130 0      0   0   777777777777 0            520000000000 
FT1A	032130 0      0   0   777777777777 0            777777777777 
FT9	032131 0      0   0   777777777777 0            777777777777 
ET0	032131 0      0   0   777777777777 0            777777777777 
ST1	032131 0      0   0   777777777777 0            777777777777 
ST2	032131 0      0   0   777777777777 0            777777777777 
ST9	032131 0      0   0   777777777777 0            777777777777 


*032131 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032131 032131 0   0   312000034012 0            777777777777 
IT1	032131 0      0   0   312000034012 0            777777777777 
AT3	032131 0      0   0   000000034012 0            312000034012 
AT6	032131 034012 0   0   000000034012 0            312000034012 
FT0	032131 034012 0   0   777777777777 0            312000034012 
FT1A	032131 034012 0   0   777777777777 0            777777777777 
FT2	032131 034012 0   0   0            0            777777777777 
FT2RQ	032131 034012 0   0   777777777777 0            777777777777 
FT3	032131 034012 0   0   777777777777 0            777777777777 
FT9	032132 034012 0   0   777777777777 0            777777777777 
ET0	032133 034012 0   0   0            0            777777777777 
ST1A	032133 034012 0   0   0            0            777777777777 
ST9	032133 034012 0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 232
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0422

*032133 JUMPA	0,032134
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032133 032133 0   0   324000032134 0            000000032134 
IT1	032133 0      0   0   324000032134 0            000000032134 
AT3	032133 0      0   0   000000032134 0            324000032134 
AT6	032133 032134 0   0   000000032134 0            324000032134 
FT1A	032133 032134 0   0   000000032134 0            000000032134 
FT2	032133 032134 0   0   0            0            000000032134 
FT2RQ	032133 032134 0   0   777777777777 0            000000032134 
FT3	032133 032134 0   0   777777777777 0            000000032134 
FT9	032134 032134 0   0   777777777777 0            000000032134 
ET0	032134 032134 0   0   777777777777 0            000000032134 
ST1A	032134 032134 0   0   777777777777 0            000000032134 
ST9	032134 032134 0   0   777777777777 0            000000032134 


*032134 SETZ 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

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


*032135 HLLO 	0,034015
INITIAL
C(AC)=000000 000000 
C(E)=000000 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032135 032135 0   0   520000034015 0            000000777777 
IT1	032135 0      0   0   520000034015 0            000000777777 
AT3	032135 0      0   0   000000034015 0            520000034015 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 233
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0423

AT6	032135 034015 0   0   000000034015 0            520000034015 
FT0	032135 034015 0   0   000000777777 0            520000034015 
FT1A	032135 034015 0   0   000000777777 0            000000777777 
FT9	032136 034015 0   0   000000777777 0            000000777777 
ET0	032136 034015 0   0   000000777777 0            000000777777 
ST1	032136 034015 0   0   000000777777 0            000000777777 
ST2	032136 034015 0   0   000000777777 0            000000777777 
ST9	032136 034015 0   0   000000777777 0            000000777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032136 032136 0   0   302000777777 0            000000777777 
IT1	032136 0      0   0   302000777777 0            000000777777 
AT3	032136 0      0   0   000000777777 0            302000777777 
AT6	032136 777777 0   0   000000777777 0            302000777777 
FT1A	032136 777777 0   0   000000777777 0            000000777777 
FT2	032136 777777 0   0   0            0            000000777777 
FT2RQ	032136 777777 0   0   000000777777 0            000000777777 
FT3	032136 777777 0   0   000000777777 0            000000777777 
FT9	032137 777777 0   0   000000777777 0            000000777777 
ET0	032140 777777 0   0   0            0            000000777777 
ST1A	032140 777777 0   0   0            0            000000777777 
ST9	032140 777777 0   0   0            0            000000777777 


*032140 JUMPA	0,032141
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032140 032140 0   0   324000032141 0            000000032141 
IT1	032140 0      0   0   324000032141 0            000000032141 
AT3	032140 0      0   0   000000032141 0            324000032141 
AT6	032140 032141 0   0   000000032141 0            324000032141 
FT1A	032140 032141 0   0   000000032141 0            000000032141 
FT2	032140 032141 0   0   0            0            000000032141 
FT2RQ	032140 032141 0   0   000000777777 0            000000032141 
FT3	032140 032141 0   0   000000777777 0            000000032141 
FT9	032141 032141 0   0   000000777777 0            000000032141 
ET0	032141 032141 0   0   000000777777 0            000000032141 
ST1A	032141 032141 0   0   000000777777 0            000000032141 
ST9	032141 032141 0   0   000000777777 0            000000032141 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 234
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0424

*032141 SETO 	0,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032141 032141 0   0   474000000000 0            0            
IT1	032141 0      0   0   474000000000 0            0            
AT3	032141 0      0   0   0            0            474000000000 
AT6	032141 0      0   0   0            0            474000000000 
FT1A	032141 0      0   0   0            0            0            
FT9	032142 0      0   0   0            0            0            
ET0	032142 0      0   0   777777777777 0            0            
ST1	032142 0      0   0   777777777777 0            0            
ST2	032142 0      0   0   777777777777 0            0            
ST9	032142 0      0   0   777777777777 0            0            


*032142 HRRO 	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	032142 032142 0   0   560000000000 0            777777777777 
IT1	032142 0      0   0   560000000000 0            777777777777 
AT3	032142 0      0   0   0            0            560000000000 
AT6	032142 0      0   0   0            0            560000000000 
FT0	032142 0      0   0   777777777777 0            560000000000 
FT1A	032142 0      0   0   777777777777 0            777777777777 
FT9	032143 0      0   0   777777777777 0            777777777777 
ET0	032143 0      0   0   777777777777 0            777777777777 
ST1	032143 0      0   0   777777777777 0            777777777777 
ST2	032143 0      0   0   777777777777 0            777777777777 
ST9	032143 0      0   0   777777777777 0            777777777777 


*032143 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032143 032143 0   0   312000034012 0            777777777777 
IT1	032143 0      0   0   312000034012 0            777777777777 
AT3	032143 0      0   0   000000034012 0            312000034012 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 235
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0425

AT6	032143 034012 0   0   000000034012 0            312000034012 
FT0	032143 034012 0   0   777777777777 0            312000034012 
FT1A	032143 034012 0   0   777777777777 0            777777777777 
FT2	032143 034012 0   0   0            0            777777777777 
FT2RQ	032143 034012 0   0   777777777777 0            777777777777 
FT3	032143 034012 0   0   777777777777 0            777777777777 
FT9	032144 034012 0   0   777777777777 0            777777777777 
ET0	032145 034012 0   0   0            0            777777777777 
ST1A	032145 034012 0   0   0            0            777777777777 
ST9	032145 034012 0   0   0            0            777777777777 


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


*032146 SETZ 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 236
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0426


*032147 HRRO 	0,034013
INITIAL
C(AC)=000000 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032147 032147 0   0   560000034013 0            777777000000 
IT1	032147 0      0   0   560000034013 0            777777000000 
AT3	032147 0      0   0   000000034013 0            560000034013 
AT6	032147 034013 0   0   000000034013 0            560000034013 
FT0	032147 034013 0   0   777777000000 0            560000034013 
FT1A	032147 034013 0   0   777777000000 0            777777000000 
FT9	032150 034013 0   0   777777000000 0            777777000000 
ET0	032150 034013 0   0   777777000000 0            777777000000 
ST1	032150 034013 0   0   777777000000 0            777777000000 
ST2	032150 034013 0   0   777777000000 0            777777000000 
ST9	032150 034013 0   0   777777000000 0            777777000000 


*032150 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032150 032150 0   0   312000034013 0            777777000000 
IT1	032150 0      0   0   312000034013 0            777777000000 
AT3	032150 0      0   0   000000034013 0            312000034013 
AT6	032150 034013 0   0   000000034013 0            312000034013 
FT0	032150 034013 0   0   777777000000 0            312000034013 
FT1A	032150 034013 0   0   777777000000 0            777777000000 
FT2	032150 034013 0   0   0            0            777777000000 
FT2RQ	032150 034013 0   0   777777000000 0            777777000000 
FT3	032150 034013 0   0   777777000000 0            777777000000 
FT9	032151 034013 0   0   777777000000 0            777777000000 
ET0	032152 034013 0   0   0            0            777777000000 
ST1A	032152 034013 0   0   0            0            777777000000 
ST9	032152 034013 0   0   0            0            777777000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 237
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0427

*032152 JUMPA	0,032153
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032152 032152 0   0   324000032153 0            000000032153 
IT1	032152 0      0   0   324000032153 0            000000032153 
AT3	032152 0      0   0   000000032153 0            324000032153 
AT6	032152 032153 0   0   000000032153 0            324000032153 
FT1A	032152 032153 0   0   000000032153 0            000000032153 
FT2	032152 032153 0   0   0            0            000000032153 
FT2RQ	032152 032153 0   0   777777000000 0            000000032153 
FT3	032152 032153 0   0   777777000000 0            000000032153 
FT9	032153 032153 0   0   777777000000 0            000000032153 
ET0	032153 032153 0   0   777777000000 0            000000032153 
ST1A	032153 032153 0   0   777777000000 0            000000032153 
ST9	032153 032153 0   0   777777000000 0            000000032153 


*032153 SETZ 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032153 032153 0   0   400000000000 0            0            
IT1	032153 0      0   0   400000000000 0            0            
AT3	032153 0      0   0   0            0            400000000000 
AT6	032153 0      0   0   0            0            400000000000 
FT1A	032153 0      0   0   0            0            0            
FT9	032154 0      0   0   0            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 HLLO 	0,034014
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032154 032154 0   0   520000034014 0            0            
IT1	032154 0      0   0   520000034014 0            0            
AT3	032154 0      0   0   000000034014 0            520000034014 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 238
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0428

AT6	032154 034014 0   0   000000034014 0            520000034014 
FT0	032154 034014 0   0   0            0            520000034014 
FT1A	032154 034014 0   0   0            0            0            
FT9	032155 034014 0   0   0            0            0            
ET0	032155 034014 0   0   000000777777 0            0            
ST1	032155 034014 0   0   000000777777 0            0            
ST2	032155 034014 0   0   000000777777 0            0            
ST9	032155 034014 0   0   000000777777 0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032155 032155 0   0   302000777777 0            000000777777 
IT1	032155 0      0   0   302000777777 0            000000777777 
AT3	032155 0      0   0   000000777777 0            302000777777 
AT6	032155 777777 0   0   000000777777 0            302000777777 
FT1A	032155 777777 0   0   000000777777 0            000000777777 
FT2	032155 777777 0   0   0            0            000000777777 
FT2RQ	032155 777777 0   0   000000777777 0            000000777777 
FT3	032155 777777 0   0   000000777777 0            000000777777 
FT9	032156 777777 0   0   000000777777 0            000000777777 
ET0	032157 777777 0   0   0            0            000000777777 
ST1A	032157 777777 0   0   0            0            000000777777 
ST9	032157 777777 0   0   0            0            000000777777 


*032157 JUMPA	0,032160
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032157 032157 0   0   324000032160 0            000000032160 
IT1	032157 0      0   0   324000032160 0            000000032160 
AT3	032157 0      0   0   000000032160 0            324000032160 
AT6	032157 032160 0   0   000000032160 0            324000032160 
FT1A	032157 032160 0   0   000000032160 0            000000032160 
FT2	032157 032160 0   0   0            0            000000032160 
FT2RQ	032157 032160 0   0   000000777777 0            000000032160 
FT3	032157 032160 0   0   000000777777 0            000000032160 
FT9	032160 032160 0   0   000000777777 0            000000032160 
ET0	032160 032160 0   0   000000777777 0            000000032160 
ST1A	032160 032160 0   0   000000777777 0            000000032160 
ST9	032160 032160 0   0   000000777777 0            000000032160 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 239
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0429

*032160 SETZ 	0,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=000000 000000 

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


*032161 HRRO 	0,034014
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032161 032161 0   0   560000034014 0            0            
IT1	032161 0      0   0   560000034014 0            0            
AT3	032161 0      0   0   000000034014 0            560000034014 
AT6	032161 034014 0   0   000000034014 0            560000034014 
FT0	032161 034014 0   0   0            0            560000034014 
FT1A	032161 034014 0   0   0            0            0            
FT9	032162 034014 0   0   0            0            0            
ET0	032162 034014 0   0   777777000000 0            0            
ST1	032162 034014 0   0   777777000000 0            0            
ST2	032162 034014 0   0   777777000000 0            0            
ST9	032162 034014 0   0   777777000000 0            0            


*032162 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032162 032162 0   0   312000034013 0            777777000000 
IT1	032162 0      0   0   312000034013 0            777777000000 
AT3	032162 0      0   0   000000034013 0            312000034013 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 240
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0430

AT6	032162 034013 0   0   000000034013 0            312000034013 
FT0	032162 034013 0   0   777777000000 0            312000034013 
FT1A	032162 034013 0   0   777777000000 0            777777000000 
FT2	032162 034013 0   0   0            0            777777000000 
FT2RQ	032162 034013 0   0   777777000000 0            777777000000 
FT3	032162 034013 0   0   777777000000 0            777777000000 
FT9	032163 034013 0   0   777777000000 0            777777000000 
ET0	032164 034013 0   0   0            0            777777000000 
ST1A	032164 034013 0   0   0            0            777777000000 
ST9	032164 034013 0   0   0            0            777777000000 


*032164 JUMPA	0,032165
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032164 032164 0   0   324000032165 0            000000032165 
IT1	032164 0      0   0   324000032165 0            000000032165 
AT3	032164 0      0   0   000000032165 0            324000032165 
AT6	032164 032165 0   0   000000032165 0            324000032165 
FT1A	032164 032165 0   0   000000032165 0            000000032165 
FT2	032164 032165 0   0   0            0            000000032165 
FT2RQ	032164 032165 0   0   777777000000 0            000000032165 
FT3	032164 032165 0   0   777777000000 0            000000032165 
FT9	032165 032165 0   0   777777000000 0            000000032165 
ET0	032165 032165 0   0   777777000000 0            000000032165 
ST1A	032165 032165 0   0   777777000000 0            000000032165 
ST9	032165 032165 0   0   777777000000 0            000000032165 


*032165 SETZ 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=000000 000000 

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 241
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0431


*032166 HLLOI	0,000000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032166 032166 0   0   521000000000 0            0            
IT1	032166 0      0   0   521000000000 0            0            
AT3	032166 0      0   0   0            0            521000000000 
AT6	032166 0      0   0   0            0            521000000000 
FT1A	032166 0      0   0   0            0            0            
FT9	032167 0      0   0   0            0            0            
ET0	032167 0      0   0   000000777777 0            0            
ST1	032167 0      0   0   000000777777 0            0            
ST2	032167 0      0   0   000000777777 0            0            
ST9	032167 0      0   0   000000777777 0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032167 032167 0   0   302000777777 0            000000777777 
IT1	032167 0      0   0   302000777777 0            000000777777 
AT3	032167 0      0   0   000000777777 0            302000777777 
AT6	032167 777777 0   0   000000777777 0            302000777777 
FT1A	032167 777777 0   0   000000777777 0            000000777777 
FT2	032167 777777 0   0   0            0            000000777777 
FT2RQ	032167 777777 0   0   000000777777 0            000000777777 
FT3	032167 777777 0   0   000000777777 0            000000777777 
FT9	032170 777777 0   0   000000777777 0            000000777777 
ET0	032171 777777 0   0   0            0            000000777777 
ST1A	032171 777777 0   0   0            0            000000777777 
ST9	032171 777777 0   0   0            0            000000777777 


*032171 JUMPA	0,032172
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032171 032171 0   0   324000032172 0            000000032172 
IT1	032171 0      0   0   324000032172 0            000000032172 
AT3	032171 0      0   0   000000032172 0            324000032172 
AT6	032171 032172 0   0   000000032172 0            324000032172 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 242
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0432

FT1A	032171 032172 0   0   000000032172 0            000000032172 
FT2	032171 032172 0   0   0            0            000000032172 
FT2RQ	032171 032172 0   0   000000777777 0            000000032172 
FT3	032171 032172 0   0   000000777777 0            000000032172 
FT9	032172 032172 0   0   000000777777 0            000000032172 
ET0	032172 032172 0   0   000000777777 0            000000032172 
ST1A	032172 032172 0   0   000000777777 0            000000032172 
ST9	032172 032172 0   0   000000777777 0            000000032172 


*032172 SETZ 	0,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=000000 000000 

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


*032173 HRROI	0,000000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032173 032173 0   0   561000000000 0            0            
IT1	032173 0      0   0   561000000000 0            0            
AT3	032173 0      0   0   0            0            561000000000 
AT6	032173 0      0   0   0            0            561000000000 
FT1A	032173 0      0   0   0            0            0            
FT9	032174 0      0   0   0            0            0            
ET0	032174 0      0   0   777777000000 0            0            
ST1	032174 0      0   0   777777000000 0            0            
ST2	032174 0      0   0   777777000000 0            0            
ST9	032174 0      0   0   777777000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 243
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0433

*032174 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032174 032174 0   0   312000034013 0            777777000000 
IT1	032174 0      0   0   312000034013 0            777777000000 
AT3	032174 0      0   0   000000034013 0            312000034013 
AT6	032174 034013 0   0   000000034013 0            312000034013 
FT0	032174 034013 0   0   777777000000 0            312000034013 
FT1A	032174 034013 0   0   777777000000 0            777777000000 
FT2	032174 034013 0   0   0            0            777777000000 
FT2RQ	032174 034013 0   0   777777000000 0            777777000000 
FT3	032174 034013 0   0   777777000000 0            777777000000 
FT9	032175 034013 0   0   777777000000 0            777777000000 
ET0	032176 034013 0   0   0            0            777777000000 
ST1A	032176 034013 0   0   0            0            777777000000 
ST9	032176 034013 0   0   0            0            777777000000 


*032176 JUMPA	0,032177
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032176 032176 0   0   324000032177 0            000000032177 
IT1	032176 0      0   0   324000032177 0            000000032177 
AT3	032176 0      0   0   000000032177 0            324000032177 
AT6	032176 032177 0   0   000000032177 0            324000032177 
FT1A	032176 032177 0   0   000000032177 0            000000032177 
FT2	032176 032177 0   0   0            0            000000032177 
FT2RQ	032176 032177 0   0   777777000000 0            000000032177 
FT3	032176 032177 0   0   777777000000 0            000000032177 
FT9	032177 032177 0   0   777777000000 0            000000032177 
ET0	032177 032177 0   0   777777000000 0            000000032177 
ST1A	032177 032177 0   0   777777000000 0            000000032177 
ST9	032177 032177 0   0   777777000000 0            000000032177 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 244
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0434

*032177 SETZ 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=000000 000000 

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


*032200 HLLO 	0,034013
INITIAL
C(AC)=000000 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   520000034013 0            777777000000 
IT1	0      0      0   0   520000034013 0            777777000000 
AT3	0      0      0   0   000000034013 0            520000034013 
AT6	0      034013 0   0   000000034013 0            520000034013 
FT0	0      034013 0   0   777777000000 0            520000034013 
FT1A	0      034013 0   0   777777000000 0            777777000000 
FT9	032201 034013 0   0   777777000000 0            777777000000 
ET0	032201 034013 0   0   777777777777 0            777777000000 
ST1	032201 034013 0   0   777777777777 0            777777000000 
ST2	032201 034013 0   0   777777777777 0            777777000000 
ST9	032201 034013 0   0   777777777777 0            777777000000 


*032201 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032201 032201 0   0   312000034012 0            777777777777 
IT1	032201 0      0   0   312000034012 0            777777777777 
AT3	032201 0      0   0   000000034012 0            312000034012 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 245
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0435

AT6	032201 034012 0   0   000000034012 0            312000034012 
FT0	032201 034012 0   0   777777777777 0            312000034012 
FT1A	032201 034012 0   0   777777777777 0            777777777777 
FT2	032201 034012 0   0   0            0            777777777777 
FT2RQ	032201 034012 0   0   777777777777 0            777777777777 
FT3	032201 034012 0   0   777777777777 0            777777777777 
FT9	032202 034012 0   0   777777777777 0            777777777777 
ET0	032203 034012 0   0   0            0            777777777777 
ST1A	032203 034012 0   0   0            0            777777777777 
ST9	032203 034012 0   0   0            0            777777777777 


*032203 JUMPA	0,032204
INITIAL
C(AC)=777777 777777 
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 
FT1A	032203 032204 0   0   000000032204 0            000000032204 
FT2	032203 032204 0   0   0            0            000000032204 
FT2RQ	032203 032204 0   0   777777777777 0            000000032204 
FT3	032203 032204 0   0   777777777777 0            000000032204 
FT9	032204 032204 0   0   777777777777 0            000000032204 
ET0	032204 032204 0   0   777777777777 0            000000032204 
ST1A	032204 032204 0   0   777777777777 0            000000032204 
ST9	032204 032204 0   0   777777777777 0            000000032204 


*032204 SETZ 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	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            

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 246
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0436


*032205 HRROI	0,777777
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032205 032205 0   0   561000777777 0            000000777777 
IT1	032205 0      0   0   561000777777 0            000000777777 
AT3	032205 0      0   0   000000777777 0            561000777777 
AT6	032205 777777 0   0   000000777777 0            561000777777 
FT1A	032205 777777 0   0   000000777777 0            000000777777 
FT9	032206 777777 0   0   000000777777 0            000000777777 
ET0	032206 777777 0   0   777777777777 0            000000777777 
ST1	032206 777777 0   0   777777777777 0            000000777777 
ST2	032206 777777 0   0   777777777777 0            000000777777 
ST9	032206 777777 0   0   777777777777 0            000000777777 


*032206 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032206 032206 0   0   312000034012 0            777777777777 
IT1	032206 0      0   0   312000034012 0            777777777777 
AT3	032206 0      0   0   000000034012 0            312000034012 
AT6	032206 034012 0   0   000000034012 0            312000034012 
FT0	032206 034012 0   0   777777777777 0            312000034012 
FT1A	032206 034012 0   0   777777777777 0            777777777777 
FT2	032206 034012 0   0   0            0            777777777777 
FT2RQ	032206 034012 0   0   777777777777 0            777777777777 
FT3	032206 034012 0   0   777777777777 0            777777777777 
FT9	032207 034012 0   0   777777777777 0            777777777777 
ET0	032210 034012 0   0   0            0            777777777777 
ST1A	032210 034012 0   0   0            0            777777777777 
ST9	032210 034012 0   0   0            0            777777777777 


*032210 JUMPA	0,032211
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032210 032210 0   0   324000032211 0            000000032211 
IT1	032210 0      0   0   324000032211 0            000000032211 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 247
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0437

AT3	032210 0      0   0   000000032211 0            324000032211 
AT6	032210 032211 0   0   000000032211 0            324000032211 
FT1A	032210 032211 0   0   000000032211 0            000000032211 
FT2	032210 032211 0   0   0            0            000000032211 
FT2RQ	032210 032211 0   0   777777777777 0            000000032211 
FT3	032210 032211 0   0   777777777777 0            000000032211 
FT9	032211 032211 0   0   777777777777 0            000000032211 
ET0	032211 032211 0   0   777777777777 0            000000032211 
ST1A	032211 032211 0   0   777777777777 0            000000032211 
ST9	032211 032211 0   0   777777777777 0            000000032211 


*032211 SETO 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032211 032211 0   0   474000000000 0            0            
IT1	032211 0      0   0   474000000000 0            0            
AT3	032211 0      0   0   0            0            474000000000 
AT6	032211 0      0   0   0            0            474000000000 
FT1A	032211 0      0   0   0            0            0            
FT9	032212 0      0   0   0            0            0            
ET0	032212 0      0   0   777777777777 0            0            
ST1	032212 0      0   0   777777777777 0            0            
ST2	032212 0      0   0   777777777777 0            0            
ST9	032212 0      0   0   777777777777 0            0            


*032212 HLLOI	0,000000
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032212 032212 0   0   521000000000 0            0            
IT1	032212 0      0   0   521000000000 0            0            
AT3	032212 0      0   0   0            0            521000000000 
AT6	032212 0      0   0   0            0            521000000000 
FT1A	032212 0      0   0   0            0            0            
FT9	032213 0      0   0   0            0            0            
ET0	032213 0      0   0   000000777777 0            0            
ST1	032213 0      0   0   000000777777 0            0            
ST2	032213 0      0   0   000000777777 0            0            
ST9	032213 0      0   0   000000777777 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 248
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0438

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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032213 032213 0   0   302000777777 0            000000777777 
IT1	032213 0      0   0   302000777777 0            000000777777 
AT3	032213 0      0   0   000000777777 0            302000777777 
AT6	032213 777777 0   0   000000777777 0            302000777777 
FT1A	032213 777777 0   0   000000777777 0            000000777777 
FT2	032213 777777 0   0   0            0            000000777777 
FT2RQ	032213 777777 0   0   000000777777 0            000000777777 
FT3	032213 777777 0   0   000000777777 0            000000777777 
FT9	032214 777777 0   0   000000777777 0            000000777777 
ET0	032215 777777 0   0   0            0            000000777777 
ST1A	032215 777777 0   0   0            0            000000777777 
ST9	032215 777777 0   0   0            0            000000777777 


*032215 JUMPA	0,032216
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032215 032215 0   0   324000032216 0            000000032216 
IT1	032215 0      0   0   324000032216 0            000000032216 
AT3	032215 0      0   0   000000032216 0            324000032216 
AT6	032215 032216 0   0   000000032216 0            324000032216 
FT1A	032215 032216 0   0   000000032216 0            000000032216 
FT2	032215 032216 0   0   0            0            000000032216 
FT2RQ	032215 032216 0   0   000000777777 0            000000032216 
FT3	032215 032216 0   0   000000777777 0            000000032216 
FT9	032216 032216 0   0   000000777777 0            000000032216 
ET0	032216 032216 0   0   000000777777 0            000000032216 
ST1A	032216 032216 0   0   000000777777 0            000000032216 
ST9	032216 032216 0   0   000000777777 0            000000032216 


*032216 SETO 	0,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032216 032216 0   0   474000000000 0            0            
IT1	032216 0      0   0   474000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 249
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0439

AT3	032216 0      0   0   0            0            474000000000 
AT6	032216 0      0   0   0            0            474000000000 
FT1A	032216 0      0   0   0            0            0            
FT9	032217 0      0   0   0            0            0            
ET0	032217 0      0   0   777777777777 0            0            
ST1	032217 0      0   0   777777777777 0            0            
ST2	032217 0      0   0   777777777777 0            0            
ST9	032217 0      0   0   777777777777 0            0            


*032217 HRROI	0,000000
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032217 032217 0   0   561000000000 0            0            
IT1	032217 0      0   0   561000000000 0            0            
AT3	032217 0      0   0   0            0            561000000000 
AT6	032217 0      0   0   0            0            561000000000 
FT1A	032217 0      0   0   0            0            0            
FT9	032220 0      0   0   0            0            0            
ET0	032220 0      0   0   777777000000 0            0            
ST1	032220 0      0   0   777777000000 0            0            
ST2	032220 0      0   0   777777000000 0            0            
ST9	032220 0      0   0   777777000000 0            0            


*032220 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032220 032220 0   0   312000034013 0            777777000000 
IT1	032220 0      0   0   312000034013 0            777777000000 
AT3	032220 0      0   0   000000034013 0            312000034013 
AT6	032220 034013 0   0   000000034013 0            312000034013 
FT0	032220 034013 0   0   777777000000 0            312000034013 
FT1A	032220 034013 0   0   777777000000 0            777777000000 
FT2	032220 034013 0   0   0            0            777777000000 
FT2RQ	032220 034013 0   0   777777000000 0            777777000000 
FT3	032220 034013 0   0   777777000000 0            777777000000 
FT9	032221 034013 0   0   777777000000 0            777777000000 
ET0	032222 034013 0   0   0            0            777777000000 
ST1A	032222 034013 0   0   0            0            777777000000 
ST9	032222 034013 0   0   0            0            777777000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 250
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0440

*032222 JUMPA	0,032223
INITIAL
C(AC)=777777 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   777777000000 0            000000032223 
FT3	032222 032223 0   0   777777000000 0            000000032223 
FT9	032223 032223 0   0   777777000000 0            000000032223 
ET0	032223 032223 0   0   777777000000 0            000000032223 
ST1A	032223 032223 0   0   777777000000 0            000000032223 
ST9	032223 032223 0   0   777777000000 0            000000032223 


*032223 SETO 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032223 032223 0   0   474000000000 0            0            
IT1	032223 0      0   0   474000000000 0            0            
AT3	032223 0      0   0   0            0            474000000000 
AT6	032223 0      0   0   0            0            474000000000 
FT1A	032223 0      0   0   0            0            0            
FT9	032224 0      0   0   0            0            0            
ET0	032224 0      0   0   777777777777 0            0            
ST1	032224 0      0   0   777777777777 0            0            
ST2	032224 0      0   0   777777777777 0            0            
ST9	032224 0      0   0   777777777777 0            0            


*032224 HLLO 	0,034013
INITIAL
C(AC)=777777 777777 
C(E)=777777 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032224 032224 0   0   520000034013 0            777777000000 
IT1	032224 0      0   0   520000034013 0            777777000000 
AT3	032224 0      0   0   000000034013 0            520000034013 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 251
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0441

AT6	032224 034013 0   0   000000034013 0            520000034013 
FT0	032224 034013 0   0   777777000000 0            520000034013 
FT1A	032224 034013 0   0   777777000000 0            777777000000 
FT9	032225 034013 0   0   777777000000 0            777777000000 
ET0	032225 034013 0   0   777777777777 0            777777000000 
ST1	032225 034013 0   0   777777777777 0            777777000000 
ST2	032225 034013 0   0   777777777777 0            777777000000 
ST9	032225 034013 0   0   777777777777 0            777777000000 


*032225 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032225 032225 0   0   312000034012 0            777777777777 
IT1	032225 0      0   0   312000034012 0            777777777777 
AT3	032225 0      0   0   000000034012 0            312000034012 
AT6	032225 034012 0   0   000000034012 0            312000034012 
FT0	032225 034012 0   0   777777777777 0            312000034012 
FT1A	032225 034012 0   0   777777777777 0            777777777777 
FT2	032225 034012 0   0   0            0            777777777777 
FT2RQ	032225 034012 0   0   777777777777 0            777777777777 
FT3	032225 034012 0   0   777777777777 0            777777777777 
FT9	032226 034012 0   0   777777777777 0            777777777777 
ET0	032227 034012 0   0   0            0            777777777777 
ST1A	032227 034012 0   0   0            0            777777777777 
ST9	032227 034012 0   0   0            0            777777777777 


*032227 JUMPA	0,032230
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032227 032227 0   0   324000032230 0            000000032230 
IT1	032227 0      0   0   324000032230 0            000000032230 
AT3	032227 0      0   0   000000032230 0            324000032230 
AT6	032227 032230 0   0   000000032230 0            324000032230 
FT1A	032227 032230 0   0   000000032230 0            000000032230 
FT2	032227 032230 0   0   0            0            000000032230 
FT2RQ	032227 032230 0   0   777777777777 0            000000032230 
FT3	032227 032230 0   0   777777777777 0            000000032230 
FT9	032230 032230 0   0   777777777777 0            000000032230 
ET0	032230 032230 0   0   777777777777 0            000000032230 
ST1A	032230 032230 0   0   777777777777 0            000000032230 
ST9	032230 032230 0   0   777777777777 0            000000032230 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 252
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0442



*032230 SETO 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032230 032230 0   0   474000000000 0            0            
IT1	032230 0      0   0   474000000000 0            0            
AT3	032230 0      0   0   0            0            474000000000 
AT6	032230 0      0   0   0            0            474000000000 
FT1A	032230 0      0   0   0            0            0            
FT9	032231 0      0   0   0            0            0            
ET0	032231 0      0   0   777777777777 0            0            
ST1	032231 0      0   0   777777777777 0            0            
ST2	032231 0      0   0   777777777777 0            0            
ST9	032231 0      0   0   777777777777 0            0            


*032231 HRROI	0,777777
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032231 032231 0   0   561000777777 0            000000777777 
IT1	032231 0      0   0   561000777777 0            000000777777 
AT3	032231 0      0   0   000000777777 0            561000777777 
AT6	032231 777777 0   0   000000777777 0            561000777777 
FT1A	032231 777777 0   0   000000777777 0            000000777777 
FT9	032232 777777 0   0   000000777777 0            000000777777 
ET0	032232 777777 0   0   777777777777 0            000000777777 
ST1	032232 777777 0   0   777777777777 0            000000777777 
ST2	032232 777777 0   0   777777777777 0            000000777777 
ST9	032232 777777 0   0   777777777777 0            000000777777 


*032232 CAME	0,034012
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032232 032232 0   0   312000034012 0            777777777777 
IT1	032232 0      0   0   312000034012 0            777777777777 
AT3	032232 0      0   0   000000034012 0            312000034012 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 253
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0443

AT6	032232 034012 0   0   000000034012 0            312000034012 
FT0	032232 034012 0   0   777777777777 0            312000034012 
FT1A	032232 034012 0   0   777777777777 0            777777777777 
FT2	032232 034012 0   0   0            0            777777777777 
FT2RQ	032232 034012 0   0   777777777777 0            777777777777 
FT3	032232 034012 0   0   777777777777 0            777777777777 
FT9	032233 034012 0   0   777777777777 0            777777777777 
ET0	032234 034012 0   0   0            0            777777777777 
ST1A	032234 034012 0   0   0            0            777777777777 
ST9	032234 034012 0   0   0            0            777777777777 


*032234 JUMPA	0,032235
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032234 032234 0   0   324000032235 0            000000032235 
IT1	032234 0      0   0   324000032235 0            000000032235 
AT3	032234 0      0   0   000000032235 0            324000032235 
AT6	032234 032235 0   0   000000032235 0            324000032235 
FT1A	032234 032235 0   0   000000032235 0            000000032235 
FT2	032234 032235 0   0   0            0            000000032235 
FT2RQ	032234 032235 0   0   777777777777 0            000000032235 
FT3	032234 032235 0   0   777777777777 0            000000032235 
FT9	032235 032235 0   0   777777777777 0            000000032235 
ET0	032235 032235 0   0   777777777777 0            000000032235 
ST1A	032235 032235 0   0   777777777777 0            000000032235 
ST9	032235 032235 0   0   777777777777 0            000000032235 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032235 032235 0   0   201000777777 0            000000777777 
IT1	032235 0      0   0   201000777777 0            000000777777 
AT3	032235 0      0   0   000000777777 0            201000777777 
AT6	032235 777777 0   0   000000777777 0            201000777777 
FT1A	032235 777777 0   0   000000777777 0            000000777777 
FT9	032236 777777 0   0   000000777777 0            000000777777 
ET0	032236 777777 0   0   000000777777 0            000000777777 
ST1	032236 777777 0   0   000000777777 0            000000777777 
ST2	032236 777777 0   0   000000777777 0            000000777777 
ST9	032236 777777 0   0   000000777777 0            000000777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 254
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0444

*032236 HRROI	0,000000
INITIAL
C(AC)=000000 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032236 032236 0   0   561000000000 0            0            
IT1	032236 0      0   0   561000000000 0            0            
AT3	032236 0      0   0   0            0            561000000000 
AT6	032236 0      0   0   0            0            561000000000 
FT1A	032236 0      0   0   0            0            0            
FT9	032237 0      0   0   0            0            0            
ET0	032237 0      0   0   777777000000 0            0            
ST1	032237 0      0   0   777777000000 0            0            
ST2	032237 0      0   0   777777000000 0            0            
ST9	032237 0      0   0   777777000000 0            0            


*032237 CAME	0,034013
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032237 032237 0   0   312000034013 0            777777000000 
IT1	032237 0      0   0   312000034013 0            777777000000 
AT3	032237 0      0   0   000000034013 0            312000034013 
AT6	032237 034013 0   0   000000034013 0            312000034013 
FT0	032237 034013 0   0   777777000000 0            312000034013 
FT1A	032237 034013 0   0   777777000000 0            777777000000 
FT2	032237 034013 0   0   0            0            777777000000 
FT2RQ	032237 034013 0   0   777777000000 0            777777000000 
FT3	032237 034013 0   0   777777000000 0            777777000000 
FT9	032240 034013 0   0   777777000000 0            777777000000 
ET0	032241 034013 0   0   0            0            777777000000 
ST1A	032241 034013 0   0   0            0            777777000000 
ST9	032241 034013 0   0   0            0            777777000000 


*032241 JUMPA	0,032242
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032241 032241 0   0   324000032242 0            000000032242 
IT1	032241 0      0   0   324000032242 0            000000032242 
AT3	032241 0      0   0   000000032242 0            324000032242 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 255
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0445

AT6	032241 032242 0   0   000000032242 0            324000032242 
FT1A	032241 032242 0   0   000000032242 0            000000032242 
FT2	032241 032242 0   0   0            0            000000032242 
FT2RQ	032241 032242 0   0   777777000000 0            000000032242 
FT3	032241 032242 0   0   777777000000 0            000000032242 
FT9	032242 032242 0   0   777777000000 0            000000032242 
ET0	032242 032242 0   0   777777000000 0            000000032242 
ST1A	032242 032242 0   0   777777000000 0            000000032242 
ST9	032242 032242 0   0   777777000000 0            000000032242 


*032242 MOVSI	0,777777
INITIAL
C(AC)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032242 032242 0   0   205000777777 0            000000777777 
IT1	032242 0      0   0   205000777777 0            000000777777 
AT3	032242 0      0   0   000000777777 0            205000777777 
AT6	032242 777777 0   0   000000777777 0            205000777777 
FT1A	032242 777777 0   0   000000777777 0            000000777777 
FT9	032243 777777 0   0   000000777777 0            000000777777 
ET0	032243 777777 0   0   777777000000 0            000000777777 
ST1	032243 777777 0   0   777777000000 0            000000777777 
ST2	032243 777777 0   0   777777000000 0            000000777777 
ST9	032243 777777 0   0   777777000000 0            000000777777 


*032243 HLLO 	0,034015
INITIAL
C(AC)=777777 000000 
C(E)=000000 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032243 032243 0   0   520000034015 0            000000777777 
IT1	032243 0      0   0   520000034015 0            000000777777 
AT3	032243 0      0   0   000000034015 0            520000034015 
AT6	032243 034015 0   0   000000034015 0            520000034015 
FT0	032243 034015 0   0   000000777777 0            520000034015 
FT1A	032243 034015 0   0   000000777777 0            000000777777 
FT9	032244 034015 0   0   000000777777 0            000000777777 
ET0	032244 034015 0   0   000000777777 0            000000777777 
ST1	032244 034015 0   0   000000777777 0            000000777777 
ST2	032244 034015 0   0   000000777777 0            000000777777 
ST9	032244 034015 0   0   000000777777 0            000000777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 256
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0446

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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032244 032244 0   0   302000777777 0            000000777777 
IT1	032244 0      0   0   302000777777 0            000000777777 
AT3	032244 0      0   0   000000777777 0            302000777777 
AT6	032244 777777 0   0   000000777777 0            302000777777 
FT1A	032244 777777 0   0   000000777777 0            000000777777 
FT2	032244 777777 0   0   0            0            000000777777 
FT2RQ	032244 777777 0   0   000000777777 0            000000777777 
FT3	032244 777777 0   0   000000777777 0            000000777777 
FT9	032245 777777 0   0   000000777777 0            000000777777 
ET0	032246 777777 0   0   0            0            000000777777 
ST1A	032246 777777 0   0   0            0            000000777777 
ST9	032246 777777 0   0   0            0            000000777777 


*032246 JUMPA	0,032247
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032246 032246 0   0   324000032247 0            000000032247 
IT1	032246 0      0   0   324000032247 0            000000032247 
AT3	032246 0      0   0   000000032247 0            324000032247 
AT6	032246 032247 0   0   000000032247 0            324000032247 
FT1A	032246 032247 0   0   000000032247 0            000000032247 
FT2	032246 032247 0   0   0            0            000000032247 
FT2RQ	032246 032247 0   0   000000777777 0            000000032247 
FT3	032246 032247 0   0   000000777777 0            000000032247 
FT9	032247 032247 0   0   000000777777 0            000000032247 
ET0	032247 032247 0   0   000000777777 0            000000032247 
ST1A	032247 032247 0   0   000000777777 0            000000032247 
ST9	032247 032247 0   0   000000777777 0            000000032247 


*032247 SETZ 	0,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032247 032247 0   0   400000000000 0            0            
IT1	032247 0      0   0   400000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 257
DAKAC	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0447

AT3	032247 0      0   0   0            0            400000000000 
AT6	032247 0      0   0   0            0            400000000000 
FT1A	032247 0      0   0   0            0            0            
FT9	032250 0      0   0   0            0            0            
ET0	032250 0      0   0   0            0            0            
ST1	032250 0      0   0   0            0            0            
ST2	032250 0      0   0   0            0            0            
ST9	032250 0      0   0   0            0            0            


*032250 HRLZ 	0,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   514000000000 0            0            
IT1	032250 0      0   0   514000000000 0            0            
AT3	032250 0      0   0   0            0            514000000000 
AT6	032250 0      0   0   0            0            514000000000 
FT0	032250 0      0   0   0            0            514000000000 
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 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032251 032251 0   0   332000000000 0            0            
IT1	032251 0      0   0   332000000000 0