Google
 

Trailing-Edge - PDP-10 Archives - klad_sources - klad.sources/dakae.seq
There are no other files named dakae.seq in the archive.
;DAKAE
                                                                                                                           SEQ 0001






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

	PRODUCT CODE:		AH-6859C-DD

	DIAGNOSTIC CODE:	DAKAE

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

	VERSION:		0.3

	DATE RELEASED:		JANUARY 1979

	MAINTAINED BY:		DIAGNOSTIC ENGINEERING

	AUTHOR:			BILL SCORZELLI

		        COPYRIGHT (C) 1967, 1979

	        DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

	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 EXCEPT 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  DIGITAL  EQUIPMENT
	CORPORATION.

	THE INFORMATION IN THIS DOCUMENT IS SUBJECT  TO  CHANGE  WITHOUT
	NOTICE  AND  SHOULD  NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
	EQUIPMENT CORPORATION.

	DIGITAL EQUIPMENT CORPORATION ASSUMES NO  RESPONSIBILITY FOR THE
	USE  OR  RELIABILITY  OF  ITS SOFTWARE IN EQUIPMENT WHICH IS NOT
	SUPPLIED BY DIGITAL EQUIPMENT CORPORATION.
							MAINDEC-10-DAKAE.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-DAKAE.TXT
							PAGE 3                                                             SEQ 0003


1.0	ABSTRACT

	THIS PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC IS THE
	FIFTH IN A SERIES OF PDP-10 KA10 PROCESSOR DIAGNOSTICS.
	THE DIAGNOSTIC TESTS THE FWT, ADD/SUB, PC CHANGE
	AND COMPARE INSTRUCTIONS.

2.0	REQUIREMENTS

2.1	EQUIPMENT

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

	PAPER TAPE READER
	DECTAPE (OPTIONAL)
	CONSOLE TELETYPE

2.2	STORAGE

	THE PROGRAM RUNS WITHIN 32K OF MEMORY.

2.3	PRELIMINARY PROGRAMS

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

ORIGINAL VERSION:	0.1

ORIGINAL AUTHOR:	RICHARD MALISKA

ORIGINAL RELEASE:	16-MAR-72

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

PRODUCT CODE:		MAINDEC-10-DAKAE

PRODUCT NAME:		BASIC INSTRUCTION DIAGNOSTIC #5

DATE RELEASED:		JANUARY 1977

VERSION:		0.2

UPDATE AUTHOR:		JOHN R. KIRCHOFF

CHANGES MADE:

	1. UPGRADE TO ALLOW COMPATABILITY WITH THE SUBROUTINE PACKAGE.
************************************************************************

PRODUCT CODE:		MAINDEC-10-DAKAE

PRODUCT NAME:		BASIC INSTRUCTION DIAGNOSTIC #5

DATE RELEASED:		JANUARY 1979

VERSION:		0.3

UPDATE AUTHOR:		BILL SCORZELLI

CHANGES MADE:

	1. THE COMPARE INSTRUCTION TESTS DID NOT CHECK THE COMPARE OF 2
	NEGATIVE NUMBERS WITH THE CONTENTS OF THE (AC) BEING LARGER
	THAN THE CONTENTS OF (E). ADDED TEST C52205.

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

DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 1
DAKAET	MAC	21-Dec-78 14:28		*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, AUG 1,1977                                SEQ 0007

     1					;DAKAE
     2
     3
     4
     5			000003			DECVER==3
     6			000000			MCNVER==0
     7
     8						XLIST
     9						LIST
    10						LALL
    11						NAME	\MCNVER,\DECVER^
    12
    13					TITLE	DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3
    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,1978
    20					;DIGITAL EQUIPMENT CORPORATION
    21					;MARLBORO, MASS. 01752
    22
    23					;DICK MALISKA
    24					;JOHN R. KIRCHOFF
    25					;BILL SCORZELLI
    26
    27	000137					LOC	137
    28	000137	000000	000003			MCNVER,,DECVER
    29
    30						NOSYM
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 2
DAKAET	MAC	21-Dec-78 14:28		DIAGNOSTIC PARAMETERS                                                              SEQ 0008

    31					SUBTTL	DIAGNOSTIC PARAMETERS
    32
    33					;PARAMETER DEFINITIONS
    34			000001		EXCASB==1
    35			000001		USRASB==1
    36			000001		PGMEND==1
    37			000100		DEBUG==100
    38
    39					;FLAG DEFINITIONS
    40			010000		USERF=10000		;USER MODE FLAG
    41
    42
    43					;MACROS
    44
    45					;SPECIAL FEATURE PARAMETERS
    46
    47			030674		SADR1=START
    48			030674		SADR2=START
    49			030674		SADR3=START
    50			030674		SADR4=START
    51		254000	030674		SADR5=JRST START
    52		254000	030674		SADR6=JRST START
    53		254000	030674		SADR7=JRST START
    54		254000	030674		SADR8=JRST START
    55		254000	030674		SADR9=JRST START
    56		254000	030674		SADR10=JRST START
    57		254000	030674		SADR11=JRST START
    58
    59			000000		PAREA0=0
    60			000000		PAREA1=0
    61			000000		PAREA2=0
    62		444153	414500		PAREA3=SIXBIT/DAKAE/
    63		645560	000000		PAREA4=SIXBIT/TMP/
    64			000000		PAREA5=0
    65			000000		PAREA6=0
    66			001000		ITERAT==1000
    67			000001		PGMEND==1
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 3
DAKAET	MAC	21-Dec-78 14:28		DIAGNOSTIC PARAMETERS                                                              SEQ 0009

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

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

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

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

   213					;*TERMINAL OUTPUT UUO'S.
   214
   215		037000	000000		OPDEF	PNTA	[37B8!0B12!0]	;PRINT ASCII WORD
   216		037000	000001		OPDEF	PNTAF	[37B8!0B12!1]	;PRINT ASCII WORD FORCED
   217		037740	000000		OPDEF	PNTAL	[37B8!17B12!0]	;PRINT ASCIZ LINE
   218		037740	000001		OPDEF	PNTALF	[37B8!17B12!1]	;PRINT ASCIZ LINE FORCED
   219		037600	000003		OPDEF	PSIXL	[37B8!14B12!3]	;PRINT SIXBIT'Z LINE
   220		037640	000003		OPDEF	PSIXLF	[37B8!15B12!3]	;PRINT SIXBIT'Z LINE FORCED
   221		037000	000000		OPDEF	PNTMSG	[37B8!0B12!0]	;PRINT MESSAGE IMMEDIATE
   222		037040	000000		OPDEF	PNTMSF	[37B8!1B12!0]	;PRINT MESSAGE IMMEDIATE FORCED
   223		037100	000000		OPDEF	PSIXM	[37B8!2B12!0]	;PRINT SIXBIT'Z MSG IMMEDIATE
   224		037200	000000		OPDEF	PSIXMF	[37B8!4B12!0]	;PRINT SIXBIT'Z MSG IMM FORCED
   225		037000	000000		OPDEF	PNTCI	[37B8!0B12!0]	;PRINT CHARACTER IMMEDIATE
   226		037040	000000		OPDEF	PNTCIF	[37B8!1B12!0]	;PRINT CHARACTER IMMEDIATE FORCED
   227		037500	000000		OPDEF	PNTCHR	[37B8!12B12!0]	;PRINT CHARACTER
   228		037500	000001		OPDEF	PNTCHF	[37B8!12B12!1]	;PRINT CHARACTER FORCED
   229		037040	000000		OPDEF	PNT1	[37B8!1B12!0]	;PRINT ONE OCTAL DIGIT
   230		037040	000001		OPDEF	PNT1F	[37B8!1B12!1]	;PRINT 1 OCTAL DIGIT FORCED	
   231		037100	000000		OPDEF	PNT2	[37B8!2B12!0]	;PRINT TWO OCTAL DIGITS
   232		037100	000001		OPDEF	PNT2F	[37B8!2B12!1]	;PRINT 2 OCTAL DIGITS FORCED	
   233		037140	000000		OPDEF	PNT3	[37B8!3B12!0]	;PRINT THREE OCTAL DIGITS
   234		037140	000001		OPDEF	PNT3F	[37B8!3B12!1]	;PRINT THREE OCTAL DIGITS FORCED	
   235		037200	000000		OPDEF	PNT4	[37B8!4B12!0]	;PRINT FOUR OCTAL DIGITS
   236		037200	000001		OPDEF	PNT4F	[37B8!4B12!1]	;PRINT FOUR OCTAL DIGITS FORCED
   237		037240	000000		OPDEF	PNT5	[37B8!5B12!0]	;PRINT FIVE OCTAL DIGITS
   238		037240	000001		OPDEF	PNT5F	[37B8!5B12!1]	;PRINT FIVE OCTAL DIGITS FORCED
   239		037300	000000		OPDEF	PNT6	[37B8!6B12!0]	;PRINT SIX OCTAL DIGITS
   240		037300	000001		OPDEF	PNT6F	[37B8!6B12!1]	;PRINT SIX OCTAL DIGITS FORCED
   241		037340	000000		OPDEF	PNT7	[37B8!7B12!0]	;PRINT 7 OCTAL DIGITS
   242		037340	000001		OPDEF	PNT7F	[37B8!7B12!1]	;PRINT 7 OCTAL DIGITS FORCED
   243		037440	000000		OPDEF	PNT11	[37B8!11B12!0]	;PRINT 11 OCTAL DIGITS
   244		037440	000001		OPDEF	PNT11F	[37B8!11B12!1]	;PRINT 11 OCTAL DIGITS FORCED.
   245		037400	000000		OPDEF	PNTADR	[37B8!10B12!0]	;PRINT PHYSICAL ADDRESS
   246		037400	000001		OPDEF	PNTADF	[37B8!10B12!1]	;PRINT PHYSICAL ADDRESS FORCED
   247		037600	000000		OPDEF	PNTOCT  [37B8!14B12!0]	;PRINT FULL WORD OCTAL
   248		037600	000001		OPDEF	PNTOTF	[37B8!14B12!1]	;PRINT FULL WORD OCTAL FORCED
   249		037540	000000		OPDEF	PNTHW	[37B8!13B12!0]	;PRINT OCTAL HALF WORDS, 6 SP 6
   250		037540	000001		OPDEF	PNTHWF	[37B8!13B12!1]	;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
   251		037700	000003		OPDEF	PNTOCS	[37B8!16B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S
   252		037740	000003		OPDEF	PNTOCF	[37B8!17B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
   253		037640	000000		OPDEF	PNTDEC	[37B8!15B12!0]	;PRINT DECIMAL, SUPRESS LEADING 0'S
   254		037640	000001		OPDEF	PNTDCF	[37B8!15B12!1]	;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
   255		037700	000000		OPDEF	PNTDS	[37B8!16B12!0]	;PRINT DECIMAL, SPACES FOR LD 0'S
   256		037700	000001		OPDEF	PNTDSF	[37B8!16B12!1]	;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 5
PARAM	KLM	 1-Aug-77 08:33		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976                                 SEQ 0014

   257		037200	000002		OPDEF	PNTNM	[37B8!4B12!2]	;PRINT PROGRAM NAME
   258		037000	000002		OPDEF	PNTSIX	[37B8!0B12!2]	;PRINT SIXBIT WORD
   259		037040	000002		OPDEF	PNTSXF	[37B8!1B12!2]	;PRINT SIXBIT WORD FORCED
   260		037240	000002		OPDEF	DROPDV	[37B8!5B12!2]	;CLOSE LOGICAL FILE, USER MODE
   261		037100	000002		OPDEF	PNTCW	[37B8!2B12!2]	;PRINT DF10 CONTROL WORD
   262		037140	000002		OPDEF	PNTCWF	[37B8!3B12!2]	;PRINT DF10 CONTROL WORD FORCED
   263		037000	030242		OPDEF	PCRL	[37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
   264		037040	030242		OPDEF	PCRLF	[37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
   265		037000	000040		OPDEF	PSP	[37B8!0B12!40]	;PRINT SPACE
   266		037040	000040		OPDEF	PSPF	[37B8!1B12!40]	;PRINT SPACE FORCED
   267		037000	030243		OPDEF	PCRL2	[37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
   268		037040	030243		OPDEF	PCRL2F	[37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
   269		037040	000007		OPDEF	PBELL	[37B8!1B12!7]	;PRINT TTY BELL
   270
   271		037040	000026		OPDEF	PFORCE	[37B8!1B12!26]	;PRINT FORCE, CONTROL O OVERRIDE
   272
   273					DEFINE	PMSG	(ARG),<
   274						PSIXM	[SIXBIT\ARG'_\]>
   275
   276					DEFINE	PMSGF	(ARG),<
   277						PSIXMF	[SIXBIT\ARG'_\]>
   278
   279					;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
   280					;*	CONSERVES CORE OVER ASCIZ
   281
   282					DEFINE	SIXBTZ	(ARG),<	[SIXBIT\ARG'_\]>
   283
   284					;*CONSOLE SWITCH INPUT UUO.
   285					;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
   286					;* USER MODE.
   287
   288		037400	000002		OPDEF	SWITCH	[37B8!10B12!2]	;INPUT CONSOLE SWITCHES
   289
   290					;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
   291					;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
   292
   293		037540	000004		OPDEF	CLOKOP	[37B8!13B12!4]	;CLOCK OPERATION UUO - PDP-11 CLOCK
   294		037200	000004		OPDEF	MTROP	[37B8!4B12!4]	;CLOCK OPERATION UUO - DK20 METER
   295
   296					;*KL10 ONLY CACHE OPERATION UUO'S
   297
   298		037040	000004		OPDEF	CINVAL	[37B8!1B12!4]	;CACHE INVALIDATE
   299		037100	000004		OPDEF	CFLUSH	[37B8!2B12!4]	;CACHE FLUSH
   300		037140	000004		OPDEF	CWRTBI	[37B8!3B12!4]	;CACHE WRITE-BACK & INVALIDATE
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 6
PARAM	KLM	 1-Aug-77 08:33		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976                                 SEQ 0015

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

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

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

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

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

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

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

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

   657					S^;*********************************************************************^
   658					;*USER MODE MONITOR TYPE FLAG
   659					S^;*********************************************************************^
   660
   661	030516	000000	000000		MONTYP:	0	;0 = TOPS10, -1 = TOPS20
   662
   663					S^;*********************************************************************^
   664					;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
   665					S^;*********************************************************************^
   666
   667	030517	000000	000000		$$MUUO:	0	;IF NON-ZERO, XCT'D AT START OF MUUOER
   668
   669					S^;*********************************************************************^
   670					;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
   671					S^;*********************************************************************^
   672
   673	030520	000000	000000		$$OUTER:0	;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
   674
   675					S^;*********************************************************************^
   676					;*"SWITCH" CALL USAGE CONTROL
   677					S^;*********************************************************************^
   678
   679	030521	000000	000000		$$TOGGLE:0	;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
   680
   681					S^;*********************************************************************^
   682					;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
   683					S^;*********************************************************************^
   684
   685	030522	000000	000000		$$TAX1:	0	;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
   686	030523	000000	000000		$$TAX2:	0	;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
   687
   688					S^;*********************************************************************^
   689					;*SM10 (KS-10) PROCESSOR TYPE FLAG
   690					S^;*********************************************************************^
   691
   692	030524	000000	000000		SM10:	0	;IF -1 THIS IS A KS-10
   693
   694					S^;*********************************************************************^
   695					;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
   696					S^;*********************************************************************^
   697
   698	030525	000000	000000		SWPTAB:	0	;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
   699
   700					S^;*********************************************************************^
   701					;*SPECIAL FUTURE EXPANSION ROOM
   702					S^;*********************************************************************^
   703
   704					S^;*********************************************************************^
   705					;*END OF FIXED STORAGE
   706					S^;*********************************************************************^
   707
   708	030577					LOC	30577
   709	030577	000000	000000		ENDFIX:	0		;END OF FIXED STORAGE
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 1
SPCCPU	KLM	24-Oct-78 08:57		*SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76                            SEQ 0024

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

   748					;SPECIAL "FIXED" REASSIGNMENTS
   749
   750			030600			$$LOC=.			;SAVE CURRENT LOCATION
   751
   752	030000					LOC	30000
   753	030000	254 00 0 00 030600 	$$BEGIN:JRST	$$START		;SETUP SPECIAL START
   754	030001	254 00 0 00 030600 		JRST	$$START		;"DIAMON" CHAIN START ADDRESS
   755
   756	000440					LOC	440
   757	000440	254 00 0 00 030000 	$STD:	JRST	BEGIN		;SETUP FOR "STD"
   758	000443					LOC	443
   759	000443	254 00 0 00 030626 	$STM:	JRST	$SPEC		;SIMPLE RUN CONTROL
   760
   761	030057					LOC	30057
   762	030057	254 00 0 00 030631 	$BEGEND:JRST	$SPBEND		;SETUP SPECIAL "BEGEND"
   763
   764					;SPECIAL MUUO, TRAP & PAGE FAIL SETUP
   765
   766	000420					LOC	420
   767	000420	254 04 0 00 000420 	$$420:	HALT	.		;KI10 PAGE FAIL
   768	000421	255 00 0 00 000000 	$$421:	JFCL			;OVERFLOW
   769	000422	254 04 0 00 000422 	$$422:	HALT	.		;PUSHDOWN OVERFLOW
   770	000423	254 04 0 00 000423 	$$423:	HALT	.		;TRAP 3
   771	000424	000000	000000		$$424:	0			;MMUO
   772	000425	000000	000000		$$425:	0			;MMUO PC
   773	000426	000000	000000		$$426:	0			;KI10-PAGE FAIL, KL10-PROCESS CONTEXT
   774	000427	254 04 0 00 000427 	$$427:	HALT	.
   775	000430	000000	000427		$$430:	427			;MMUO NEW PC'S
   776	000431	000000	000427		$$431:	427
   777	000432	000000	000427		$$432:	427
   778	000433	000000	000427		$$433:	427
   779	000434	000000	000427		$$434:	427
   780	000435	000000	000427		$$435:	427
   781	000436	000000	000427		$$436:	427
   782	000437	000000	000427		$$437:	427
   783
   784	000500					LOC	500
   785	000500	000000	000000		$$500:	0			;KL10 PAGE FAIL WORD
   786	000501	000000	000000		$$501:	0			;KL10 PAGE FAIL PC
   787	000502	000000	000503		$$502:	503			;KL10 PAGE FAIL NEW PC
   788	000503	254 04 0 00 000503 	$$503:	HALT	.
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 3
SPCCPU	KLM	24-Oct-78 08:57		*SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76                            SEQ 0026

   789	030600					LOC	$$LOC		;RESET CURRENT LOCATION
   790
   791					;SPECIAL STARTUP SEQUENCE
   792
   793	030600	402 00 0 00 030037 	$$START:SETZM	USER
   794	030601	265 00 0 00 030602 		JSP	0,.+1		;IN USER MODE ?
   795	030602	603 00 0 00 010000 		TLNE	0,USERF
   796	030603	476 00 0 00 030037 		SETOM	USER		;YES, SET CONTROL WORD
   797	030604	336 00 0 00 030042 		SKIPN	MONFLG		;SPECIAL USER MODE ?
   798	030605	402 00 0 00 030037 		SETZM	USER		;YES, RUN AS EXEC
   799	030606	332 00 0 00 030037 		SKIPE	USER
   800	030607	254 00 0 00 030674 		JRST	START		;USER MODE, DON'T NEED CPU TYPE
   801
   802	030610	336 00 0 00 030044 	$STKIL:	SKIPN	MONTEN		;LOADED BY "DIAMON" ?
   803	030611	476 00 0 00 030024 		SETOM	ITRCNT		;NO, RUN FOREVER
   804	030612	402 00 0 00 030041 		SETZM	KLFLG		;ASSUME KI10
   805	030613	200 01 0 00 033460 		MOVE	1,[1,,1]
   806	030614	251 01 0 00 000001 		BLT	1,1		;HOPE THIS WORKS
   807	030615	316 01 0 00 033460 		CAMN	1,[1,,1]	;IF AC NE 1,,1 AFTER BLT, KL10
   808	030616	254 00 0 00 030674 		JRST	START		;KI10, NO ADDITIONAL SETUP
   809
   810	030617	402 00 0 00 000444 	$STKL:	SETZM	$DTFLG
   811	030620	402 00 0 00 000445 		SETZM	$DTCLK
   812	030621	200 00 0 00 000453 		MOVE	$DTOPR		;GET DTE #
   813	030622	436 00 0 00 030657 		ORM	$$DTE0		;INSERT IN DTE I/O INSTS
   814	030623	436 00 0 00 030670 		ORM	$$DTE2
   815	030624	476 00 0 00 030041 		SETOM	KLFLG		;SET KL10 CONTROL FLAG
   816	030625	254 00 0 00 030674 		JRST	START
   817
   818	030626	200 00 0 00 033461 	$SPEC:	MOVE	[JRST STARTA]	;SIMPLE RUN CONTROL
   819	030627	202 00 0 00 030633 		MOVEM	$SPB1
   820	030630	254 00 0 00 030674 		JRST	START
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 4
SPCCPU	KLM	24-Oct-78 08:57		*SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76                            SEQ 0027

   821					;SPECIAL "BEGEND" ROUTINE
   822
   823	030631	350 00 0 00 030047 	$SPBEND:AOS	PASCNT		;INCREMENT PASS COUNT
   824	030632	370 00 0 00 030024 		SOS	ITRCNT		;DECREMENT ITERATION COUNT
   825	030633	336 00 0 00 030037 	$SPB1:	SKIPN	USER
   826	030634	254 00 0 00 030642 		JRST	$SPBEX		;EXEC MODE
   827
   828	030635	332 00 0 00 030024 	$SPBUS:	SKIPE	ITRCNT		;USER MODE, COMPLETED ?
   829	030636	254 00 0 00 030723 		JRST	STARTA		;NO, KEEP RUNNING
   830	030637	336 00 0 00 030044 		SKIPN	MONTEN		;DONE, LOADED BY "DIAMON" ?
   831	030640	047 00 0 00 000012 		EXIT			;NO, RETURN TO MONITOR
   832	030641	254 00 1 00 030012 		JRST	@RETURN		;YES, RETURN TO "DIAMON"
   833
   834	030642	332 00 0 00 030041 	$SPBEX:	SKIPE	KLFLG
   835	030643	254 00 0 00 030650 		JRST	$SPBKL		;KL10 & EXEC
   836	030644	7 004 14 0 00 030024 		DATAO	PI,ITRCNT	;KI10 & EXEC, DISPLAY ITER COUNT
   837	030645	332 00 0 00 030024 		SKIPE	ITRCNT
   838	030646	254 00 0 00 030723 		JRST	STARTA		;NOT COMPLETED YET
   839	030647	254 00 1 00 030012 		JRST	@RETURN		;DONE
   840
   841	030650	336 00 0 00 030024 	$SPBKL:	SKIPN	ITRCNT
   842	030651	254 00 0 00 030663 		JRST	$SPKLD		;KL10, EXEC & COMPLETED
   843
   844	030652	335 00 0 00 030043 		SKIPGE	MONCTL
   845	030653	254 00 0 00 030723 		JRST	STARTA		;"DIAMON" CONTROL
   846	030654	201 00 0 00 000404 		MOVEI	0,404		;NOTIFY PDP-11 OF END OF PASS
   847	030655	202 00 0 00 000451 		MOVEM	0,$DTCMD
   848	030656	402 00 0 00 000444 		SETZM	$DTFLG
   849	030657	7 200 20 0 00 020000 	$$DTE0:	CONO	DTE,DONG11
   850	030660	336 00 0 00 000444 		SKIPN	$DTFLG		;WAIT TILL 11 RESPONDS
   851	030661	254 00 0 00 030660 		JRST	.-1
   852	030662	254 00 0 00 030723 		JRST	STARTA		;KEEP RUNNING
   853
   854					;SPECIAL KL10 COMPLETED ROUTINE
   855
   856	030663	332 00 0 00 030044 	$SPKLD:	SKIPE	MONTEN
   857	030664	254 00 1 00 030012 		JRST	@RETURN		;LOADED BY "DIAMON"
   858
   859	030665	201 00 0 00 000403 		MOVEI	0,403		;NOTIFY PDP-11 OF COMPLETION
   860	030666	202 00 0 00 000451 		MOVEM	0,$DTCMD
   861	030667	402 00 0 00 000444 		SETZM	$DTFLG
   862	030670	7 200 20 0 00 020000 	$$DTE2:	CONO	DTE,DONG11
   863	030671	336 00 0 00 000444 		SKIPN	$DTFLG		;SHOULD NEVER HAPPEN
   864	030672	254 00 0 00 030671 		JRST	.-1		;11 NEVER RETURNS ON END OF PROGRAM
   865	030673	254 04 0 00 030000 		HALT	BEGIN		;IF IT DOES, HALT.
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 1
DAKAEM	MAC	28-Dec-78 13:35		DIAGNOSTIC SECTION                                                                 SEQ 0028

   866					SUBTTL	DIAGNOSTIC SECTION
   867
   868	030674	402 00 0 00 030037 	START:	SETZM	USER#		;CLEAR USER CONTROL WORD
   869	030675	265 00 0 00 030676 		JSP	0,.+1		;GET FLAGS
   870	030676	603 00 0 00 010000 		TLNE	USERF		;IN USER MODE?
   871	030677	476 00 0 00 030037 		SETOM	USER		;YES, SET USER CONTROL WORD
   872	030700	336 00 0 00 030042 		SKIPN	MONFLG		;SPECIAL USER MODE?
   873	030701	402 00 0 00 030037 		SETZM	USER		;YES, CLEAR USER CONTROL WORD
   874	030702	336 00 0 00 030037 		SKIPN	USER
   875	030703	254 00 0 00 030723 		JRST	STARTA
   876	030704	331 00 0 00 030043 		SKIPL	MONCTL
   877	030705	051 03 0 00 030707 		TTCALL	3,PGMNAM	;MENTION OUR NAME
   878	030706	254 00 0 00 030723 		JRST	STARTA
   879
   880	030707				PGMNAM:	ASCIZ/
   881	030707	015 012 120 104 120 	PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) [DAKAE]
   882	030710	055 061 060 040 113 
   883	030711	101 061 060 040 102 
   884	030712	101 123 111 103 040 
   885	030713	111 116 123 124 122 
   886	030714	125 103 124 111 117 
   887	030715	116 040 104 111 101 
   888	030716	107 116 117 123 124 
   889	030717	111 103 040 050 065 
   890	030720	051 040 133 104 101 
   891	030721	113 101 105 135 015 
   892	030722	012 000 000 000 000 	/
   893
   894
   895					;THE TEST IS DESIGNED FOR INITIAL DEBUGGING OF
   896					;PROCESSOR HARDWARE AND TO DETECT (SOLID) FAILURES
   897					;IN THE FIELD.
   898
   899	030723	254 00 0 00 030724 	STARTA:	JRST	.+1
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 2
DAKAEM	MAC	28-Dec-78 13:35		TEST OF JSR INSTRUCTION                                                            SEQ 0029

   900					SUBTTL	TEST OF JSR INSTRUCTION
   901
   902					;**********
   903
   904					;THIS TEST VERIFIES THAT JSR STORES THE FLAGS AND PC IN LOCATION E.
   905					;IN THIS CASE, E IS CLEARED, CRY0 IS SET AND JSR IS EXECUTED.
   906					;NEXT, E IS CHECKED FOR ITS CONTENTS NON-ZERO.  IF C(E) IS NON-ZERO,
   907					;THIS TEST PASSES.
   908
   909	030724				C23000:	SFLAG	CRY0		^;SET CRY0 FLAG
   910
   911	030724	205 01 0 00 200000 		MOVSI	1,CRY0
   912	030725	255 17 0 00 030726 		JFCL	17,.+1		;RESET ALL FLAGS
   913	030726	254 02 0 01 030727 		JRST	2,.+1(1)	;SET CRY0 FLAG
   914	030727	402 00 0 00 030731 		SETZM	.+2		;PRELOAD E WITH 0
   915	030730	264 00 0 00 030731 		JSR	.+1		;*JSR SHOULD PLACE FLAGS AND PC INTO AC
   916	030731	000000	000000			0			;E: PRESET TO 0, SHOULD RECEIVE FLAGS AND PC FROM JSR
   917	030732	336 00 0 00 030731 		SKIPN	.-1		;PASS IF C(E) IS NON-ZERO.
   918						STOP^
   919	030733	254 04 0 00 030734 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   920	030734	324 00 0 00 030735 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   921									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
   922									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
   923									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
   924
   925					;**********
   926
   927					;THIS TEST VERIFIES THAT JSR IGNORES THE AC FIELD;
   928					;HENCE, IT DOES NOT MODIFY THE SPECIFIED AC.
   929					;IN THIS CASE, CRY0 IS SET.  THE AC IS PRELOADED WITH -1,,-1 AND JSR IS EXECUTED.
   930					;THE AC IS THEN CHECKED.  IF C(AC)=-1,,-1, THIS TEST PASSES.
   931
   932	030735				C23100:	SFLAG	CRY0		^;SET CRY0
   933
   934	030735	205 01 0 00 200000 		MOVSI	1,CRY0
   935	030736	255 17 0 00 030737 		JFCL	17,.+1		;RESET ALL FLAGS
   936	030737	254 02 0 01 030740 		JRST	2,.+1(1)	;SET CRY0 FLAG
   937	030740	474 01 0 00 000000 		SETO	1,		;PRELOAD AC WITH -1,,-1
   938	030741	264 01 0 00 030742 		JSR	1,.+1		;*JSR SHOULD NOT MODIFY THE AC
   939	030742	000000	000000			0			;STORE PC + FLAGS HERE
   940	030743	312 01 0 00 033462 		CAME	1,[-1]		;PASS IF C(AC)=-1,,-1
   941						STOP^
   942	030744	254 04 0 00 030745 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   943	030745	324 00 0 00 030746 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   944									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
   945									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
   946									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
   947
   948					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 3
DAKAEM	MAC	28-Dec-78 13:35		TEST OF JSR INSTRUCTION                                                            SEQ 0030

   949					;THIS TEST VERIFIES THAT JSR STORES THE FLAGS IN E-LEFT HALF.
   950					;IN THIS TEST, CRY0 IS SET, E IS CLEARED AND JSR IS EXECUTED.
   951					;NEXT, C(E-LEFT) ARE PLACED INTO AC0 AND AC0 IS CHECKED FOR ITS CONTENTS NON-ZERO.
   952					;IF C(AC0) ARE NON-ZERO, THIS TEST PASSES.
   953
   954	030746				C23200:	SFLAG	CRY0		^;SET CRY0
   955
   956	030746	205 01 0 00 200000 		MOVSI	1,CRY0
   957	030747	255 17 0 00 030750 		JFCL	17,.+1		;RESET ALL FLAGS
   958	030750	254 02 0 01 030751 		JRST	2,.+1(1)	;SET CRY0 FLAG
   959	030751	402 00 0 00 030753 		SETZM	.+2		;CLEAR E
   960	030752	264 00 0 00 030753 		JSR	.+1		;*JSR SHOULD STORE FLAGS IN E
   961	030753	000000	000000			0			;STORE FLAGS HERE (CRY0 MAKES THIS A MOVE INST)
   962	030754	510 00 0 00 030753 		HLLZ	.-1		;PUT FLAGS INTO AC0
   963	030755	336 00 0 00 000000 		SKIPN			;PASS IF C(AC0) NON-ZERO
   964						STOP^
   965	030756	254 04 0 00 030757 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   966	030757	324 00 0 00 030760 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   967									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
   968									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
   969									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
   970
   971					;**********
   972
   973					;THIS TEST VERIFIES THAT JSR TRANSFERS CONTROL TO E+1.
   974					;IN THIS CASE, CRY0 IS SET AND E  AND AC0 CLEARED; THEN, JSR IS EXECUTED.
   975					;IF JSR RESUMES CONTROL AT E INSTEAD OF E+1, AC0 WILL BE MODIFIED;
   976					;HENCE, THE TEST WILL FAIL WHEN AC0 IS CHECKED FOR 0 BECAUSE
   977					;C(E) IS DECODED AS A MOVE INSTRUCTION.
   978
   979	030760				C23300:	SFLAG	CRY0		^;SET CRY0
   980
   981	030760	205 01 0 00 200000 		MOVSI	1,CRY0
   982	030761	255 17 0 00 030762 		JFCL	17,.+1		;RESET ALL FLAGS
   983	030762	254 02 0 01 030763 		JRST	2,.+1(1)	;SET CRY0 FLAG
   984	030763	403 00 0 00 030765 		SETZB	.+2		;CLEAR AC0 AND E
   985	030764	264 00 0 00 030765 		JSR	.+1		;*JSR SHOULD RESUME CONTROL AT E+1
   986	030765	000000	000000			0			;STORE FLAGS HERE (CRY0 MAKES THIS A MOVE INST)
   987	030766	332 00 0 00 000000 		SKIPE	0		;PASS IF C(AC0)=0
   988						STOP^
   989	030767	254 04 0 00 030770 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   990	030770	324 00 0 00 030771 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   991									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
   992									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
   993									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
   994
   995					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 4
DAKAEM	MAC	28-Dec-78 13:35		TEST OF JSR INSTRUCTION                                                            SEQ 0031

   996					;THIS TEST VERIFIES THAT JSR JUMPS TO E+1
   997					;IN THIS CASE, AC0 IS CLEARED AND CRY0 IS SET; THEN, JSR .+2 IS EXECUTED.
   998					;IF JSR DID NOT JUMP, ONES ARE LOADED WITH AC0; AND THE TEST FAILS.
   999					;OTHERWISE, AC0 REMAINS CLEAR AND THE TEST PASSES
  1000
  1001	030771				C23400:	SFLAG	CRY0		^;SET CRY0
  1002
  1003	030771	205 01 0 00 200000 		MOVSI	1,CRY0
  1004	030772	255 17 0 00 030773 		JFCL	17,.+1		;RESET ALL FLAGS
  1005	030773	254 02 0 01 030774 		JRST	2,.+1(1)	;SET CRY0 FLAG
  1006	030774	400 00 0 00 000000 		SETZ			;CLEAR AC0
  1007	030775	264 00 0 00 030777 		JSR	.+2		;*JSR SHOULD JUMP
  1008	030776	474 00 0 00 000000 		SETO			;LOAD AC0 WITH ONES IF JSR FAILED TO JUMP
  1009	030777	000000	000000			0			;STORE FLAGS HERE
  1010	031000	332 00 0 00 000000 		SKIPE			;PASS  IF JSR JUMPED CORRECTLY
  1011						STOP^
  1012	031001	254 04 0 00 031002 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1013	031002	324 00 0 00 031003 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1014									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1015									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1016									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1017
  1018					;**********
  1019
  1020					;THIS TEST VERIFIES THAT JSR STORES THE PC IN E - RIGHT HALF.  THE PC
  1021					;IS ONE GREATER THAN THE LOCATION OF THE JSR INSTRUCTION.
  1022					;THIS TEST WILL FAIL IF JSR STORES E INSTEAD OF PC IN E - RIGHT HALF.
  1023					;IN CASE OF FAILURE, AR PC EN AT ET2 WAS FAULTY.
  1024
  1025	031003				C23500:	SFLAG	0		^;CLEAR ALL FLAGS
  1026
  1027	031003	205 01 0 00 000000 		MOVSI	1,0
  1028	031004	255 17 0 00 031005 		JFCL	17,.+1		;RESET ALL FLAGS
  1029	031005	254 02 0 01 031006 		JRST	2,.+1(1)	;SET 0 FLAG
  1030	031006	264 00 0 00 031010 		JSR	.+2		;*JSR SHOULD STORE PC+1 IN E - RIGHT
  1031	031007	254 04 0 00 031007 		HALT	.		;JSR SHOULD SKIP OVER THIS HALT
  1032	031010	000000	000000			0			;STORE FLAGS AND PC HERE
  1033	031011	550 00 0 00 031010 		HRRZ	.-1		;PUT STORED CONTENTS OF E - RIGHT INTO AC0
  1034	031012	306 00 0 00 031010 		CAIN	.-2		;FAIL IF C(AC0)=E
  1035						STOP^
  1036	031013	254 04 0 00 031014 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1037	031014	324 00 0 00 031015 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1038									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1039									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1040									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1041
  1042					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 5
DAKAEM	MAC	28-Dec-78 13:35		TEST OF JSR INSTRUCTION                                                            SEQ 0032

  1043					;THIS TEST VERIFIES THAT JSR STORES THE PC IN E - RIGHT HALF.  THE PC
  1044					;IS ONE GREATER THAN THE LOCATION OF THE JSR INSTRUCTION.
  1045					;THIS TEST WILL PASS IF JSR STORES PC IN E - RIGHT HALF.
  1046
  1047	031015	264 00 0 00 031017 	C23600:	JSR	.+2		;*JSR SHOULD STORE PC+1 IN E - RIGHT
  1048	031016	254 04 0 00 031016 		HALT	.		;JSR SHOULD SKIP OVER THIS HALT
  1049	031017	000000	000000			0			;STORE FLAGS AND PC HERE
  1050	031020	550 00 0 00 031017 		HRRZ	.-1		;PUT STORED CONTENTS OF E - RIGHT INTO AC0
  1051	031021	302 00 0 00 031016 		CAIE	C23600+1	;PASS IF C(AC0)=C23600+1 [PC]
  1052						STOP^
  1053	031022	254 04 0 00 031023 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1054	031023	324 00 0 00 031024 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1055									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1056									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1057									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1058
  1059					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 6
DAKAEM	MAC	28-Dec-78 13:35		TEST OF JSA INSTRUCTION                                                            SEQ 0033

  1060					SUBTTL	TEST OF JSA INSTRUCTION
  1061
  1062					;**********
  1063
  1064					;THIS TEST VERIFIES THAT JSA JUMPS TO LOCATION E+1.
  1065					;IN THIS TEST, AC1 IS CLEARED AND A CAM 0,0 IS LOADED
  1066					;INTO THE AC OF THE JSA INSTRUCTION.
  1067					;IF JSA DOES NOT JUMP, AC1 WILL BE LOADED WITH ONES.  AC1 IS CHECKED FOR ZEROS.
  1068					;IF C(AC1)=0, THE TEST PASSES; OTHERWISE, THIS TEST FAILS BECAUSE JSA DID NOT JUMP.
  1069
  1070	031024	400 01 0 00 000000 	C23700:	SETZ	1,		;CLEAR AC1
  1071	031025	200 00 0 00 033463 		MOVE	[CAM]		;LOAD CAM INTO AC0
  1072	031026	266 00 0 00 031030 		JSA	.+2		;*JSA SHOULD JUMP TO E+1
  1073	031027	474 00 0 00 000001 		SETO	1		;JSA SHOULD JUMP OVER THIS INSTRUCTION
  1074	031030	000000	000000			0			;PASS IF JSA JUMPED
  1075	031031	332 00 0 00 000001 		SKIPE	1
  1076						STOP^
  1077	031032	254 04 0 00 031033 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1078	031033	324 00 0 00 031034 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1079									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1080									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1081									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1082
  1083					;**********
  1084
  1085					;THIS TEST VERIFIES THAT JSA JUMPS TO LOCATION E+1.
  1086					;IN THIS TEST, AC1 IS CLEARED AND A MOVEI 1,1234 IS LOADED
  1087					;INTO THE AC OF THE JSA INSTRUCTION.
  1088					;IF JSA DOES NOT JUMP, AC1 WILL BE LOADED WITH 0,,1234.  AC1 IS CHECKED FOR ZEROS.
  1089					;IF C(AC1)=0, THE TEST PASSES; OTHERWISE, THIS TEST FAILS BECAUSE JSA DID NOT JUMP.
  1090
  1091	031034	400 01 0 00 000000 	C24000:	SETZ	1,		;CLEAR AC1
  1092	031035	200 00 0 00 033464 		MOVE	[MOVEI 1,1234]	;LOAD MOVEI 1,1234 INTO AC
  1093	031036	266 00 0 00 031037 		JSA	.+1		;*JSA SHOULD JUMP TO E+1
  1094	031037	000000	000000			0			;JSA SHOULD JUMP OVER THIS LOCATION
  1095	031040	306 01 0 00 001234 		CAIN	1,1234		;FAIL IF JSA DID NOT JUMP OVER PREVIOUS INSTRUCTION
  1096						STOP^
  1097	031041	254 04 0 00 031042 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1098	031042	324 00 0 00 031043 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1099									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1100									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1101									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1102
  1103					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 7
DAKAEM	MAC	28-Dec-78 13:35		TEST OF JSA INSTRUCTION                                                            SEQ 0034

  1104					;THIS TEST VERIFIES THAT JSA LOADS PC OF LOC OF JSA+1 INTO AC RIGHT. 
  1105					;THIS TEST WILL FAIL IF JSA LOADS E INTO AC RIGHT INSTEAD OF PC.
  1106
  1107	031043	266 00 0 00 031045 	C24100:	JSA	.+2		;*JSA SHOULD LOAD PC INTO AC RIGHT
  1108	031044	254 04 0 00 031044 		HALT	.		;JSA SHOULD JUMP OVER THIS LOCATION
  1109	031045	000000	000000			0			;JSA SHOULD JUMP OVER THIS LOCATION
  1110	031046	552 00 0 00 000001 		HRRZM	1		;PUT C(AC-RIGHT) INTO AC1
  1111	031047	306 01 0 00 031045 		CAIN	1,.-2		;FAIL IF E WAS LOADED INTO AC-RIGHT INSTEAD OF PC
  1112						STOP^
  1113	031050	254 04 0 00 031051 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1114	031051	324 00 0 00 031052 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1115									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1116									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1117									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1118
  1119					;**********
  1120
  1121					;THIS TEST VERIFIES THAT JSA PLACES C(AC) INTO E
  1122					;THIS TEST WILL FAIL IF EITHER 0,,E OR 0,,PC IS LOADED
  1123					;INTO E INSTEAD OF C(AC)
  1124
  1125	031052	403 00 0 00 031054 	C24200:	SETZB	.+2		;CLEAR AC,E
  1126	031053	266 00 0 00 031054 		JSA	.+1		;*JSA SHOULD LOAD C(AC) [ZEROS] INTO E
  1127	031054	000000	000000			0			;JSA SHOULD PLACE ZEROS HERE
  1128	031055	200 01 0 00 031054 		MOVE	1,.-1		;SAVE C(AC)
  1129	031056	306 01 0 00 031054 		CAIN	1,.-2		;FAIL IF JSA LOADED 0,,E OR 0,,PC INTO E
  1130						STOP^
  1131	031057	254 04 0 00 031060 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1132	031060	324 00 0 00 031061 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1133									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1134									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1135									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1136
  1137					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 8
DAKAEM	MAC	28-Dec-78 13:35		TEST OF JSA INSTRUCTION                                                            SEQ 0035

  1138					;THIS TEST VERIFIES THAT JSA PLACES PC INTO AC-RIGHT
  1139					;THIS TEST WILL FAIL IF PC IS NOT LOADED INTO AC-RIGHT
  1140
  1141	031061	201 00 0 00 777777 	C24300:	MOVEI	-1		;PRELOAD AC WITH 0,,-1
  1142	031062	266 00 0 00 031063 		JSA	.+1		;*JSA SHOULD PLACE E,,PC INTO THE AC
  1143	031063	000000	000000			0			;JSA SHOULD PLACE C(AC) HERE
  1144	031064	606 00 0 00 777777 		TRNN	-1		;FAIL IF AR LT AR RT EN FAILED
  1145						STOP^
  1146	031065	254 04 0 00 031066 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1147	031066	324 00 0 00 031067 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1148									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1149									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1150									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1151
  1152					;**********
  1153
  1154					;THIS TEST VERIFIES THAT JSA PLACES THE PC OF THE LOCATION OF JSA+1 IN AC-RIGHT
  1155					;THIS TEST FAILS IF A PC WAS NOT LOADED INTO AC RIGHT
  1156
  1157	031067	400 00 0 00 000000 	C24400:	SETZ			;CLEAR AC
  1158	031070	266 00 0 00 031071 		JSA	.+1		;*JSA SHOULD LOAD PC INTO AC - RIGHT
  1159	031071	000000	000000			0			;JSA SHOULD PLACE C(AC) HERE
  1160	031072	606 00 0 00 777777 		TRNN	-1		;PASS IF AC - RIGHT IS NON-ZERO
  1161						STOP^
  1162	031073	254 04 0 00 031074 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1163	031074	324 00 0 00 031075 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1164									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1165									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1166									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1167
  1168					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 9
DAKAEM	MAC	28-Dec-78 13:35		TEST OF JSA INSTRUCTION                                                            SEQ 0036

  1169					;THIS TEST VERIFIES THAT JSA PLACES IN AC-LEFT
  1170					;THIS TEST FAILS IF JSA LOADS PC INSTEAD OF E INTO AC-LEFT
  1171
  1172	031075	266 00 0 00 031077 	C24500:	JSA	.+2		;*JSA SHOULD LOAD E INTO AC-LEFT
  1173	031076	254 04 0 00 031076 		HALT	.		;JSA SHOULD JUMP OVER THIS INSTRUCTION
  1174	031077	000000	000000			0			;E:
  1175	031100	556 00 0 00 000001 		HLRZM	1		;SAVE C(AC - LEFT)
  1176	031101	306 01 0 00 031076 		CAIN	1,.-3		;FAIL IF JSA LOADED PC INSTEAD OF E INTO AC-LEFT
  1177						STOP^
  1178	031102	254 04 0 00 031103 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1179	031103	324 00 0 00 031104 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1180									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1181									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1182									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1183
  1184					;**********
  1185
  1186					;THIS TEST VERIFIES THAT JSA LOADS E,,PC INTO THE AC
  1187					;FIRST, THE AC IS PRELOADED WITH -1,,-1; THEN, JSA IS EXECUTED.
  1188					;THE AC IS CHECKED FOR E,,PC.  IF C(AC)=E,,PC, THIS TEST PASSES
  1189
  1190	031104	474 00 0 00 000000 	C24600:	SETO			;PRELOAD AC WITH -1,,-1
  1191	031105	266 00 0 00 031107 		JSA	.+2		;*JSA SHOULD PLACE E,,PC INTO THE AC
  1192	031106	254 04 0 00 031106 		HALT	.		;JSA SHOULD JUMP OVER HERE, PC:
  1193	031107	000000	000000			0			;JSA SHOULD STORE C(AC) HERE, E:
  1194	031110	312 00 0 00 033465 		CAME	[XWD .-1,.-2]	;PASS IF C(AC)=E,,PC
  1195						STOP^
  1196	031111	254 04 0 00 031112 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1197	031112	324 00 0 00 031113 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1198									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1199									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1200									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1201
  1202					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 10
DAKAEM	MAC	28-Dec-78 13:35		TEST OF JSA INSTRUCTION                                                            SEQ 0037

  1203					;THIS TEST VERIFIES THAT JSA LOADS E,,PC INTO THE AC
  1204					;FIRST, THE AC IS PRELOADED WITH 0 JSA IS EXECUTED.
  1205					;THE AC IS CHECKED FOR E,,PC.  IF C(AC)=E,,PC, THIS TEST PASSES
  1206
  1207	031113	400 00 0 00 000000 	C24700:	SETZ			;PRELOAD AC WITH 0
  1208	031114	266 00 0 00 031116 		JSA	.+2		;*JSA SHOULD PLACE E,,PC INTO THE AC
  1209	031115	254 04 0 00 031115 		HALT	.		;JSA SHOULD JUMP OVER HERE, PC:
  1210	031116	000000	000000			0			;JSA SHOULD STORE C(AC) HERE, E:
  1211	031117	312 00 0 00 033466 		CAME	[XWD .-1,.-2]	;PASS IF C(AC)=E,,PC
  1212						STOP^
  1213	031120	254 04 0 00 031121 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1214	031121	324 00 0 00 031122 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1215									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1216									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1217									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1218
  1219					;**********
  1220
  1221					;THIS TEST VERIFIES THAT JSA LOADS C(AC) INTO E.
  1222					;AC IS FIRST CLEARED AND E IS PRELOADED WITH ONES;
  1223					;THEN JSA IS EXECUTED.  E IS CHECKED FOR ZEROS.  IF C(E)=0,
  1224					;THIS TEST PASSES.
  1225
  1226	031122	400 00 0 00 000000 	C25000:	SETZ			;CLEAR AC
  1227	031123	476 00 0 00 031125 		SETOM	.+2		;PRELOAD E WITH -1,,-1
  1228	031124	266 00 0 00 031125 		JSA	.+1		;*JSA SHOULD PLACE C(AC) INTO E
  1229	031125	000000	000000			0			;E: SHOULD GET C(AC) FROM JSA
  1230	031126	332 00 0 00 031125 		SKIPE	.-1		;PASS IF C(E)=0
  1231						STOP^
  1232	031127	254 04 0 00 031130 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1233	031130	324 00 0 00 031131 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1234									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1235									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1236									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1237
  1238					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 11
DAKAEM	MAC	28-Dec-78 13:35		TEST OF JSA INSTRUCTION                                                            SEQ 0038

  1239					;THIS TEST VERIFIES THAT JSA LOADS C(AC) INTO E.
  1240					;AC IS FIRST PRELOADED WITH -1,,-1 AND E IS CLEARED;
  1241					;THEN, JSA IS EXECUTED.  E IS CHECKED FOR -1,,-1.  IF C(E)=-1,,-1,
  1242					;THIS TEST PASSES.
  1243
  1244	031131	477 00 0 00 000001 	C25100:	SETOB	1		;PRELOAD AC -1,,-1
  1245	031132	402 00 0 00 031134 		SETZM	.+2		;PRELOAD E WITH 0
  1246	031133	266 00 0 00 031134 		JSA	.+1		;*JSA SHOULD PLACE C(AC) INTO E
  1247	031134	000000	000000			0			;E: SHOULD GET C(AC) FROM JSA
  1248	031135	312 01 0 00 031134 		CAME	1,.-1		;PASS IF C(E)=-1,,-1
  1249						STOP^
  1250	031136	254 04 0 00 031137 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1251	031137	324 00 0 00 031140 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1252									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1253									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1254									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1255
  1256					;**********
  1257
  1258					;THIS TEST VERIFIES THAT JSA LOADS C(AC) INTO E.
  1259					;AC IS FIRST CLEARED AND E IS PRELOADED WITH ONES;
  1260					;THEN JSA IS EXECUTED.  E IS CHECKED FOR ZEROS.  IF C(E)=0,
  1261					;THIS TEST PASSES.
  1262
  1263	031140	201 00 0 00 777777 	C25200:	MOVEI	-1		;PRELOAD AC WITH 0,,-1
  1264	031141	266 00 0 00 031142 		JSA	.+1		;*JSA SHOULD PLACE C(AC) INTO E
  1265	031142	000000	000000			0			;E: SHOULD GET C(AC) FROM JSA
  1266	031143	200 01 0 00 031142 		MOVE	1,.-1		;PASS IF C(E)=0,,-1
  1267	031144	302 01 0 00 777777 		CAIE	1,-1
  1268						STOP^
  1269	031145	254 04 0 00 031146 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1270	031146	324 00 0 00 031147 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1271									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1272									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1273									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1274
  1275					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 12
DAKAEM	MAC	28-Dec-78 13:35		TEST OF JSA INSTRUCTION                                                            SEQ 0039

  1276					;THIS TEST VERIFIES THAT JSA DOES NOT MODIFY AC+1
  1277					;IN THIS TEST, AC+1 IS PRELOADED WITH -1,,-1; THEN JSA IS EXECUTED
  1278					;AC+1 IS THEN CHECKED FOR ITS ORIGINAL CONTENTS, -1,,-1.
  1279					;IF C(AC+1)=-1,,-1, THIS TEST PASSES
  1280
  1281	031147	476 00 0 00 000001 	C25300:	SETOM	1		;PRELOAD AC+1 WITH -1,,-1
  1282	031150	266 00 0 00 031151 		JSA	.+1		;*JSA SHOULD NOT MODIFY AC+1
  1283	031151	310 00 0 00 000000 		CAM			;JSA SHOULD JUMP OVER THIS, E:PC:
  1284	031152	312 01 0 00 033462 		CAME	1,[-1]		;PASS IF AC+1 WAS NOT MODIFIED BY JSA
  1285						STOP^
  1286	031153	254 04 0 00 031154 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1287	031154	324 00 0 00 031155 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1288									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1289									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1290									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1291
  1292					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 13
DAKAEM	MAC	28-Dec-78 13:35		TEST OF JRA INSTRUCTION                                                            SEQ 0040

  1293					SUBTTL	TEST OF JRA INSTRUCTION
  1294
  1295					;**********
  1296
  1297					;THIS TEST VERIFIES THAT JRA TRANSFERS CONTROL TO LOCATION E
  1298					;THIS TEST FAILS IF JRA DOES NOT JUMP TO E.
  1299
  1300	031155	200 00 0 00 033467 	C25400:	MOVE	[JRST .+4]	;PRELOAD AC0 WITH JRST .+4
  1301	031156	205 01 0 00 031160 		MOVSI	1,.+2		;PRELOAD AC WITH E,,0
  1302	031157	267 01 0 00 031160 		JRA	1,.+1		;*JRA SHOULD JUMP TO NEXT INSTRUCTION
  1303	031160	334 00 0 00 000000 		SKIPA			;PASS IF JRA JUMPS TO E
  1304						STOP^
  1305	031161	254 04 0 00 031162 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1306	031162	324 00 0 00 031163 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1307									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1308									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1309									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1310
  1311					;**********
  1312
  1313					;THIS TEST VERIFIES THAT JRA TRANSFERS CONTROL TO LOCATION E
  1314					;THIS TEST FAILS IF JRA DOES NOT JUMP TO E.
  1315
  1316	031163	205 00 0 00 031166 	C25500:	MOVSI	.+3		;PRELOAD AC WITH E+1
  1317	031164	267 00 0 00 031165 		JRA	.+1		;*JRA SHOULD JUMP TO NEXT SEQUENTIAL INSTRUCTION
  1318	031165	334 00 0 00 000000 		SKIPA			;PASS IF JRA JUMPS TO E
  1319						STOP^
  1320	031166	254 04 0 00 031167 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1321	031167	324 00 0 00 031170 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1322									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1323									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1324									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1325
  1326					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 14
DAKAEM	MAC	28-Dec-78 13:35		TEST OF JRA INSTRUCTION                                                            SEQ 0041

  1327					;THIS TEST VERIFIES THAT JRA TRANSFERS CONTROL TO LOCATION E
  1328					;THIS TEST FAILS IF JRA DOES NOT JUMP TO E.
  1329
  1330	031170	403 00 0 00 000001 	C25600:	SETZB	1		;PRELOAD AC0, AC1 WITH ZEROS
  1331	031171	267 00 0 00 031173 		JRA	.+2		;*JRA SHOULD JUMP OVER NEXT SEQUENTIAL INSTRUCTION
  1332	031172	474 01 0 00 000000 		SETO	1,		;LOAD AC1 WITH ONES IF JRA DOES NOT JUMP
  1333	031173	332 00 0 00 000001 		SKIPE	1		;PASS IF JRA JUMPED
  1334						STOP^
  1335	031174	254 04 0 00 031175 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1336	031175	324 00 0 00 031176 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1337									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1338									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1339									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1340
  1341					;**********
  1342
  1343					;THIS TEST VERIFIES THAT JRA PLACES C(C(AC-LEFT)) INTO THE AC AND JUMPS TO E
  1344					;THIS TEST FAILS IF JRA JUMPS TO E+1 OR DOES NOT LOAD THE AC CORRECTLY.
  1345
  1346	031176	400 00 0 00 000000 	C25700:	SETZ			;CLEAR AC
  1347	031177	267 00 0 00 031200 		JRA	.+1		;*JRA SHOULD PLACE 0 INTO THE AC AND JUMP .+1
  1348	031200	332 00 0 00 000000 		SKIPE			;PASS IF AC WAS LOADED CORRECTLY
  1349									;AND JRA JUMPED CORRECTLY.
  1350						STOP^
  1351	031201	254 04 0 00 031202 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1352	031202	324 00 0 00 031203 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1353									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1354									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1355									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1356
  1357					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 15
DAKAEM	MAC	28-Dec-78 13:35		TEST OF JRA INSTRUCTION                                                            SEQ 0042

  1358					;THIS TEST VERIFIES THAT JRA PLACES C(C(AC-LEFT)) INTO THE AC
  1359					;FIRST, THE AC IS PRELOADED WITH 1,,2 AND AC1 AND AC2 ARE
  1360					;INITIALIZED WITH THEIR RESPECTIVE ADDRESSES; JRA IS EXECUTED, AND
  1361					;THE AC IS CHECKED FOR 0,,1, THE ORIGINAL C(C(AC-LEFT)). IF C(AC)=0,,1,
  1362					;THIS TEST PASSES
  1363
  1364	031203	200 00 0 00 033470 	C26200:	MOVE	[XWD 1,2]	;PRELOAD AC WITH 1,,2
  1365	031204	201 01 0 00 000001 		MOVEI	1,1		;INITIALIZE AC1 WITH 0,,1
  1366	031205	201 02 0 00 000002 		MOVEI	2,2		;INITIALIZE AC2 WITH 0,,2
  1367	031206	267 00 0 00 031207 		JRA	.+1		;*JRA SHOULD PLACE 0,,1 INTO THE AC
  1368	031207	302 00 0 00 000001 		CAIE	1		;PASS IF C(AC)=0,,1
  1369						STOP^
  1370	031210	254 04 0 00 031211 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1371	031211	324 00 0 00 031212 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1372									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1373									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1374									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1375
  1376					;**********
  1377
  1378					;THIS TEST VERIFIES THAT JRA CAN RESTORE AC0 FROM AC0 WHEN AC0 IS THE
  1379					;SPECIFIED AC AND C(AC0-LEFT)=0.
  1380					;FIRST, AC0 IS PRELOADED AND JRA IS EXECUTED.  THEN, AC0 IS CHECKED FOR
  1381					;ITS INITIAL CONTENTS.  IF THE RESULT IN AC0, IS CORRECT, THIS TEST PASSES.
  1382
  1383	031212	551 00 0 00 033471 	C26300:	HRRZI	[135531,,246642]	;PRELOAD AC0 WITH 0,, LITERAL ADDRESS
  1384	031213	267 00 0 00 031214 		JRA	.+1		;*JRA SHOULD PLACE C(AC0) INTO AC0
  1385	031214	302 00 0 00 033471 		CAIE	[135531,,246642] ;PASS IF JRA PLACED C(AC0) INTO AC0
  1386						STOP^
  1387	031215	254 04 0 00 031216 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1388	031216	324 00 0 00 031217 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1389									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1390									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1391									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1392
  1393					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 16
DAKAEM	MAC	28-Dec-78 13:35		TEST OF JRA INSTRUCTION                                                            SEQ 0043

  1394					;THIS TEST VERIFIES THAT JRA CAN RESOTRE AC0 FROM MEMORY WHEN AC0 IS THE
  1395					;SPECIFIED AC.
  1396					;FIRST, AC0 IS PRELOADED WITH [LITERAL ADDRESS ,,0] AND JRA IS EXECUTED.  THEN,
  1397					;AC0 IS CHECKED FOR THE SPECIFIED LITERAL, 135246,,246135.  IF 
  1398					;C(AC0)=135246,,246135, THE TEST PASSES.
  1399
  1400	031217	515 00 0 00 033472 	C26400:	HRLZI	[135246,,246135] ;PRELOAD AC0 WITH [LITERAL ADDRESS ,,0]
  1401	031220	267 00 0 00 031221 		JRA	.+1		;*JRA SHOULD PLACE 135246,,246135 INTO AC0
  1402	031221	312 00 0 00 033472 		CAME	[135246,,246135];PASS IF C(AC0)=135246,,246135
  1403						STOP^
  1404	031222	254 04 0 00 031223 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1405	031223	324 00 0 00 031224 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1406									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1407									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1408									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1409
  1410					;**********
  1411
  1412					;THIS TEST VERIFIES THAT JRA CAN RESOTRE AC0 FROM MEMORY WHEN AC0 IS THE
  1413					;SPECIFIED AC.
  1414					;FIRST, AC0 IS PRELOADED WITH [-1,, ADDRESS OF JCA INSTRUCTION] AND JRA IS EXECUTED.
  1415					;THEN, AC0 IS CHECKED FOR THE JRA INSTRUCTION.  IF 
  1416					;C(AC0)= THE JRA INSTRUCTION, THE TEST PASSES.
  1417
  1418	031224	525 00 0 00 031225 	C26500:	HRLOI	.+1		;PRELOAD AC WITH -1,, ADDRESS OF JRA INSTRUCTION
  1419	031225	267 00 0 00 031226 		JRA	.+1		;*JRA SHOULD PLACE ITSELF INTO AC0
  1420	031226	312 00 0 00 031225 		CAME	.-1		;PASS IF AC CONTAINS JRA INSTRUCTION
  1421						STOP^
  1422	031227	254 04 0 00 031230 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1423	031230	324 00 0 00 031231 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1424									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1425									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1426									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1427
  1428					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 17
DAKAEM	MAC	28-Dec-78 13:35		TESTS OF BIS FLAG                                                                  SEQ 0044

  1429					SUBTTL	TESTS OF BIS FLAG
  1430
  1431					;**********
  1432
  1433					;THIS TEST VERIFIES THAT JRST 2, CAN CLEAR BIS
  1434					;FIRST, BIS IS SET VIA JRST 2, ;THEN, BIS IS CLEARED VIA JRST 2,.
  1435					;THE FLAGS ARE SAVED AND BIS IS CHECKED.  THIS TEST PASSES IF BIS IS RESET;
  1436					;OTHERWISE JRST 2, FAILED TO RESET BIS.
  1437
  1438	031231				C26600:	SFLAG	BIS		^;SET BIS FLAG
  1439
  1440	031231	205 01 0 00 020000 		MOVSI	1,BIS
  1441	031232	255 17 0 00 031233 		JFCL	17,.+1		;RESET ALL FLAGS
  1442	031233	254 02 0 01 031234 		JRST	2,.+1(1)	;SET BIS FLAG
  1443						SFLAG			^;*RESET BIS FLAG
  1444
  1445	031234	205 01 0 00 000000 		MOVSI	1,
  1446	031235	255 17 0 00 031236 		JFCL	17,.+1		;RESET ALL FLAGS
  1447	031236	254 02 0 01 031237 		JRST	2,.+1(1)	;SET  FLAG
  1448	031237	265 00 0 00 031240 		JSP	.+1		;SAVE FLAGS
  1449	031240	603 00 0 00 020037 		TLNE	BIS+37		;PASS IF BIS FLAG IS RESET
  1450						STOP^
  1451	031241	254 04 0 00 031242 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1452	031242	324 00 0 00 031243 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1453									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1454									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1455									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1456
  1457					;**********
  1458
  1459					;THIS TEST VERIFIES THAT JRST 2, CAN SET BIS.
  1460					;FIRST, BIS IS SET VIA JRST 2, AND THE FLAGS ARE SAVED.
  1461					;BIS IS THEN CHECKED.  IF BIS IS SET, THIS TEST PASSES.
  1462
  1463	031243				C26700:	SFLAG	BIS		^;*SET BIS FLAG VIA JRST
  1464
  1465	031243	205 01 0 00 020000 		MOVSI	1,BIS
  1466	031244	255 17 0 00 031245 		JFCL	17,.+1		;RESET ALL FLAGS
  1467	031245	254 02 0 01 031246 		JRST	2,.+1(1)	;SET BIS FLAG
  1468	031246	265 00 0 00 031247 		JSP	.+1		;SAVE FLAGS
  1469	031247	607 00 0 00 020000 		TLNN	BIS		;PASS IF BIS FLAG IS SET
  1470						STOP^
  1471	031250	254 04 0 00 031251 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1472	031251	324 00 0 00 031252 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1473									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1474									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1475									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1476
  1477					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 18
DAKAEM	MAC	28-Dec-78 13:35		TESTS OF BIS FLAG                                                                  SEQ 0045

  1478					;THIS TEST VERIFIES THAT JSR ALWAYS RESETS BIS.
  1479					;FIRST BIS IS SET; THEN JSR IS EXECUTED.  THE FLAGS ARE
  1480					;THEN SAVED AND CHECKED.  IF BIS WAS RESET VIA JSR, THIS TEST PASSES.
  1481
  1482	031252				C27000:	SFLAG	BIS		^;SET BIS
  1483
  1484	031252	205 01 0 00 020000 		MOVSI	1,BIS
  1485	031253	255 17 0 00 031254 		JFCL	17,.+1		;RESET ALL FLAGS
  1486	031254	254 02 0 01 031255 		JRST	2,.+1(1)	;SET BIS FLAG
  1487	031255	264 00 0 00 031256 		JSR	.+1		;*JSR SHOULD RESET BIS
  1488	031256	000000	000000			0			;JSR SAVES FLAGS HERE
  1489	031257	265 00 0 00 031260 		JSP	.+1		;SAVE FLAGS
  1490	031260	603 00 0 00 020000 		TLNE	BIS		;PASS IF BIS FLAG IS RESET
  1491						STOP^
  1492	031261	254 04 0 00 031262 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1493	031262	324 00 0 00 031263 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1494									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1495									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1496									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1497
  1498					;**********
  1499
  1500					;THIS TEST VERIFIES THAT JSP ALWAYS RESETS BIS.
  1501					;FIRST BIS IS SET; THEN JSP IS EXECUTED.  THE FLAGS ARE
  1502					;THEN SAVED AND CHECKED.  IF BIS WAS RESET VIA JSP, THIS TEST PASSES.
  1503
  1504	031263				C27001:	SFLAG	BIS		^;SET BIS
  1505
  1506	031263	205 01 0 00 020000 		MOVSI	1,BIS
  1507	031264	255 17 0 00 031265 		JFCL	17,.+1		;RESET ALL FLAGS
  1508	031265	254 02 0 01 031266 		JRST	2,.+1(1)	;SET BIS FLAG
  1509	031266	265 00 0 00 031267 		JSP	.+1		;*JSP SHOULD RESET BIS
  1510	031267	265 00 0 00 031270 		JSP	.+1		;SAVE FLAGS
  1511	031270	603 00 0 00 020000 		TLNE	BIS		;PASS IF BIS FLAG IS RESET
  1512						STOP^
  1513	031271	254 04 0 00 031272 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1514	031272	324 00 0 00 031273 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1515									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1516									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1517									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1518
  1519					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 19
DAKAEM	MAC	28-Dec-78 13:35		TESTS OF BIS FLAG                                                                  SEQ 0046

  1520					;THIS TEST VERIFIES THAT THE BITS IN POSITIONS 8, 9 AND 10 ARE CLEARABLE.
  1521					;FIRST, THE ARITHMETIC FLAGS ARE CLEARED;
  1522					;THEN, BITS 8, 9 AND 10 OF THE PC-WORD IS EXAMINED.
  1523					;IF ANY OF THESE BITS ARE SET, THIS TEST FAILS BECAUSE THEY SHOULD BE CLEAR.
  1524
  1525	031273				C27100:	SFLAG			^;CLEAR ARITHMETIC FLAGS
  1526
  1527	031273	205 01 0 00 000000 		MOVSI	1,
  1528	031274	255 17 0 00 031275 		JFCL	17,.+1		;RESET ALL FLAGS
  1529	031275	254 02 0 01 031276 		JRST	2,.+1(1)	;SET  FLAG
  1530	031276	265 00 0 00 031277 		JSP	.+1		;SAVE FLAGS
  1531	031277	603 00 0 00 001600 		TLNE	1600		;PASS IF THESE BITS ARE CLEAR
  1532						STOP^
  1533	031300	254 04 0 00 031301 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1534	031301	324 00 0 00 031302 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1535									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1536									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1537									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1538
  1539					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 20
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL FWT INSTRUCTIONS                                                      SEQ 0047

  1540					SUBTTL	TEST OF MSCL FWT INSTRUCTIONS
  1541
  1542					;**********
  1543
  1544					;THIS TEST VERIFIES THAT MOVEM PLACES C(AC) INTO E AND DOES
  1545					;NOT MODIFY C(AC).
  1546					;IN THIS CASE, C(AC)=252525,,252525 ANS C(E)=707070,,707070.
  1547					;HENCE, THE RESULT IN E SHOULD BE 252525,,252525.
  1548					;THE AC IS CHECKED FOR 252525,,252525.  IF ANY OTHER NUMBER IS
  1549					;FOUND IN THE AC, IT WAS CLOBBERED BY MOVEM, AND THIS TEST FAILS.
  1550					;E IS CHECKED FOR 252525,,252525.  IF ANY OTHER NUMBER IS FOUND
  1551					;IN E, IT WAS UPDATED INCORRECTLY BY MOVEM.
  1552
  1553	031302	200 00 0 00 033473 	C50000:	MOVE	[252525,,252525]	;PRELOAD AC WITH 252525,,252525
  1554	031303	200 01 0 00 033474 		MOVE	1,[707070,,707070]	;PRELOAD E WITH 707070,,707070
  1555	031304	202 00 0 00 000001 		MOVEM	0,1			;*MOVEM SHOULD PLACE 252525,,252525
  1556										;INTO E AND NOT AFFECT THE AC
  1557	031305	312 00 0 00 033473 		CAME	0,[252525,,252525]	;PASS IF C(AC) IS NOT CLOBBERED
  1558						STOP^
  1559	031306	254 04 0 00 031307 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1560	031307	324 00 0 00 031310 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1561									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1562									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1563									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1564	031310	312 01 0 00 033473 		CAME	1,[252525,,252525]	;PASS IF E WAS UPDATED CORRECTLY
  1565						STOP^
  1566	031311	254 04 0 00 031312 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1567	031312	324 00 0 00 031313 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1568									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1569									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1570									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1571
  1572					;**********
  1573
  1574					;THIS TEST VERIFIES THAT MOVES PLACES C(E) INTO THE AC IF AC IS NON-ZERO.
  1575					;IN THIS CASE, C(AC)=707070,,707070 AND C(E)=123456,,123456.  HENCE, BOTH
  1576					;THE AC AND E SHOULD CONTAIN 123456,,123456 AFTER MOVES IS EXECUTED.
  1577					;BOTH AC AND E ARE CHECKED FOR 123456,,123456.  IF EITHER AC OR E
  1578					;CONTAIN A DIFFERENT RESULT, THIS TEST FAILS
  1579
  1580	031313	200 02 0 00 033474 	C50100:	MOVE	2,[707070,,707070]	;PRELOAD AC WITH 707070,,707070
  1581	031314	200 01 0 00 033475 		MOVE	1,[123456,,123456]	;PRELOAD E WITH 123456,,123456
  1582	031315	203 02 0 00 000001 		MOVES	2,1			;*MOVES SHOULD PLACE 123456,,123456
  1583										;INTO BOTH AC AND E
  1584	031316	312 02 0 00 033475 		CAME	2,[123456,,123456]	;PASS IF C(AC)=123456,,123456
  1585						STOP^
  1586	031317	254 04 0 00 031320 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1587	031320	324 00 0 00 031321 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1588									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1589									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1590									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1591	031321	312 01 0 00 033475 		CAME	1,[123456,,123456]	;PASS IF C(E)=123456,,123456
  1592						STOP^
  1593	031322	254 04 0 00 031323 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1594	031323	324 00 0 00 031324 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 20-1
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL FWT INSTRUCTIONS                                                      SEQ 0048

  1595									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1596									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1597									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1598
  1599					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 21
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL FWT INSTRUCTIONS                                                      SEQ 0049

  1600					;THIS TEST VERIFIES THAT MOVES IS A NO-OP IF AC=0
  1601					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=707070,,707070
  1602					;AFTER MOVES IS EXECUTED, AC AND E ARE CHECKED FOR THEIR ORIGINAL DATA.
  1603					;IF EITHER C(AC) OR C(E) CHANGED AS A RESULT OF MOVES, THIS TEST FAILS.
  1604
  1605	031324	200 01 0 00 033474 	C50110:	MOVE	1,[707070,,707070]	;PRELOAD E WITH 707070,,707070
  1606	031325	474 00 0 00 000000 		SETO				;PRELOAD AC WITH -1,,-1
  1607	031326	203 00 0 00 000001 		MOVES	0,1			;*MOVES SHOULD FUNCTION AS A NO-OP
  1608	031327	312 00 0 00 033462 		CAME	0,[-1,,-1]		;PASS IF C(AC) WAS NOT MODIFIED
  1609						STOP^
  1610	031330	254 04 0 00 031331 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1611	031331	324 00 0 00 031332 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1612									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1613									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1614									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1615	031332	312 01 0 00 033474 		CAME	1,[707070,,707070]	;PASS IF C(E) WAS NOT MODIFIED
  1616						STOP^
  1617	031333	254 04 0 00 031334 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1618	031334	324 00 0 00 031335 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1619									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1620									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1621									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1622
  1623					;**********
  1624
  1625					;THIS TEST VERIFIES THAT MOVSI LOADS THE WORD E,0 INTO THE AC.
  1626					;IN THIS CASE, C(AC)=707070,,707070 AND E=0,,-1.
  1627					;HENCE, THE RESULT IN THE AC SHOULD BE -1,,0.
  1628					;THE AC IS CHECKED FOR -1,,0.  IF C(AC)=-1,,0, THIS TEST PASSES.
  1629
  1630	031335	200 01 0 00 033474 	C50200:	MOVE	1,[707070,,707070]	;PRELOAD AC WITH 707070,,707070
  1631	031336	205 01 0 00 777777 		MOVSI	1,-1			;*MOVSI SHOULD PLACE -1,,0 INTO THE AC
  1632	031337	312 01 0 00 033476 		CAME	1,[-1,,0]		;PASS IF C(AC)=1,,0
  1633						STOP^
  1634	031340	254 04 0 00 031341 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1635	031341	324 00 0 00 031342 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1636									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1637									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1638									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1639
  1640					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 22
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL FWT INSTRUCTIONS                                                      SEQ 0050

  1641					;THIS TEST VERIFIES THAT MOVNM PLACES THE NEGATIVE OF C(AC)
  1642					;INTO E.  IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,-3.
  1643					;HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1 AND THE RESULT
  1644					;IN E SHOULD BE 0,,1
  1645
  1646	031342	474 01 0 00 000000 	C50300:	SETO	1,			;PRELOAD AC WITH -1,,-1
  1647	031343	200 02 0 00 033477 		MOVE	2,[-1,,-3]		;PRELOAD E WITH -1,,-3
  1648	031344	212 01 0 00 000002 		MOVNM	1,2			;*MOVNM SHOULD PLACE 0,,1 INTO E
  1649										;AND NOT AFFTECT C(AC)
  1650	031345	312 01 0 00 033462 		CAME	1,[-1]			;PASS IF C(AC)=-1,,-1
  1651						STOP^
  1652	031346	254 04 0 00 031347 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1653	031347	324 00 0 00 031350 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1654									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1655									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1656									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1657	031350	302 02 0 00 000001 		CAIE	2,1			;PASS IF C(E)=0,,1
  1658						STOP^
  1659	031351	254 04 0 00 031352 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1660	031352	324 00 0 00 031353 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1661									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1662									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1663									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1664
  1665					;**********
  1666
  1667					;THIS TEST VERIFIES THAT MOVNM PLACES THE NEGATIVE OF C(AC)
  1668					;INTO E.  IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,-3.
  1669					;HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1 AND THE RESULT
  1670					;IN E SHOULD BE 0,,1
  1671
  1672	031353	474 01 0 00 000000 	C50301:	SETO	1,			;PRELOAD AC WITH -1,,-1
  1673	031354	200 02 0 00 033477 		MOVE	2,[-1,,-3]		;PRELOAD E WITH -1,,-3
  1674	031355	202 02 0 00 031367 		MOVEM	2,E50301
  1675	031356	212 01 0 00 031367 		MOVNM	1,E50301		;*MOVNM SHOULD PLACE 0,,1 INTO E
  1676										;AND NOT AFFTECT C(AC)
  1677	031357	312 01 0 00 033462 		CAME	1,[-1]			;PASS IF C(AC)=-1,,-1
  1678						STOP^
  1679	031360	254 04 0 00 031361 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1680	031361	324 00 0 00 031362 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1681									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1682									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1683									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1684	031362	200 02 0 00 031367 		MOVE	2,E50301
  1685	031363	302 02 0 00 000001 		CAIE	2,1			;PASS IF C(E)=0,,1
  1686						STOP^
  1687	031364	254 04 0 00 031365 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1688	031365	324 00 0 00 031366 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1689									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1690									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1691									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1692
  1693	031366	334 00 0 00 000000 		SKIPA				;GO TO NEXT TEST
  1694	031367	000000	000000		E50301:	0				;TESTED MEMORY LOCATION
  1695
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 22-1
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL FWT INSTRUCTIONS                                                      SEQ 0051

  1696					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 23
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL FWT INSTRUCTIONS                                                      SEQ 0052

  1697					;THIS TEST VERIFIES THAT MOVNS PLACES THE NEGATIVE OF C(E) INTO E
  1698					;AND INTO THE AC IF THE AC IS NON-ZERO.  IN THIS CASE, AC=0,
  1699					;C(AC)=0 AND C(E)=0,,1
  1700					;HENCE, THE RESULT IN THE AC SHOULD BE 0
  1701					;AND THE RESULT IN E SHOULD BE -1,,-1
  1702
  1703	031370	400 00 0 00 000000 	C50400:	SETZ				;CLEAR AC
  1704	031371	201 02 0 00 000001 		MOVEI	2,1			;PRELOAD E WITH 0,,1
  1705	031372	213 00 0 00 000002 		MOVNS	0,2			;*MOVNS SHOULD PLACE -1,,-1 INTO E
  1706										;AND SHOULD NOT AFFECT THE AC
  1707	031373	332 00 0 00 000000 		SKIPE				;PASS IF THE AC IS UNALTERED
  1708						STOP^
  1709	031374	254 04 0 00 031375 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1710	031375	324 00 0 00 031376 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1711									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1712									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1713									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1714	031376	312 02 0 00 033462 		CAME	2,[-1]			;PASS IF C(E)=-1,,-1
  1715						STOP^
  1716	031377	254 04 0 00 031400 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1717	031400	324 00 0 00 031401 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1718									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1719									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1720									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1721
  1722					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 24
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL FWT INSTRUCTIONS                                                      SEQ 0053

  1723					;THIS TEST VERIFIES THAT MOVNS PLACES THE NEGATIVE OF C(E) INTO E
  1724					;AND INTO THE AC IF THE AC IS NON-ZO.  IN THIS CASE, AC=0,
  1725					;C(AC)=0 AND C(E)=0,,1
  1726					;HENCE, THE RESULT IN THE AC SHOULD BE 0
  1727					;AND THE RESULT IN E SHOULD BE -1,,-1
  1728
  1729	031401	400 00 0 00 000000 	C50401:	SETZ				;CLEAR AC
  1730	031402	201 02 0 00 000001 		MOVEI	2,1			;PRELOAD E WITH 0,,1
  1731	031403	202 02 0 00 031415 		MOVEM	2,E50401
  1732	031404	213 00 0 00 031415 		MOVNS	0,E50401		;*MOVNS SHOULD PLACE -1,,-1 INTO E
  1733										;AND SHOULD NOT AFFECT THE AC
  1734	031405	332 00 0 00 000000 		SKIPE				;PASS IF THE AC IS UNALTERED
  1735						STOP^
  1736	031406	254 04 0 00 031407 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1737	031407	324 00 0 00 031410 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1738									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1739									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1740									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1741	031410	200 02 0 00 031415 		MOVE	2,E50401
  1742	031411	312 02 0 00 033462 		CAME	2,[-1]			;PASS IF C(E)=-1,,-1
  1743						STOP^
  1744	031412	254 04 0 00 031413 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1745	031413	324 00 0 00 031414 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1746									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1747									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1748									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1749
  1750	031414	334 00 0 00 000000 		SKIPA				;GO TO NEXT TEST
  1751	031415	000000	000000		E50401:	0				;TESTED MEMORY LOCATION
  1752
  1753					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 25
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL FWT INSTRUCTIONS                                                      SEQ 0054

  1754					;THIS TEST VERIFIES THAT MOVNS PLACES THE NEGATIVE OF C(E) INTO E
  1755					;AND INTO THE AC IF THE AC IS NON-ZERO.  IN THIS CASE, AC=1,
  1756					;C(AC=0 AND C(E)=3
  1757					;HENCE, THE RESULT IN THE AC SHOULD BE -1,,3
  1758					;AND THE RESULT IN E SHOULD BE -1,,3.
  1759
  1760	031416	400 01 0 00 000000 	C50410:	SETZ	1,			;CLEAR AC
  1761	031417	201 02 0 00 000003 		MOVEI	2,3			;PRELOAD WITH 0,,3
  1762	031420	213 01 0 00 000002 		MOVNS	1,2			;*MOVNS SHOULD PLACE -1,,-3 INTO E
  1763										;AND -1,,-3 INTO THE AC
  1764	031421	312 01 0 00 033477 		CAME	1,[-1,,-3]		;PASS IF C(AC)=-1,,-3
  1765						STOP^
  1766	031422	254 04 0 00 031423 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1767	031423	324 00 0 00 031424 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1768									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1769									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1770									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1771	031424	312 02 0 00 033477 		CAME	2,[-1,,-3]		;PASS IF C(E)=-1,,-3
  1772						STOP^
  1773	031425	254 04 0 00 031426 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1774	031426	324 00 0 00 031427 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1775									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1776									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1777									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1778
  1779					;**********
  1780
  1781					;THIS TEST VERIFIES THAT MOVMI MOVES THE WORD 0,,E INTO THE AC.
  1782					;IN THIS CASE, C(AC)=0 AND E=0,,-2.  HENCE, THE RESULT IN THE AC
  1783					;SHOULD BE 0,,-2.
  1784
  1785	031427	400 01 0 00 000000 	C50500:	SETZ	1,			;CLEAR AC
  1786	031430	215 01 0 00 777776 		MOVMI	1,-2			;*MOVMI SHOULD PLACE 0,,-2 INTO AC
  1787	031431	302 01 0 00 777776 		CAIE	1,-2			;PASS IF C(AC)=0,,-2
  1788						STOP^
  1789	031432	254 04 0 00 031433 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1790	031433	324 00 0 00 031434 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1791									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1792									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1793									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1794
  1795					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 26
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL FWT INSTRUCTIONS                                                      SEQ 0055

  1796					;THIS TEST VERIFIES THAT MOVM MOVES THE MAGNITUDE OF C(E) NTO THE AC.
  1797					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-2.  HENCE, THE RESULT IN THE AC
  1798					;SHOULD BE 0,,2.
  1799
  1800	031434	400 01 0 00 000000 	C50501:	SETZ	1,			;CLEAR AC
  1801	031435	200 03 0 00 033500 		MOVE	3,[-2]			;PRELOAD E WITH -1,,-2
  1802	031436	214 01 0 00 000003 		MOVM	1,3			;*MOVM SHOULD PLACE 0,,2 INTO AC
  1803	031437	302 01 0 00 000002 		CAIE	1,2			;PASS IF C(AC)=0,,2
  1804						STOP^
  1805	031440	254 04 0 00 031441 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1806	031441	324 00 0 00 031442 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1807									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1808									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1809									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1810
  1811					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 27
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL FWT INSTRUCTIONS                                                      SEQ 0056

  1812					;THIS TEST VERIFIES THAT MOVMM PLACES THE MAGNITUDE OF C(AC)
  1813					;INTO E.  IN THIS CASE, C(AC)=-1,,-2 AND C(E)=0.  HENCE, THE
  1814					;RESULT IN E SHOULD BE 0,,2 AND C(AC) SHOULD REMAIN UNCHANGED.
  1815
  1816	031442	200 01 0 00 033500 	C50600:	MOVE	1,[-1,,-2]		;PRELOAD AC WITH -1,,-2
  1817	031443	400 02 0 00 000000 		SETZ	2,			;CLEAR E
  1818	031444	216 01 0 00 000002 		MOVMM	1,2			;*MOVMM SHOULD PLACE 0,,2 INTO E
  1819										;AND SHOULD NOT CHANGE C(AC)
  1820	031445	312 01 0 00 033500 		CAME	1,[-1,,-2]		;PASS IF C(AC) IS NOT ALTERED
  1821						STOP^
  1822	031446	254 04 0 00 031447 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1823	031447	324 00 0 00 031450 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1824									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1825									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1826									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1827	031450	302 02 0 00 000002 		CAIE	2,2			;PASS IF C(E)=0,,2
  1828						STOP^
  1829	031451	254 04 0 00 031452 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1830	031452	324 00 0 00 031453 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1831									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1832									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1833									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1834
  1835					;**********
  1836
  1837					;THIS TEST VERIFIES THAT MONMS PLACES THE MAGNITUDE OF C(E) INTO E
  1838					;AND INTO THE AC IF THE AC IS NON-ZERO.  IN THIS CASE, AC=0, C(AC)=0
  1839					;AND C(E)=-1,,-2.
  1840					;HENCE, THE RESULT IN THE AC SHOULD BE 0 AND THE RESULT IN
  1841					;E SHOULD BE 0,,2.
  1842
  1843	031453	400 00 0 00 000000 	C50700:	SETZ			;CLEAR AC
  1844	031454	200 02 0 00 033500 		MOVE	2,[-1,,-2]		;PRELOAD E WITH -1,,-1
  1845	031455	217 00 0 00 000002 		MOVMS	0,2			;*MOVMS	SHOULD PLACE 0,,1 INTO E
  1846										;AND SHOULD NOT CHANGE C(AC)
  1847	031456	332 00 0 00 000000 		SKIPE				;PASS IF C(AC) IS UNALTERED
  1848						STOP^
  1849	031457	254 04 0 00 031460 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1850	031460	324 00 0 00 031461 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1851									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1852									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1853									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1854	031461	302 02 0 00 000002 		CAIE	2,2			;PASS IF C(E)=0,,2
  1855						STOP^
  1856	031462	254 04 0 00 031463 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1857	031463	324 00 0 00 031464 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1858									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1859									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1860									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1861
  1862					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 28
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL FWT INSTRUCTIONS                                                      SEQ 0057

  1863					;THIS TEST VERIFIES THAT MOVMS PLACES THE MAGNITUDE OF C(E) INTO E
  1864					;AND INTO THE AC IF THE AC IS NON-ZERO.  IN THIS CASE, AC=1, C(AC)=-1,,-1
  1865					;AND C(E)=-1,,-2.
  1866					;HENCE, THE RESULT IN THE AC SHOULD BE 0,,2 AND THE RESULT
  1867					;IN E SHOULD BE 0,,2.
  1868
  1869	031464	474 01 0 00 000000 	C50710:	SETO	1,			;PRELOAD AC WITH -1,,-1
  1870	031465	200 02 0 00 033500 		MOVE	2,[-1,,-2]		;PRELOAD E WITH -1,,-2
  1871	031466	217 01 0 00 000002 		MOVMS	1,2			;*MOVMS SHOULD PLACE 0,,2 INTO E
  1872										;AND SHOULD PLACE 0,,2 INTO THE AC
  1873	031467	302 01 0 00 000002 		CAIE	1,2			;PASS IF C(AC)=0,,2
  1874						STOP^
  1875	031470	254 04 0 00 031471 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1876	031471	324 00 0 00 031472 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1877									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1878									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1879									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1880	031472	302 02 0 00 000002 		CAIE	2,2			;PASS IF C(E)=0,,2
  1881						STOP^
  1882	031473	254 04 0 00 031474 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1883	031474	324 00 0 00 031475 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1884									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1885									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1886									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1887
  1888					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 29
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL ADD/SUB INSTRUCTIONS                                                  SEQ 0058

  1889					SUBTTL	TEST OF MSCL ADD/SUB INSTRUCTIONS
  1890
  1891					;**********
  1892
  1893					;THIS TEST VERIFIES THAT SUBI SUBTRACTS THE WORD 0,,E FROM C(AC)
  1894					;AND PLACES THE RESULT INTO THE AC.  IN THIS CASE, C(AC)=70 AND
  1895					;E=0,,2.  HENCE, THE RESULT IN THE AC SHOULD BE 66.
  1896
  1897	031475	201 01 0 00 000070 	C51000:	MOVEI	1,70			;PRELOAD AC WITH 70
  1898	031476	275 01 0 00 000002 		SUBI	1,2			;*SUBI SHOULD PLACE 66 INTO AC
  1899	031477	302 01 0 00 000066 		CAIE	1,66			;PASS IF C(AC)=66
  1900						STOP^
  1901	031500	254 04 0 00 031501 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1902	031501	324 00 0 00 031502 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1903									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1904									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1905									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1906
  1907					;**********
  1908
  1909					;THIS TEST VERIFIES THAT SUBM SUBTRACTS C(E) FROM C(AC) AND
  1910					;PLACES THE RESULT INTO E.  THE AC IS UNAFFECTED.  IN THIS CASE,
  1911					;C(AC)=100 AND C(E)=37.  HENCE, THE RESULTS IN AC AND
  1912					;E SHOULD BE 0,,100 AND 0,,41 RESPECTIVELY.
  1913
  1914	031502	201 01 0 00 000100 	C51100:	MOVEI	1,100			;PRELOAD AC WITH 0,,100
  1915	031503	201 02 0 00 000037 		MOVEI	2,37			;PRELOAD E WITH 0,,37
  1916	031504	276 01 0 00 000002 		SUBM	1,2			;*SUBM SHOULD PLACE
  1917										;0,,41 INTO E AND NOT CHANGE C(AC)
  1918	031505	302 01 0 00 000100 		CAIE	1,100			;PASS IF C(AC) IS UNCHANGED
  1919						STOP^
  1920	031506	254 04 0 00 031507 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1921	031507	324 00 0 00 031510 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1922									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1923									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1924									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1925	031510	302 02 0 00 000041 		CAIE	2,41			;PASS IF C(E)=0,,41
  1926						STOP^
  1927	031511	254 04 0 00 031512 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1928	031512	324 00 0 00 031513 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1929									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1930									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1931									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1932
  1933					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 30
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL ADD/SUB INSTRUCTIONS                                                  SEQ 0059

  1934					;THIS TEST VERIFIES THAT SUBM SUBTRACTS C(E) FROM C(AC) AND
  1935					;PLACES THE RESULT INTO E.  THE AC IS UNAFFECTED.  IN THIS CASE,
  1936					;C(AC)=100 AND C(E)=37.  HENCE, THE RESULTS IN AC AND
  1937					;E SHOULD BE 0,,100 AND 0,,41 RESPECTIVELY.
  1938
  1939	031513	201 01 0 00 000100 	C51101:	MOVEI	1,100			;PRELOAD AC WITH 0,,100
  1940	031514	201 02 0 00 000037 		MOVEI	2,37			;PRELOAD E WITH 0,,37
  1941	031515	202 02 0 00 031527 		MOVEM	2,E51101
  1942	031516	276 01 0 00 031527 		SUBM	1,E51101		;*SUBM SHOULD PLACE
  1943										;0,,41 INTO E AND NOT CHANGE C(AC)
  1944	031517	302 01 0 00 000100 		CAIE	1,100			;PASS IF C(AC) IS UNCHANGED
  1945						STOP^
  1946	031520	254 04 0 00 031521 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1947	031521	324 00 0 00 031522 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1948									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1949									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1950									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1951	031522	200 02 0 00 031527 		MOVE	2,E51101
  1952	031523	302 02 0 00 000041 		CAIE	2,41			;PASS IF C(E)=0,,41
  1953						STOP^
  1954	031524	254 04 0 00 031525 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1955	031525	324 00 0 00 031526 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1956									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1957									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1958									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1959
  1960	031526	334 00 0 00 000000 		SKIPA				;GO TO NEXT TEST
  1961	031527	000000	000000		E51101:	0				;TEST WORD MEMORY
  1962
  1963					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 31
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL ADD/SUB INSTRUCTIONS                                                  SEQ 0060

  1964					;THIS TEST VERIFIES THAT SUBB SUBTRACTS C(E) FROM C(AC) AND
  1965					;PLACES THE RESULT INTO BOTH AC AND E.  IN THIS CASE,
  1966					;C(AC)=0,,100 AND C(E)=0,,37.  HENCE, THE RESULT IN BOTH
  1967					;AC AND E SHOULD BE 0,,41.
  1968
  1969	031530	201 01 0 00 000100 	C51200:	MOVEI	1,100			;PRELOAD AC WITH 0,,100
  1970	031531	201 02 0 00 000037 		MOVEI	2,37			;PRELOAD E WITH O,,37
  1971	031532	277 01 0 00 000002 		SUBB	1,2			;*SUBB SHOULD PLACE 0,,41 INTO BOTH AC  AND E
  1972	031533	302 01 0 00 000041 		CAIE	1,41			;PASS IF C(AC)=0,,41
  1973						STOP^
  1974	031534	254 04 0 00 031535 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1975	031535	324 00 0 00 031536 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1976									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1977									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1978									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1979	031536	302 02 0 00 000041 		CAIE	2,41			;PASS IF C(E)=0,,41
  1980						STOP^
  1981	031537	254 04 0 00 031540 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1982	031540	324 00 0 00 031541 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1983									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1984									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1985									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1986
  1987					;**********
  1988
  1989					;THIS TEST VERIFIES THAT SUBB SUBTRACTS C(E) FROM C(AC) AND
  1990					;PLACES THE RESULT INTO BOTH AC AND E.  IN THIS CASE,
  1991					;C(AC)=0,,100 AND C(E)=0,,37.  HENCE, THE RESULT IN BOTH
  1992					;AC AND E SHOULD BE 0,,41.
  1993
  1994	031541	201 01 0 00 000100 	C51201:	MOVEI	1,100			;PRELOAD AC WITH 0,,100
  1995	031542	201 02 0 00 000037 		MOVEI	2,37			;PRELOAD E WITH O,,37
  1996	031543	202 02 0 00 031555 		MOVEM	2,E51201
  1997	031544	277 01 0 00 031555 		SUBB	1,E51201		;*SUBB SHOULD PLACE 0,,41 INTO BOTH AC  AND E
  1998	031545	302 01 0 00 000041 		CAIE	1,41			;PASS IF C(AC)=0,,41
  1999						STOP^
  2000	031546	254 04 0 00 031547 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2001	031547	324 00 0 00 031550 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2002									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2003									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2004									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2005	031550	200 02 0 00 031555 		MOVE	2,E51201
  2006	031551	302 02 0 00 000041 		CAIE	2,41			;PASS IF C(E)=0,,41
  2007						STOP^
  2008	031552	254 04 0 00 031553 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2009	031553	324 00 0 00 031554 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2010									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2011									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2012									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2013
  2014	031554	334 00 0 00 000000 		SKIPA				;GO TO NEXT TEST
  2015	031555	000000	000000		E51201:	0				;TEST WORD MEMORY
  2016
  2017					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 32
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL CAIX INSTRUCTIONS                                                     SEQ 0061

  2018					SUBTTL	TEST OF MSCL CAIX INSTRUCTIONS
  2019
  2020					;**********
  2021
  2022					;THIS TEST VERIFIES THAT CAIL COMPARES C(AC) WITH E AND
  2023					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN E.
  2024					;IN THIS CASE, C(AC)=0,,1 AND E=0,,2
  2025					;HENCE, CAIL SHOULD SKIP THE NEXT INSTRUCTION.
  2026					;IF CAIL SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES
  2027
  2028	031556	201 01 0 00 000001 	C51300:	MOVEI	1,1			;PRELOAD AC WITH 0,,1
  2029	031557	301 01 0 00 000002 		CAIL	1,2			;*CAIL SHOULD SKIP THE NEXT INSTRUCTION
  2030						STOP^
  2031	031560	254 04 0 00 031561 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2032	031561	324 00 0 00 031562 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2033									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2034									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2035									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2036
  2037					;**********
  2038
  2039					;THIS TEST VERIFIES THAT CAIL COMPARES C(AC) WITH E AND
  2040					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN E.
  2041					;IN THIS CASE, C(AC)=0,,2 AND E=0,,2.
  2042					;HENCE, CAIL SHOULD NOT SKIP THE NEXT INSTRUCTION.
  2043					;IF CAIL DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES.
  2044
  2045	031562	201 01 0 00 000002 	C51310:	MOVEI	1,2			;PRELOAD AC WITH 0,,2
  2046	031563	301 01 0 00 000002 		CAIL	1,2			;*CAIL SHOULD NOT SKIP THE NEXT INSTRUCTION
  2047	031564	334 00 0 00 000000 		SKIPA				;PASS IF CAIL DOES NOT SKIP
  2048						STOP^
  2049	031565	254 04 0 00 031566 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2050	031566	324 00 0 00 031567 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2051									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2052									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2053									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2054
  2055					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 33
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL CAIX INSTRUCTIONS                                                     SEQ 0062

  2056					;THIS TEST VERIFIES THAT CAIL COMPARES C(AC) WITH E AND
  2057					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN E
  2058					;IN THIS CASE, C(AC)=0,,3 AND E=0,,2
  2059					;HENCE, CAIL SHOULD NOT SKIP THE NEXT INSTRUCTION.
  2060					;IF CAIL DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES.
  2061
  2062	031567	201 01 0 00 000003 	C51320:	MOVEI	1,3			;PRELOAD AC WITH 0,,3
  2063	031570	301 01 0 00 000002 		CAIL	1,2			;*CAIL SHOULD SKIP THE NEXT INSTRUCTION
  2064	031571	334 00 0 00 000000 		SKIPA				;PASS IF CAIL DOES NOT SKIP
  2065						STOP^
  2066	031572	254 04 0 00 031573 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2067	031573	324 00 0 00 031574 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2068									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2069									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2070									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2071
  2072					;**********
  2073
  2074					;THIS TEST VERIFIES THAT CAILE COMPARES C(AC) WITH E AND
  2075					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN OR EQUAL TO E
  2076					;IN THIS CASE, C(AC)=-1,,-1 AND E=0
  2077					;HENCE, CAILE SHOULD SKIP THE NEXT INSTRUCTION
  2078					;IF CAILE SKIPS THE NEXT INSTRUCTION, THE TEST PASSES
  2079
  2080	031574	474 01 0 00 000000 	C51400:	SETO	1,			;PRELOAD AC WITH -1,,-1
  2081	031575	303 01 0 00 000000 		CAILE	1,0			;*CAILE SHOULD SKIP THE NEXT INSTRUCTION
  2082						STOP^
  2083	031576	254 04 0 00 031577 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2084	031577	324 00 0 00 031600 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2085									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2086									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2087									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2088
  2089					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 34
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL CAIX INSTRUCTIONS                                                     SEQ 0063

  2090					;THIS TEST VERIFIES THAT CAILE COMPARES C(AC) WITH E AND
  2091					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN OR EQUAL TO E
  2092					;IN THIS CASE, C(AC)=0	AND E=0
  2093					;HENCE, CAILE SHOULD SKIP THE NEXT INSTRUCTION.
  2094					;IF CAILE SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES.
  2095
  2096	031600	400 01 0 00 000000 	C51410:	SETZ	1,			;PRELOAD AC WITH 0
  2097	031601	303 01 0 00 000000 		CAILE	1,0			;*CAILE SHOULD SKIP THE NEXT INSTRUCTION.
  2098						STOP^
  2099	031602	254 04 0 00 031603 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2100	031603	324 00 0 00 031604 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2101									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2102									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2103									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2104
  2105					;**********
  2106
  2107					;THIS TEST VERIFIES THAT CAILE COMPARES C(AC) WITH E AND
  2108					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN OR EQUAL TO E 
  2109					;IN THIS CASE, C(AC)=0,,1 AND E=0
  2110					;HENCE, CAILE SHOULD NOT SKIP THE NEXT INSTRUCTION.
  2111					;IF CAILE DOES NOT SKIP THE NEXT INSTRUCTION, THE TEST PASSES
  2112
  2113	031604	201 01 0 00 000001 	C51420:	MOVEI	1,1			;PRELOAD AC WITH 0,,1
  2114	031605	303 01 0 00 000000 		CAILE	1,0			;*CAILE SHOULD NOT SKIP THE NEXT INSTRUCTION
  2115	031606	334 00 0 00 000000 		SKIPA				;PASS IF CAILE DOES NOT SKIP
  2116						STOP^
  2117	031607	254 04 0 00 031610 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2118	031610	324 00 0 00 031611 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2119									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2120									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2121									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2122
  2123					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 35
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL CAIX INSTRUCTIONS                                                     SEQ 0064

  2124					;THIS TEST VERIFIES THAT CAIA COMPARES C(AC) WITH E AND ALWAYS
  2125					;SKIPS THE NEXT INSTRUCTION
  2126					;IN THIS CASE, C(AC)=-1,,-1 AND E=0
  2127					;HENCE, CAIA SHOULD SKIP THE NEXT INSTRUCTION
  2128					;IF CAIA SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES
  2129
  2130	031611	474 01 0 00 000000 	C51500:	SETO	1,			;PRELOAD AC WITH -1,,-1
  2131	031612	304 01 0 00 000000 		CAIA	1,0			;*CAIA SHOULD SKIP THE NEXT INSTRUCTION
  2132						STOP^
  2133	031613	254 04 0 00 031614 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2134	031614	324 00 0 00 031615 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2135									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2136									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2137									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2138
  2139					;**********
  2140
  2141					;THIS TEST VERIFIES THAT CAIA COMPARES C(AC) WITH E AND ALWAYS
  2142					;SKIPS THE NEXT INSTRUCTION
  2143					;IN THIS CASE, C(AC)=0 AND E=0
  2144					;HENCE, CAIA SHOULD SKIP THE NEXT INSTRUCTION.
  2145					;IF CAIA SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES
  2146
  2147	031615	400 01 0 00 000000 	C51510:	SETZ	1,			;PRELOAD AC WITH 0
  2148	031616	304 01 0 00 000000 		CAIA	1,0			;*CAIA SHOULD SKIP THE NEXT INSTRUCTION
  2149						STOP^
  2150	031617	254 04 0 00 031620 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2151	031620	324 00 0 00 031621 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2152									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2153									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2154									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2155
  2156					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 36
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL CAIX INSTRUCTIONS                                                     SEQ 0065

  2157					;THIS TEST VERIFIES THAT CAIA COMPARES C(AC) WITH E AND ALWAYS
  2158					;SKIPS THE NEXT INSTRUCTION
  2159					;IN THIS CASE, C(AC)=0,,1 AND E=0
  2160					;HENCE, CAIA SHOULD SKIP THE NEXT INSTRUCTION.
  2161					;IF CAIA SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES.
  2162
  2163	031621	201 01 0 00 000001 	C51520:	MOVEI	1,1			;PRELOAD AC WITH 0,,1
  2164	031622	304 01 0 00 000000 		CAIA	1,0			;*CAIA SHOULD SKIP THE NEXT INSTRUCTION
  2165						STOP^
  2166	031623	254 04 0 00 031624 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2167	031624	324 00 0 00 031625 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2168									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2169									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2170									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2171
  2172					;**********
  2173
  2174					;THIS TEST VERIFIES THAT CAIGE COMPARES C(AC) WITH E AND
  2175					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN OR EQUAL TO E.
  2176					;IN THIS CASE, C(AC)=0,,5 AND E=0,,6
  2177					;HENCE, CAIGE SHOULD NOT SKIP THE NEXT INSTRUCTION.
  2178					;IF CAIGE DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES
  2179
  2180	031625	201 02 0 00 000005 	C51600:	MOVEI	2,5			;PRELOAD AC WITH 0,,5
  2181	031626	305 02 0 00 000006 		CAIGE	2,6			;*CAIGE SHOULD NOT SKIP THE NEXT INSTRUCTION
  2182	031627	334 00 0 00 000000 		SKIPA				;PASS IF CAIGE DOES NOT SKIP
  2183						STOP^
  2184	031630	254 04 0 00 031631 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2185	031631	324 00 0 00 031632 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2186									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2187									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2188									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2189
  2190					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 37
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL CAIX INSTRUCTIONS                                                     SEQ 0066

  2191					;THIS TEST VERIFIES THAT CAIGE COMPARES C(AC) WITH E AND
  2192					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN OR EQUAL TO E
  2193					;IN THIS CASE, C(AC)=0,,6 AND E=0,,6
  2194					;HENCE, CAIGE SHOULD SKIP THE NEXT INSTRUCTION.
  2195					;IF CAIGE SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES.
  2196
  2197	031632	201 02 0 00 000006 	C51610:	MOVEI	2,6			;PRELOAD AC WITH 0,,6
  2198	031633	305 00 0 00 000000 		CAIGE				;*CAIGE SHOULD SKIP THE NEXT INSTRUCTION
  2199						STOP^
  2200	031634	254 04 0 00 031635 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2201	031635	324 00 0 00 031636 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2202									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2203									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2204									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2205
  2206					;**********
  2207
  2208					;THIS TEST VERIFIES THAT CAIGE COMPARES C(AC) WITH E AND
  2209					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN OR EQUAL TO E.
  2210					;IN THIS CASE, C(AC)=0,,7 AND E=0,,6
  2211					;HENCE, CAIGE SHOULD SKIP THE NEXT INSTRUCTION.
  2212					;IF CAIGE SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES
  2213
  2214	031636	201 02 0 00 000007 	C51620:	MOVEI	2,7		;PRELOAD AC WITH 0,,7
  2215	031637	305 02 0 00 000006 		CAIGE	2,6		;*CAIGE SHOULD SKIP THE NEXT INSTRUCTION
  2216						STOP^
  2217	031640	254 04 0 00 031641 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2218	031641	324 00 0 00 031642 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2219									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2220									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2221									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2222
  2223					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 38
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL CAIX INSTRUCTIONS                                                     SEQ 0067

  2224					;THIS TEST VERIRIES THAT CAIN COMPARES C(AC) WITH E AND
  2225					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS NOT EQUAL TO E.
  2226					;IN THIS CASE, C(AC)=0 AND E=0,,1
  2227					;HENCE, CAIN SHOULD SKIP THE NEXT INSTRUCTION.
  2228					;IF CAIN SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES.
  2229
  2230	031642	400 06 0 00 000000 	C51700:	SETZ	6,		;PRELOAD AC WITH 0
  2231	031643	306 06 0 00 000001 		CAIN	6,1		;*CAIN SHOULD SKIP THE NEXT INSTRUCTION
  2232						STOP^
  2233	031644	254 04 0 00 031645 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2234	031645	324 00 0 00 031646 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2235									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2236									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2237									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2238
  2239					;**********
  2240
  2241					;THIS TEST VERIFIES THAT CAIN COMPARES C(AC) WITH E AND
  2242					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS NOT EQUAL TO E.
  2243					;IN THIS CASE, C(AC)=0,,1 AND E=0,,1
  2244					;HENCE, CAIN SHOULD NOT SKIP THE NEXT INSTRUCTION.
  2245					;IF CAIN DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES
  2246
  2247	031646	200 06 0 00 000001 	C51710:	MOVE	6,1		;PRELOAD AC WITH 0,,1
  2248	031647	306 06 0 00 000001 		CAIN	6,1		;*CAIN SHOULD NOT SKIP THE NEXT INSTRUCTION
  2249	031650	334 00 0 00 000000 		SKIPA			;PASS IF CAIN SKIPS
  2250						STOP^
  2251	031651	254 04 0 00 031652 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2252	031652	324 00 0 00 031653 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2253									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2254									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2255									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2256
  2257					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 39
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL CAIX INSTRUCTIONS                                                     SEQ 0068

  2258					;THIS TEST VERIFIES THAT CAIN COMPARES C(AC) WITH E AND
  2259					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS NOT EQUAL TO E.
  2260					;IN THIS CASE, C(AC)=0,,2 AND E=0,,1
  2261					;HENCE, CAIN SHOULD SKIP THE NEXT INSTRUCTION.
  2262					;IF CAIN SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES
  2263
  2264	031653	201 06 0 00 000002 	C51720:	MOVEI	6,2		;PRELOAD AC WITH
  2265	031654	306 06 0 00 000001 		CAIN	6,1		;*CAIN SHOULD SKIP THE NEXT INSTRUCTION
  2266						STOP^
  2267	031655	254 04 0 00 031656 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2268	031656	324 00 0 00 031657 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2269									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2270									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2271									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2272
  2273					;**********
  2274
  2275					;THIS TEST VERIFIES THAT CAIG COMPARES C(AC) WITH E AND
  2276					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN E.
  2277					;IN THIS CASE, C(AC)=0,,2 AND E=0,,3.
  2278					;HENCE, CAIG SHOULD NOT SKIP THE NEXT INSTRUCTION.
  2279					;IF CAIG DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES
  2280
  2281	031657	201 11 0 00 000002 	C52000:	MOVEI	11,2		;PRELOAD AC WITH 0,,2
  2282	031660	307 11 0 00 000003 		CAIG	11,3		;*CAIG SHOULD NOT SKIP THE NEXT INSTRUCTION
  2283	031661	334 00 0 00 000000 		SKIPA			;PASS IF CAIG DID NOT SKIP
  2284						STOP^
  2285	031662	254 04 0 00 031663 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2286	031663	324 00 0 00 031664 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2287									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2288									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2289									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2290
  2291					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 40
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL CAIX INSTRUCTIONS                                                     SEQ 0069

  2292					;THIS TEST VERIFIES THAT CAIG COMPARES C(AC) WITH E AND
  2293					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN E.
  2294					;IN THIS CASE, C(AC)=0,,3 AND E=0,,3.
  2295					;HENCE, CAIG SHOULD NOT SKIP THE NEXT INSTRUCTION.
  2296					;IF CAIG DOES NOT SKIP THE NEXT INSTRUCTION, THE TEST PASSES.
  2297
  2298	031664	201 11 0 00 000003 	C52010:	MOVEI	11,3		;PRELOAD AC WITH 0,,3
  2299	031665	307 11 0 00 000003 		CAIG	11,3		;*CAIG SHOULD NOT SKIP THE NEXT INSTRUCTION
  2300	031666	334 00 0 00 000000 		SKIPA			;PASS IF CAIG DID NOT SKIP
  2301						STOP^
  2302	031667	254 04 0 00 031670 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2303	031670	324 00 0 00 031671 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2304									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2305									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2306									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2307
  2308					;**********
  2309
  2310					;THIS TEST VERIFIES THAT CAIG COMPARES C(AC) WITH E AND
  2311					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN E.
  2312					;IN THIS CASE, C(AC)=0,,4 AND E=0,,3.
  2313					;HENCE, CAIG SHOULD SKIP THE NEXT INSTRUCTION.
  2314					;IF CAIG SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES.
  2315
  2316	031671	201 11 0 00 000004 	C52020:	MOVEI	11,4		;PRELOAD AC WITH 0,,4
  2317	031672	307 11 0 00 000003 		CAIG	11,3		;*CAIG SHOULD SKIP THE NEXT INSTRUCTION
  2318						STOP^
  2319	031673	254 04 0 00 031674 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2320	031674	324 00 0 00 031675 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2321									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2322									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2323									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2324
  2325					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 41
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL CAMX INSTRUCTIONS                                                     SEQ 0070

  2326					SUBTTL	TEST OF MSCL CAMX INSTRUCTIONS
  2327
  2328					;**********
  2329
  2330					;THIS TEST VERIFIES THAT CAMLE COMPARES C(AC) WITH C(E) AND
  2331					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAT OR EQUAL TO C(E).
  2332					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0
  2333					;HENCE, CAMLE SHOULD SKIP THE NEXT INSTRUCTION.
  2334					;IF CAMLE SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES.
  2335
  2336	031675	474 01 0 00 000000 	C52100:	SETO	1,		;PRELOAD AC WITH -1,,-1
  2337	031676	400 02 0 00 000000 		SETZ	2,		;PRELOAD E WITH 0
  2338	031677	313 01 0 00 000002 		CAMLE	1,2		;*CAMLE SHOULD SKIP THE NEXT INSTRUCTION
  2339						STOP^
  2340	031700	254 04 0 00 031701 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2341	031701	324 00 0 00 031702 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2342									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2343									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2344									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2345
  2346					;**********
  2347
  2348					;THIS TEST VERIFIES THAT CAMLE COMPARES C(AC) WITH C(E) AND
  2349					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN OR EQUAL TO C(E).
  2350					;IN THIS CASE, C(AC)=0 AND C(E)=0
  2351					;HENCE, CAMLE SHOULD SKIP THE NEXT INSTRUCTION.
  2352					;IF CAMLE SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES
  2353
  2354	031702	400 01 0 00 000000 	C52110:	SETZ	1,		;CLEAR AC
  2355	031703	313 01 0 00 033501 		CAMLE	1,[0]		;*CAMLE SHOULD SKIP THE NEXT INSTRUCTION
  2356						STOP^
  2357	031704	254 04 0 00 031705 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2358	031705	324 00 0 00 031706 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2359									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2360									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2361									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2362
  2363					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 42
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL CAMX INSTRUCTIONS                                                     SEQ 0071

  2364					;THIS TEST VERIFIES THAT CAMLE COMPARES C(AC) WITH C(E) AND
  2365					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN OR EQUAL TO C(E).
  2366					;IN THIS CASE, C(AC)=0,,1 AND C(E)=0
  2367					;HENCE, CAMLE SHOULD NOT SKIP THE NEXT INSTRUCTION.
  2368					;IF CAMLE DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES.
  2369
  2370	031706	201 01 0 00 000001 	C52120:	MOVEI	1,1		;PRELOAD AC WITH 0,,1
  2371	031707	400 02 0 00 000000 		SETZ	2,		;PRELOAD E WITH 0
  2372	031710	313 01 0 00 000002 		CAMLE	1,2		;*CAMLE SHOULD NOT SKIP THE NEXT INSTRUCTION
  2373	031711	334 00 0 00 000000 		SKIPA			;PASS IF CAMLE DOES NOT SKIP
  2374						STOP^
  2375	031712	254 04 0 00 031713 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2376	031713	324 00 0 00 031714 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2377									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2378									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2379									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2380
  2381					;**********
  2382
  2383					;THIS TEST VERIFIES THAT CAMG COMPARES C(AC) WITH C(E) AND
  2384					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN C(E).
  2385					;IN THIS CASE, C(AC)=-1,,-2 AND C(E)=-1,,-1.
  2386					;HENCE, CAMG SHOULD NOT SKIP THE NEXT INSTRUCTION.
  2387					;IF CAMG DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES.
  2388
  2389	031714	561 10 0 00 777776 	C52200:	HRROI	10,-2		;PRELOAD AC WITH -1,,-2
  2390	031715	317 10 0 00 033462 		CAMG	10,[-1,,-1]	;*CAMG SHOULD NOT SKIP THE NEXT INSTRUCTION.
  2391	031716	334 00 0 00 000000 		SKIPA			;PASS IF CAMG DOES NOT SKIP
  2392						STOP^
  2393	031717	254 04 0 00 031720 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2394	031720	324 00 0 00 031721 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2395									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2396									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2397									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2398					;**********
  2399
  2400					;THIS TEST VERIFIES THAT CAMG COMPARES C(AC) WITH C(E) AND
  2401					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN C(E).
  2402					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,-2.
  2403					;HENCE, CAMG SHOULD SKIP THE NEXT INSTRUCTION.
  2404
  2405	031721	561 10 0 00 777777 	C52205:	HRROI	10,-1		;PRELOAD AC WITH -1,,-1
  2406	031722	317 10 0 00 033500 		CAMG	10,[-1,,-2]	;*CAMG SHOULD SKIP THE NEXT INSTRUCTION.
  2407						STOP^
  2408	031723	254 04 0 00 031724 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2409	031724	324 00 0 00 031725 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2410									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2411									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2412									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2413					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 43
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL CAMX INSTRUCTIONS                                                     SEQ 0072

  2414					;THIS TEST VERIFIES THAT CAMG COMPARES C(AC) WITH C(E) AND
  2415					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN C(E).
  2416					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,-1.
  2417					;HENCE, CAMG SHOULD NOT SKIP THE NEXT INSTRUCTION.
  2418					;IF CAMG DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES.
  2419	031725	474 10 0 00 000000 	C52210:	SETO	10,		;PRELOAD AC WITH -1,,-1.
  2420	031726	317 10 0 00 033462 		CAMG	10,[-1,,-1]	;*CAMG SHOULD NOT SKIP THE NEXT INSTRUCTION
  2421	031727	334 00 0 00 000000 		SKIPA			;PASS IF CAMG DOES NOT SKIP
  2422						STOP^
  2423	031730	254 04 0 00 031731 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2424	031731	324 00 0 00 031732 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2425									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2426									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2427									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2428
  2429					;**********
  2430
  2431					;THIS TEST VERIFIES THAT CAMG COMPARES C(AC) WITH C(E) AND
  2432					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN C(E).
  2433					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1.
  2434					;HENCE, CAMG SHOULD SKIP THE NEXT INSTRUCTION.
  2435					;IF CAMG SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES.
  2436
  2437	031732	400 10 0 00 000000 	C52220:	SETZ	10,		;PRELOAD AC WITH 0
  2438	031733	317 10 0 00 033462 		CAMG	10,[-1,,-1]	;*CAMG SHOULD SKIP THE NEXT INSTRUCTION
  2439						STOP^
  2440	031734	254 04 0 00 031735 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2441	031735	324 00 0 00 031736 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2442									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2443									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2444									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2445
  2446					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 44
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL JUMPX INSTRUCTIONS                                                    SEQ 0073

  2447					SUBTTL	TEST OF MSCL JUMPX INSTRUCTIONS
  2448
  2449					;**********
  2450
  2451					;THIS TEST VERIFIES THAT JUMPLE COMPARES C(AC) WITH 0 AND
  2452					;JUMPS TO THE LOCATION SPECIFIED BY E IF C(AC) IS LESS THAN OR
  2453					;EQUAL TO 0.  IN THIS CASE, C(AC)=-1,,-1.  HENCE, JUMPLE SHOULD JUMP.
  2454
  2455	031736	474 17 0 00 000000 	C52300:	SETO	17,		;PRELOAD AC WITH -1,,-1
  2456	031737	323 17 0 00 031741 		JUMPLE	17,.+2		;*JUMPLE SHOULD JUMP
  2457						STOP^
  2458	031740	254 04 0 00 031741 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2459	031741	324 00 0 00 031742 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2460									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2461									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2462									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2463
  2464					;**********
  2465
  2466					;THIS TEST VERIFIES THAT JUMPLE COMPARES C(AC) WITH 0 AND
  2467					;JUMPS TO THE LOCATION SPECIFIED BY E IF C(AC) IS LESS THAN OR
  2468					;EQUAL TO 0.  IN THIS CASE, C(AC)=0.  HENCE, JUMPLE SHOULD JUMP.
  2469
  2470	031742	400 17 0 00 000000 	C52310:	SETZ	17,		;PRELOAD AC WITH 0
  2471	031743	323 17 0 00 031745 		JUMPLE	17,.+2		;*JUMPLE SHOULD JUMP
  2472						STOP^
  2473	031744	254 04 0 00 031745 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2474	031745	324 00 0 00 031746 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2475									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2476									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2477									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2478
  2479					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 45
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL JUMPX INSTRUCTIONS                                                    SEQ 0074

  2480					;THIS TEST VERIFIES THAT JUMPLE COMPARES C(AC) WITH 0 AND JUMPS
  2481					;TO THE LOCATION SPECIFIED BY E IF C(AC) IS LESS THAN OR EQUAL TO
  2482					;0.  IN THIS CASE, C(AC)=0,,1.  HENCE, JUMPLE SHOULD NOT JUMP.
  2483
  2484	031746	201 17 0 00 000001 	C52320:	MOVEI	17,1		;PRELOAD AC WITH 0,,1
  2485	031747	320 17 0 00 031751 		JUMP	17,.+2		;*JUMPLE SHOULD NOT JUMP
  2486	031750	334 00 0 00 000000 		SKIPA			;PASS IF JUMPLE DOES NOT JUMP
  2487						STOP^
  2488	031751	254 04 0 00 031752 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2489	031752	324 00 0 00 031753 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2490									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2491									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2492									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2493
  2494					;**********
  2495
  2496					;THIS TEST VERIFIES THAT JUMPGE COMPARES C(AC) WITH 0 AND JUMPS TO
  2497					;THE LOCATION SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0.
  2498					;IN THIS CASE, C(AC)=-1,,-1.  HENCE, JUMPGE SHOULD NOT JUMP.
  2499
  2500	031753	474 16 0 00 000000 	C52400:	SETO	16,		;PRELOAD AC WITH -1,,-1
  2501	031754	325 16 0 00 031756 		JUMPGE	16,.+2		;*JUMPGE SHOULD NOT JUMP
  2502	031755	334 00 0 00 000000 		SKIPA			;PASS IF JUMPGE DOES NOT JUMP
  2503						STOP^
  2504	031756	254 04 0 00 031757 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2505	031757	324 00 0 00 031760 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2506									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2507									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2508									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2509
  2510					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 46
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL JUMPX INSTRUCTIONS                                                    SEQ 0075

  2511					;THIS TEST VERIFIES THAT JUMPGE COMPARES C(AC) WITH O AND JUMPS TO
  2512					;THE LOCATION SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0.
  2513					;IN THIS CASE, C(AC)=0.  HENCE, JUMPGE SHOULD JUMP.
  2514
  2515	031760	400 16 0 00 000000 	C52410:	SETZ	16,		;PRELOAD AC WITH 0
  2516	031761	325 16 0 00 031763 		JUMPGE	16,.+2		;*JUMPGE SHOULD JUMP
  2517						STOP^
  2518	031762	254 04 0 00 031763 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2519	031763	324 00 0 00 031764 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2520									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2521									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2522									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2523
  2524					;**********
  2525
  2526					;THIS TEST VERIFIES THAT JUMPGE COMPARES C(AC) WITH 0 AND JUMPS TO
  2527					;THE LOCATION SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0.
  2528					;IN THIS CASE, C(AC)=0,,1.  HENCE, JUMPGE SHOULD JUMP.
  2529
  2530	031764	201 16 0 00 000001 	C52420:	MOVEI	16,1		;PRELOAD AC WITH 0,,1
  2531	031765	325 16 0 00 031767 		JUMPGE	16,.+2		;*JUMPGE SHOULD JUMP
  2532						STOP^
  2533	031766	254 04 0 00 031767 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2534	031767	324 00 0 00 031770 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2535									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2536									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2537									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2538
  2539					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 47
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOJX INSTRUCTIONS                                                     SEQ 0076

  2540					SUBTTL	TEST OF MSCL AOJX INSTRUCTIONS
  2541
  2542					;**********
  2543
  2544					;THIS TEST VERIFIES THAT AOJL INCREMENTS C(AC) BY 0,,1 AND PLACES
  2545					;THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS COMPARED
  2546					;TO 0 AND THE PROGRAM JUMPS TO THE LOCATION SPECIFIED BY E IF C(AC)
  2547					;IS LESS THAN 0.  IN THIS CASE, C(AC)=-1,,-2 BEFORE INCREMENTING.
  2548					;HENCE, AOJL SHOULD JUMP.
  2549
  2550	031770	561 15 0 00 777776 	C52500:	HRROI	15,-2		;PRELOAD AC WITH -1,,-2
  2551	031771	341 15 0 00 031773 		AOJL	15,.+2		;*AOJL SHOULD ADD 0,,1 TO C(AC) AND JUMP
  2552						STOP^
  2553	031772	254 04 0 00 031773 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2554	031773	324 00 0 00 031774 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2555									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2556									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2557									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2558	031774	312 15 0 00 033462 		CAME	15,[-1]		;PASS IF C(AC) INCREMENTED CORRECTLY
  2559						STOP^
  2560	031775	254 04 0 00 031776 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2561	031776	324 00 0 00 031777 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2562									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2563									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2564									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2565
  2566					;**********
  2567
  2568					;THIS TEST VERIFIES THAT AOJL INCREMENTS C(AC) BY 0,,1 AND
  2569					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2570					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2571					;SPECIFIED BY E IF C(AC) IS LESS THAN 0.
  2572					;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING
  2573					;HENCE, AOJ SHOULD NOT JUMP
  2574
  2575	031777	474 15 0 00 000000 	C52510:	SETO	15,		;PRELOAD AC WITH
  2576	032000	341 15 0 00 032002 		AOJL	15,.+2		;*AOJL SHOULD ADD 0,,1 TO C(AC)
  2577									;AND NOT JUMP
  2578	032001	334 00 0 00 000000 		SKIPA			;PASS IF AOJL DID NOT JUMP
  2579						STOP^
  2580	032002	254 04 0 00 032003 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2581	032003	324 00 0 00 032004 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2582									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2583									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2584									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2585	032004	302 15 0 00 000000 		CAIE	15,0		;PASS IF C(AC) INCREMENTED CORRECTLY
  2586						STOP^
  2587	032005	254 04 0 00 032006 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2588	032006	324 00 0 00 032007 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2589									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2590									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2591									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2592
  2593					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 48
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOJX INSTRUCTIONS                                                     SEQ 0077

  2594					;THIS TEST VERIFIES THAT AOJL INCREMENTS C(AC) BY 0,,1 AND
  2595					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2596					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2597					;SPECIFIED BY E IF C(AC) IS 0 BEFORE INCREMENTING
  2598					;HENCE, AOJL SHOULD NOT JUMP
  2599
  2600	032007	400 15 0 00 000000 	C52520:	SETZ	15,		;PRELOAD AC WITH 0
  2601	032010	341 15 0 00 032012 		AOJL	15,.+2		;*AOJL SHOULD ADD 0,,1 TO C(AC)
  2602									;AND NOT JUMP
  2603	032011	334 00 0 00 000000 		SKIPA			;PASS IF AOJL DID NOT JUMP
  2604						STOP^
  2605	032012	254 04 0 00 032013 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2606	032013	324 00 0 00 032014 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2607									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2608									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2609									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2610	032014	302 15 0 00 000001 		CAIE	15,1		;PASS IF C(AC) INCREMENTED CORRECTLY
  2611						STOP^
  2612	032015	254 04 0 00 032016 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2613	032016	324 00 0 00 032017 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2614									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2615									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2616									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2617
  2618					;**********
  2619
  2620					;THIS TEST VERIFIES THAT AOJE INCREMENTS C(AC) BY 0,,1 AND
  2621					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2622					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2623					;SPECIFIED BY E IF C(AC) IS EQUAL TO 0
  2624					;IN THIS CASE, C(AC) IS -1,,-2 BEFORE INCREMENTING
  2625					;HENCE, AOJE SHOULD NOT JUMP
  2626
  2627	032017	561 14 0 00 777776 	C52600:	HRROI	14,-2		;PRELOAD AC WITH -1,,-2
  2628	032020	342 14 0 00 032022 		AOJE	14,.+2		;*AOJE SHOULD ADD 0,,1 TO C(AC)
  2629									;AND NOT JUMP
  2630	032021	334 00 0 00 000000 		SKIPA			;PASS IF AOJE DID NOT JUMP
  2631						STOP^
  2632	032022	254 04 0 00 032023 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2633	032023	324 00 0 00 032024 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2634									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2635									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2636									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2637	032024	312 14 0 00 033462 		CAME	14,[-1]		;PASS IF C(AC) INCREMENTED CORRECTLY
  2638						STOP^
  2639	032025	254 04 0 00 032026 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2640	032026	324 00 0 00 032027 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2641									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2642									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2643									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2644
  2645					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 49
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOJX INSTRUCTIONS                                                     SEQ 0078

  2646					;THIS TEST VERIFIES THAT AOJE INCREMENTS C(AC) BY 0,,1 AND
  2647					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2648					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2649					;SPECIFIED BY E IF C(AC) IS EQUAL TO 0.
  2650					;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING.
  2651					;HENCE, AOJE SHOULD JUMP
  2652
  2653	032027	474 14 0 00 000000 	C52610:	SETO	14,		;PRELOAD AC WITH -1,,-1
  2654	032030	342 14 0 00 032032 		AOJE	14,.+2		;*AOJ SHOULD ADD 0,,1 TO C(AC)
  2655									;AND JUMP
  2656						STOP^
  2657	032031	254 04 0 00 032032 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2658	032032	324 00 0 00 032033 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2659									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2660									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2661									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2662	032033	302 14 0 00 000000 		CAIE	14,0		;PASS IF C(AC) INCREMENTED CORRECTLY
  2663						STOP^
  2664	032034	254 04 0 00 032035 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2665	032035	324 00 0 00 032036 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2666									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2667									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2668									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2669
  2670					;**********
  2671
  2672					;THIS TEST VERIFIES THAT AOJE INCREMENTS C(AC) BY 0,,1 AND
  2673					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2674					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2675					;SPECIFIED BY E IF C(AC) IS EQUAL TO 0.
  2676					;IN THIS CASE, C(AC) IS 0 BEFORE INCREMENTING
  2677					;HENCE, AOJE SHOULD NOT JUMP
  2678
  2679	032036	400 14 0 00 000000 	C52620:	SETZ	14,		;PRELOAD AC WITH 0
  2680	032037	342 14 0 00 032041 		AOJE	14,.+2		;*AOJE SHOULD ADD 0,11 TO C(AC)
  2681									;AND NOT JUMP
  2682	032040	334 00 0 00 000000 		SKIPA			;PASS IF AOJE DID NOT JUMP
  2683						STOP^
  2684	032041	254 04 0 00 032042 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2685	032042	324 00 0 00 032043 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2686									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2687									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2688									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2689	032043	302 14 0 00 000001 		CAIE	14,1		;PASS IF C(AC) INCREMENTED CORRECTLY
  2690						STOP^
  2691	032044	254 04 0 00 032045 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2692	032045	324 00 0 00 032046 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2693									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2694									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2695									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2696
  2697					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 50
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOJX INSTRUCTIONS                                                     SEQ 0079

  2698					;THIS TEST VERIFIES THAT AOJLE INCREMENTS C(AC) BY 0,,1 AND
  2699					;PLACES THE RESULT BACK INTO TLE$EC.  THE RESULT IN THE AC IS
  2700					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2701					;SPECIFIED BY E IF C(AC) IS LESS THAN OR EQUAL TO 0.
  2702					;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING
  2703					;HENCE, AOJLE SHOULD
  2704
  2705	032046	561 13 0 00 777776 	C52700:	HRROI	13,-2		;PRELOAD AC WITH -1,,-2
  2706	032047	343 13 0 00 032051 		AOJLE	13,.+2		;*AOJLE SHOULD ADD 0,,1 TO C(AC)
  2707									;AND JUMP
  2708						STOP^
  2709	032050	254 04 0 00 032051 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2710	032051	324 00 0 00 032052 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2711									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2712									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2713									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2714	032052	312 13 0 00 033462 		CAME	13,[-1]		;PASS IF C(AC) INCREMENTED CORRECTLY
  2715						STOP^
  2716	032053	254 04 0 00 032054 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2717	032054	324 00 0 00 032055 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2718									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2719									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2720									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2721
  2722					;**********
  2723
  2724					;THIS TEST VERIFIES THAT AOJLE INCREMENTS C(AC) BY 0,,1 AND
  2725					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2726					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2727					;SPECIFIED BY E IF C(AC) IS LESS THAN OR EQUAL TO 0
  2728					;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING
  2729					;HENCE, AOJLE SHOULD JUMP.
  2730
  2731	032055	474 13 0 00 000000 	C52710:	SETO	13,		;PRELOAD AC WITH -1,,-1
  2732	032056	343 13 0 00 032060 		AOJLE	13,.+2		;*AOJLE SHOULD ADD 0,,1 TO C(AC)
  2733									;AND JUMP
  2734						STOP^
  2735	032057	254 04 0 00 032060 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2736	032060	324 00 0 00 032061 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2737									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2738									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2739									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2740	032061	302 13 0 00 000000 		CAIE	13,0		;PASS IF C(AC) INCREMENTED CORRECTLY
  2741						STOP^
  2742	032062	254 04 0 00 032063 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2743	032063	324 00 0 00 032064 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2744									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2745									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2746									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2747
  2748					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 51
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOJX INSTRUCTIONS                                                     SEQ 0080

  2749					;THIS TEST VERIFIES THAT AOJLE INCREMENTS C(AC) BY 0,,1 AND
  2750					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2751					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2752					;SPECIFIED BY E IF C(AC) IS LESS THAN OR EQUAL TO 0.
  2753					;IN THIS CASE, C(AC) IS 0
  2754					;HENCE, AOJLE SHOULD NOT JUMP.
  2755
  2756	032064	400 13 0 00 000000 	C52720:	SETZ	13,		;PRELOAD AC WITH 0
  2757	032065	343 13 0 00 032067 		AOJLE	13,.+2		;*AOJLE SHOULD ADD 0,,1 TO C(AC)
  2758									;AND NOT JUMP
  2759	032066	334 00 0 00 000000 		SKIPA			;PASS IF AOJLE DID NOT JUMP
  2760						STOP^
  2761	032067	254 04 0 00 032070 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2762	032070	324 00 0 00 032071 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2763									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2764									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2765									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2766	032071	302 13 0 00 000001 		CAIE	13,1		;PASS IF C(AC) INCREMENTED CORRECTLY
  2767						STOP^
  2768	032072	254 04 0 00 032073 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2769	032073	324 00 0 00 032074 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2770									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2771									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2772									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2773
  2774					;**********
  2775
  2776					;THIS TEST VERIFIES THAT AOJA INCREMENTS C(AC) BY 0,,1 AND
  2777					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2778					;COMPARED TO 0 AND THE PROGRAM ALWAYS JUMPS TO THE LOCATION
  2779					;SPECIFIED BY E.
  2780					;IN THIS CASE, C(AC) IS -1,,-2 BEFORE INCREMENTING
  2781					;HENCE, AOJA SHOULD JUMP
  2782
  2783	032074	561 12 0 00 777776 	C53000:	HRROI	12,-2		;PRELOAD AC WITH -1,,-2
  2784	032075	344 12 0 00 032077 		AOJA	12,.+2		;*AOJA SHOULD ADD 0,,1 TO C(AC)
  2785									;AND JUMP
  2786						STOP^
  2787	032076	254 04 0 00 032077 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2788	032077	324 00 0 00 032100 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2789									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2790									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2791									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2792	032100	312 12 0 00 033462 		CAME	12,[-1]		;PASS IF C(AC) INCREMENTED CORRECTLY
  2793						STOP^
  2794	032101	254 04 0 00 032102 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2795	032102	324 00 0 00 032103 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2796									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2797									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2798									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2799
  2800					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 52
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOJX INSTRUCTIONS                                                     SEQ 0081

  2801					;THIS TEST VERIFIES THAT AOJA INCREMENTS C(AC) BY 0,,1 AND
  2802					;PLACES THE RESULT BACK INTO AC.  THE RESULT IN THE AC IS
  2803					;COMPARED TO 0 AND THE PROGRAM ALWAYS JUMPS TO THE LOCATION
  2804					;SPECIFIED BY E.
  2805					;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING
  2806					;HENCE, AOJA SHOULD JUMP
  2807
  2808	032103	474 12 0 00 000000 	C53010:	SETO	12,		;PRELOAD AC WITH -1,,-1
  2809	032104	344 12 0 00 032106 		AOJA	12,.+2		;*AOJA SHOULD ADD 0,,1 TO C(AC)
  2810									;AND JUMP
  2811						STOP^
  2812	032105	254 04 0 00 032106 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2813	032106	324 00 0 00 032107 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2814									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2815									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2816									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2817	032107	302 12 0 00 000000 		CAIE	12,0		;PASS IF C(AC) INCREMENTED CORRECTLY
  2818						STOP^
  2819	032110	254 04 0 00 032111 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2820	032111	324 00 0 00 032112 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2821									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2822									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2823									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2824
  2825					;**********
  2826
  2827					;THIS TEST VERIFIES THAT AOJA INCREMENTS C(AC) BY 0,,1 AND
  2828					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2829					;COMPARED TO 0 AND THE PROGRAM ALWAYS JUMPS TO THE LOCATION
  2830					;SPECIFIED BY E.
  2831					;IN THIS CASE, C(AC) IS 0 BEFORE INCREMENTING
  2832					;HENCE, AOJA SHOULD JUMP
  2833
  2834	032112	400 12 0 00 000000 	C53020:	SETZ	12,		;PRELOAD AC WITH 0
  2835	032113	344 12 0 00 032115 		AOJA	12,.+2		;*AOJA SHOULD ADD 0,,1 TO C(AC)
  2836									;AND JUMP
  2837						STOP^
  2838	032114	254 04 0 00 032115 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2839	032115	324 00 0 00 032116 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2840									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2841									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2842									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2843	032116	302 12 0 00 000001 		CAIE	12,1		;PASS IF C(AC) INCREMENTED CORRECTLY
  2844						STOP^
  2845	032117	254 04 0 00 032120 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2846	032120	324 00 0 00 032121 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2847									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2848									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2849									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2850
  2851					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 53
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOJX INSTRUCTIONS                                                     SEQ 0082

  2852					;THIS TEST VERIFIES THAT AOJGE INCREMENTS C(AC) BY 0,,1 AND
  2853					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2854					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2855					;SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0
  2856					;IN THIS CASE, C(AC) IS -1,,-2 BEFORE INCREMENTING
  2857					;HENCE, AOJGE SHOULD NOT JUMP
  2858
  2859	032121	561 11 0 00 777776 	C53100:	HRROI	11,-2		;PRELOAD AC WITH -1,,-2
  2860	032122	345 11 0 00 032124 		AOJGE	11,.+2		;*AOJGE SHOULD ADD 0,,1 TO C(AC)
  2861									;AND NOT JUMP
  2862	032123	334 00 0 00 000000 		SKIPA			;PASS IF AOJGE DID NOT JUMP
  2863						STOP^
  2864	032124	254 04 0 00 032125 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2865	032125	324 00 0 00 032126 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2866									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2867									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2868									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2869	032126	312 11 0 00 033462 		CAME	11,[-1]		;PASS IF C(AC) INCREMENTED CORRECTLY
  2870						STOP^
  2871	032127	254 04 0 00 032130 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2872	032130	324 00 0 00 032131 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2873									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2874									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2875									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2876
  2877					;**********
  2878
  2879					;THIS TEST VERIFIES THAT AOJGE INCREMENTS C(AC) BY 0,,1 AND
  2880					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2881					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2882					;SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0.
  2883					;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING
  2884					;HENCE, AOJ SHOULD JUMP
  2885
  2886	032131	474 11 0 00 000000 	C53110:	SETO	11,		;PRELOAD AC WITH -1,,-1
  2887	032132	345 11 0 00 032134 		AOJGE	11,.+2		;*AOJGE SHOULD ADD 0,,1 TO C(AC)
  2888									;AND JUMP
  2889						STOP^
  2890	032133	254 04 0 00 032134 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2891	032134	324 00 0 00 032135 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2892									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2893									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2894									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2895	032135	302 11 0 00 000000 		CAIE	11,0		;PASS IF C(AC) INCREMENTED CORRECTLY
  2896						STOP^
  2897	032136	254 04 0 00 032137 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2898	032137	324 00 0 00 032140 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2899									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2900									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2901									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2902
  2903					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 54
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOJX INSTRUCTIONS                                                     SEQ 0083

  2904					;THIS TEST VERIFIES THAT AOJGE INCREMENTS C(AC) BY 0,,1 AND
  2905					;PLACES THE RESULT BACK INTO AC.  THE RESULT IN THE AC IS
  2906					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2907					;SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0
  2908					;IN THIS CASE, C(AC) IS 0 BEFORE INCREMENTING
  2909					;HENCE, AOJGE SHOULD JUMP
  2910
  2911	032140	400 11 0 00 000000 	C53120:	SETZ	11,		;PRELOAD AC WITH 0
  2912	032141	345 11 0 00 032143 		AOJGE	11,.+2		;*AOJGE SHOULD ADD 0,,1 TO C(AC)
  2913									;AND JUMP
  2914						STOP^
  2915	032142	254 04 0 00 032143 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2916	032143	324 00 0 00 032144 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2917									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2918									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2919									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2920	032144	302 11 0 00 000001 		CAIE	11,1		;PASS IF C(AC) INCREMENTED CORRECTLY
  2921						STOP^
  2922	032145	254 04 0 00 032146 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2923	032146	324 00 0 00 032147 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2924									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2925									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2926									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2927
  2928					;**********
  2929
  2930					;THIS TEST VERIFIES THAT AOJN INCREMENTS C(AC) BY 0,,1 AND
  2931					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2932					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2933					;SPECIFIED BY E IF C(AC) IS NOT EQUAL TO 0.
  2934					;IN THIS CASE, C(AC) IS -1,,-2 BEFORE INCREMENTING
  2935					;HENCE, AOJN SHOULD JUMP
  2936
  2937	032147	561 10 0 00 777776 	C53200:	HRROI	10,-2		;PRELOAD AC WITH -1,,-2
  2938	032150	346 10 0 00 032152 		AOJN	10,.+2		;*AOJN SHOULD ADD 0,,1 TO C(AC)
  2939									;AND JUMP
  2940						STOP^
  2941	032151	254 04 0 00 032152 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2942	032152	324 00 0 00 032153 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2943									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2944									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2945									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2946	032153	312 10 0 00 033462 		CAME	10,[-1]		;PASS IF C(AC) INCREMENTED CORRECTLY
  2947						STOP^
  2948	032154	254 04 0 00 032155 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2949	032155	324 00 0 00 032156 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2950									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2951									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2952									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2953
  2954					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 55
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOJX INSTRUCTIONS                                                     SEQ 0084

  2955					;THIS TEST VERIFIES THAT AOJN INCREMENTS C(AC) BY 0,,1 AND
  2956					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2957					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2958					;SPECIFIED BY E IF C(AC) IS NOT EQUAL TO 0.
  2959					;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING
  2960					;HENCE, AOJ SHOULD NOT JUMP.
  2961
  2962	032156	474 10 0 00 000000 	C53210:	SETO	10,		;PRELOAD AC WITH -1,,-1
  2963	032157	346 10 0 00 032161 		AOJN	10,.+2		;*AOJN SHOULD ADD 0,,1 TO C(AC)
  2964									;AND NOT JUMP
  2965	032160	334 00 0 00 000000 		SKIPA			;PASS IF AOJN DID NOT JUMP
  2966						STOP^
  2967	032161	254 04 0 00 032162 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2968	032162	324 00 0 00 032163 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2969									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2970									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2971									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2972	032163	302 10 0 00 000000 		CAIE	10,0		;PASS IF C(AC) INCREMENTED CORRRECTLY
  2973						STOP^
  2974	032164	254 04 0 00 032165 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2975	032165	324 00 0 00 032166 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2976									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2977									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2978									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2979
  2980					;**********
  2981
  2982					;THIS TEST VERIFIES THAT AOJN INCREMENTS C(AC) BY 0,,1 AND
  2983					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2984					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2985					;SPECIFIED BY E IF C(AC) IS NOT EQUAL TO 0.
  2986					;IN THIS CASE, C(AC) IS 0 BEFORE INCREMENTING
  2987					;HENCE, AOJN SHOULD JUMP.
  2988
  2989	032166	400 10 0 00 000000 	C53220:	SETZ	10,		;PRELOAD AC WITH 0
  2990	032167	346 10 0 00 032171 		AOJN	10,.+2		;*AOJN SHOULD ADD 0,,1 TO C(AC)
  2991									;AND JUMP
  2992						STOP^
  2993	032170	254 04 0 00 032171 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2994	032171	324 00 0 00 032172 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2995									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2996									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2997									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2998	032172	302 10 0 00 000001 		CAIE	10,1		;PASS IF C(AC) INCREMENTED CORRECTLY
  2999						STOP^
  3000	032173	254 04 0 00 032174 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3001	032174	324 00 0 00 032175 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3002									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3003									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3004									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3005
  3006					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 56
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOJX INSTRUCTIONS                                                     SEQ 0085

  3007					;THIS TEST VERIFIES THAT AOJG INCREMENTS C(AC) BY 0,,1 AND
  3008					;PLACES THE RESULT BACK INTO THE AC.  THE REAULT IN THE AC IS
  3009					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3010					;SPECIFIED BY E IF C(AC) IS GREATER THAN 0
  3011					;IN THIS CASE, C(AC) IS -1,,-2 BEFORE INC
  3012					;HENCE, AOJG SHOULD NOT JUMP
  3013
  3014	032175	561 07 0 00 777776 	C53300:	HRROI	7,-2		;PRELOAD AC WITH -1,,-2
  3015	032176	347 07 0 00 032200 		AOJG	7,.+2		;*AOJG SHOULD ADD 0,11 TO C(AC)
  3016									;AND NOT JUMP
  3017	032177	334 00 0 00 000000 		SKIPA			;PASS IF AOJG DID NOT JUMP
  3018						STOP^
  3019	032200	254 04 0 00 032201 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3020	032201	324 00 0 00 032202 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3021									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3022									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3023									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3024	032202	312 07 0 00 033462 		CAME	7,[-1]		;PASS IF C(AC) INCREMENTED CORRECTLY
  3025						STOP^
  3026	032203	254 04 0 00 032204 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3027	032204	324 00 0 00 032205 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3028									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3029									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3030									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3031
  3032					;**********
  3033
  3034					;THIS TEST VERIFIES THAT AOJG INCREMENTS C(AC) BY 0,,1 AND
  3035					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3036					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3037					;SPECIFIED BY E IF C(AC) IS GREATER THAN 0.
  3038					;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING
  3039					;HENCE, AOJG SHOULD NOT JUMP.
  3040
  3041	032205	474 07 0 00 000000 	C53310:	SETO	7,		;PRELOAD AC WITH -1,,-1
  3042	032206	347 07 0 00 032210 		AOJG	7,.+2		;*AOJG SHOULD ADD 0,,1 TO C(AC)
  3043									;AND NOT JUMP
  3044	032207	334 00 0 00 000000 		SKIPA			;PASS IF AOJG DID NOT JUMP
  3045						STOP^
  3046	032210	254 04 0 00 032211 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3047	032211	324 00 0 00 032212 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3048									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3049									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3050									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3051	032212	302 07 0 00 000000 		CAIE	7,0		;PASS IF C(AC) INCREMENTED CORRECTLY
  3052						STOP^
  3053	032213	254 04 0 00 032214 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3054	032214	324 00 0 00 032215 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3055									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3056									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3057									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3058
  3059					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 57
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOJX INSTRUCTIONS                                                     SEQ 0086

  3060					;THIS TEST VERIFIES THAT AOJG INCREMENTS C(AC) BY 0,,1 AND
  3061					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3062					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3063					;SPECIFIED BY E IF C(AC) IS GREATER THAN 0.
  3064					;IN THIS CASE, C(AC) IS 0 BEFORE INCREMENTING
  3065					;HENCE, AOJG SHOULD JUMP
  3066
  3067	032215	400 07 0 00 000000 	C53320:	SETZ	7,		;PRELOAD AC WITH 0
  3068	032216	347 07 0 00 032220 		AOJG	7,.+2		;*AOJG SHOULD ADD 0,,1 TO C(AC)
  3069									;AND JUMP
  3070						STOP^
  3071	032217	254 04 0 00 032220 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3072	032220	324 00 0 00 032221 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3073									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3074									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3075									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3076	032221	302 07 0 00 000001 		CAIE	7,1		;PASS IF C(AC) INCREMENTED CORRECTLY
  3077						STOP^
  3078	032222	254 04 0 00 032223 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3079	032223	324 00 0 00 032224 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3080									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3081									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3082									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3083
  3084					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 58
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0087

  3085					SUBTTL	TEST OF MSCL AOSX INSTRUCTIONS
  3086
  3087					;**********
  3088
  3089					;THIS TEST VERIFIES THAT AOSL INCREMENTS C(E) BY 0,,1 AND PLACES
  3090					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3091					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN 0
  3092					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3093					;IN THIS CASE, AC=6, C(AC)=707070,,707070 AND C(E)=-1,,-2
  3094					;BEFORE INCREMENTING.  HENCE, AOSL SHOULD SKIP ; AND THE
  3095					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  3096					;RESPECTIVELY.
  3097
  3098	032224	200 06 0 00 033474 	C53400:	MOVE	6,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3099	032225	561 07 0 00 777776 		HRROI	7,-2		;PRELOAD E WITH -1,,-2
  3100	032226	351 06 0 00 000007 		AOSL	6,7		;*AOSL SHOULD ADD 0,,1 TO C(E),
  3101									;UPDATE AC AND SKIP
  3102						STOP^
  3103	032227	254 04 0 00 032230 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3104	032230	324 00 0 00 032231 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3105									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3106									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3107									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3108	032231	312 07 0 00 033462 		CAME	7,[-1]		;PASS IF E INCREMENTED CORRECTLY
  3109						STOP^
  3110	032232	254 04 0 00 032233 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3111	032233	324 00 0 00 032234 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3112									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3113									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3114									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3115	032234	312 06 0 00 033462 		CAME	6,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3116						STOP^
  3117	032235	254 04 0 00 032236 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3118	032236	324 00 0 00 032237 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3119									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3120									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3121									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3122
  3123					;**********
  3124
  3125					;THIS TEST VERIFIES THAT AOSL INCREMENTS C(E) BY 0,,1 AND PLACES
  3126					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3127					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN 0
  3128					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3129					;IN THIS CASE, AC=6, C(AC)=707070,,707070 AND C(E)=-1,,-2
  3130					;BEFORE INCREMENTING.  HENCE, AOSL SHOULD SKIP ; AND THE
  3131					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  3132					;RESPECTIVELY.
  3133
  3134	032237	200 06 0 00 033474 	C53401:	MOVE	6,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3135	032240	561 07 0 00 777776 		HRROI	7,-2		;PRELOAD E WITH -1,,-2
  3136	032241	202 07 0 00 032255 		MOVEM	7,E53401
  3137	032242	351 06 0 00 032255 		AOSL	6,E53401	;*AOSL SHOULD ADD 0,,1 TO C(E),
  3138									;UPDATE AC AND SKIP
  3139						STOP^
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 58-1
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0088

  3140	032243	254 04 0 00 032244 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3141	032244	324 00 0 00 032245 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3142									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3143									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3144									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3145	032245	200 07 0 00 032255 		MOVE	7,E53401
  3146	032246	312 07 0 00 033462 		CAME	7,[-1]		;PASS IF E INCREMENTED CORRECTLY
  3147						STOP^
  3148	032247	254 04 0 00 032250 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3149	032250	324 00 0 00 032251 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3150									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3151									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3152									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3153	032251	312 06 0 00 033462 		CAME	6,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3154						STOP^
  3155	032252	254 04 0 00 032253 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3156	032253	324 00 0 00 032254 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3157									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3158									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3159									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3160
  3161	032254	334 00 0 00 000000 		SKIPA			;GO TO NEXT TEST
  3162	032255	000000	000000		E53401:	0			;TEST WORD MEMORY
  3163
  3164					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 59
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0089

  3165					;THIS TEST VERIFIES THAT AOSL INCREMENTS C(E) BY 0,,1 AND PLACES
  3166					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3167					;THE NEXT INSTRUCTION IF C(E) ISLESS THAN 0
  3168					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3169					;IN THIS CASE, AC=6, C(AC)=707070,,707070 AND C(E)=-1,,-1
  3170					;BEFORE INCREMENTING.  HENCE, AOSL SHOULD NOT SKIP; AND THE
  3171					;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0
  3172					;RESPECTIVELY.
  3173
  3174	032256	200 06 0 00 033474 	C53410:	MOVE	6,[707070,,707070]	;PRELOAD AC WITH 707070,,707070
  3175	032257	474 07 0 00 000000 		SETO	7,		;PRELOAD E WITH -1,,-1
  3176	032260	351 06 0 00 000007 		AOSL	6,7		;*AOSL SHOULD ADD 00,1 TO C(E)
  3177									;UPDATE AC AND NOT SKIP
  3178	032261	334 00 0 00 000000 		SKIPA			;PASS IF AOSL DID NOT SKIP
  3179						STOP^
  3180	032262	254 04 0 00 032263 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3181	032263	324 00 0 00 032264 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3182									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3183									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3184									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3185	032264	312 07 0 00 033501 		CAME	7,[0]		;PASS IF E INCREMENTED CORRECTLY
  3186						STOP^
  3187	032265	254 04 0 00 032266 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3188	032266	324 00 0 00 032267 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3189									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3190									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3191									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3192	032267	312 06 0 00 033501 		CAME	6,[0]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3193						STOP^
  3194	032270	254 04 0 00 032271 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3195	032271	324 00 0 00 032272 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3196									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3197									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3198									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3199
  3200					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 60
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0090

  3201					;THIS TEST VERIFIES THAT AOSL INCREMENTS C(E) BY 0,,1 AND PLACES
  3202					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3203					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN 0.
  3204					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3205					;IN THIS CASE, AC=6, C(AC)=707070,,707070 AND C(E)=0
  3206					;BEFORE INCREMENTING.  HENCE, AOSL SHOULD NOT SKIP; AND THE
  3207					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1
  3208					;RESPECTIVELY
  3209
  3210	032272	200 06 0 00 033474 	C53420:	MOVE	6,[707070,,707070]	;PRELOAD AC WITH 707070,,707070
  3211	032273	400 07 0 00 000000 		SETZ	7,		;PRELOAD E WITH 0
  3212	032274	351 06 0 00 000007 		AOSL	6,7		;*AOSL SHOULD ADD 0,,1 TO C(E).
  3213									;UPDATE AC AND NOT SKIP
  3214	032275	334 00 0 00 000000 		SKIPA			;PASS IF AOSL DID NOT SKIP
  3215						STOP^
  3216	032276	254 04 0 00 032277 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3217	032277	324 00 0 00 032300 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3218									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3219									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3220									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3221	032300	312 07 0 00 033502 		CAME	7,[1]		;PASS IF E INCREMENTED CORRECTLY
  3222						STOP^
  3223	032301	254 04 0 00 032302 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3224	032302	324 00 0 00 032303 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3225									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3226									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3227									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3228	032303	312 06 0 00 033502 		CAME	6,[1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3229						STOP^
  3230	032304	254 04 0 00 032305 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3231	032305	324 00 0 00 032306 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3232									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3233									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3234									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3235
  3236					;**********
  3237
  3238					;THIS TEST VERIFIES THAT AOSE INCREMENTS C(E) BY 0,,1 AND PLACES
  3239					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3240					;THE NEXT INSTRUCTION IF C(E) IS EQUAL TO 0.
  3241					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3242					;IN THIS CASE, AC=5, C(AC)=707070,,707070AND C(E)=-1,,-2
  3243					;BEFORE INCREMENTING.  HENCE, AOSE SHOULD NOT SKIP; AND THE
  3244					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  3245					;RESPECTIVELY.
  3246
  3247	032306	200 05 0 00 033474 	C53500:	MOVE	5,[707070,,707070]	;PRELOAD AC WITH 707070,,707070
  3248	032307	561 06 0 00 777776 		HRROI	6,-2		;PRELOAD E WITH -1,,-2
  3249	032310	352 05 0 00 000006 		AOSE	5,6		;*AOSE SHOULD ADD 0,,1 TO C(E),
  3250									;UPDATE AC AND NOT SKIP
  3251	032311	334 00 0 00 000000 		SKIPA			;PASS IF AOSE DID NOT SKIP
  3252						STOP^
  3253	032312	254 04 0 00 032313 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3254	032313	324 00 0 00 032314 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3255									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 60-1
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0091

  3256									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3257									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3258	032314	312 06 0 00 033462 		CAME	6,[-1]		;PASS IF E INCREMENTED CORRECTLY
  3259						STOP^
  3260	032315	254 04 0 00 032316 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3261	032316	324 00 0 00 032317 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3262									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3263									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3264									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3265	032317	312 05 0 00 033462 		CAME	5,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3266						STOP^
  3267	032320	254 04 0 00 032321 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3268	032321	324 00 0 00 032322 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3269									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3270									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3271									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3272
  3273					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 61
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0092

  3274					;THIS TEST VERIFIES THAT AOSE INCREMENTS C(E) BY 0,,1 AND PLACES
  3275					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3276					;THE NEXT INSTRUCTION IF C(E) IS EQUAL TO 0
  3277					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3278					;IN THIS CASE, AC=5, C(AC)=707070,,707070 AND C(E)=-1,,-1
  3279					;BEFORE INCREMENTING.  HENCE, AOSE SHOULD SKIP; AND THE
  3280					;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0
  3281					;RESPECTIVELY.
  3282
  3283	032322	200 05 0 00 033474 	C53510:	MOVE	5,[707070,,707070]	;PRELOAD AC WITH 707070,,707070
  3284	032323	474 06 0 00 000000 		SETO	6,		;PRELOAD E WITH -1,,-1
  3285	032324	352 05 0 00 000006 		AOSE	5,6		;*AOSE SHOULD ADD 0,,1 TO C(E),
  3286									;UPDATE AC AND SKIP
  3287						STOP^
  3288	032325	254 04 0 00 032326 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3289	032326	324 00 0 00 032327 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3290									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3291									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3292									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3293	032327	312 06 0 00 033501 		CAME	6,[0]		;PASS IF E INCREMENTED CORRECTLY
  3294						STOP^
  3295	032330	254 04 0 00 032331 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3296	032331	324 00 0 00 032332 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3297									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3298									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3299									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3300	032332	312 05 0 00 033501 		CAME	5,[0]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3301						STOP^
  3302	032333	254 04 0 00 032334 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3303	032334	324 00 0 00 032335 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3304									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3305									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3306									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3307
  3308					;**********
  3309
  3310					;THIS TEST VERIFIES THAT AOSE INCREMENTS C(E) BY 0,,1 AND PLACES
  3311					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3312					;THE NEXT INSTRUCTION IF C(E) IS EQUAL TO 0
  3313					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3314					;IN THIS CASE, AC=5, C(AC)=707070,,707070 AND C(AC)=0
  3315					;BEFORE INCREMENTING.  HENCE, AOSE SHOULD NOT SKIP; AND THE
  3316					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1
  3317					;RESPECTIVELY.
  3318
  3319	032335	200 05 0 00 033474 	C53520:	MOVE	5,[707070,,707070]	;PRELOAD AC WITH 707070,,707070
  3320	032336	400 06 0 00 000000 		SETZ	6,		;PRELOAD E WITH 0
  3321	032337	352 05 0 00 000006 		AOSE	5,6		;*AOSE SHOULD ADD 0,,1 TO C(E),
  3322									;UPDATE AC AND NOT SKIP
  3323	032340	334 00 0 00 000000 		SKIPA			;PASS IF AOSE DID NOT SKIP
  3324						STOP^
  3325	032341	254 04 0 00 032342 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3326	032342	324 00 0 00 032343 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3327									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3328									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 61-1
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0093

  3329									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3330	032343	312 06 0 00 033502 		CAME	6,[1]		;PASS IF E INCREMENTED CORRECTLY
  3331						STOP^
  3332	032344	254 04 0 00 032345 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3333	032345	324 00 0 00 032346 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3334									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3335									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3336									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3337	032346	312 05 0 00 033502 		CAME	5,[1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3338						STOP^
  3339	032347	254 04 0 00 032350 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3340	032350	324 00 0 00 032351 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3341									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3342									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3343									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3344
  3345					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 62
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0094

  3346					;THIS TEST VERIFIES THAT AOSLE INCREMENTS C(E) BY 0,,1 AND PLACES
  3347					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3348					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN OR EQUAL TO0
  3349					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3350					;IN THIS CASE, AC=4, C(AC)=707070,,707070 AND C(E)=-1,,-2
  3351					;BEFORE INCREMENTING.  HENCE, AOSLE SHOULD SKIP; AND THE
  3352					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  3353					;RESPECTIVELY.
  3354
  3355	032351	200 04 0 00 033474 	C53600:	MOVE	4,[707070,,707070]	;PRELOAD AC WITH 707070,,707070
  3356	032352	561 05 0 00 777776 		HRROI	5,-2		;PRELOAD E WITH -1,,-2
  3357	032353	353 04 0 00 000005 		AOSLE	4,5		;*AOSLE SHOULD ADD 0,,1 TO C(E),
  3358									;UPDATE AC AND SKIP ZERO
  3359						STOP^
  3360	032354	254 04 0 00 032355 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3361	032355	324 00 0 00 032356 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3362									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3363									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3364									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3365	032356	312 05 0 00 033462 		CAME	5,[-1]		;PASS IF E INCREMENTED CORRECTLY
  3366						STOP^
  3367	032357	254 04 0 00 032360 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3368	032360	324 00 0 00 032361 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3369									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3370									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3371									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3372	032361	312 04 0 00 033462 		CAME	4,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3373						STOP^
  3374	032362	254 04 0 00 032363 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3375	032363	324 00 0 00 032364 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3376									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3377									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3378									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3379
  3380					;**********
  3381
  3382					;THIS TEST VERIFIES THAT AOSLE INCREMENTS C(E) BY 0,,1 AND PLACES
  3383					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3384					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN OR EQUAL TO 0.
  3385					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3386					;IN THIS CASE, AC=4, C(AC)=707070,,707070 AND C(E)=-1,,-1
  3387					;BEFORE INCREMENTING.  HENCE, AOSLE SHOULD SKIP; AND THE
  3388					;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0
  3389					;RESPECTIVELY.
  3390
  3391	032364	200 04 0 00 033474 	C53610:	MOVE	4,[707070,,707070]	;PRELOAD AC WITH 707070,,707070
  3392	032365	476 05 0 00 000000 		SETOM	5,		;PRELOAD E WITH -1,,-1
  3393	032366	353 04 0 00 000005 		AOSLE	4,5		;*AOSLE SHOULD ADD 0,,1 TO C(E)
  3394									;UPDATE AC AND SKIP
  3395						STOP^
  3396	032367	254 04 0 00 032370 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3397	032370	324 00 0 00 032371 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3398									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3399									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3400									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 62-1
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0095

  3401	032371	312 05 0 00 033501 		CAME	5,[0]		;PASS IF E INCREMENTED CORRECTLY
  3402						STOP^
  3403	032372	254 04 0 00 032373 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3404	032373	324 00 0 00 032374 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3405									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3406									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3407									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3408	032374	312 04 0 00 033501 		CAME	4,[0]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3409						STOP^
  3410	032375	254 04 0 00 032376 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3411	032376	324 00 0 00 032377 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3412									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3413									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3414									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3415
  3416					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 63
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0096

  3417					;THIS TEST VERIFIES THAT AOSLE INCREMENTS C(E) BY 0,,1 AND PLACES
  3418					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3419					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN OR EQUAL TO 0
  3420					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3421					;IN THIS CASE, AC=4, C(AC)=707070,,707070 AND C(E)=0
  3422					;BEFORE INCREMENTING.  HENCE, AOSLE SHOULD NOT SKIP ; AND THE
  3423					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1
  3424					;RESPECTIVELY.
  3425
  3426	032377	200 04 0 00 033474 	C53620:	MOVE	4,[707070,,707070]	;PRELOAD AC WITH 707070,,707070
  3427	032400	400 00 0 00 000005 		SETZ	5		;PRELOAD E WITH 0
  3428	032401	353 04 0 00 000005 		AOSLE	4,5		;*AOSLE SHOULD ADD 0,,1 TO C(E)
  3429									;UPDATE AC AND NOT SKIP
  3430	032402	334 00 0 00 000000 		SKIPA			;PASS IF AOSLE DID NOT SKIP
  3431						STOP^
  3432	032403	254 04 0 00 032404 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3433	032404	324 00 0 00 032405 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3434									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3435									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3436									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3437	032405	312 05 0 00 033502 		CAME	5,[1]		;PASS IF E INCREMENTED CORRECTLY
  3438						STOP^
  3439	032406	254 04 0 00 032407 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3440	032407	324 00 0 00 032410 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3441									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3442									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3443									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3444	032410	312 04 0 00 033502 		CAME	4,[1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3445						STOP^
  3446	032411	254 04 0 00 032412 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3447	032412	324 00 0 00 032413 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3448									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3449									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3450									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3451
  3452					;**********
  3453
  3454					;THIS TEST VERIFIES THAT AOSA INCREMENTS C(E) BY 0,,1 AND PLACES
  3455					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND ALWAYS SKIPS
  3456					;THE NEXT INSTRUCTION.
  3457					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3458					;IN THIS CASE, AC=3, C(AC)=707070,,707070 AND C(E)=-1,,-2
  3459					;BEFORE INCREMENTING.  HENCE, AOSA SHOULD SKIP ; AND THE
  3460					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  3461					;RESPECTIVELY.
  3462
  3463	032413	200 03 0 00 033474 	C53700:	MOVE	3,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3464	032414	561 04 0 00 777776 		HRROI	4,-2		;PRELOAD E WITH -1,,-2
  3465	032415	354 03 0 00 000004 		AOSA	3,4		;*AOSA SHOULD ADD 0,,1 TO C(E),
  3466									;UPDATE AC AND SKIP
  3467						STOP^
  3468	032416	254 04 0 00 032417 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3469	032417	324 00 0 00 032420 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3470									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3471									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 63-1
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0097

  3472									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3473	032420	312 04 0 00 033462 		CAME	4,[-1]		;PASS IF E INCREMENTED CORRECTLY
  3474						STOP^
  3475	032421	254 04 0 00 032422 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3476	032422	324 00 0 00 032423 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3477									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3478									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3479									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3480	032423	312 03 0 00 033462 		CAME	3,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3481						STOP^
  3482	032424	254 04 0 00 032425 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3483	032425	324 00 0 00 032426 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3484									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3485									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3486									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3487
  3488					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 64
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0098

  3489					;THIS TEST VERIFIES THAT AOSA INCREMENTS C(E) BY 0,,1 AND PLACES
  3490					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND ALWAYS SKIPS
  3491					;THE NEXT INSTRUCTION.
  3492					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3493					;;IN THIS CASE, AC=3, C(AC)=707070,,707070 AND C(E)=-1,,-1
  3494					;BEFORE INCREMENTING.  HENCE, AOSA SHOULD SKIP AND THE
  3495					;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0
  3496					;RESPECTIVELY
  3497
  3498	032426	200 03 0 00 033474 	C53710:	MOVE	3,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3499	032427	474 04 0 00 000000 		SETO	4,		;PRELOAD E WITH -1,,-1
  3500	032430	354 03 0 00 000004 		AOSA	3,4		;*AOSA SHOULD ADD 0,,1 TO C(E),
  3501									;UPDATE AC AND SKIP
  3502						STOP^
  3503	032431	254 04 0 00 032432 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3504	032432	324 00 0 00 032433 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3505									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3506									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3507									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3508	032433	312 04 0 00 033501 		CAME	4,[0]		;PASS IF E INCREMENTED CORRECTLY
  3509						STOP^
  3510	032434	254 04 0 00 032435 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3511	032435	324 00 0 00 032436 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3512									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3513									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3514									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3515	032436	312 03 0 00 033501 		CAME	3,[0]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3516						STOP^
  3517	032437	254 04 0 00 032440 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3518	032440	324 00 0 00 032441 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3519									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3520									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3521									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3522
  3523					;**********
  3524
  3525					;THIS TEST VERIFIES THAT AOS INCREMENTS C(E) BY 0,,1 AND PLACES
  3526					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND ALWAYS SKIPS
  3527					;THE NEXT INSTRUCTION.
  3528					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3529					;IN THIS CASE, AC=3, C(AC)=707070,,707070 AND C(E)=0
  3530					;BEFORE INCREMENTING.  HENCE, AOSA SHOULD SKIP ; AND THE
  3531					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1
  3532					;RESPECTIVELY
  3533
  3534	032441	200 03 0 00 033474 	C53720:	MOVE	3,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3535	032442	400 04 0 00 000000 		SETZ	4,		;PRELOAD E WITH 0
  3536	032443	354 03 0 00 000004 		AOSA	3,4		;*AOSA SHOULD ADD 0,,1 TO C(E),
  3537									;UPDATE AC AND SKIP
  3538						STOP^
  3539	032444	254 04 0 00 032445 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3540	032445	324 00 0 00 032446 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3541									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3542									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3543									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 64-1
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0099

  3544	032446	312 04 0 00 033502 		CAME	4,[1]		;PASS IF E INCREMENTED CORRECTLY
  3545						STOP^
  3546	032447	254 04 0 00 032450 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3547	032450	324 00 0 00 032451 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3548									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3549									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3550									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3551	032451	312 03 0 00 033502 		CAME	3,[1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3552						STOP^
  3553	032452	254 04 0 00 032453 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3554	032453	324 00 0 00 032454 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3555									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3556									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3557									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3558
  3559					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 65
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0100

  3560					;THIS TEST VERIFIES THAT AOSGE INCREMENTS C(E) BY 0,,1 AND PLACES
  3561					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3562					;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN OR EQUAL TO 0
  3563					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3564					;IN THIS CASE, AC=2, C(AC)=707070,,707070 AND C(E)=-1,,-2
  3565					;BEFORE INCREMENTING.  HENCE, AOSGE SHOULD NOT SKIP; AND THE
  3566					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  3567					;RESPECTIVELY
  3568
  3569	032454	200 02 0 00 033474 	C54000:	MOVE	2,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3570	032455	561 03 0 00 777776 		HRROI	3,-2		;PRELOAD E WITH -1,,-2
  3571	032456	355 02 0 00 000003 		AOSGE	2,3		;*AOSGE SHOULD ADD 0,,1 TO C(E),
  3572									;UPDATE AC AND NOT SKIP
  3573	032457	334 00 0 00 000000 		SKIPA			;PASS IF AOSGE DID NOT SKIP
  3574						STOP^
  3575	032460	254 04 0 00 032461 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3576	032461	324 00 0 00 032462 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3577									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3578									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3579									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3580	032462	312 03 0 00 033462 		CAME	3,[-1]		;PASS IF E INCREMENTED CORRECTLY
  3581						STOP^
  3582	032463	254 04 0 00 032464 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3583	032464	324 00 0 00 032465 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3584									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3585									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3586									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3587	032465	312 02 0 00 033462 		CAME	2,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3588						STOP^
  3589	032466	254 04 0 00 032467 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3590	032467	324 00 0 00 032470 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3591									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3592									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3593									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3594
  3595					;**********
  3596
  3597					;THIS TEST VERIFIES THAT AOSGE INCREMENTS C(E) BY 0,,1 AND PLACES
  3598					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3599					;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN OR EQUAL TO 0
  3600					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3601					;IN THIS CASE, AC=2, C(AC)=707070,,707070 AND C(E)=-1,,-1
  3602					;BEFORE INCREMENTING.  HENCE, AOSGE SHOULD SKIP; AND THE
  3603					;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0
  3604					;RESPECTIVELY
  3605
  3606	032470	200 02 0 00 033474 	C54010:	MOVE	2,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3607	032471	474 03 0 00 000000 		SETO	3,		;PRELOAD E WITH 0
  3608	032472	355 02 0 00 000003 		AOSGE	2,3		;*AOSGE SHOULD ADD 0,,1 TO C(E),
  3609									;UPDATE AC AND SKIP
  3610						STOP^
  3611	032473	254 04 0 00 032474 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3612	032474	324 00 0 00 032475 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3613									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3614									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 65-1
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0101

  3615									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3616	032475	312 03 0 00 033501 		CAME	3,[0]		;PASS IF E INCREMENTED CORRECTLY
  3617						STOP^
  3618	032476	254 04 0 00 032477 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3619	032477	324 00 0 00 032500 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3620									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3621									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3622									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3623	032500	312 02 0 00 033501 		CAME	2,[0]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3624						STOP^
  3625	032501	254 04 0 00 032502 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3626	032502	324 00 0 00 032503 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3627									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3628									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3629									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3630
  3631					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 66
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0102

  3632					;THIS TEST VERIFIES THAT AOSGE INCREMENTS C(E) BY 0,,1 AND PLACES
  3633					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3634					;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN OR EQUAL TO 0
  3635					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3636					;IN THIS CASE, AC=2, C(AC)=707070,,707070 AND C(E)=0
  3637					;BEFORE INCREMENTING.  HENCE, AOSGE SHOULD SKIP; AND THE
  3638					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1
  3639					;RESPECTIVELY
  3640
  3641	032503	200 02 0 00 033474 	C54020:	MOVE	2,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3642	032504	400 03 0 00 000000 		SETZ	3,		;PRELOAD E WITH 0
  3643	032505	355 02 0 00 000003 		AOSGE	2,3		;*AOSGE SHOULD ADD 0,,1 TO C(E),
  3644									;UPDATE AC AND SKIP
  3645						STOP^
  3646	032506	254 04 0 00 032507 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3647	032507	324 00 0 00 032510 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3648									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3649									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3650									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3651	032510	312 03 0 00 033502 		CAME	3,[1]		;PASS IF E INCREMENTED CORRECTLY
  3652						STOP^
  3653	032511	254 04 0 00 032512 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3654	032512	324 00 0 00 032513 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3655									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3656									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3657									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3658	032513	312 02 0 00 033502 		CAME	2,[1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3659						STOP^
  3660	032514	254 04 0 00 032515 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3661	032515	324 00 0 00 032516 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3662									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3663									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3664									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3665
  3666					;**********
  3667
  3668					;THIS TEST VERIFIES THAT AOSN INCREMENTS C(E) BY 0,,1 AND PLACES
  3669					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3670					;THE NEXT INSTRUCTION IF C(E) IS NON-ZERO.
  3671					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3672					;IN THIS CASE, AC=1, C(AC)=707070,,707070 AND C(E)=-1,,-2
  3673					;BEFORE INCREMENTING.  HENCE, AOSN SHOULD NOT SKIP; AND THE
  3674					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  3675					;RESPECTIVELY
  3676
  3677	032516	200 01 0 00 033474 	C54100:	MOVE	1,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3678	032517	561 02 0 00 777776 		HRROI	2,-2		;PRELOAD E WITH -1,,-2
  3679	032520	356 01 0 00 000002 		AOSN	1,2		;*AOSN SHOULD ADD 0,,1 TO C(E),
  3680									;UPDATE AC AND SKIP
  3681						STOP^
  3682	032521	254 04 0 00 032522 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3683	032522	324 00 0 00 032523 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3684									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3685									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3686									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 66-1
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0103

  3687	032523	312 02 0 00 033462 		CAME	2,[-1]		;PASS IF E INCREMENTED CORRECTLY
  3688						STOP^
  3689	032524	254 04 0 00 032525 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3690	032525	324 00 0 00 032526 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3691									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3692									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3693									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3694	032526	312 01 0 00 033462 		CAME	1,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3695						STOP^
  3696	032527	254 04 0 00 032530 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3697	032530	324 00 0 00 032531 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3698									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3699									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3700									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3701
  3702					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 67
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0104

  3703					;THIS TEST VERIFIES THAT AOSN INCREMENTS C(E) BY 0,,1 AND PLACES
  3704					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3705					;THE NEXT INSTRUCTION IF C(E) IS NON-ZERO
  3706					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3707					;IN THIS CASE, AC=1, C(AC)=707070,,707070 AND C(E)=-1,,-1
  3708					;BEFORE INCREMENTING.  HENCE, AOSN SHOULD NOT SKIP; AND THE
  3709					;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0
  3710					;RESPECTIVELY
  3711
  3712	032531	200 01 0 00 033474 	C54110:	MOVE	1,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3713	032532	474 02 0 00 000000 		SETO	2,		;PRELOAD E WITH -1,,-1
  3714	032533	356 01 0 00 000002 		AOSN	1,2		;*AOSN SHOULD ADD 0,,1 TO C(E),
  3715									;UPDATE AC AND NOT SKIP
  3716	032534	334 00 0 00 000000 		SKIPA			;PASS IF AOSN DID NOT SKIP
  3717						STOP^
  3718	032535	254 04 0 00 032536 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3719	032536	324 00 0 00 032537 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3720									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3721									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3722									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3723	032537	312 02 0 00 033501 		CAME	2,[0]		;PASS IF E INCREMENTED CORRECTLY
  3724						STOP^
  3725	032540	254 04 0 00 032541 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3726	032541	324 00 0 00 032542 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3727									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3728									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3729									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3730	032542	312 01 0 00 033501 		CAME	1,[0]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3731						STOP^
  3732	032543	254 04 0 00 032544 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3733	032544	324 00 0 00 032545 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3734									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3735									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3736									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3737
  3738					;**********
  3739
  3740					;THIS TEST VERIFIES THAT AOSN INCREMENTS C(E) BY 0,,1 AND PLACES
  3741					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3742					;THE NEXT INSTRUCTION IF C(E) IS NON-ZERO
  3743					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3744					;IN THIS CASE, AC=1, C(AC)=707070,,707070 AND C(E)=0
  3745					;BEFORE INCREMENTING.  HENCE, AOSN SHOULD SKIP; AND THE
  3746					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1
  3747					;RESPECTIVELY
  3748
  3749	032545	200 01 0 00 033474 	C54120:	MOVE	1,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3750	032546	400 02 0 00 000000 		SETZ	2,		;PRELOAD E WITH 0
  3751	032547	356 01 0 00 000002 		AOSN	1,2		;*AOSN SHOULD ADD 0,,1 TO C(E),
  3752									;UPDATE AC AND SKIP
  3753						STOP^
  3754	032550	254 04 0 00 032551 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3755	032551	324 00 0 00 032552 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3756									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3757									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 67-1
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0105

  3758									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3759	032552	312 02 0 00 033502 		CAME	2,[1]		;PASS IF E INCREMENTED CORRECTLY
  3760						STOP^
  3761	032553	254 04 0 00 032554 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3762	032554	324 00 0 00 032555 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3763									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3764									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3765									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3766	032555	312 01 0 00 033502 		CAME	1,[1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3767						STOP^
  3768	032556	254 04 0 00 032557 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3769	032557	324 00 0 00 032560 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3770									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3771									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3772									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3773
  3774					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 68
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0106

  3775					;THIS TEST VERIFIES THAT AOSG INCREMENTS C(E) BY 0,,1 AND PLACES
  3776					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3777					;THE NEST INSTRUCTION IF C(E) IS GREATER THAN 0
  3778					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3779					;IN THIS CASE, AC=0, C(AC)=707070,,707070 AND C(E)=-1,,-2
  3780					;BEFORE INCREMENTING.  HENCE, AOSG SHOULD NOT SKIP; AND THE
  3781					;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND -1,,-1
  3782					;RESPECTIVELY
  3783
  3784	032560	200 00 0 00 033474 	C54200:	MOVE	0,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3785	032561	561 01 0 00 777776 		HRROI	1,-2		;PRELOAD E WITH -1,,-2
  3786	032562	357 00 0 00 000001 		AOSG	0,1		;*AOSG SHOULD ADD 0,,1 TO C(E),
  3787									;AND NOT SKIP
  3788	032563	334 00 0 00 000000 		SKIPA			;PASS IF AOSG DID NOT SKIP
  3789						STOP^
  3790	032564	254 04 0 00 032565 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3791	032565	324 00 0 00 032566 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3792									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3793									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3794									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3795	032566	312 01 0 00 033462 		CAME	1,[-1]		;PASS IF E INCREMENTED CORRECTLY
  3796						STOP^
  3797	032567	254 04 0 00 032570 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3798	032570	324 00 0 00 032571 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3799									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3800									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3801									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3802	032571	312 00 0 00 033474 		CAME	0,[707070,,707070] ;PASS IF C(AC) WAS NOT MODIFIED
  3803						STOP^
  3804	032572	254 04 0 00 032573 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3805	032573	324 00 0 00 032574 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3806									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3807									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3808									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3809
  3810					;**********
  3811
  3812					;THIS TEST VERIFIES THAT AOSG INCREMENTS C(E) BY 0,,1 AND PLACES
  3813					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3814					;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN 0
  3815					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3816					;IN THIS CASE, AC=0, C(AC)=707070,,707070 AND C(E)=-1,,-1
  3817					;BEFORE INCREMENTING.  HENCE, AOSG SHOULD NOT SKIP; AND THE
  3818					;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND 0
  3819					;RESPECTIVELY
  3820
  3821	032574	200 00 0 00 033474 	C54210:	MOVE	0,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3822	032575	474 01 0 00 000000 		SETO	1,		;PRELOAD E WITH -1,,-1
  3823	032576	357 00 0 00 000001 		AOSG	0,1		;*AOSG SHOULD ADD 0,,1 TO C(E),
  3824									;AND NOT SKIP
  3825	032577	334 00 0 00 000000 		SKIPA			;PASS IF AOSG DID NOT SKIP
  3826						STOP^
  3827	032600	254 04 0 00 032601 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3828	032601	324 00 0 00 032602 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3829									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 68-1
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0107

  3830									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3831									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3832	032602	312 01 0 00 033501 		CAME	1,[0]		;PASS IF E INCREMENTED CORRECTLY
  3833						STOP^
  3834	032603	254 04 0 00 032604 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3835	032604	324 00 0 00 032605 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3836									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3837									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3838									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3839	032605	312 00 0 00 033474 		CAME	0,[707070,,707070] ;PASS IF C(AC) WAS NOT MODIFIED
  3840						STOP^
  3841	032606	254 04 0 00 032607 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3842	032607	324 00 0 00 032610 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3843									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3844									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3845									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3846
  3847					;***********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 69
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0108

  3848					;THIS TEST VERIFIES THAT AOSG INCREMENTS C(E) BY 0,,1 AND PLACES
  3849					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3850					;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN 0
  3851					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3852					;IN THIS CASE, AC=0, C(AC)=707070,,707070 AND C(E)=0
  3853					;BEFORE INCREMENTING.  HENCE, AOSG SHOULD SKIP; AND THE
  3854					;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND 0,,1
  3855					;RESPECTIVELY
  3856
  3857	032610	200 00 0 00 033474 	C54220:	MOVE	0,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3858	032611	400 01 0 00 000000 		SETZ	1,		;PRELOAD E WITH 0
  3859	032612	357 00 0 00 000001 		AOSG	0,1		;*AOSG SHOULD ADD 0,,1 TO C(E),
  3860									;AND SKIP
  3861						STOP^
  3862	032613	254 04 0 00 032614 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3863	032614	324 00 0 00 032615 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3864									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3865									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3866									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3867	032615	312 01 0 00 033502 		CAME	1,[1]		;PASS IF E INCREMENTED CORRECTLY
  3868						STOP^
  3869	032616	254 04 0 00 032617 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3870	032617	324 00 0 00 032620 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3871									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3872									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3873									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3874	032620	312 00 0 00 033474 		CAME	0,[707070,,707070] ;PASS IF C(AC) WAS NOT MODIFIED
  3875						STOP^
  3876	032621	254 04 0 00 032622 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3877	032622	324 00 0 00 032623 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3878									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3879									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3880									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3881
  3882					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 70
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOJX INSTRUCTIONS                                                     SEQ 0109

  3883					SUBTTL	TEST OF MSCL SOJX INSTRUCTIONS
  3884
  3885					;**********
  3886
  3887					;THIS TEST VERIFIES THAT SOJL DECREMENTS C(AC) BY 0,,1 AND
  3888					;PLACES THE RESTULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3889					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3890					;SPECIFIED BY E IF C(AC) IS LESS THAN 0.
  3891					;IN THIS CASE, C(AC)=0 BEFORE DECREMENTING.  HENCE, SOJL
  3892					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE -1,,-1
  3893
  3894	032623	201 17 0 00 000000 	C54300:	MOVEI	17,0		;PRELOAD AC WITH 0
  3895	032624	361 17 0 00 032626 		SOJL	17,.+2		;*SOJL SHOULD SUBTRACT 0,,1 FROM C(AC)
  3896									;AND JUMP
  3897						STOP^
  3898	032625	254 04 0 00 032626 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3899	032626	324 00 0 00 032627 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3900									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3901									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3902									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3903	032627	312 17 0 00 033462 		CAME	17,[-1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3904						STOP^
  3905	032630	254 04 0 00 032631 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3906	032631	324 00 0 00 032632 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3907									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3908									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3909									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3910
  3911					;***********
  3912
  3913					;THIS TEST VERIFIES THAT SOJL DECREMENTS C(AC) BY 0,,1 AND
  3914					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3915					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3916					;SPECIFIED BY E IF C(AC) IS LESS THAN 0.
  3917					;IN THIS CASE, C(AC)=0,,1 BEFORE DECREMENTING.  HENCE, SOJL
  3918					;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE 0.
  3919
  3920	032632	201 17 0 00 000001 	C54310:	MOVEI	17,1		;PRELOAD AC WITH 0,,1
  3921	032633	361 17 0 00 032635 		SOJL	17,.+2			;*SOJL SHOULD SUBTRACT 0,,1 FROM C(AC)
  3922	032634	334 00 0 00 000000 		SKIPA			;PASS IF SOJL DID NOT JUMP
  3923						STOP^
  3924	032635	254 04 0 00 032636 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3925	032636	324 00 0 00 032637 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3926									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3927									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3928									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3929	032637	312 17 0 00 033501 		CAME	17,[0]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3930						STOP^
  3931	032640	254 04 0 00 032641 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3932	032641	324 00 0 00 032642 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3933									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3934									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3935									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3936
  3937					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 71
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOJX INSTRUCTIONS                                                     SEQ 0110

  3938					;THIS TEST VERIFIES THAT SOJL DECREMENTS C(AC) BY 0,,1 AND
  3939					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3940					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3941					;SPECIFIED BY E IF C(AC) IS LESS THAN 0
  3942					;IN THIS CASE, C(AC)=0,,2 BEFORE DECREMENTING.  HENCE, SOJ
  3943					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0,,1
  3944
  3945	032642	201 17 0 00 000002 	C54320:	MOVEI	17,2		;PRELOAD AC WITH 0,,2
  3946	032643	361 17 0 00 032645 		SOJL	17,.+2		;*SOJ SHOULD SUBTRACT 0,,1 FROM C(AC)
  3947									;AND NOT JUMP.
  3948	032644	334 00 0 00 000000 		SKIPA			;PASS IF SOJL DID NOT JUMP
  3949						STOP^
  3950	032645	254 04 0 00 032646 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3951	032646	324 00 0 00 032647 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3952									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3953									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3954									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3955	032647	312 17 0 00 033502 		CAME	17,[1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3956						STOP^
  3957	032650	254 04 0 00 032651 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3958	032651	324 00 0 00 032652 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3959									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3960									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3961									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3962
  3963					;**********
  3964
  3965					;THIS TEST VERIFIES THAT SOJE DECREMENTS C(AC) BY 0,,1 AND
  3966					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3967					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3968					;SPECIFIED BY E IF C(AC) IS EQUAL TO 0.
  3969					;IN THIS CASE, C(AC)=0 BEFORE DECREMENTING.  HENCE, SOJE
  3970					;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE -1,,-1
  3971
  3972	032652	201 16 0 00 000000 	C54400:	MOVEI	16,0		;PRELOAD AC WITH 0
  3973	032653	362 16 0 00 032655 		SOJE	16,.+2		;*SOJE SHOULD SUBTRACT 0,,1 FROM C(AC)
  3974									;AND NOT JUMP.
  3975	032654	334 00 0 00 000000 		SKIPA			;PASS IF SOJE DID NOT JUMP
  3976						STOP^
  3977	032655	254 04 0 00 032656 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3978	032656	324 00 0 00 032657 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3979									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3980									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3981									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3982	032657	312 16 0 00 033462 		CAME	16,[-1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3983						STOP^
  3984	032660	254 04 0 00 032661 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3985	032661	324 00 0 00 032662 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3986									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3987									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3988									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3989
  3990					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 72
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOJX INSTRUCTIONS                                                     SEQ 0111

  3991					;THIS TEST VERIFIES THAT SOJE DECREMENTS C(AC) BY 0,,1 AND
  3992					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3993					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3994					;SPECIFIED BY E IF C(AC) IS EQUAL TO 0
  3995					;IN THIS CASE, C(AC)=0,,1 BEFORE DECREMENTING.  HENCE, SOJ
  3996					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0
  3997
  3998	032662	201 16 0 00 000001 	C54410:	MOVEI	16,1		;PRELOAD AC WITH 0,,1
  3999	032663	362 16 0 00 032665 		SOJE	16,.+2		;*SOJE SHOULD SUBTRACT 0,,1 FROM C(AC)
  4000									;AND JUMP
  4001						STOP^
  4002	032664	254 04 0 00 032665 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4003	032665	324 00 0 00 032666 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4004									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4005									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4006									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4007	032666	312 16 0 00 033501 		CAME	16,[0]		;PASS IF C(AC) DECREMENTED CORRECTLY
  4008						STOP^
  4009	032667	254 04 0 00 032670 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4010	032670	324 00 0 00 032671 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4011									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4012									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4013									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4014
  4015					;**********
  4016
  4017					;THIS TEST VERIFIES THAT SOJE DECREMENTS C(AC) BY 0,,1 AND
  4018					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  4019					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  4020					;SPECIFIED BY E IF C(AC) IS EQUAL TO 0.
  4021					;IN THIS CASE, C(AC)=0,,2 BEFORE DECREMENTING.  HENCE, SOJE
  4022					;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE 0,,1
  4023
  4024	032671	201 16 0 00 000002 	C54420:	MOVEI	16,2		;PRELOAD AC WITH 0,,2
  4025	032672	362 16 0 00 032674 		SOJE	16,.+2		;*SOJ SHOULD SUBTRACT 0,,1 FROM C(AC)
  4026									;AND NOT JUMP.
  4027	032673	334 00 0 00 000000 		SKIPA			;PASS IF SOJE DID NOT JUMP
  4028						STOP^
  4029	032674	254 04 0 00 032675 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4030	032675	324 00 0 00 032676 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4031									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4032									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4033									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4034	032676	312 16 0 00 033502 		CAME	16,[1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  4035						STOP^
  4036	032677	254 04 0 00 032700 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4037	032700	324 00 0 00 032701 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4038									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4039									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4040									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4041
  4042					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 73
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOJX INSTRUCTIONS                                                     SEQ 0112

  4043					;THIS TEST VERIFIES THAT SOJLE DECREMENTS C(AC) BY 0,,1 AND
  4044					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  4045					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  4046					;SPECIFIED BY E IF C(AC) IS LESS THAN OR EQUAL TO 0
  4047					;IN THIS CASE, C(AC)=0 BEFORE DECREMENTING.  HENCE, SOJLE
  4048					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE -1,,-1
  4049
  4050	032701	201 15 0 00 000000 	C54500:	MOVEI	15,0		;PRELOAD AC WITH 0
  4051	032702	363 15 0 00 032704 		SOJLE	15,.+2		;*SOJLE SHOULD SUBTRACT 0,,1 FROM C(AC)
  4052									;AND JUMP
  4053						STOP^
  4054	032703	254 04 0 00 032704 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4055	032704	324 00 0 00 032705 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4056									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4057									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4058									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4059	032705	312 15 0 00 033462 		CAME	15,[-1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  4060						STOP^
  4061	032706	254 04 0 00 032707 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4062	032707	324 00 0 00 032710 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4063									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4064									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4065									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4066
  4067					;**********
  4068
  4069					;THIS TEST VERIFIES THAT SOJLE DECREMENTS C(AC) BY 0,,1 AND
  4070					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  4071					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  4072					;SPECIFIED BY E IF C(AC) IS LESS THAN OR EQUALTO 0.
  4073					;IN THIS CASE, C(AC)=0,,1 BEFORE DECREMENTING.  HENCE, SOJLE
  4074					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0
  4075
  4076	032710	201 15 0 00 000001 	C54510:	MOVEI	15,1		;PRELOAD AC WITH 0,,1
  4077	032711	363 15 0 00 032713 		SOJLE	15,.+2		;*SOJLE SHOULD SUBTRACT 0,,1 FROM C(AC)
  4078									;AND JUMP
  4079						STOP^
  4080	032712	254 04 0 00 032713 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4081	032713	324 00 0 00 032714 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4082									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4083									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4084									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4085	032714	312 15 0 00 033501 		CAME	15,[0]		;PASS IF C(AC) DECREMENTED CORRECTLY
  4086						STOP^
  4087	032715	254 04 0 00 032716 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4088	032716	324 00 0 00 032717 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4089									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4090									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4091									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4092
  4093					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 74
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOJX INSTRUCTIONS                                                     SEQ 0113

  4094					;THIS TEST VERIFIES THAT SOJLE DECREMENTS C(AC) BY 0,,1 AND
  4095					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  4096					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  4097					;SPECIFIED BY E IF C(AC) IS LESS THAN OR EQUAL TO 0.
  4098					;IN THIS CASE, C(AC)=0,,2 BEFORE DECREMENTING.  HENCE, SOJLE
  4099					;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE 0,,1
  4100
  4101	032717	201 15 0 00 000002 	C54520:	MOVEI	15,2		;PRELOAD AC WITH 0,,2
  4102	032720	363 15 0 00 032722 		SOJLE	15,.+2		;*SOJLE SHOULD SUBTRACT 0,,1 FROM C(AC)
  4103									;AND NOT JUMP
  4104	032721	334 00 0 00 000000 		SKIPA			;PASS IF SOJLE DID NOT JUMP
  4105						STOP^
  4106	032722	254 04 0 00 032723 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4107	032723	324 00 0 00 032724 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4108									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4109									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4110									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4111	032724	312 15 0 00 033502 		CAME	15,[1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  4112						STOP^
  4113	032725	254 04 0 00 032726 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4114	032726	324 00 0 00 032727 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4115									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4116									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4117									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4118
  4119					;**********
  4120
  4121					;THIS TEST VERIFIES THAT SOJA DECREMENTS C(AC) BY 0,,1 AND
  4122					;PLACES THE RESULT INTO THE AC.  THE RESULT IN THE AC IS
  4123					;COMPARED TO 0 AND THE PROGRAM ALWAYS JUMPS TO THE LOCATION
  4124					;SPECIFIED BY E
  4125					;IN THIS CASE, C(AC)=0 BEFORE DECREMENTING.  HENCE, SOJA
  4126					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE -1,,-1
  4127
  4128	032727	201 14 0 00 000000 	C54600:	MOVEI	14,0		;PRELOAD AC WITH 0
  4129	032730	364 14 0 00 032732 		SOJA	14,.+2		;*SOJ SHOULD SUBTRACT 0,,1 FROM C(AC)
  4130									;AND JUMP
  4131						STOP^
  4132	032731	254 04 0 00 032732 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4133	032732	324 00 0 00 032733 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4134									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4135									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4136									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4137	032733	312 14 0 00 033462 		CAME	14,[-1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  4138						STOP^
  4139	032734	254 04 0 00 032735 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4140	032735	324 00 0 00 032736 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4141									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4142									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4143									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4144
  4145					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 75
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOJX INSTRUCTIONS                                                     SEQ 0114

  4146					;THIS TEST VERIFIES THAT SOJA DECREMENTS C(AC) BY 0,,1 AND
  4147					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  4148					;COMPARED TO 0 AND THE PROGRAM ALWAYS JUMPS TO THE LOCATION
  4149					;SPECIFIED BY E
  4150					;IN THIS CASE, C(AC)=0,,1 BEFORE DECREMENTING.  HENCE, SOJA
  4151					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0
  4152
  4153	032736	201 14 0 00 000001 	C54610:	MOVEI	14,1		;PRELOAD AC WITH 0,,1
  4154	032737	364 14 0 00 032741 		SOJA	14,.+2		;*SOJA SHOULD SUBTRACT 0,,1 FROM C(AC)
  4155									;AND JUMP
  4156						STOP^
  4157	032740	254 04 0 00 032741 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4158	032741	324 00 0 00 032742 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4159									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4160									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4161									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4162	032742	312 14 0 00 033501 		CAME	14,[0]		;PASS IF C(AC) DECREMENTED CORRECTLY
  4163						STOP^
  4164	032743	254 04 0 00 032744 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4165	032744	324 00 0 00 032745 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4166									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4167									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4168									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4169
  4170					;**********
  4171
  4172					;THIS TEST VERIFIES THAT SOJA DECREMENTS C(AC) BY 0,,1 AND
  4173					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  4174					;COMPARED TO 0 AND THE PROGRAM ALWAYS JUMPS TO THE LOCATION
  4175					;SPECIFIED BY E
  4176					;IN THIS CASE, C(AC)=0,,2 BEFORE DECREMENTING.  HENCE, SOJA
  4177					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0,,1
  4178
  4179	032745	201 14 0 00 000002 	C54620:	MOVEI	14,2		;PRELOAD AC WITH 0,,2
  4180	032746	364 14 0 00 032750 		SOJA	14,.+2		;*SOJA SHOULD SUBTRACT 0,,1 FROM C(AC)
  4181									;AND JUMP
  4182						STOP^
  4183	032747	254 04 0 00 032750 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4184	032750	324 00 0 00 032751 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4185									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4186									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4187									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4188	032751	312 14 0 00 033502 		CAME	14,[1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  4189						STOP^
  4190	032752	254 04 0 00 032753 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4191	032753	324 00 0 00 032754 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4192									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4193									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4194									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4195
  4196					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 76
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOJX INSTRUCTIONS                                                     SEQ 0115

  4197					;THIS TEST VERIFIES THAT SOJGE DECREMENTS C(AC) BY 0,,1 AND
  4198					;PLACES THE RESULT BACK INTO THE AC.  THE  RESULT IN THE AC IS
  4199					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  4200					;SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0
  4201					;IN THIS CASE, C(AC)=0 BEFORE DECREMENTING.  HENCE, SOJGE
  4202					;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE -1,,-1
  4203
  4204	032754	201 13 0 00 000000 	C54700:	MOVEI	13,0		;PRELOAD A C WITH 0
  4205	032755	365 13 0 00 032757 		SOJGE	13,.+2		;*SOJGE SHOULD SUBTRACT 0,,1 FROM C(AC)
  4206									;AND NOT JUMP
  4207	032756	334 00 0 00 000000 		SKIPA			;PASS IF SOJGE DID NOT JUMP
  4208						STOP^
  4209	032757	254 04 0 00 032760 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4210	032760	324 00 0 00 032761 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4211									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4212									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4213									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4214	032761	312 13 0 00 033462 		CAME	13,[-1]	;PASS IF C(AC) DECREMENTED CORRECTLY
  4215						STOP^
  4216	032762	254 04 0 00 032763 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4217	032763	324 00 0 00 032764 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4218									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4219									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4220									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4221
  4222					;**********
  4223
  4224					;THIS TEST VERIFIES THAT SOJGE DECREMENTS C(AC) BY 0,,1 AND
  4225					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  4226					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  4227					;SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0
  4228					;IN THIS CASE, C(AC)=0,,1 BEFORE DECREMENTING.  HENCE, SOJGE
  4229					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0
  4230
  4231	032764	201 13 0 00 000001 	C54710:	MOVEI	13,1		;PRELOAD AC WITH 0,,1
  4232	032765	365 13 0 00 032767 		SOJGE	13,.+2		;*SOJ SHOULD SUBTRACT 0,,1 FROM C(AC)
  4233									;AND JUMP
  4234						STOP^
  4235	032766	254 04 0 00 032767 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4236	032767	324 00 0 00 032770 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4237									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4238									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4239									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4240	032770	312 13 0 00 033501 		CAME	13,[0]		;PASS IF C(AC) DECREMENTED CORRECTLY
  4241						STOP^
  4242	032771	254 04 0 00 032772 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4243	032772	324 00 0 00 032773 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4244									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4245									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4246									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4247
  4248					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 77
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOJX INSTRUCTIONS                                                     SEQ 0116

  4249					;THIS TEST VERIRIES THAT SOJGE DECREMENTS C(AC) BY 0,,1 AND PLACES THE
  4250					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS COMPARED
  4251					;TO 0 AND THE PROGRAM JUMPS TO THE LOCATION SPECIFIED BY E IF C(AC IS
  4252					;GREATER THAN OR EQUAL TO 0.  IN THIS CASE, C(AC = 0,,2 BEFORE
  4253					;DECREMENTING.  HENCE, SOJGE SHOULD JUMP AND THE RESULT IN THE AC SHOULD
  4254					;BE 0,,1.
  4255
  4256	032773	201 13 0 00 000002 	C54720:	MOVEI	13,2		;PRELOAD AC WITH 0,,2
  4257	032774	365 13 0 00 032776 		SOJGE	13,.+2		;*SOJGE SHOULD SUBTRACT0,,1 FROM C(AC)
  4258									;AND JUMP.
  4259						STOP^
  4260	032775	254 04 0 00 032776 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4261	032776	324 00 0 00 032777 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4262									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4263									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4264									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4265	032777	312 13 0 00 033502 		CAME	13,[1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  4266						STOP^
  4267	033000	254 04 0 00 033001 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4268	033001	324 00 0 00 033002 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4269									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4270									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4271									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4272
  4273					;**********
  4274
  4275					;THIS TEST VERIFIES THAT SOJN DECREMENTS C(AC) BY 0,,1 AND
  4276					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  4277					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 
  4278					;SPECIFIED BY E IF C(AC) IS NON-ZERO.
  4279					;IN THIS CASE, C(AC)=0 BEFORE DECREMENTING.  HENCE,SOJN
  4280					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE -1,,-1.
  4281
  4282	033002	201 12 0 00 000000 	C55000:	MOVEI	12,0		;PRELOAD AC WITH 0
  4283	033003	366 12 0 00 033005 		SOJN	12,.+2		;*SOJN SHOULD SUBTRACT 0,,1 FROM C(AC)
  4284									;AND JUMP.
  4285						STOP^
  4286	033004	254 04 0 00 033005 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4287	033005	324 00 0 00 033006 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4288									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4289									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4290									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4291	033006	312 12 0 00 033462 		CAME	12,[-1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  4292						STOP^
  4293	033007	254 04 0 00 033010 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4294	033010	324 00 0 00 033011 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4295									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4296									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4297									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4298
  4299					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 78
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOJX INSTRUCTIONS                                                     SEQ 0117

  4300					;THIS TEST VERIRIES THAT SOJN DECREMENTS C(AC) BY 0,,1 AND
  4301					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  4302					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION SPECIFIED
  4303					;BY E IF C(AC) IS NON-ZERO.
  4304					;IN THIS CASE, C(AC) = 0,,1 BEFORE DECREMENTING.  HENCE, SOJN
  4305					;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE 0.
  4306
  4307	033011	201 12 0 00 000001 	C55010:	MOVEI	12,1		;PRELOAD AC WITH 0,,1
  4308	033012	366 12 0 00 033014 		SOJN	12,.+2		;*SOJN SHOULD SUBTRACT 0,,1 FROM C(AC)
  4309									;AND NOT JUMP.
  4310	033013	334 00 0 00 000000 		SKIPA			;PASS IF SOJN DID NOT JUMP
  4311						STOP^
  4312	033014	254 04 0 00 033015 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4313	033015	324 00 0 00 033016 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4314									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4315									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4316									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4317	033016	312 12 0 00 033501 		CAME	12,[0]		;PASS IF C(AC) DECREMENTED CORRECTLY
  4318						STOP^
  4319	033017	254 04 0 00 033020 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4320	033020	324 00 0 00 033021 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4321									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4322									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4323									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4324
  4325					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 79
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOJX INSTRUCTIONS                                                     SEQ 0118

  4326					;THIS TEST VERIFIES THAT SOJN DECREMENTS C(AC) BY 0,,1 AND
  4327					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  4328					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  4329					;SPECIFIED BY E IF C(AC) IS NON-ZERO.
  4330					;IN THIS CASE, C(AC)=0,,2 BEFORE DECREMENTING.  HENCE, SOJN
  4331					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0,,1.
  4332
  4333	033021	201 12 0 00 000002 	C55020:	MOVEI	12,2		;PRELOAD AC WITH 0,,2
  4334	033022	366 12 0 00 033024 		SOJN	12,.+2		;*SOJN SHOULD SUBTRACT 0,,1 FROM C(AC)
  4335									;AND JUMP.
  4336						STOP^
  4337	033023	254 04 0 00 033024 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4338	033024	324 00 0 00 033025 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4339									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4340									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4341									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4342	033025	312 12 0 00 033502 		CAME	12,[1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  4343						STOP^
  4344	033026	254 04 0 00 033027 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4345	033027	324 00 0 00 033030 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4346									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4347									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4348									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4349
  4350					;**********
  4351
  4352					;THIS TEST VERIFIES THAT SOJG DECREMENTS C(AC) BY 0,,1 AND
  4353					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  4354					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  4355					;SPECIFIED BY E IF C(AC) IS GREATER THAN 0.
  4356					;IN THIS CASE, C(AC) = 0 BEFORE DECREMENTING.  HENCE, SOJG
  4357					;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE -1,,-1.
  4358
  4359	033030	201 11 0 00 000000 	C55100:	MOVEI	11,0		;PRELOAD AC WITH 0
  4360	033031	367 11 0 00 033033 		SOJG	11,.+2		;*SOJG SHOULD SUBTRACT 0,,1 FROM C(AC)
  4361									;AND NOT JUMP.
  4362	033032	334 00 0 00 000000 		SKIPA			;PASS IF SOJG DID NOT JUMP
  4363						STOP^
  4364	033033	254 04 0 00 033034 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4365	033034	324 00 0 00 033035 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4366									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4367									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4368									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4369	033035	312 11 0 00 033462 		CAME	11,[-1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  4370						STOP^
  4371	033036	254 04 0 00 033037 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4372	033037	324 00 0 00 033040 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4373									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4374									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4375									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4376
  4377					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 80
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOJX INSTRUCTIONS                                                     SEQ 0119

  4378					;THIS TEST VERIRIES THAT SOJG DECREMENTS C(AC) BY 0,,1 AND
  4379					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  4380					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  4381					;SPECIFIED BY E IF C(AC) IS GREATER THAN 0.
  4382					;IN THIS CASE, C(AC)=0,,1 BEFORE DECREMENTING.  HENCE, SOJG
  4383					;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE 0.
  4384
  4385	033040	201 11 0 00 000001 	C55110:	MOVEI	11,1		;PRELOAD AC WITH 0,,1
  4386	033041	367 11 0 00 033043 		SOJG	11,.+2		;*SOJG SHOULD SUBTRACT 0,,1 FROM C(AC)
  4387									;AND NOT JUMP.
  4388	033042	334 00 0 00 000000 		SKIPA			;PASS IF SOJG DID NOT JUMP
  4389						STOP^
  4390	033043	254 04 0 00 033044 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4391	033044	324 00 0 00 033045 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4392									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4393									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4394									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4395	033045	312 11 0 00 033501 		CAME	11,[0]		;PASS IF C(AC) DECREMENTED CORRECTLY
  4396						STOP^
  4397	033046	254 04 0 00 033047 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4398	033047	324 00 0 00 033050 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4399									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4400									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4401									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4402
  4403					;**********
  4404
  4405					;THIS TEST VERIFIES THAT SOJG DECREMENTS C(AC) BY 0,,1 AND
  4406					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  4407					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  4408					;SPECIFIED BY E IF C(AC) IS GREATER THAN 0.
  4409					;IN THIS CASE, C(AC)=0,,2 BEFORE DECREMENTING.  HENCE, SOJG
  4410					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0,,1.
  4411
  4412	033050	201 11 0 00 000002 	C55120:	MOVEI	11,2		;PRELOAD AC WITH 0,,2
  4413	033051	367 11 0 00 033053 		SOJG	11,.+2		;*SOJG SHOULD SUBTRACT O,,1 FROM C(AC)
  4414									;AND JUMP.
  4415						STOP^
  4416	033052	254 04 0 00 033053 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4417	033053	324 00 0 00 033054 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4418									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4419									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4420									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4421	033054	312 11 0 00 033502 		CAME	11,[1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  4422						STOP^
  4423	033055	254 04 0 00 033056 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4424	033056	324 00 0 00 033057 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4425									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4426									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4427									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4428
  4429					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 81
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0120

  4430					SUBTTL	TEST OF MSCL SOSX INSTRUCTIONS
  4431
  4432					;**********
  4433
  4434					;THIS TEST VERIFIES THAT SOSL DECREMENTS C(E) BY 0,,1 AND PLACES
  4435					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  4436					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN 0.
  4437					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4438					;IN THIS CASE, AC=0, C(AC)=707070,,707070 AND C(E)=0
  4439					;BEFORE INCREMENTING.  HENCE, SOSL SHOULD SKIP; AND THE
  4440					;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND -1,,-1
  4441					;RESPECTIVELY.
  4442
  4443	033057	200 00 0 00 033474 	C55200:	MOVE	0,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  4444	033060	201 01 0 00 000000 		MOVEI	1,0		;PRELOAD E WITH 0
  4445	033061	371 00 0 00 000001 		SOSL	0,1		;*SOSL SHOULD SUBTRACT 0,,1 FROM C(E)
  4446									;AND SKIP
  4447						STOP^
  4448	033062	254 04 0 00 033063 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4449	033063	324 00 0 00 033064 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4450									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4451									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4452									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4453	033064	312 01 0 00 033462 		CAME	1,[-1]		;PASS IF E DECREMENTED CORRECTLY
  4454						STOP^
  4455	033065	254 04 0 00 033066 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4456	033066	324 00 0 00 033067 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4457									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4458									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4459									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4460	033067	312 00 0 00 033474 		CAME	0,[707070,,707070]  ;PASS IF C(AC) WAS NOT MODIFIED
  4461						STOP^
  4462	033070	254 04 0 00 033071 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4463	033071	324 00 0 00 033072 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4464									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4465									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4466									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4467
  4468					;**********
  4469
  4470					;THIS TEST VERIFIES THAT SOSL DECREMENTS C(E) BY 0,,1 AND PLACES
  4471					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  4472					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN 0.
  4473					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4474					;IN THIS CASE, AC=0, C(AC)=707070,,707070 AND C(E)=0,,1
  4475					;BEFORE INCREMENTING.  HENCE, SOSL SHOULD NOT SKIP; AND THE
  4476					;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND 0
  4477					;RESPECTIVELY.
  4478
  4479	033072	200 00 0 00 033474 	C55210:	MOVE	0,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  4480	033073	201 01 0 00 000001 		MOVEI	1,1		;PRELOAD E WITH 0,,1
  4481	033074	371 00 0 00 000001 		SOSL	0,1		;*SOSL SHOULD SUBTRACT 0,,1 FROM C(E),
  4482									;AND NOT SKIP.
  4483	033075	334 00 0 00 000000 		SKIPA			;PASS IF SOSL DID NOT SKIP
  4484						STOP^
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 81-1
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0121

  4485	033076	254 04 0 00 033077 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4486	033077	324 00 0 00 033100 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4487									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4488									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4489									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4490	033100	312 01 0 00 033501 		CAME	1,[0]		;PASS IF E DECREMENTED CORRECTLY
  4491						STOP^
  4492	033101	254 04 0 00 033102 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4493	033102	324 00 0 00 033103 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4494									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4495									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4496									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4497	033103	312 00 0 00 033474 		CAME	0,[707070,,707070]  ;PASS IF C(AC) WAS NOT MODIFIED
  4498						STOP^
  4499	033104	254 04 0 00 033105 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4500	033105	324 00 0 00 033106 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4501									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4502									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4503									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4504
  4505					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 82
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0122

  4506					;THIS TEST VERIFIES THAT SOSL DECREMENTS C(E) BY 0,,1 AND PLACES
  4507					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  4508					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN 0.
  4509					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4510					;IN THIS CASE, AC=0, C(AC)=707070,,707070 AND C(E)=0,,1
  4511					;BEFORE INCREMENTING.  HENCE, SOSL SHOULD NOT SKIP; AND THE
  4512					;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND 0
  4513					;RESPECTIVELY.
  4514
  4515	033106	200 00 0 00 033474 	C55211:	MOVE	0,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  4516	033107	201 01 0 00 000001 		MOVEI	1,1		;PRELOAD E WITH 0,,1
  4517	033110	202 01 0 00 033125 		MOVEM	1,E55211
  4518	033111	371 00 0 00 033125 		SOSL	0,E55211	;*SOSL SHOULD SUBTRACT 0,,1 FROM C(E),
  4519									;AND NOT SKIP.
  4520	033112	334 00 0 00 000000 		SKIPA			;PASS IF SOSL DID NOT SKIP
  4521						STOP^
  4522	033113	254 04 0 00 033114 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4523	033114	324 00 0 00 033115 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4524									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4525									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4526									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4527	033115	200 01 0 00 033125 		MOVE	1,E55211
  4528	033116	312 01 0 00 033501 		CAME	1,[0]		;PASS IF E DECREMENTED CORRECTLY
  4529						STOP^
  4530	033117	254 04 0 00 033120 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4531	033120	324 00 0 00 033121 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4532									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4533									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4534									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4535	033121	312 00 0 00 033474 		CAME	0,[707070,,707070]  ;PASS IF C(AC) WAS NOT MODIFIED
  4536						STOP^
  4537	033122	254 04 0 00 033123 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4538	033123	324 00 0 00 033124 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4539									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4540									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4541									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4542
  4543	033124	334 00 0 00 000000 		SKIPA			;GO TO NEXT TEST
  4544	033125	000000	000000		E55211:	0			;TEST WORD MEMORY
  4545
  4546					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 83
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0123

  4547					;THIS TEST VERIFIES THAT SOS DECREMENTS C(E) BY 0,,1 AND PLACES
  4548					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  4549					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN 0.
  4550					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4551					;IN THIS CASE, AC=0, C(AC)=707070,,707070 AND C(E) 0,,2
  4552					;BEFORE INCREMENTING.  HENCE, SOSL SHOULD NOT SKIP; AND THE
  4553					;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND 0,,1
  4554					;RESPECTIVELY.
  4555
  4556	033126	200 00 0 00 033474 	C55220:	MOVE	0,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  4557	033127	201 01 0 00 000002 		MOVEI	1,2		;PRELOAD E WITH 0,,2
  4558	033130	371 00 0 00 000001 		SOSL	0,1		;*SOSL SHOULD SUBTRACT 0,,1 FROM C(E),
  4559									;AND NOT SKIP
  4560
  4561	033131	334 00 0 00 000000 		SKIPA			;PASS IF SOSL DID NOT SKIP
  4562						STOP^
  4563	033132	254 04 0 00 033133 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4564	033133	324 00 0 00 033134 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4565									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4566									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4567									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4568	033134	312 01 0 00 033502 		CAME	1,[1]		;PASS IF E DECREMENTED CORRECTLY
  4569						STOP^
  4570	033135	254 04 0 00 033136 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4571	033136	324 00 0 00 033137 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4572									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4573									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4574									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4575	033137	312 00 0 00 033474 		CAME	0,[707070,,707070]  ;PASS IF AC WAS UPDATED IF AC NON-ZERO
  4576						STOP^
  4577	033140	254 04 0 00 033141 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4578	033141	324 00 0 00 033142 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4579									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4580									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4581									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4582
  4583					;**********
  4584
  4585					;THIS TEST VERIFIES THAT SOSE DECREMENTS C(E) BY 0,,1 AND PLACES
  4586					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  4587					;THE NEXT INSTRUCTION IF C(E) IS EQUAL TO 0
  4588					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4589					;IN THIS CASE, AC=10, C(AC)=707070,,707070 AND C(E)=0
  4590					;BEFORE INCREMENTING.  HENCE, SOSE SHOULD NOT SKIP ; AND THE
  4591					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  4592					;RESPECTIVELY.
  4593
  4594	033142	200 10 0 00 033474 	C55300:	MOVE	10,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  4595	033143	201 11 0 00 000000 		MOVEI	11,0		;PRELOAD E WITH 0
  4596	033144	372 10 0 00 000011 		SOSE	10,11		;*SOSE SHOULD SUBTRACT 0,,1 FROM C(E),
  4597									;UPDATE AC AND NOT SKIP
  4598
  4599	033145	334 00 0 00 000000 		SKIPA			;PASS IF SOSE DID NOT SKIP
  4600						STOP^
  4601	033146	254 04 0 00 033147 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 83-1
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0124

  4602	033147	324 00 0 00 033150 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4603									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4604									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4605									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4606	033150	312 11 0 00 033462 		CAME	11,[-1]		;PASS IF E DECREMENTED CORRECTLY
  4607						STOP^
  4608	033151	254 04 0 00 033152 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4609	033152	324 00 0 00 033153 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4610									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4611									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4612									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4613	033153	312 10 0 00 033462 		CAME	10,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  4614						STOP^
  4615	033154	254 04 0 00 033155 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4616	033155	324 00 0 00 033156 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4617									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4618									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4619									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4620
  4621					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 84
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0125

  4622					;THIS TEST VERIFIES THAT SOSE DECREMENTS C(E) BY 0,,1 AND PLACES
  4623					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  4624					;THE NEXT INSTRUCTION IF C(E) IS EQUAL TO 0
  4625					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4626					;IN THIS CASE, AC=10, C(AC)=707070,,707070 AND C(E)=0,,1
  4627					;BEFORE INCREMENTING.  HENCE, SOSE SHOULD SKIP ; AND THE
  4628					;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND 0
  4629					;RESPECTIVELY.
  4630
  4631	033156	200 10 0 00 033474 	C55310:	MOVE	10,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  4632	033157	201 11 0 00 000001 		MOVEI	11,1		;PRELOAD E WITH 0,,1
  4633	033160	372 10 0 00 000011 		SOSE	10,11		;*SOS SHOULD SUBTRACT 0,,1 FROM C(E)
  4634									;UPDATE AC AND SKIP
  4635						STOP^
  4636	033161	254 04 0 00 033162 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4637	033162	324 00 0 00 033163 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4638									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4639									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4640									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4641	033163	312 11 0 00 033501 		CAME	11,[0]		;PASS IF E DECREMENTED CORRECTLY
  4642						STOP^
  4643	033164	254 04 0 00 033165 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4644	033165	324 00 0 00 033166 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4645									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4646									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4647									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4648	033166	312 10 0 00 033501 		CAME	10,[0]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  4649						STOP^
  4650	033167	254 04 0 00 033170 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4651	033170	324 00 0 00 033171 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4652									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4653									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4654									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4655
  4656					;**********
  4657
  4658					;THIS TEST VERIFIES THAT SOSE DECREMENTS C(E) BY 0,11 AND PLACES
  4659					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  4660					;THE NEXT INSTRUCTION IF C(E) IS EQUAL TO 0.
  4661					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4662					;IN THIS CASE, AC=10, C(AC)=707070,,707070 AND C(E)=0,,2
  4663					;BEFORE INCREMENTING. HENCE, SOSE SHOULD NOT SKIP ; AND THE
  4664					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1
  4665					;RESPECTIVELY.
  4666
  4667	033171	200 10 0 00 033474 	C55320:	MOVE	10,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  4668	033172	201 11 0 00 000002 		MOVEI	11,2		;PRELOAD E WITH 0,,2
  4669	033173	372 10 0 00 000011 		SOSE	10,11		;*SOSE SHOULD SUBTRACT 0,,1 FROM C(E),
  4670									;UPDATE AC AND NOT SKIP
  4671
  4672	033174	334 00 0 00 000000 		SKIPA			;PASS IF SOSE DID NOT SKIP
  4673						STOP^
  4674	033175	254 04 0 00 033176 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4675	033176	324 00 0 00 033177 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4676									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 84-1
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0126

  4677									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4678									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4679	033177	312 11 0 00 033502 		CAME	11,[1]		;PASS IF E DECREMENTED CORRECTLY
  4680						STOP^
  4681	033200	254 04 0 00 033201 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4682	033201	324 00 0 00 033202 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4683									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4684									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4685									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4686	033202	312 10 0 00 033502 		CAME	10,[1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  4687						STOP^
  4688	033203	254 04 0 00 033204 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4689	033204	324 00 0 00 033205 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4690									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4691									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4692									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4693
  4694					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 85
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0127

  4695					;THIS TEST VERIFIES THAT SOSLE DECREMENTS C(E) BY 0,,1 AND PLACES
  4696					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  4697					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN OR EQUAL TO 0.
  4698					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4699					;IN THIS CASE, AC=7, C(AC)=707070,,707070 AND C(E)=0
  4700					;BEFORE INCREMENTING.  HENCE, SOSLE SHOULD SKIP ; AND THE
  4701					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  4702					;RESPECTIVELY.
  4703
  4704	033205	200 07 0 00 033474 	C55400:	MOVE	7,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  4705	033206	201 10 0 00 000000 		MOVEI	10,0		;PRELOAD E WITH 0
  4706	033207	373 07 0 00 000010 		SOSLE	7,10		;*SOSLE SHOULD SUBTRACT 0,,1 FROM C(E),
  4707									;UPDATE AC AND SKIP
  4708						STOP^
  4709	033210	254 04 0 00 033211 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4710	033211	324 00 0 00 033212 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4711									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4712									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4713									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4714	033212	312 10 0 00 033462 		CAME	10,[-1]		;PASS IF E DECREMENTED CORRECTLY
  4715						STOP^
  4716	033213	254 04 0 00 033214 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4717	033214	324 00 0 00 033215 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4718									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4719									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4720									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4721	033215	312 07 0 00 033462 		CAME	7,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  4722						STOP^
  4723	033216	254 04 0 00 033217 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4724	033217	324 00 0 00 033220 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4725									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4726									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4727									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4728
  4729					;**********
  4730
  4731					;THIS TEST VERIFIES THAT SOSLE DECREMENTS C(E) BY 0,,1 AND PLACES
  4732					;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  4733					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN OR EQUAL TO 0.
  4734					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4735					;IN THIS CASE, AC=7, C(AC)=070707,,070707 AND C(E)=0,,1
  4736					;BEFORE INCREMENTING.  HENCE, SOSLE SHOULD SKIP ; AND THE
  4737					;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0
  4738					;RESPECTIVELY.
  4739
  4740	033220	200 07 0 00 033474 	C55410:	MOVE	7,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  4741	033221	201 10 0 00 000001 		MOVEI	10,1		;PRELOAD E WITH 0,,1
  4742	033222	373 07 0 00 000010 		SOSLE	7,10		;*SOSLE SHOULD SUBTRACT 0,,1 FROM C(E),
  4743									;UPDATE AC AND SKIP
  4744						STOP^
  4745	033223	254 04 0 00 033224 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4746	033224	324 00 0 00 033225 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4747									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4748									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4749									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 85-1
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0128

  4750	033225	312 10 0 00 033501 		CAME	10,[0]		;PASS IF E DECREMENTED CORRECTLY
  4751						STOP^
  4752	033226	254 04 0 00 033227 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4753	033227	324 00 0 00 033230 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4754									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4755									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4756									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4757	033230	312 07 0 00 033501 		CAME	7,[0]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  4758						STOP^
  4759	033231	254 04 0 00 033232 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4760	033232	324 00 0 00 033233 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4761									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4762									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4763									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4764
  4765					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 86
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0129

  4766					;THIS TEST VERIFIES THAT SOSLE DECREMENTS C(E) BY 0,,1 AND PLACES
  4767					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  4768					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN OR EQUAL TO 0.
  4769					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4770					;IN THIS CASE, AC=7, C(AC)=707070,,707070 AND C(E)=0,,2
  4771					;BEFORE INCREMENTING.  HENCE, SOSLE SHOULD NOT SKIP; AND THE
  4772					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1
  4773					;RESPECTIVELY.
  4774
  4775	033233	200 07 0 00 033474 	C55420:	MOVE	7,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  4776	033234	201 10 0 00 000002 		MOVEI	10,2		;PRELOAD E WITH 0,,2
  4777	033235	373 07 0 00 000010 		SOSLE	7,10		;*SOSLE SHOULD SUBTRACT 0,,1 FROM C(E),
  4778									;UPDATE AC AND NOT SKIP
  4779	033236	334 00 0 00 000000 		SKIPA			;PASS IF SOSLE DID NOT SKIP
  4780						STOP^
  4781	033237	254 04 0 00 033240 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4782	033240	324 00 0 00 033241 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4783									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4784									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4785									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4786	033241	312 10 0 00 033502 		CAME	10,[1]		;PASS IF E DECREMENTED CORRECTLY
  4787						STOP^
  4788	033242	254 04 0 00 033243 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4789	033243	324 00 0 00 033244 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4790									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4791									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4792									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4793	033244	312 07 0 00 033502 		CAME	7,[1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  4794						STOP^
  4795	033245	254 04 0 00 033246 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4796	033246	324 00 0 00 033247 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4797									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4798									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4799									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4800
  4801					;**********
  4802
  4803					;THIS TEST VERIFIES THAT SOSA DECREMENTS C(E) BY 0,,1 AND PLACES
  4804					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND ALWAYS SKIPS
  4805					;THE NEXT INSTRUCTION.
  4806					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4807					;IN THIS CASE, AC=6, C(AC)=707070,,707070 AND C(E)=0
  4808					;BEFORE INCREMENTING. HENCE, SOSA SHOULD SKIP ; AND THE
  4809					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  4810					;RESPECTIVELY.
  4811
  4812	033247	200 06 0 00 033474 	C55500:	MOVE	6,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  4813	033250	201 07 0 00 000000 		MOVEI	7,0		;PRELOAD E WITH 0
  4814	033251	374 06 0 00 000007 		SOSA	6,7		;*SOSA SHOULD SUBTRACT 0,,1 FROM C(E),
  4815									;UPDATE AC AND SKIP
  4816						STOP^
  4817	033252	254 04 0 00 033253 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4818	033253	324 00 0 00 033254 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4819									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4820									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 86-1
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0130

  4821									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4822	033254	312 07 0 00 033462 		CAME	7,[-1]		;PASS IF E DECREMENTED CORRECTLY
  4823						STOP^
  4824	033255	254 04 0 00 033256 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4825	033256	324 00 0 00 033257 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4826									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4827									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4828									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4829	033257	312 06 0 00 033462 		CAME	6,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  4830						STOP^
  4831	033260	254 04 0 00 033261 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4832	033261	324 00 0 00 033262 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4833									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4834									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4835									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4836
  4837					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 87
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0131

  4838					;THIS TEST VERIFIES THAT SOSA DECREMENTS C(E) BY 0,,1 AND PLACES
  4839					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND ALWAYS SKIPS
  4840					;THE NEXT INSTRUCTION.
  4841					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THEAC.
  4842					;IN THIS CASE, AC=6, C(AC)=707070,,707070 AND C(E)=0,,1
  4843					;BEFORE INCREMENTING.  HENCE, SOSA SHOULD BE 0 AND 0
  4844					;RESPECTIVELY.
  4845
  4846	033262	200 06 0 00 033474 	C55510:	MOVE	6,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  4847	033263	201 07 0 00 000001 		MOVEI	7,1		;PRELOAD E WITH 0,,1
  4848	033264	374 06 0 00 000007 		SOSA	6,7		;*SOSA SHOULD SUBTRACT 0,,1 FROM C(E),
  4849									;UPDATE AC AND SKIP
  4850						STOP^
  4851	033265	254 04 0 00 033266 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4852	033266	324 00 0 00 033267 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4853									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4854									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4855									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4856	033267	312 07 0 00 033501 		CAME	7,[0]		;PASS IF E DECREMENTED CORRECTLY
  4857						STOP^
  4858	033270	254 04 0 00 033271 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4859	033271	324 00 0 00 033272 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4860									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4861									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4862									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4863	033272	312 06 0 00 033501 		CAME	6,[0]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  4864						STOP^
  4865	033273	254 04 0 00 033274 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4866	033274	324 00 0 00 033275 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4867									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4868									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4869									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4870
  4871					;**********
  4872
  4873					;THIS TEST VERIFIES THAT SOSA DECREMENTS C(E) BY 0,,1 AND PLACES
  4874					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND ALWAYS SKIPS
  4875					;THE NEXT INSTRUCTION.
  4876					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4877					;IN THIS CASE, AC=6, C(AC)=707070,,707070 AND C(E)=0,,2
  4878					;BEFORE INCREMENTING.  HENCE, SOSA SHOULD SKIP ; AND THE
  4879					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1
  4880					;RESPECTIVELY.
  4881
  4882	033275	200 06 0 00 033474 	C55520:	MOVE	6,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  4883	033276	201 07 0 00 000002 		MOVEI	7,2		;PRELOAD E WITH 0,,2
  4884	033277	374 06 0 00 000007 		SOSA	6,7		;*SOSA SHOULD SUBTRACT 0,,1 FROM C(E),
  4885									;UPDATE AC AND SKIP
  4886						STOP^
  4887	033300	254 04 0 00 033301 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4888	033301	324 00 0 00 033302 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4889									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4890									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4891									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4892	033302	312 07 0 00 033502 		CAME	7,[1]		;PASS IF E DECREMENTED CORRECTLY
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 87-1
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0132

  4893						STOP^
  4894	033303	254 04 0 00 033304 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4895	033304	324 00 0 00 033305 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4896									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4897									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4898									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4899	033305	312 06 0 00 033502 		CAME	6,[1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  4900						STOP^
  4901	033306	254 04 0 00 033307 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4902	033307	324 00 0 00 033310 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4903									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4904									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4905									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4906
  4907					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 88
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0133

  4908					;THIS TEST VERIFIES THAT SOSGE DECREMENTS C(E) BY 0,,1 AND PLACES
  4909					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  4910					;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN OR EQUAL TO 0.
  4911					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4912					;IN THIS CASE, AC=5, C(AC)=707070,,707070 AND C(E)=0
  4913					;BEFORE INCREMENTING.  HENCE, SOSGE SHOULD NOT SKIP ; AND THE
  4914					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  4915					;RESPECTIVELY.
  4916
  4917	033310	200 05 0 00 033474 	C55600:	MOVE	5,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  4918	033311	201 06 0 00 000000 		MOVEI	6,0		;PRELOAD E WITH 0
  4919	033312	375 05 0 00 000006 		SOSGE	5,6		;*SOSGE SHOULD SUBTRACT 0,,1 FROM C(E),
  4920									;UPDATE AC AND NOT SKIP
  4921	033313	334 00 0 00 000000 		SKIPA			;PASS IF SOSGE DID NOT SKIP
  4922						STOP^
  4923	033314	254 04 0 00 033315 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4924	033315	324 00 0 00 033316 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4925									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4926									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4927									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4928	033316	312 06 0 00 033462 		CAME	6,[-1]		;PASS IF E DECREMENTED CORRECTLY
  4929						STOP^
  4930	033317	254 04 0 00 033320 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4931	033320	324 00 0 00 033321 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4932									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4933									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4934									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4935	033321	312 05 0 00 033462 		CAME	5,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  4936						STOP^
  4937	033322	254 04 0 00 033323 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4938	033323	324 00 0 00 033324 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4939									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4940									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4941									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4942
  4943					;**********
  4944
  4945					;THIS TEST VERIFIES THAT SOSGE DECREMENTS C(E) BY 0,,1 AND PLACES
  4946					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  4947					;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN OR EQUAL TO 0.
  4948					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4949					;IN THIS CASE, AC=5, C(AC)=707070,,707070 AND C(E)=0,,1
  4950					;BEFORE INCREMENTING.  HENCE, SOSGE SHOULD SKIP ; AND THE
  4951					;FINAL RESULTS IN ACAND E SHOULD BE 0 AND 0
  4952					;RESPECTIVELY.
  4953
  4954	033324	200 05 0 00 033474 	C55610:	MOVE	5,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  4955	033325	201 06 0 00 000001 		MOVEI	6,1		;PRELOAD E WITH 0,,1
  4956	033326	375 05 0 00 000006 		SOSGE	5,6		;*SOSGE SHOULD SUBTRACT 0,,1 FROM C(E),
  4957									;UPDATE AC AND SKIP
  4958						STOP^
  4959	033327	254 04 0 00 033330 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4960	033330	324 00 0 00 033331 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4961									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4962									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 88-1
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0134

  4963									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4964	033331	312 06 0 00 033501 		CAME	6,[0]		;PASS IF E DECREMENTED CORRECTLY
  4965						STOP^
  4966	033332	254 04 0 00 033333 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4967	033333	324 00 0 00 033334 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4968									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4969									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4970									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4971	033334	312 05 0 00 033501 		CAME	5,[0]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  4972						STOP^
  4973	033335	254 04 0 00 033336 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4974	033336	324 00 0 00 033337 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4975									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4976									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4977									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4978
  4979					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 89
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0135

  4980					;THIS TEST VERIFIES THAT SOSGE DECREMENTS C(E) BY 0,,1 AND PLACES
  4981					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  4982					;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN OR EQUAL TO 0
  4983					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4984					;IN THIS CASE, AC=5, C(AC)=707070,,707070 AND C(E)=0,,2
  4985					;BEFORE INCREMENTING.  HENCE, SOSGE SHOULD SKIP ; AND THE
  4986					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1
  4987					;RESPECTIVELY.
  4988
  4989	033337	200 05 0 00 033474 	C55620:	MOVE	5,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  4990	033340	201 06 0 00 000002 		MOVEI	6,2		;PRELOAD E WITH 0,,2
  4991	033341	375 05 0 00 000006 		SOSGE	5,6		;*SOSGE SHOULD SUBTRACT 0,,1 FROM C(E),
  4992									;UPDATE AC AND SKIP
  4993						STOP^
  4994	033342	254 04 0 00 033343 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4995	033343	324 00 0 00 033344 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4996									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4997									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4998									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4999	033344	312 06 0 00 033502 		CAME	6,[1]		;PASS IF E DECREMENTED CORRECTLY
  5000						STOP^
  5001	033345	254 04 0 00 033346 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5002	033346	324 00 0 00 033347 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5003									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5004									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5005									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5006	033347	312 05 0 00 033502 		CAME	5,[1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  5007						STOP^
  5008	033350	254 04 0 00 033351 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5009	033351	324 00 0 00 033352 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5010									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5011									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5012									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5013
  5014					;**********
  5015
  5016					;THIS TEST VERIFIES SOSN DECREMENTS C(E) BY 0,,1 AND PLACES
  5017					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  5018					;THE NEXT INSTRUCTION IF C(E) IS NON-ZERO
  5019					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  5020					;IN THIS CASE, AC=4, C(AC)=707070,,707070 AND C(E)=0
  5021					;BEFORE INCREMENTING.  HENCE, SOSN SHOULD SKIP ; AND THE
  5022					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  5023					;RESPECTIVELY.
  5024
  5025	033352	200 04 0 00 033474 	C55700:	MOVE	4,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  5026	033353	201 05 0 00 000000 		MOVEI	5,0		;PRELOAD E WITH 0
  5027	033354	376 04 0 00 000005 		SOSN	4,5		;*SOSN SHOULD SUBTRACT 0,,1 FROM C(E),
  5028									;UPDATE AC AND SKIP
  5029						STOP^
  5030	033355	254 04 0 00 033356 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5031	033356	324 00 0 00 033357 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5032									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5033									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5034									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 89-1
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0136

  5035	033357	312 05 0 00 033462 		CAME	5,[-1]		;PASS IF E DECREMENTED CORRECTLY
  5036						STOP^
  5037	033360	254 04 0 00 033361 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5038	033361	324 00 0 00 033362 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5039									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5040									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5041									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5042	033362	312 04 0 00 033462 		CAME	4,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  5043						STOP^
  5044	033363	254 04 0 00 033364 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5045	033364	324 00 0 00 033365 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5046									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5047									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5048									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5049
  5050					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 90
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0137

  5051					;THIS TEST VERIFIES THAT SOSN DECREMENTS C(E) BY 0,,1 AND PLACES
  5052					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  5053					;THE NEXT INSTRUCTION IF C(E) IS NON-ZERO
  5054					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC
  5055					;IN THIS CASE, AC=4, C(AC)=707070,,707070 AND C(E)=0,,1
  5056					;BEFORE INCREMENTING.  HENCE, SOSN SHOULD NOT SKIP ; AND THE
  5057					;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0
  5058					;RESPECTIVELY.
  5059
  5060	033365	200 04 0 00 033474 	C55710:	MOVE	4,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  5061	033366	201 05 0 00 000001 		MOVEI	5,1		;PRELOAD E WITH 0,,1
  5062	033367	376 04 0 00 000005 		SOSN	4,5		;*SOSN SHOULD SUBTRACT 0,,1 FROM C(E),
  5063									;UPDATE AC AND NOT SKIP
  5064	033370	334 00 0 00 000000 		SKIPA			;PASS IF SOSN DID NOT SKIP
  5065						STOP^
  5066	033371	254 04 0 00 033372 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5067	033372	324 00 0 00 033373 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5068									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5069									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5070									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5071	033373	312 05 0 00 033501 		CAME	5,[0]		;PASS IF E DECREMENTED CORRECTLY
  5072						STOP^
  5073	033374	254 04 0 00 033375 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5074	033375	324 00 0 00 033376 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5075									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5076									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5077									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5078	033376	312 04 0 00 033501 		CAME	4,[0]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  5079						STOP^
  5080	033377	254 04 0 00 033400 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5081	033400	324 00 0 00 033401 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5082									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5083									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5084									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5085
  5086					;**********
  5087
  5088					;THIS TEST VERIFIES THAT SOSN DECREMENTS C(E) BY 0,,1 AND PLACES
  5089					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  5090					;THE NEXT INSTRUCTION IF C(E) IS NON-ZERO
  5091					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  5092					;INtTHIS CASE, AC=4, C(AC)=707070,,707070 AND C(E)=0,,2
  5093					;BEFORE INCREMENTING.  HENCE, SOSN SHOULD SKIP ; AND THE
  5094					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1
  5095					;RESPECTIVELY
  5096
  5097	033401	200 04 0 00 033474 	C55720:	MOVE	4,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  5098	033402	201 05 0 00 000002 		MOVEI	5,2		;PRELOAD E WITH 0,,2
  5099	033403	376 04 0 00 000005 		SOSN	4,5		;*SOSN SHOULD SUBTRACT 0,,1 FROM C(E),
  5100									;UPDATE AC AND SKIP
  5101						STOP^
  5102	033404	254 04 0 00 033405 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5103	033405	324 00 0 00 033406 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5104									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5105									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 90-1
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0138

  5106									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5107	033406	312 05 0 00 033502 		CAME	5,[1]		;PASS IF E DECREMENTED CORRECTLY
  5108						STOP^
  5109	033407	254 04 0 00 033410 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5110	033410	324 00 0 00 033411 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5111									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5112									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5113									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5114	033411	312 04 0 00 033502 		CAME	4,[1]		;PASS IF ACWAS UPDATED IF AC NON-ZERO
  5115						STOP^
  5116	033412	254 04 0 00 033413 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5117	033413	324 00 0 00 033414 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5118									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5119									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5120									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5121
  5122					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 91
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0139

  5123					;THIS TEST VERIFIESTHAT SOSG DECREMENTS C(E) BY 0,,1 AND PLACES
  5124					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  5125					;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN 0
  5126					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  5127					;IN THIS CASE, AC=3, C(AC)=707070,,707070 AND C(E)=0
  5128					;BEFORE INCREMENTING.  HENCE, SOSG SHOULD NOT SKIP ; AND THE 
  5129					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  5130					;RESPECTIVELY.
  5131
  5132	033414	200 03 0 00 033474 	C56000:	MOVE	3,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  5133	033415	201 04 0 00 000000 		MOVEI	4,0		;PRELOAD E WITH 0
  5134	033416	377 03 0 00 000004 		SOSG	3,4		;*SOSG SHOULD SUBTRACT 0,,1 FROM C(E),
  5135									;UPDATE AC AND NOT SKIP
  5136	033417	334 00 0 00 000000 		SKIPA			;PASS IF SOSG DID NOT SKIP
  5137						STOP^
  5138	033420	254 04 0 00 033421 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5139	033421	324 00 0 00 033422 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5140									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5141									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5142									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5143	033422	312 04 0 00 033462 		CAME	4,[-1]		;PASS IF E DECREMENTED CORRECTLY
  5144						STOP^
  5145	033423	254 04 0 00 033424 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5146	033424	324 00 0 00 033425 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5147									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5148									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5149									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5150	033425	312 03 0 00 033462 		CAME	3,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  5151						STOP^
  5152	033426	254 04 0 00 033427 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5153	033427	324 00 0 00 033430 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5154									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5155									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5156									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5157
  5158					;**********
  5159
  5160					;THIS TEST VERIFIES THAT SOSG DECREMENTS C(E) BY 0,,1 AND PLACES
  5161					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  5162					;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN 0.
  5163					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  5164					;IN THIS CASE, AC=3, C(AC)=707070,,707070 AND C(E)=0,,1
  5165					;BEFORE INCREMENTING.  HENCE, SOSG SHOULD NOT SKIP ; AND THE
  5166					;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0
  5167					;RESPECTIVELY.
  5168
  5169	033430	200 03 0 00 033474 	C56010:	MOVE	3,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  5170	033431	201 04 0 00 000001 		MOVEI	4,1		;PRELOAD E WITH 0,,1
  5171	033432	377 03 0 00 000004 		SOSG	3,4		;*SOSG SHOULD SUBTRACT 0,,1 FROM C(E),
  5172									;UPDATE AC AND NOT SKIP
  5173	033433	334 00 0 00 000000 		SKIPA			;PASS IF SOSG DID NOT SKIP
  5174						STOP^
  5175	033434	254 04 0 00 033435 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5176	033435	324 00 0 00 033436 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5177									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 91-1
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0140

  5178									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5179									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5180	033436	312 04 0 00 033501 		CAME	4,[0]		;PASS IF E DECREMENTED CORRECTLY
  5181						STOP^
  5182	033437	254 04 0 00 033440 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5183	033440	324 00 0 00 033441 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5184									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5185									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5186									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5187	033441	312 03 0 00 033501 		CAME	3,[0]		;PASS IF AC WAS UPDATED IS AC NON-ZERO
  5188						STOP^
  5189	033442	254 04 0 00 033443 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5190	033443	324 00 0 00 033444 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5191									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5192									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5193									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5194
  5195					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 92
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0141

  5196					;THIS TEST VERIFIES THAT SOSG DECREMENTS C(E) BY 0,,1 AND PLACES
  5197					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  5198					;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN 0
  5199					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  5200					;IN THIS CASE, AC=3, C(AC)=707070,,707070 AND C(E)=0,,2
  5201					;BEFORE INCREMENTING.  HENCE, SOSG SHOULD SKIP ; AND THE
  5202					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 011,
  5203					;RESPECTIVELY.
  5204
  5205	033444	200 03 0 00 033474 	C56020:	MOVE	3,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  5206	033445	201 04 0 00 000002 		MOVEI	4,2		;PRELOAD E WITH 0,,2
  5207	033446	377 03 0 00 000004 		SOSG	3,4		;*SOSG SHOULD SUBTRACT 0,,1 FROM C(E),
  5208									;UPDATE AC AND SKIP
  5209						STOP^
  5210	033447	254 04 0 00 033450 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5211	033450	324 00 0 00 033451 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5212									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5213									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5214									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5215	033451	312 04 0 00 033502 		CAME	4,[1]		;PASS IF E DECREMENTED CORRECTLY
  5216						STOP^
  5217	033452	254 04 0 00 033453 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5218	033453	324 00 0 00 033454 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5219									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5220									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5221									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5222	033454	312 03 0 00 033502 		CAME	3,[1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  5223						STOP^
  5224	033455	254 04 0 00 033456 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5225	033456	324 00 0 00 033457 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5226									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5227									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5228									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5229
  5230					;**********
DAKAE PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (5) 0,3	MACRO %53(1020) 13:36 28-Dec-78 Page 93
DAKAEM	MAC	28-Dec-78 13:35		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0142

  5231
  5232	033457	254 00 0 00 030057 		JRST	BEGEND
  5233					SUBTTL	*STOR* RESERVED STORAGE, JULY 19,1977
  5234
  5235					;PROGRAM LITERALS
  5236
  5237						XLIST
  5238					IFNDEF	$LPAPER,<LIST>
  5239	033460					LIT
  5240	033460	000001	000001
  5241	033461	254 00 0 00 030723 
  5242	033462	777777	777777
  5243	033463	310 00 0 00 000000 
  5244	033464	201 01 0 00 001234 
  5245	033465	031107	031106
  5246	033466	031116	031115
  5247	033467	254 00 0 00 031161 
  5248	033470	000001	000002
  5249	033471	135531	246642
  5250	033472	135246	246135
  5251	033473	252525	252525
  5252	033474	707070	707070
  5253	033475	123456	123456
  5254	033476	777777	000000
  5255	033477	777777	777775
  5256	033500	777777	777776
  5257	033501	000000	000000
  5258	033502	000000	000001
  5259						LIST
  5260	033503	000000	000000		ENDSLD:	0
  5261
  5262					IFDEF	DEBUG,<
  5263	033504				PATCH:	BLOCK DEBUG		;PATCHING AREA
  5264					>
  5265
  5266					;PROGRAM VARIABLES
  5267	033604					VAR
  5268
  5269					IFDEF	PGMEND,<
  5270	033604	000000	000000		END:	0
  5271			030000			END	BEGIN	>

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 033605
CPU TIME USED 00:18.474

20P CORE USED

ABORT	   113#
AC0	   714#                                                                                                            SEQ 0143
ALTMGO	   467#
ANXM	   381#
AROV	    74#	   381#
AROVU	   381#
AST	   582#
ATSIN	   583#
BEGEND	   463#	  5232
BEGIN	   328	   329	   394#	   757	   865	  5271
BEGIN1	   410#	   464
BELL	   586#
BIS	    78#	   381#	  1440	  1449	  1465	  1469	  1484	  1490	  1506	  1511
C23000	   909#
C23100	   932#
C23200	   954#
C23300	   979#
C23400	  1001#
C23500	  1025#
C23600	  1047#	  1051
C23700	  1070#
C24000	  1091#
C24100	  1107#
C24200	  1125#
C24300	  1141#
C24400	  1157#
C24500	  1172#
C24600	  1190#
C24700	  1207#
C25000	  1226#
C25100	  1244#
C25200	  1263#
C25300	  1281#
C25400	  1300#
C25500	  1316#
C25600	  1330#
C25700	  1346#
C26200	  1364#
C26300	  1383#
C26400	  1400#
C26500	  1418#
C26600	  1438#
C26700	  1463#
C27000	  1482#
C27001	  1504#
C27100	  1525#
C50000	  1553#
C50100	  1580#
C50110	  1605#
C50200	  1630#
C50300	  1646#
C50301	  1672#
C50400	  1703#
C50401	  1729#
C50410	  1760#                                                                                                            SEQ 0144
C50500	  1785#
C50501	  1800#
C50600	  1816#
C50700	  1843#
C50710	  1869#
C51000	  1897#
C51100	  1914#
C51101	  1939#
C51200	  1969#
C51201	  1994#
C51300	  2028#
C51310	  2045#
C51320	  2062#
C51400	  2080#
C51410	  2096#
C51420	  2113#
C51500	  2130#
C51510	  2147#
C51520	  2163#
C51600	  2180#
C51610	  2197#
C51620	  2214#
C51700	  2230#
C51710	  2247#
C51720	  2264#
C52000	  2281#
C52010	  2298#
C52020	  2316#
C52100	  2336#
C52110	  2354#
C52120	  2370#
C52200	  2389#
C52205	  2405#
C52210	  2419#
C52220	  2437#
C52300	  2455#
C52310	  2470#
C52320	  2484#
C52400	  2500#
C52410	  2515#
C52420	  2530#
C52500	  2550#
C52510	  2575#
C52520	  2600#
C52600	  2627#
C52610	  2653#
C52620	  2679#
C52700	  2705#
C52710	  2731#
C52720	  2756#
C53000	  2783#
C53010	  2808#
C53020	  2834#                                                                                                            SEQ 0145
C53100	  2859#
C53110	  2886#
C53120	  2911#
C53200	  2937#
C53210	  2962#
C53220	  2989#
C53300	  3014#
C53310	  3041#
C53320	  3067#
C53400	  3098#
C53401	  3134#
C53410	  3174#
C53420	  3210#
C53500	  3247#
C53510	  3283#
C53520	  3319#
C53600	  3355#
C53610	  3391#
C53620	  3426#
C53700	  3463#
C53710	  3498#
C53720	  3534#
C54000	  3569#
C54010	  3606#
C54020	  3641#
C54100	  3677#
C54110	  3712#
C54120	  3749#
C54200	  3784#
C54210	  3821#
C54220	  3857#
C54300	  3894#
C54310	  3920#
C54320	  3945#
C54400	  3972#
C54410	  3998#
C54420	  4024#
C54500	  4050#
C54510	  4076#
C54520	  4101#
C54600	  4128#
C54610	  4153#
C54620	  4179#
C54700	  4204#
C54710	  4231#
C54720	  4256#
C55000	  4282#
C55010	  4307#
C55020	  4333#
C55100	  4359#
C55110	  4385#
C55120	  4412#
C55200	  4443#                                                                                                            SEQ 0146
C55210	  4479#
C55211	  4515#
C55220	  4556#
C55300	  4594#
C55310	  4631#
C55320	  4667#
C55400	  4704#
C55410	  4740#
C55420	  4775#
C55500	  4812#
C55510	  4846#
C55520	  4882#
C55600	  4917#
C55610	  4954#
C55620	  4989#
C55700	  5025#
C55710	  5060#
C55720	  5097#
C56000	  5132#
C56010	  5169#
C56020	  5205#
CCA	   381#
CHAIN	   133#
CHNOFF	   381#
CHNON	   381#
CLK	   381#
CLKCLR	   381#
CLKDIS	   381#
CLKENB	   381#
CLKU	   381#
CLOCKF	   449#
CNTLC	   466#
COMMA	   575#
CONSW	   450#
CPOPJ	   470#
CPOPJ1	   468#
CRLF	   263	   264	   570#
CRLF2	   267	   268	   572#
CRY0	    75#	   381#	   911	   934	   956	   981	  1003
CRY1	    76#	   381#
CSHFLG	   629#
CSHMEM	   630#
CYCL60	   623#
DCK	    82#	   381#
DDT	   716#
DDTLNK	   147#	   408
DDTSRT	   408#
DEBUG	    37#	  5262	  5263
DECVER	     5#	    11	    28	   429
DF22F	   534#
DIAGMN	   397#
DIAGNO	   715#
DIAMON	   717#                                                                                                            SEQ 0147
DING	   119#
DOLLAR	   589#
DONG11	   718#	   849	   862
DSKUPD	   434
DTE	   722#	   849	   862
DTE0	   723#
DTE1	   724#
DTE2	   725#
DTE3	   726#
E50301	  1674	  1675	  1684	  1694#
E50401	  1731	  1732	  1741	  1751#
E51101	  1941	  1942	  1951	  1961#
E51201	  1996	  1997	  2005	  2015#
E53401	  3136	  3137	  3145	  3162#
E55211	  4517	  4518	  4527	  4544#
END	  5270#
ENDFIX	   709#
ENDSLD	  5260#
ERMORE	   483#
ERRPC	   454#
ERRTLS	   455#
ERSTOP	   122#
EXCASB	    34#	   432
EXIOT	    80#	   381#
FOV	    77#	   381#
FOVU	   381#
FRDLNK	   145#
FSELNK	   144#
FXU	    81#	   381#
HYPEN	   580#
INHCSH	   130#
INHPAG	   127#
INXM	   381#
IOCLR	   381#
ITERAT	    66#	   427
ITRCH1	   487#
ITRCNT	   427#	   803	   824	   828	   836	   837	   841
JOB41	   381#
JOBAPR	   381#
JOBCNI	   381#
JOBDDT	   381#
JOBFF	   381#
JOBOPC	   381#
JOBREL	   381#
JOBREN	   381#
JOBSA	   381#
JOBSYM	   381#
JOBTPC	   381#
JOBUSY	   381#
JOBUUO	   381#
JOBVER	   381#
KA10	   381
KAHZ50	   135#                                                                                                            SEQ 0148
KAIFLG	   444#
KI10	   381
KL10	   381
KLFLG	   445#	   804	   815	   834
KLOLD	   343
LDLNK	   146#	   397	   399
LFP	   584#
LOOPER	   121#
LUUO	   381#
LUUO1	   514	   515
LUUO10	   514	   519
LUUO11	   514	   519
LUUO12	   514	   520
LUUO13	   514	   520
LUUO14	   514	   521
LUUO15	   514	   521
LUUO16	   514	   522
LUUO17	   514	   522
LUUO2	   514	   516
LUUO20	   514	   523
LUUO21	   514	   523
LUUO22	   514	   524
LUUO23	   514	   524
LUUO24	   514	   525
LUUO25	   514	   525
LUUO26	   514	   526
LUUO27	   514	   526
LUUO3	   514	   516
LUUO30	   514	   527
LUUO31	   514	   527
LUUO32	   514	   528
LUUO33	   514	   528
LUUO4	   514	   517
LUUO5	   514	   517
LUUO6	   514	   518
LUUO7	   514	   518
LUUOI	   381#
MAPNEW	   535#
MARGIN	   457#
MCNVER	     6#	    11	    28	   429
MEMLOW	   537#
MEMMAP	   435
MEMSIZ	   538#
MEMTOT	   536#
MINUS	   579#
MODDVC	   129#
MODDVL	   328	   328#	   430
MODDVU	   329	   329#	   431
MODLNK	   148#	   394
MONCTL	   447#	   844	   876
MONFLG	   446#	   797	   872
MONTEN	   448#	   802	   830	   856
MONTYP	   661#                                                                                                            SEQ 0149
MPVU	   381#
NOPNT	   117#
NXMU	   381#
OPRSEL	   131#
OPTIME	   549#
P	   174	   175	   176	   177	   381#	   469
PAG	   381#
PALERS	   123#
PARCLR	   381#
PARDIS	   381#
PAREA0	    59#
PAREA1	    60#	   425
PAREA2	    61#	   426
PAREA3	    62#	   423
PAREA4	    63#	   424
PAREA5	    64#	   436
PAREA6	    65#	   437
PAREA7	   436#
PAREA8	   437#
PARENB	   381#
PARU	   381#
PASCNT	   451#	   823
PATCH	  5263#
PDISF	   546#
PDLOVU	   381#
PERIOD	   576#
PFSTRT	   403#
PGMEND	    36#	    67#	  5269
PGMNAM	   428	   877	   880#
PI	   836
PICHN1	   381#
PICHN2	   381#
PICHN3	   381#
PICHN4	   381#
PICHN5	   381#
PICHN6	   381#
PICHN7	   381#
PICHNA	   381#
PICLR	   381#
PIOFF	   381#
PION	   381#
PLIST	   615#	   615
PLISTE	   615	   617#
PLISTS	   616#
PLUS	   581#
PNTENB	   545#
PNTEXT	   424#
PNTFLG	   544#
PNTINH	   547#
PNTLPT	   118#
PNTNAM	   423#
PNTSPC	   548#
PVPAGI	   642#                                                                                                            SEQ 0150
PWFCLR	   381#
QUEST	   587#
RADIX	   590#
RADLSC	   592#
RADLSP	   591#
RANDBS	   425#
REENTR	   405#
RELIAB	   125#
REPT	   381#
REPT1	   381#
REPTU	   503#
REQSET	   381#
RESRT1	   480#
RESRT2	   481#
RETURN	   412#	   832	   839	   857
RSTART	   114#
RTP	   585#
RUNFLG	   452#
SADR1	    47#	   401
SADR10	    56#	   417
SADR11	    57#	   418
SADR2	    48#	   403
SADR3	    49#	   405
SADR4	    50#
SADR5	    51#	   466
SADR6	    52#	   467
SADR7	    53#	   414
SADR8	    54#	   415
SADR9	    55#	   416
SBINIT	   187	   411#
SCOPE	   504#
SFSTRT	   401#
SLASH	   588#
SM10	   692#
SPACE	   577#
SRTDDT	   407#
START	    47	    48	    49	    50	    51	    52	    53	    54	    55	    56	    57	   395	   800	   808
	   816	   820	   868#
START1	   414#
START2	   415#
START3	   416#
START4	   417#
START5	   418#
STARTA	   410	   818	   829	   838	   845	   852	   875	   878	   899#
SUBLNK	   149#	   411
SWPTAB	   698#
SWTEXR	   426#
SYSEXR	   399#
TAB	   578#
TESTPC	   453#
TICKS	   456#
TOTALS	   115#
TTNBRF	   636#                                                                                                            SEQ 0151
TTYFIL	   552#
TTYSPD	   553#
TXTINH	   126#
USER	   443#	   793	   796	   798	   799	   825	   868#	   868	   871	   873	   874
USERF	    40#	    79#	   381#	   795	   870
USRASB	    35#	   433
USRCRF	   562#
USRLFF	   561#
UUODIS	   515#
UUOEXT	   471#
UUORTN	   472#
UUOSKP	   469#
$$420	   767#
$$421	   768#
$$422	   769#
$$423	   770#
$$424	   771#
$$425	   772#
$$426	   773#
$$427	   774#
$$430	   775#
$$431	   776#
$$432	   777#
$$433	   778#
$$434	   779#
$$435	   780#
$$436	   781#
$$437	   782#
$$500	   785#
$$501	   786#
$$502	   787#
$$503	   788#
$$BEGI	   753#
$$DTE0	   813	   849#
$$DTE2	   814	   862#
$$LOC	   750#	   789
$$MUUO	   667#
$$OUTE	   673#
$$STAR	   753	   754	   793#
$$TAX1	   685#
$$TAX2	   686#
$$TOGG	   679#
$$UUO	   656#
$ACC0	   494#
$BEGEN	   762#
$BEND1	   464#
$BEND2	   465#
$CHRIN	   555#
$CRLF	   557#
$DDT	   731#
$DEVCH	   381#
$DSKUP	   434#
$DTCHR	   743#                                                                                                            SEQ 0152
$DTCI	   737#
$DTCLK	   736#	   811
$DTCMD	   740#	   847	   860
$DTF11	   739#
$DTFLG	   735#	   810	   848	   850	   861	   863
$DTMTD	   744#
$DTMTI	   745#
$DTOPR	   742#	   812
$DTSEQ	   741#
$DTSWR	   747#
$DTT11	   738#
$DVCH1	   381#
$DVOFF	   551#
$EMODE	   432#
$FFF	   559#
$IBUF	   607#
$INEXT	   609#
$INNM	   608#
$ITRHL	   475#
$ITRX1	   476#
$LPAPE	  5238
$MMAP	   435#
$MODVL	   430#
$MODVU	   431#
$OBUF	   598#
$ONETM	   458#
$OUTEX	   600#
$OUTNM	   599#
$PAPER	   381
$PARER	   482#
$PNAME	   428#
$PSHER	   486#
$PVER	   429#
$RSRTX	   478#
$RSRTY	   479#
$SPAG1	   498#
$SPB1	   819	   825#
$SPBEN	   762	   823#
$SPBEX	   826	   834#
$SPBKL	   835	   841#
$SPBUS	   828#
$SPEC	   759	   818#
$SPKLD	   842	   856#
$START	   395#
$STD	   730#	   757#
$STKIL	   802#
$STKL	   810#
$STL	   732#
$STM	   733#	   759#
$SVAPR	   496#
$SVPAG	   497#
$SVPI	   495#
$SVUPC	   501#                                                                                                            SEQ 0153
$SVUUO	   500#
$TABF	   558#
$TTCHR	   554#
$TWCNT	   550#
$TYPNB	   556#
$UMODE	   433#
$UORTX	   473#
$USRHL	   477#
$UUOER	   474#	   515
$VTF	   560#
%ACTFL	   507#
%ACTUL	   508#
%COREC	   506#
%CORFL	   505#
%DISCR	   509#
%ERHI1	   648#
%ERHI2	   649#
%ERHI3	   650#
.JB41	   381#
.JBAPR	   381#
.JBCNI	   381#
.JBDDT	   381#
.JBFF	   381#
.JBOPC	   381#
.JBREL	   381#
.JBREN	   381#
.JBSA	   381#
.JBSYM	   381#
.JBTPC	   381#
.JBUSY	   381#
.JBUUO	   381#
.JBVER	   381#

CFLUSH	   299#
CINVAL	   298#                                                                                                            SEQ 0154
CLOKOP	   293#
CWRTBI	   300#
DROPDV	   260#
ENDUUO	   306#	   463
EOPUUO	   307#	   465
ERLOOP	   351#
ERLP1	   352#
ERLP2	   353#
ERRHLT	   194#
ERROR	   360#
ERROR1	   371#
ERUUO	   350#
EXIT	   831
FATAL	   193#
FRD36	   335#
FRD8	   336#
FREAD	   334#
FSELEC	   333#
GET	   177#
GO	   174#
HALT	   179#	   484	   767	   769	   770	   774	   788	   865	   919	   942	   965	   989	  1012	  1031
	  1036	  1048	  1053	  1077	  1097	  1108	  1113	  1131	  1146	  1162	  1173	  1178	  1192	  1196
	  1209	  1213	  1232	  1250	  1269	  1286	  1305	  1320	  1335	  1351	  1370	  1387	  1404	  1422
	  1451	  1471	  1492	  1513	  1533	  1559	  1566	  1586	  1593	  1610	  1617	  1634	  1652	  1659
	  1679	  1687	  1709	  1716	  1736	  1744	  1766	  1773	  1789	  1805	  1822	  1829	  1849	  1856
	  1875	  1882	  1901	  1920	  1927	  1946	  1954	  1974	  1981	  2000	  2008	  2031	  2049	  2066
	  2083	  2099	  2117	  2133	  2150	  2166	  2184	  2200	  2217	  2233	  2251	  2267	  2285	  2302
	  2319	  2340	  2357	  2375	  2393	  2408	  2423	  2440	  2458	  2473	  2488	  2504	  2518	  2533
	  2553	  2560	  2580	  2587	  2605	  2612	  2632	  2639	  2657	  2664	  2684	  2691	  2709	  2716
	  2735	  2742	  2761	  2768	  2787	  2794	  2812	  2819	  2838	  2845	  2864	  2871	  2890	  2897
	  2915	  2922	  2941	  2948	  2967	  2974	  2993	  3000	  3019	  3026	  3046	  3053	  3071	  3078
	  3103	  3110	  3117	  3140	  3148	  3155	  3180	  3187	  3194	  3216	  3223	  3230	  3253	  3260
	  3267	  3288	  3295	  3302	  3325	  3332	  3339	  3360	  3367	  3374	  3396	  3403	  3410	  3432
	  3439	  3446	  3468	  3475	  3482	  3503	  3510	  3517	  3539	  3546	  3553	  3575	  3582	  3589
	  3611	  3618	  3625	  3646	  3653	  3660	  3682	  3689	  3696	  3718	  3725	  3732	  3754	  3761
	  3768	  3790	  3797	  3804	  3827	  3834	  3841	  3862	  3869	  3876	  3898	  3905	  3924	  3931
	  3950	  3957	  3977	  3984	  4002	  4009	  4029	  4036	  4054	  4061	  4080	  4087	  4106	  4113
	  4132	  4139	  4157	  4164	  4183	  4190	  4209	  4216	  4235	  4242	  4260	  4267	  4286	  4293
	  4312	  4319	  4337	  4344	  4364	  4371	  4390	  4397	  4416	  4423	  4448	  4455	  4462	  4485
	  4492	  4499	  4522	  4530	  4537	  4563	  4570	  4577	  4601	  4608	  4615	  4636	  4643	  4650
	  4674	  4681	  4688	  4709	  4716	  4723	  4745	  4752	  4759	  4781	  4788	  4795	  4817	  4824
	  4831	  4851	  4858	  4865	  4887	  4894	  4901	  4923	  4930	  4937	  4959	  4966	  4973	  4994
	  5001	  5008	  5030	  5037	  5044	  5066	  5073	  5080	  5102	  5109	  5116	  5138	  5145	  5152
	  5175	  5182	  5189	  5210	  5217	  5224
JEN	   181#
JRSTF	   180#
MAPADR	   316#
MAPCNK	   317#
MAPMEM	   313#
MAPPNT	   319#
MAPSET	   318#
MEMSEG	   315#
MEMZRO	   314#                                                                                                            SEQ 0155
MODPCP	   326#
MODPCU	   325#
MTROP	   294#
NAME	     9#	    11
PBELL	   269#
PCRL	   263#
PCRL2	   267#
PCRL2F	   268#
PCRLF	   264#
PFORCE	   271#
PGMINT	   187#
PJRST	   178#
PMSG	   273#
PMSGF	   276#
PNT1	   229#
PNT11	   243#
PNT11F	   244#
PNT1F	   230#
PNT2	   231#
PNT2F	   232#
PNT3	   233#
PNT3F	   234#
PNT4	   235#
PNT4F	   236#
PNT5	   237#
PNT5F	   238#
PNT6	   239#
PNT6F	   240#
PNT7	   241#
PNT7F	   242#
PNTA	   215#
PNTADF	   246#
PNTADR	   245#
PNTAF	   216#
PNTAL	   217#
PNTALF	   218#
PNTCHF	   228#
PNTCHR	   227#
PNTCI	   225#
PNTCIF	   226#
PNTCW	   261#
PNTCWF	   262#
PNTDCF	   254#
PNTDEC	   253#
PNTDS	   255#
PNTDSF	   256#
PNTHW	   249#
PNTHWF	   250#
PNTMGN	   340#
PNTMSF	   222#
PNTMSG	   221#
PNTNM	   257#
PNTOCF	   252#                                                                                                            SEQ 0156
PNTOCS	   251#
PNTOCT	   247#
PNTOTF	   248#
PNTSIX	   258#
PNTSXF	   259#
PSIXL	   219#
PSIXLF	   220#
PSIXM	   223#
PSIXMF	   224#
PSP	   265#
PSPF	   266#
PUT	   176#
REPTUO	   354#
RTN	   175#	   471
S	   105#	   107	   111	   140	   142	   151	   154	   169	   170	   172	   183	   185	   189	   191
	   196	   200	   346	   348	   381	   386	   392	   419	   421	   439	   441	   459	   461	   490
	   492	   510	   512	   530	   532	   540	   542	   563	   568	   594	   596	   603	   605	   611
	   613	   619	   621	   625	   627	   632	   634	   638	   640	   644	   646	   652	   654	   657
	   659	   663	   665	   669	   671	   675	   677	   681	   683	   688	   690	   694	   696	   700
	   702	   704	   706
SFLAG	    99#	   909	   932	   954	   979	  1001	  1025	  1438	  1443	  1463	  1482	  1504	  1525
SIXBTZ	   282#
STOP	    90#	   918	   941	   964	   988	  1011	  1035	  1052	  1076	  1096	  1112	  1130	  1145	  1161
	  1177	  1195	  1212	  1231	  1249	  1268	  1285	  1304	  1319	  1334	  1350	  1369	  1386	  1403
	  1421	  1450	  1470	  1491	  1512	  1532	  1558	  1565	  1585	  1592	  1609	  1616	  1633	  1651
	  1658	  1678	  1686	  1708	  1715	  1735	  1743	  1765	  1772	  1788	  1804	  1821	  1828	  1848
	  1855	  1874	  1881	  1900	  1919	  1926	  1945	  1953	  1973	  1980	  1999	  2007	  2030	  2048
	  2065	  2082	  2098	  2116	  2132	  2149	  2165	  2183	  2199	  2216	  2232	  2250	  2266	  2284
	  2301	  2318	  2339	  2356	  2374	  2392	  2407	  2422	  2439	  2457	  2472	  2487	  2503	  2517
	  2532	  2552	  2559	  2579	  2586	  2604	  2611	  2631	  2638	  2656	  2663	  2683	  2690	  2708
	  2715	  2734	  2741	  2760	  2767	  2786	  2793	  2811	  2818	  2837	  2844	  2863	  2870	  2889
	  2896	  2914	  2921	  2940	  2947	  2966	  2973	  2992	  2999	  3018	  3025	  3045	  3052	  3070
	  3077	  3102	  3109	  3116	  3139	  3147	  3154	  3179	  3186	  3193	  3215	  3222	  3229	  3252
	  3259	  3266	  3287	  3294	  3301	  3324	  3331	  3338	  3359	  3366	  3373	  3395	  3402	  3409
	  3431	  3438	  3445	  3467	  3474	  3481	  3502	  3509	  3516	  3538	  3545	  3552	  3574	  3581
	  3588	  3610	  3617	  3624	  3645	  3652	  3659	  3681	  3688	  3695	  3717	  3724	  3731	  3753
	  3760	  3767	  3789	  3796	  3803	  3826	  3833	  3840	  3861	  3868	  3875	  3897	  3904	  3923
	  3930	  3949	  3956	  3976	  3983	  4001	  4008	  4028	  4035	  4053	  4060	  4079	  4086	  4105
	  4112	  4131	  4138	  4156	  4163	  4182	  4189	  4208	  4215	  4234	  4241	  4259	  4266	  4285
	  4292	  4311	  4318	  4336	  4343	  4363	  4370	  4389	  4396	  4415	  4422	  4447	  4454	  4461
	  4484	  4491	  4498	  4521	  4529	  4536	  4562	  4569	  4576	  4600	  4607	  4614	  4635	  4642
	  4649	  4673	  4680	  4687	  4708	  4715	  4722	  4744	  4751	  4758	  4780	  4787	  4794	  4816
	  4823	  4830	  4850	  4857	  4864	  4886	  4893	  4900	  4922	  4929	  4936	  4958	  4965	  4972
	  4993	  5000	  5007	  5029	  5036	  5043	  5065	  5072	  5079	  5101	  5108	  5115	  5137	  5144
	  5151	  5174	  5181	  5188	  5209	  5216	  5223
SWITCH	   288#
TTALTM	   209#
TTICHR	   202#
TTICLR	   212#
TTICNV	   207#
TTIDEC	   206#
TTINO	   204#
TTIOCT	   205#                                                                                                            SEQ 0157
TTIYES	   203#
TTLOOK	   208#
TTSIXB	   210#
TTYINP	   211#
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 1
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0158


*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  28-DEC-78   PAGE 2
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0159

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  28-DEC-78   PAGE 3
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0160

*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,030041
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   402000030041 0            000000030041 
IT1	030612 0      0   0   402000030041 0            000000030041 
AT3	030612 0      0   0   000000030041 0            402000030041 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 4
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0161

AT6	030612 030041 0   0   000000030041 0            402000030041 
FT1A	030612 030041 0   0   000000030041 0            000000030041 
FT9	030613 030041 0   0   000000030041 0            000000030041 
ET0	030613 030041 0   0   0            0            000000030041 
ST6	030613 030041 0   0   0            0            000000030041 
ST6A	030613 030041 0   0   0            0            000000030041 
ST9	030613 030041 0   0   0            0            000000030041 


*030613 MOVE 	1,033460
INITIAL
C(AC)=000000 000000 
C(E)=000001 000001 
FINAL
C(AC)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030613 030613 0   0   200040033460 0            000001000001 
IT1	030613 0      0   0   200040033460 0            000001000001 
AT3	030613 0      0   0   000000033460 0            200040033460 
AT6	030613 033460 0   0   000000033460 0            200040033460 
FT0	030613 033460 0   0   000001000001 0            200040033460 
FT1A	030613 033460 0   0   000001000001 0            000001000001 
FT9	030614 033460 0   0   000001000001 0            000001000001 
ET0	030614 033460 0   0   000001000001 0            000001000001 
ST1	030614 033460 0   0   000001000001 0            000001000001 
ST2	030614 033460 0   0   000001000001 0            000001000001 
ST9	030614 033460 0   0   000001000001 0            000001000001 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030614 030614 0   0   251040000001 0            000000000001 
IT1	030614 0      0   0   251040000001 0            000000000001 
AT3	030614 0      0   0   000000000001 0            251040000001 
AT6	030614 000001 0   0   000000000001 0            251040000001 
FT1A	030614 000001 0   0   000000000001 0            000000000001 
FT2	030614 000001 0   0   0            0            000000000001 
FT2RQ	030614 000001 0   0   000001000001 0            000000000001 
FT3	030614 000001 0   0   000001000001 0            000000000001 
FT6	030614 000001 0   0   000001000001 0            000000000001 
FT7	030614 000001 0   0   000001000001 000001000001 000000000001 
FT4RQ	030614 000001 0   0   000001000001 000001000001 000000000001 
FT4A	030614 000001 0   0   000001000001 000001000001 000000000001 
FT9	030614 000001 0   0   000001000001 000001000001 000000000001 
ET0	030614 000001 0   0   000001000001 000001000001 000000000001 
ET1	030614 000001 0   0   000001000001 000001000001 000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 5
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0162

ET2	030614 000001 0   0   000001000001 000002000002 000000000001 
BLTT1	030614 000001 0   0   000000000002 000002000002 000000000001 
BLTT2	030615 000001 0   0   000000000002 000002000002 000000000001 
ST9	030615 000001 0   0   000000000002 000002000002 000000000001 


*030615 CAMN	1,033460
INITIAL
C(AC)=000001 000001 
C(E)=000001 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030615 030615 0   0   316040033460 0            000001000001 
IT1	030615 0      0   0   316040033460 0            000001000001 
AT3	030615 0      0   0   000000033460 0            316040033460 
AT6	030615 033460 0   0   000000033460 0            316040033460 
FT0	030615 033460 0   0   000001000001 0            316040033460 
FT1A	030615 033460 0   0   000001000001 0            000001000001 
FT2	030615 033460 0   0   0            0            000001000001 
FT2RQ	030615 033460 0   0   000001000001 0            000001000001 
FT3	030615 033460 0   0   000001000001 0            000001000001 
FT9	030616 033460 0   0   000001000001 0            000001000001 
ET0	030616 033460 0   0   0            0            000001000001 
ST1A	030616 033460 0   0   0            0            000001000001 
ST9	030616 033460 0   0   0            0            000001000001 


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

C(E)=402000 030037 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030616 030616 0   0   254000030674 0            254000030674 
IT1	030616 0      0   0   254000030674 0            254000030674 
AT3	030616 0      0   0   000000030674 0            254000030674 
AT6	030616 030674 0   0   000000030674 0            254000030674 
FT1A	030616 030674 0   0   000000030674 0            254000030674 
FT9	030617 030674 0   0   000000030674 0            254000030674 
ET0	030674 030617 0   0   000000030674 0            254000030674 
ST1A	030674 030617 0   0   000000030674 0            254000030674 
ST9	030674 030617 0   0   000000030674 0            254000030674 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 6
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0163

*030674 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	030674 030674 0   0   402000030037 0            000000030037 
IT1	030674 0      0   0   402000030037 0            000000030037 
AT3	030674 0      0   0   000000030037 0            402000030037 
AT6	030674 030037 0   0   000000030037 0            402000030037 
FT1A	030674 030037 0   0   000000030037 0            000000030037 
FT9	030675 030037 0   0   000000030037 0            000000030037 
ET0	030675 030037 0   0   0            0            000000030037 
ST6	030675 030037 0   0   0            0            000000030037 
ST6A	030675 030037 0   0   0            0            000000030037 
ST9	030675 030037 0   0   0            0            000000030037 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030675 030675 0   0   265000030676 0            000000030676 
IT1	030675 0      0   0   265000030676 0            000000030676 
AT3	030675 0      0   0   000000030676 0            265000030676 
AT6	030675 030676 0   0   000000030676 0            265000030676 
FT1A	030675 030676 0   0   000000030676 0            000000030676 
FT9	030676 030676 0   0   000000030676 0            000000030676 
ET0	030676 030676 0   0   000000030676 0            000000030676 
ST1	030676 030676 0   0   000000030676 0            000000030676 
ST2	030676 030676 0   0   000000030676 0            000000030676 
ST9	030676 030676 0   0   000000030676 0            000000030676 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030676 030676 0   0   603000010000 0            0            
IT1	030676 0      0   0   603000010000 0            0            
AT3	030676 0      0   0   000000010000 0            603000010000 
AT6	030676 0      0   0   000000010000 0            603000010000 
FT1A	030676 0      0   0   000000010000 0            000000010000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 7
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0164

FT2	030676 0      0   0   0            0            000000010000 
FT2RQ	030676 0      0   0   000000030676 0            000000010000 
FT3	030676 0      0   0   000000030676 0            000000010000 
FT9	030677 0      0   0   000000030676 0            000000010000 
ET0	030677 0      0   0   030676000000 0            000000010000 
ET1	030677 0      0   0   030676000000 0            0            
ET2	0      0      0   0   000000030676 0            0            
ST1A	0      0      0   0   000000030676 0            0            
ST9	0      0      0   0   000000030676 0            0            


*030700 SKIPN	0,030042
INITIAL
C(AC)=000000 030676 
C(E)=777777 777777 
FINAL
C(AC)=000000 030676 

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


*030702 SKIPN	0,030037
INITIAL
C(AC)=000000 030676 
C(E)=000000 000000 
FINAL
C(AC)=000000 030676 

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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 8
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0165

*030703 JRST	0,030723
INITIAL
C(AC)=000000 030676 
C(E)=254000 030724 
FINAL

C(E)=254000 030724 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030703 030703 0   0   254000030723 0            254000030723 
IT1	030703 0      0   0   254000030723 0            254000030723 
AT3	030703 0      0   0   000000030723 0            254000030723 
AT6	030703 030723 0   0   000000030723 0            254000030723 
FT1A	030703 030723 0   0   000000030723 0            254000030723 
FT9	030704 030723 0   0   000000030723 0            254000030723 
ET0	030723 030704 0   0   000000030723 0            254000030723 
ST1A	030723 030704 0   0   000000030723 0            254000030723 
ST9	030723 030704 0   0   000000030723 0            254000030723 


*030723 JRST	0,030724
INITIAL
C(AC)=000000 030676 
C(E)=205040 200000 
FINAL

C(E)=205040 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030723 030723 0   0   254000030724 0            254000030724 
IT1	030723 0      0   0   254000030724 0            254000030724 
AT3	030723 0      0   0   000000030724 0            254000030724 
AT6	030723 030724 0   0   000000030724 0            254000030724 
FT1A	030723 030724 0   0   000000030724 0            254000030724 
FT9	030724 030724 0   0   000000030724 0            254000030724 
ET0	030724 030724 0   0   000000030724 0            254000030724 
ST1A	030724 030724 0   0   000000030724 0            254000030724 
ST9	030724 030724 0   0   000000030724 0            254000030724 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030724 030724 0   0   205040200000 0            000000200000 
IT1	030724 0      0   0   205040200000 0            000000200000 
AT3	030724 0      0   0   000000200000 0            205040200000 
AT6	030724 0      0   0   000000200000 0            205040200000 
FT1A	030724 0      0   0   000000200000 0            000000200000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 9
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0166

FT9	030725 0      0   0   000000200000 0            000000200000 
ET0	030725 0      0   0   200000000000 0            000000200000 
ST1	030725 0      0   0   200000000000 0            000000200000 
ST2	030725 0      0   0   200000000000 0            000000200000 
ST9	030725 0      0   0   200000000000 0            000000200000 


*030725 JFCL	17,030726
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030725 030725 0   0   255740030726 0            000000030726 
IT1	030725 0      0   0   255740030726 0            000000030726 
AT3	030725 0      0   0   000000030726 0            255740030726 
AT6	030725 030726 0   0   000000030726 0            255740030726 
FT1A	030725 030726 0   0   000000030726 0            000000030726 
FT9	030726 030726 0   0   000000030726 0            000000030726 
ET0	030726 030726 0   0   000000030726 0            000000030726 
ST1A	030726 030726 0   0   000000030726 0            000000030726 
ST9	030726 030726 0   0   000000030726 0            000000030726 


*030726 JRST	2,030727(1)
INITIAL
C(AC)=000000 000000 
C(E)=402000 030731 
FINAL

C(E)=402000 030731 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030726 030726 0   0   254101030727 0            200000030727 
IT1	030726 0      0   0   254101030727 0            200000030727 
AT1	030726 0      0   0   0            0            254101030727 
AT2	030726 0      0   0   200000000000 0            254101030727 
AT3	030726 0      0   0   000000030727 0            200000030727 
AT6	030726 030727 0   0   000000030727 0            200000030727 
FT1A	030726 030727 0   0   000000030727 0            200000030727 
FT9	030727 030727 0   0   000000030727 0            200000030727 
ET0	030727 030727 0   0   000000030727 0            200000030727 
ST1A	030727 030727 0   0   000000030727 0            200000030727 
ST9	030727 030727 0   0   000000030727 0            200000030727 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 10
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0167

*030727 SETZM	0,030731
INITIAL
C(AC)=000000 030676 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030727 030727 0   0   402000030731 0            000000030731 
IT1	030727 0      0   0   402000030731 0            000000030731 
AT3	030727 0      0   0   000000030731 0            402000030731 
AT6	030727 030731 0   0   000000030731 0            402000030731 
FT1A	030727 030731 0   0   000000030731 0            000000030731 
FT9	030730 030731 0   0   000000030731 0            000000030731 
ET0	030730 030731 0   0   0            0            000000030731 
ST6	030730 030731 0   0   0            0            000000030731 
ST6A	030730 030731 0   0   0            0            000000030731 
ST9	030730 030731 0   0   0            0            000000030731 


*030730 JSR	0,030731
INITIAL
C(AC)=000000 030676 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030730 030730 0   0   264000030731 0            000000030731 
IT1	030730 0      0   0   264000030731 0            000000030731 
AT3	030730 0      0   0   000000030731 0            264000030731 
AT6	030730 030731 0   0   000000030731 0            264000030731 
FT1A	030730 030731 0   0   000000030731 0            000000030731 
FT9	030731 030731 0   0   000000030731 0            000000030731 
ET0	030731 030731 0   0   200000030731 0            000000030731 
ET2	030732 030731 0   0   200000030731 0            000000030731 
ST6	030732 030731 0   0   200000030731 0            000000030731 
ST6A	030732 030731 0   0   200000030731 0            000000030731 
ST9	030732 030731 0   0   200000030731 0            000000030731 


*030732 SKIPN	0,030731
INITIAL
C(AC)=000000 030676 
C(E)=200000 030731 
FINAL
C(AC)=000000 030676 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030732 030732 0   0   336000030731 0            200000030731 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 11
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0168

IT1	030732 0      0   0   336000030731 0            200000030731 
AT3	030732 0      0   0   000000030731 0            336000030731 
AT6	030732 030731 0   0   000000030731 0            336000030731 
FT0	030732 030731 0   0   200000030731 0            336000030731 
FT1A	030732 030731 0   0   200000030731 0            200000030731 
FT9	030733 030731 0   0   200000030731 0            200000030731 
ET0	030734 030731 0   0   200000030731 0            200000030731 
ST1A	030734 030731 0   0   200000030731 0            200000030731 
ST9	030734 030731 0   0   200000030731 0            200000030731 


*030734 JUMPA	0,030735
INITIAL
C(AC)=000000 030676 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030734 030734 0   0   324000030735 0            000000030735 
IT1	030734 0      0   0   324000030735 0            000000030735 
AT3	030734 0      0   0   000000030735 0            324000030735 
AT6	030734 030735 0   0   000000030735 0            324000030735 
FT1A	030734 030735 0   0   000000030735 0            000000030735 
FT2	030734 030735 0   0   0            0            000000030735 
FT2RQ	030734 030735 0   0   000000030676 0            000000030735 
FT3	030734 030735 0   0   000000030676 0            000000030735 
FT9	030735 030735 0   0   000000030676 0            000000030735 
ET0	030735 030735 0   0   000000030676 0            000000030735 
ST1A	030735 030735 0   0   000000030676 0            000000030735 
ST9	030735 030735 0   0   000000030676 0            000000030735 


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

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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 12
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0169

*030736 JFCL	17,030737
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030736 030736 0   0   255740030737 0            000000030737 
IT1	030736 0      0   0   255740030737 0            000000030737 
AT3	030736 0      0   0   000000030737 0            255740030737 
AT6	030736 030737 0   0   000000030737 0            255740030737 
FT1A	030736 030737 0   0   000000030737 0            000000030737 
FT9	030737 030737 0   0   000000030737 0            000000030737 
ET0	030737 030737 0   0   000000030737 0            000000030737 
ST1A	030737 030737 0   0   000000030737 0            000000030737 
ST9	030737 030737 0   0   000000030737 0            000000030737 


*030737 JRST	2,030740(1)
INITIAL
C(AC)=000000 000000 
C(E)=474040 000000 
FINAL

C(E)=474040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030737 030737 0   0   254101030740 0            200000030740 
IT1	030737 0      0   0   254101030740 0            200000030740 
AT1	030737 0      0   0   0            0            254101030740 
AT2	030737 0      0   0   200000000000 0            254101030740 
AT3	030737 0      0   0   000000030740 0            200000030740 
AT6	030737 030740 0   0   000000030740 0            200000030740 
FT1A	030737 030740 0   0   000000030740 0            200000030740 
FT9	030740 030740 0   0   000000030740 0            200000030740 
ET0	030740 030740 0   0   000000030740 0            200000030740 
ST1A	030740 030740 0   0   000000030740 0            200000030740 
ST9	030740 030740 0   0   000000030740 0            200000030740 


*030740 SETO 	1,000000
INITIAL
C(AC)=200000 000000 
C(E)=000000 030676 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030740 030740 0   0   474040000000 0            0            
IT1	030740 0      0   0   474040000000 0            0            
AT3	030740 0      0   0   0            0            474040000000 
AT6	030740 0      0   0   0            0            474040000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 13
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0170

FT1A	030740 0      0   0   0            0            0            
FT9	030741 0      0   0   0            0            0            
ET0	030741 0      0   0   777777777777 0            0            
ST1	030741 0      0   0   777777777777 0            0            
ST2	030741 0      0   0   777777777777 0            0            
ST9	030741 0      0   0   777777777777 0            0            


*030741 JSR	1,030742
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030741 030741 0   0   264040030742 0            000000030742 
IT1	030741 0      0   0   264040030742 0            000000030742 
AT3	030741 0      0   0   000000030742 0            264040030742 
AT6	030741 030742 0   0   000000030742 0            264040030742 
FT1A	030741 030742 0   0   000000030742 0            000000030742 
FT9	030742 030742 0   0   000000030742 0            000000030742 
ET0	030742 030742 0   0   200000030742 0            000000030742 
ET2	030743 030742 0   0   200000030742 0            000000030742 
ST6	030743 030742 0   0   200000030742 0            000000030742 
ST6A	030743 030742 0   0   200000030742 0            000000030742 
ST9	030743 030742 0   0   200000030742 0            000000030742 


*030743 CAME	1,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 14
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0171


*030745 JUMPA	0,030746
INITIAL
C(AC)=000000 030676 
FINAL


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


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

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


*030747 JFCL	17,030750
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030747 030747 0   0   255740030750 0            000000030750 
IT1	030747 0      0   0   255740030750 0            000000030750 
AT3	030747 0      0   0   000000030750 0            255740030750 
AT6	030747 030750 0   0   000000030750 0            255740030750 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 15
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0172

FT1A	030747 030750 0   0   000000030750 0            000000030750 
FT9	030750 030750 0   0   000000030750 0            000000030750 
ET0	030750 030750 0   0   000000030750 0            000000030750 
ST1A	030750 030750 0   0   000000030750 0            000000030750 
ST9	030750 030750 0   0   000000030750 0            000000030750 


*030750 JRST	2,030751(1)
INITIAL
C(AC)=000000 000000 
C(E)=402000 030753 
FINAL

C(E)=402000 030753 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030750 030750 0   0   254101030751 0            200000030751 
IT1	030750 0      0   0   254101030751 0            200000030751 
AT1	030750 0      0   0   0            0            254101030751 
AT2	030750 0      0   0   200000000000 0            254101030751 
AT3	030750 0      0   0   000000030751 0            200000030751 
AT6	030750 030751 0   0   000000030751 0            200000030751 
FT1A	030750 030751 0   0   000000030751 0            200000030751 
FT9	030751 030751 0   0   000000030751 0            200000030751 
ET0	030751 030751 0   0   000000030751 0            200000030751 
ST1A	030751 030751 0   0   000000030751 0            200000030751 
ST9	030751 030751 0   0   000000030751 0            200000030751 


*030751 SETZM	0,030753
INITIAL
C(AC)=000000 030676 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030751 030751 0   0   402000030753 0            000000030753 
IT1	030751 0      0   0   402000030753 0            000000030753 
AT3	030751 0      0   0   000000030753 0            402000030753 
AT6	030751 030753 0   0   000000030753 0            402000030753 
FT1A	030751 030753 0   0   000000030753 0            000000030753 
FT9	030752 030753 0   0   000000030753 0            000000030753 
ET0	030752 030753 0   0   0            0            000000030753 
ST6	030752 030753 0   0   0            0            000000030753 
ST6A	030752 030753 0   0   0            0            000000030753 
ST9	030752 030753 0   0   0            0            000000030753 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 16
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0173

*030752 JSR	0,030753
INITIAL
C(AC)=000000 030676 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030752 030752 0   0   264000030753 0            000000030753 
IT1	030752 0      0   0   264000030753 0            000000030753 
AT3	030752 0      0   0   000000030753 0            264000030753 
AT6	030752 030753 0   0   000000030753 0            264000030753 
FT1A	030752 030753 0   0   000000030753 0            000000030753 
FT9	030753 030753 0   0   000000030753 0            000000030753 
ET0	030753 030753 0   0   200000030753 0            000000030753 
ET2	030754 030753 0   0   200000030753 0            000000030753 
ST6	030754 030753 0   0   200000030753 0            000000030753 
ST6A	030754 030753 0   0   200000030753 0            000000030753 
ST9	030754 030753 0   0   200000030753 0            000000030753 


*030754 HLLZ 	0,030753
INITIAL
C(AC)=000000 030676 
C(E)=200000 030753 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030754 030754 0   0   510000030753 0            200000030753 
IT1	030754 0      0   0   510000030753 0            200000030753 
AT3	030754 0      0   0   000000030753 0            510000030753 
AT6	030754 030753 0   0   000000030753 0            510000030753 
FT0	030754 030753 0   0   200000030753 0            510000030753 
FT1A	030754 030753 0   0   200000030753 0            200000030753 
FT9	030755 030753 0   0   200000030753 0            200000030753 
ET0	030755 030753 0   0   200000000000 0            200000030753 
ST1	030755 030753 0   0   200000000000 0            200000030753 
ST2	030755 030753 0   0   200000000000 0            200000030753 
ST9	030755 030753 0   0   200000000000 0            200000030753 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030755 030755 0   0   336000000000 0            200000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 17
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0174

IT1	030755 0      0   0   336000000000 0            200000000000 
AT3	030755 0      0   0   0            0            336000000000 
AT6	030755 0      0   0   0            0            336000000000 
FT0	030755 0      0   0   200000000000 0            336000000000 
FT1A	030755 0      0   0   200000000000 0            200000000000 
FT9	030756 0      0   0   200000000000 0            200000000000 
ET0	030757 0      0   0   200000000000 0            200000000000 
ST1A	030757 0      0   0   200000000000 0            200000000000 
ST9	030757 0      0   0   200000000000 0            200000000000 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030757 030757 0   0   324000030760 0            000000030760 
IT1	030757 0      0   0   324000030760 0            000000030760 
AT3	030757 0      0   0   000000030760 0            324000030760 
AT6	030757 030760 0   0   000000030760 0            324000030760 
FT1A	030757 030760 0   0   000000030760 0            000000030760 
FT2	030757 030760 0   0   0            0            000000030760 
FT2RQ	030757 030760 0   0   200000000000 0            000000030760 
FT3	030757 030760 0   0   200000000000 0            000000030760 
FT9	030760 030760 0   0   200000000000 0            000000030760 
ET0	030760 030760 0   0   200000000000 0            000000030760 
ST1A	030760 030760 0   0   200000000000 0            000000030760 
ST9	030760 030760 0   0   200000000000 0            000000030760 


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

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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 18
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0175

*030761 JFCL	17,030762
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030761 030761 0   0   255740030762 0            000000030762 
IT1	030761 0      0   0   255740030762 0            000000030762 
AT3	030761 0      0   0   000000030762 0            255740030762 
AT6	030761 030762 0   0   000000030762 0            255740030762 
FT1A	030761 030762 0   0   000000030762 0            000000030762 
FT9	030762 030762 0   0   000000030762 0            000000030762 
ET0	030762 030762 0   0   000000030762 0            000000030762 
ST1A	030762 030762 0   0   000000030762 0            000000030762 
ST9	030762 030762 0   0   000000030762 0            000000030762 


*030762 JRST	2,030763(1)
INITIAL
C(AC)=000000 000000 
C(E)=403000 030765 
FINAL

C(E)=403000 030765 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030762 030762 0   0   254101030763 0            200000030763 
IT1	030762 0      0   0   254101030763 0            200000030763 
AT1	030762 0      0   0   0            0            254101030763 
AT2	030762 0      0   0   200000000000 0            254101030763 
AT3	030762 0      0   0   000000030763 0            200000030763 
AT6	030762 030763 0   0   000000030763 0            200000030763 
FT1A	030762 030763 0   0   000000030763 0            200000030763 
FT9	030763 030763 0   0   000000030763 0            200000030763 
ET0	030763 030763 0   0   000000030763 0            200000030763 
ST1A	030763 030763 0   0   000000030763 0            200000030763 
ST9	030763 030763 0   0   000000030763 0            200000030763 


*030763 SETZB	0,030765
INITIAL
C(AC)=200000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030763 030763 0   0   403000030765 0            000000030765 
IT1	030763 0      0   0   403000030765 0            000000030765 
AT3	030763 0      0   0   000000030765 0            403000030765 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 19
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0176

AT6	030763 030765 0   0   000000030765 0            403000030765 
FT1A	030763 030765 0   0   000000030765 0            000000030765 
FT9	030764 030765 0   0   000000030765 0            000000030765 
ET0	030764 030765 0   0   0            0            000000030765 
ST1	030764 030765 0   0   0            0            000000030765 
ST2	030764 030765 0   0   0            0            000000030765 
ST6	030764 030765 0   0   0            0            000000030765 
ST6A	030764 030765 0   0   0            0            000000030765 
ST9	030764 030765 0   0   0            0            000000030765 


*030764 JSR	0,030765
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030764 030764 0   0   264000030765 0            000000030765 
IT1	030764 0      0   0   264000030765 0            000000030765 
AT3	030764 0      0   0   000000030765 0            264000030765 
AT6	030764 030765 0   0   000000030765 0            264000030765 
FT1A	030764 030765 0   0   000000030765 0            000000030765 
FT9	030765 030765 0   0   000000030765 0            000000030765 
ET0	030765 030765 0   0   200000030765 0            000000030765 
ET2	030766 030765 0   0   200000030765 0            000000030765 
ST6	030766 030765 0   0   200000030765 0            000000030765 
ST6A	030766 030765 0   0   200000030765 0            000000030765 
ST9	030766 030765 0   0   200000030765 0            000000030765 


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

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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 20
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0177


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030770 030770 0   0   324000030771 0            000000030771 
IT1	030770 0      0   0   324000030771 0            000000030771 
AT3	030770 0      0   0   000000030771 0            324000030771 
AT6	030770 030771 0   0   000000030771 0            324000030771 
FT1A	030770 030771 0   0   000000030771 0            000000030771 
FT2	030770 030771 0   0   0            0            000000030771 
FT2RQ	030770 030771 0   0   0            0            000000030771 
FT3	030770 030771 0   0   0            0            000000030771 
FT9	030771 030771 0   0   0            0            000000030771 
ET0	030771 030771 0   0   0            0            000000030771 
ST1A	030771 030771 0   0   0            0            000000030771 
ST9	030771 030771 0   0   0            0            000000030771 


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

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


*030772 JFCL	17,030773
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030772 030772 0   0   255740030773 0            000000030773 
IT1	030772 0      0   0   255740030773 0            000000030773 
AT3	030772 0      0   0   000000030773 0            255740030773 
AT6	030772 030773 0   0   000000030773 0            255740030773 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 21
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0178

FT1A	030772 030773 0   0   000000030773 0            000000030773 
FT9	030773 030773 0   0   000000030773 0            000000030773 
ET0	030773 030773 0   0   000000030773 0            000000030773 
ST1A	030773 030773 0   0   000000030773 0            000000030773 
ST9	030773 030773 0   0   000000030773 0            000000030773 


*030773 JRST	2,030774(1)
INITIAL
C(AC)=000000 000000 
C(E)=400000 000000 
FINAL

C(E)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030773 030773 0   0   254101030774 0            200000030774 
IT1	030773 0      0   0   254101030774 0            200000030774 
AT1	030773 0      0   0   0            0            254101030774 
AT2	030773 0      0   0   200000000000 0            254101030774 
AT3	030773 0      0   0   000000030774 0            200000030774 
AT6	030773 030774 0   0   000000030774 0            200000030774 
FT1A	030773 030774 0   0   000000030774 0            200000030774 
FT9	030774 030774 0   0   000000030774 0            200000030774 
ET0	030774 030774 0   0   000000030774 0            200000030774 
ST1A	030774 030774 0   0   000000030774 0            200000030774 
ST9	030774 030774 0   0   000000030774 0            200000030774 


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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 22
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0179

*030775 JSR	0,030777
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030775 030775 0   0   264000030777 0            000000030777 
IT1	030775 0      0   0   264000030777 0            000000030777 
AT3	030775 0      0   0   000000030777 0            264000030777 
AT6	030775 030777 0   0   000000030777 0            264000030777 
FT1A	030775 030777 0   0   000000030777 0            000000030777 
FT9	030776 030777 0   0   000000030777 0            000000030777 
ET0	030777 030777 0   0   200000030776 0            000000030777 
ET2	0      030777 0   0   200000030776 0            000000030777 
ST6	0      030777 0   0   200000030776 0            000000030777 
ST6A	0      030777 0   0   200000030776 0            000000030777 
ST9	0      030777 0   0   200000030776 0            000000030777 


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

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


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031002 031002 0   0   324000031003 0            000000031003 
IT1	031002 0      0   0   324000031003 0            000000031003 
AT3	031002 0      0   0   000000031003 0            324000031003 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 23
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0180

AT6	031002 031003 0   0   000000031003 0            324000031003 
FT1A	031002 031003 0   0   000000031003 0            000000031003 
FT2	031002 031003 0   0   0            0            000000031003 
FT2RQ	031002 031003 0   0   0            0            000000031003 
FT3	031002 031003 0   0   0            0            000000031003 
FT9	031003 031003 0   0   0            0            000000031003 
ET0	031003 031003 0   0   0            0            000000031003 
ST1A	031003 031003 0   0   0            0            000000031003 
ST9	031003 031003 0   0   0            0            000000031003 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031003 031003 0   0   205040000000 0            0            
IT1	031003 0      0   0   205040000000 0            0            
AT3	031003 0      0   0   0            0            205040000000 
AT6	031003 0      0   0   0            0            205040000000 
FT1A	031003 0      0   0   0            0            0            
FT9	031004 0      0   0   0            0            0            
ET0	031004 0      0   0   0            0            0            
ST1	031004 0      0   0   0            0            0            
ST2	031004 0      0   0   0            0            0            
ST9	031004 0      0   0   0            0            0            


*031004 JFCL	17,031005
INITIAL
C(AC)=000000 000000 
FINAL


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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 24
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0181

*031005 JRST	2,031006(1)
INITIAL
C(AC)=000000 000000 
C(E)=264000 031010 
FINAL

C(E)=264000 031010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031005 031005 0   0   254101031006 0            000000031006 
IT1	031005 0      0   0   254101031006 0            000000031006 
AT1	031005 0      0   0   0            0            254101031006 
AT2	031005 0      0   0   0            0            254101031006 
AT3	031005 0      0   0   000000031006 0            000000031006 
AT6	031005 031006 0   0   000000031006 0            000000031006 
FT1A	031005 031006 0   0   000000031006 0            000000031006 
FT9	031006 031006 0   0   000000031006 0            000000031006 
ET0	031006 031006 0   0   000000031006 0            000000031006 
ST1A	031006 031006 0   0   000000031006 0            000000031006 
ST9	031006 031006 0   0   000000031006 0            000000031006 


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

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031006 031006 0   0   264000031010 0            000000031010 
IT1	031006 0      0   0   264000031010 0            000000031010 
AT3	031006 0      0   0   000000031010 0            264000031010 
AT6	031006 031010 0   0   000000031010 0            264000031010 
FT1A	031006 031010 0   0   000000031010 0            000000031010 
FT9	031007 031010 0   0   000000031010 0            000000031010 
ET0	031010 031010 0   0   000000031007 0            000000031010 
ET2	031011 031010 0   0   000000031007 0            000000031010 
ST6	031011 031010 0   0   000000031007 0            000000031010 
ST6A	031011 031010 0   0   000000031007 0            000000031010 
ST9	031011 031010 0   0   000000031007 0            000000031010 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 25
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0182

*031011 HRRZ 	0,031010
INITIAL
C(AC)=000000 000000 
C(E)=000000 031007 
FINAL
C(AC)=000000 031007 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031011 031011 0   0   550000031010 0            000000031007 
IT1	031011 0      0   0   550000031010 0            000000031007 
AT3	031011 0      0   0   000000031010 0            550000031010 
AT6	031011 031010 0   0   000000031010 0            550000031010 
FT0	031011 031010 0   0   000000031007 0            550000031010 
FT1A	031011 031010 0   0   000000031007 0            000000031007 
FT9	031012 031010 0   0   000000031007 0            000000031007 
ET0	031012 031010 0   0   000000031007 0            000000031007 
ST1	031012 031010 0   0   000000031007 0            000000031007 
ST2	031012 031010 0   0   000000031007 0            000000031007 
ST9	031012 031010 0   0   000000031007 0            000000031007 


*031012 CAIN	0,031010
INITIAL
C(AC)=000000 031007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031012 031012 0   0   306000031010 0            000000031010 
IT1	031012 0      0   0   306000031010 0            000000031010 
AT3	031012 0      0   0   000000031010 0            306000031010 
AT6	031012 031010 0   0   000000031010 0            306000031010 
FT1A	031012 031010 0   0   000000031010 0            000000031010 
FT2	031012 031010 0   0   0            0            000000031010 
FT2RQ	031012 031010 0   0   000000031007 0            000000031010 
FT3	031012 031010 0   0   000000031007 0            000000031010 
FT9	031013 031010 0   0   000000031007 0            000000031010 
ET0	031014 031010 0   0   777777777777 0            000000031010 
ST1A	031014 031010 0   0   777777777777 0            000000031010 
ST9	031014 031010 0   0   777777777777 0            000000031010 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031014 031014 0   0   324000031015 0            000000031015 
IT1	031014 0      0   0   324000031015 0            000000031015 
AT3	031014 0      0   0   000000031015 0            324000031015 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 26
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0183

AT6	031014 031015 0   0   000000031015 0            324000031015 
FT1A	031014 031015 0   0   000000031015 0            000000031015 
FT2	031014 031015 0   0   0            0            000000031015 
FT2RQ	031014 031015 0   0   000000031007 0            000000031015 
FT3	031014 031015 0   0   000000031007 0            000000031015 
FT9	031015 031015 0   0   000000031007 0            000000031015 
ET0	031015 031015 0   0   000000031007 0            000000031015 
ST1A	031015 031015 0   0   000000031007 0            000000031015 
ST9	031015 031015 0   0   000000031007 0            000000031015 


*031015 JSR	0,031017
INITIAL
C(AC)=000000 031007 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031015 031015 0   0   264000031017 0            000000031017 
IT1	031015 0      0   0   264000031017 0            000000031017 
AT3	031015 0      0   0   000000031017 0            264000031017 
AT6	031015 031017 0   0   000000031017 0            264000031017 
FT1A	031015 031017 0   0   000000031017 0            000000031017 
FT9	031016 031017 0   0   000000031017 0            000000031017 
ET0	031017 031017 0   0   000000031016 0            000000031017 
ET2	031020 031017 0   0   000000031016 0            000000031017 
ST6	031020 031017 0   0   000000031016 0            000000031017 
ST6A	031020 031017 0   0   000000031016 0            000000031017 
ST9	031020 031017 0   0   000000031016 0            000000031017 


*031020 HRRZ 	0,031017
INITIAL
C(AC)=000000 031007 
C(E)=000000 031016 
FINAL
C(AC)=000000 031016 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031020 031020 0   0   550000031017 0            000000031016 
IT1	031020 0      0   0   550000031017 0            000000031016 
AT3	031020 0      0   0   000000031017 0            550000031017 
AT6	031020 031017 0   0   000000031017 0            550000031017 
FT0	031020 031017 0   0   000000031016 0            550000031017 
FT1A	031020 031017 0   0   000000031016 0            000000031016 
FT9	031021 031017 0   0   000000031016 0            000000031016 
ET0	031021 031017 0   0   000000031016 0            000000031016 
ST1	031021 031017 0   0   000000031016 0            000000031016 
ST2	031021 031017 0   0   000000031016 0            000000031016 
ST9	031021 031017 0   0   000000031016 0            000000031016 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 27
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0184



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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031021 031021 0   0   302000031016 0            000000031016 
IT1	031021 0      0   0   302000031016 0            000000031016 
AT3	031021 0      0   0   000000031016 0            302000031016 
AT6	031021 031016 0   0   000000031016 0            302000031016 
FT1A	031021 031016 0   0   000000031016 0            000000031016 
FT2	031021 031016 0   0   0            0            000000031016 
FT2RQ	031021 031016 0   0   000000031016 0            000000031016 
FT3	031021 031016 0   0   000000031016 0            000000031016 
FT9	031022 031016 0   0   000000031016 0            000000031016 
ET0	031023 031016 0   0   0            0            000000031016 
ST1A	031023 031016 0   0   0            0            000000031016 
ST9	031023 031016 0   0   0            0            000000031016 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031023 031023 0   0   324000031024 0            000000031024 
IT1	031023 0      0   0   324000031024 0            000000031024 
AT3	031023 0      0   0   000000031024 0            324000031024 
AT6	031023 031024 0   0   000000031024 0            324000031024 
FT1A	031023 031024 0   0   000000031024 0            000000031024 
FT2	031023 031024 0   0   0            0            000000031024 
FT2RQ	031023 031024 0   0   000000031016 0            000000031024 
FT3	031023 031024 0   0   000000031016 0            000000031024 
FT9	031024 031024 0   0   000000031016 0            000000031024 
ET0	031024 031024 0   0   000000031016 0            000000031024 
ST1A	031024 031024 0   0   000000031016 0            000000031024 
ST9	031024 031024 0   0   000000031016 0            000000031024 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 28
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0185

*031024 SETZ 	1,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 031016 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031024 031024 0   0   400040000000 0            0            
IT1	031024 0      0   0   400040000000 0            0            
AT3	031024 0      0   0   0            0            400040000000 
AT6	031024 0      0   0   0            0            400040000000 
FT1A	031024 0      0   0   0            0            0            
FT9	031025 0      0   0   0            0            0            
ET0	031025 0      0   0   0            0            0            
ST1	031025 0      0   0   0            0            0            
ST2	031025 0      0   0   0            0            0            
ST9	031025 0      0   0   0            0            0            


*031025 MOVE 	0,033463
INITIAL
C(AC)=000000 031016 
C(E)=310000 000000 
FINAL
C(AC)=310000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031025 031025 0   0   200000033463 0            310000000000 
IT1	031025 0      0   0   200000033463 0            310000000000 
AT3	031025 0      0   0   000000033463 0            200000033463 
AT6	031025 033463 0   0   000000033463 0            200000033463 
FT0	031025 033463 0   0   310000000000 0            200000033463 
FT1A	031025 033463 0   0   310000000000 0            310000000000 
FT9	031026 033463 0   0   310000000000 0            310000000000 
ET0	031026 033463 0   0   310000000000 0            310000000000 
ST1	031026 033463 0   0   310000000000 0            310000000000 
ST2	031026 033463 0   0   310000000000 0            310000000000 
ST9	031026 033463 0   0   310000000000 0            310000000000 


*031026 JSA	0,031030
INITIAL
C(AC)=310000 000000 
C(E)=266000 031030 
FINAL
C(AC)=031030 031027 
C(E)=310000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031026 031026 0   0   266000031030 0            310000000000 
IT1	031026 0      0   0   266000031030 0            310000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 29
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0186

AT3	031026 0      0   0   000000031030 0            266000031030 
AT6	031026 031030 0   0   000000031030 0            266000031030 
FT1A	031026 031030 0   0   000000031030 0            000000031030 
FT2	031026 031030 0   0   0            0            000000031030 
FT2RQ	031026 031030 0   0   310000000000 0            000000031030 
FT3	031026 031030 0   0   310000000000 0            000000031030 
FT9	031027 031030 0   0   310000000000 0            000000031030 
ET0	031030 031030 0   0   310000031027 0            310000000000 
ET1	031030 031030 0   0   031027031030 0            310000000000 
ET2	031031 031030 0   0   031030031027 0            310000000000 
ST1	031031 031030 0   0   031030031027 0            310000000000 
ST2	031031 031030 0   0   310000000000 0            310000000000 
ST3	031031 031030 0   0   310000000000 0            310000000000 
ST6	031031 031030 0   0   310000000000 0            310000000000 
ST6A	031031 031030 0   0   310000000000 0            310000000000 
ST9	031031 031030 0   0   310000000000 0            310000000000 


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

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


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031033 031033 0   0   324000031034 0            000000031034 
IT1	031033 0      0   0   324000031034 0            000000031034 
AT3	031033 0      0   0   000000031034 0            324000031034 
AT6	031033 031034 0   0   000000031034 0            324000031034 
FT1A	031033 031034 0   0   000000031034 0            000000031034 
FT2	031033 031034 0   0   0            0            000000031034 
FT2RQ	031033 031034 0   0   031030031027 0            000000031034 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 30
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0187

FT3	031033 031034 0   0   031030031027 0            000000031034 
FT9	031034 031034 0   0   031030031027 0            000000031034 
ET0	031034 031034 0   0   031030031027 0            000000031034 
ST1A	031034 031034 0   0   031030031027 0            000000031034 
ST9	031034 031034 0   0   031030031027 0            000000031034 


*031034 SETZ 	1,000000
INITIAL
C(AC)=000000 000000 
C(E)=031030 031027 
FINAL
C(AC)=000000 000000 

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


*031035 MOVE 	0,033464
INITIAL
C(AC)=031030 031027 
C(E)=201040 001234 
FINAL
C(AC)=201040 001234 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031035 031035 0   0   200000033464 0            201040001234 
IT1	031035 0      0   0   200000033464 0            201040001234 
AT3	031035 0      0   0   000000033464 0            200000033464 
AT6	031035 033464 0   0   000000033464 0            200000033464 
FT0	031035 033464 0   0   201040001234 0            200000033464 
FT1A	031035 033464 0   0   201040001234 0            201040001234 
FT9	031036 033464 0   0   201040001234 0            201040001234 
ET0	031036 033464 0   0   201040001234 0            201040001234 
ST1	031036 033464 0   0   201040001234 0            201040001234 
ST2	031036 033464 0   0   201040001234 0            201040001234 
ST9	031036 033464 0   0   201040001234 0            201040001234 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 31
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0188

*031036 JSA	0,031037
INITIAL
C(AC)=201040 001234 
C(E)=266000 031037 
FINAL
C(AC)=031037 031037 
C(E)=201040 001234 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031036 031036 0   0   266000031037 0            201040001234 
IT1	031036 0      0   0   266000031037 0            201040001234 
AT3	031036 0      0   0   000000031037 0            266000031037 
AT6	031036 031037 0   0   000000031037 0            266000031037 
FT1A	031036 031037 0   0   000000031037 0            000000031037 
FT2	031036 031037 0   0   0            0            000000031037 
FT2RQ	031036 031037 0   0   201040001234 0            000000031037 
FT3	031036 031037 0   0   201040001234 0            000000031037 
FT9	031037 031037 0   0   201040001234 0            000000031037 
ET0	031037 031037 0   0   201040031037 0            201040001234 
ET1	031037 031037 0   0   031037031037 0            201040001234 
ET2	031040 031037 0   0   031037031037 0            201040001234 
ST1	031040 031037 0   0   031037031037 0            201040001234 
ST2	031040 031037 0   0   201040001234 0            201040001234 
ST3	031040 031037 0   0   201040001234 0            201040001234 
ST6	031040 031037 0   0   201040001234 0            201040001234 
ST6A	031040 031037 0   0   201040001234 0            201040001234 
ST9	031040 031037 0   0   201040001234 0            201040001234 


*031040 CAIN	1,001234
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031040 031040 0   0   306040001234 0            000000001234 
IT1	031040 0      0   0   306040001234 0            000000001234 
AT3	031040 0      0   0   000000001234 0            306040001234 
AT6	031040 001234 0   0   000000001234 0            306040001234 
FT1A	031040 001234 0   0   000000001234 0            000000001234 
FT2	031040 001234 0   0   0            0            000000001234 
FT2RQ	031040 001234 0   0   0            0            000000001234 
FT3	031040 001234 0   0   0            0            000000001234 
FT9	031041 001234 0   0   0            0            000000001234 
ET0	031042 001234 0   0   777777776544 0            000000001234 
ST1A	031042 001234 0   0   777777776544 0            000000001234 
ST9	031042 001234 0   0   777777776544 0            000000001234 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 32
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0189

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


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


*031043 JSA	0,031045
INITIAL
C(AC)=031037 031037 
C(E)=266000 031045 
FINAL
C(AC)=031045 031044 
C(E)=031037 031037 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031043 031043 0   0   266000031045 0            031037031037 
IT1	031043 0      0   0   266000031045 0            031037031037 
AT3	031043 0      0   0   000000031045 0            266000031045 
AT6	031043 031045 0   0   000000031045 0            266000031045 
FT1A	031043 031045 0   0   000000031045 0            000000031045 
FT2	031043 031045 0   0   0            0            000000031045 
FT2RQ	031043 031045 0   0   031037031037 0            000000031045 
FT3	031043 031045 0   0   031037031037 0            000000031045 
FT9	031044 031045 0   0   031037031037 0            000000031045 
ET0	031045 031045 0   0   031037031044 0            031037031037 
ET1	031045 031045 0   0   031044031045 0            031037031037 
ET2	031046 031045 0   0   031045031044 0            031037031037 
ST1	031046 031045 0   0   031045031044 0            031037031037 
ST2	031046 031045 0   0   031037031037 0            031037031037 
ST3	031046 031045 0   0   031037031037 0            031037031037 
ST6	031046 031045 0   0   031037031037 0            031037031037 
ST6A	031046 031045 0   0   031037031037 0            031037031037 
ST9	031046 031045 0   0   031037031037 0            031037031037 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 33
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0190

*031046 HRRZM	0,000001
INITIAL
C(AC)=031045 031044 
C(E)=000000 000000 
FINAL

C(E)=000000 031044 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031046 031046 0   0   552000000001 0            0            
IT1	031046 0      0   0   552000000001 0            0            
AT3	031046 0      0   0   000000000001 0            552000000001 
AT6	031046 000001 0   0   000000000001 0            552000000001 
FT0	031046 000001 0   0   0            0            552000000001 
FT1A	031046 000001 0   0   0            0            0            
FT2	031046 000001 0   0   0            0            0            
FT2RQ	031046 000001 0   0   031045031044 0            0            
FT3	031046 000001 0   0   031045031044 0            0            
FT9	031047 000001 0   0   031045031044 0            0            
ET0	031047 000001 0   0   000000031044 0            0            
ST5	031047 000001 0   0   000000031044 0            0            
ST6A	031047 000001 0   0   000000031044 0            0            
ST9	031047 000001 0   0   000000031044 0            0            


*031047 CAIN	1,031045
INITIAL
C(AC)=000000 031044 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031047 031047 0   0   306040031045 0            000000031045 
IT1	031047 0      0   0   306040031045 0            000000031045 
AT3	031047 0      0   0   000000031045 0            306040031045 
AT6	031047 031045 0   0   000000031045 0            306040031045 
FT1A	031047 031045 0   0   000000031045 0            000000031045 
FT2	031047 031045 0   0   0            0            000000031045 
FT2RQ	031047 031045 0   0   000000031044 0            000000031045 
FT3	031047 031045 0   0   000000031044 0            000000031045 
FT9	031050 031045 0   0   000000031044 0            000000031045 
ET0	031051 031045 0   0   777777777777 0            000000031045 
ST1A	031051 031045 0   0   777777777777 0            000000031045 
ST9	031051 031045 0   0   777777777777 0            000000031045 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 34
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0191

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


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


*031052 SETZB	0,031054
INITIAL
C(AC)=031045 031044 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031052 031052 0   0   403000031054 0            000000031054 
IT1	031052 0      0   0   403000031054 0            000000031054 
AT3	031052 0      0   0   000000031054 0            403000031054 
AT6	031052 031054 0   0   000000031054 0            403000031054 
FT1A	031052 031054 0   0   000000031054 0            000000031054 
FT9	031053 031054 0   0   000000031054 0            000000031054 
ET0	031053 031054 0   0   0            0            000000031054 
ST1	031053 031054 0   0   0            0            000000031054 
ST2	031053 031054 0   0   0            0            000000031054 
ST6	031053 031054 0   0   0            0            000000031054 
ST6A	031053 031054 0   0   0            0            000000031054 
ST9	031053 031054 0   0   0            0            000000031054 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 35
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0192

*031053 JSA	0,031054
INITIAL
C(AC)=000000 000000 
C(E)=266000 031054 
FINAL
C(AC)=031054 031054 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031053 031053 0   0   266000031054 0            0            
IT1	031053 0      0   0   266000031054 0            0            
AT3	031053 0      0   0   000000031054 0            266000031054 
AT6	031053 031054 0   0   000000031054 0            266000031054 
FT1A	031053 031054 0   0   000000031054 0            000000031054 
FT2	031053 031054 0   0   0            0            000000031054 
FT2RQ	031053 031054 0   0   0            0            000000031054 
FT3	031053 031054 0   0   0            0            000000031054 
FT9	031054 031054 0   0   0            0            000000031054 
ET0	031054 031054 0   0   000000031054 0            0            
ET1	031054 031054 0   0   031054031054 0            0            
ET2	031055 031054 0   0   031054031054 0            0            
ST1	031055 031054 0   0   031054031054 0            0            
ST2	031055 031054 0   0   0            0            0            
ST3	031055 031054 0   0   0            0            0            
ST6	031055 031054 0   0   0            0            0            
ST6A	031055 031054 0   0   0            0            0            
ST9	031055 031054 0   0   0            0            0            


*031055 MOVE 	1,031054
INITIAL
C(AC)=000000 031044 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031055 031055 0   0   200040031054 0            0            
IT1	031055 0      0   0   200040031054 0            0            
AT3	031055 0      0   0   000000031054 0            200040031054 
AT6	031055 031054 0   0   000000031054 0            200040031054 
FT0	031055 031054 0   0   0            0            200040031054 
FT1A	031055 031054 0   0   0            0            0            
FT9	031056 031054 0   0   0            0            0            
ET0	031056 031054 0   0   0            0            0            
ST1	031056 031054 0   0   0            0            0            
ST2	031056 031054 0   0   0            0            0            
ST9	031056 031054 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 36
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0193

*031056 CAIN	1,031054
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031056 031056 0   0   306040031054 0            000000031054 
IT1	031056 0      0   0   306040031054 0            000000031054 
AT3	031056 0      0   0   000000031054 0            306040031054 
AT6	031056 031054 0   0   000000031054 0            306040031054 
FT1A	031056 031054 0   0   000000031054 0            000000031054 
FT2	031056 031054 0   0   0            0            000000031054 
FT2RQ	031056 031054 0   0   0            0            000000031054 
FT3	031056 031054 0   0   0            0            000000031054 
FT9	031057 031054 0   0   0            0            000000031054 
ET0	031060 031054 0   0   777777746724 0            000000031054 
ST1A	031060 031054 0   0   777777746724 0            000000031054 
ST9	031060 031054 0   0   777777746724 0            000000031054 


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


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


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031061 031061 0   0   201000777777 0            000000777777 
IT1	031061 0      0   0   201000777777 0            000000777777 
AT3	031061 0      0   0   000000777777 0            201000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 37
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0194

AT6	031061 777777 0   0   000000777777 0            201000777777 
FT1A	031061 777777 0   0   000000777777 0            000000777777 
FT9	031062 777777 0   0   000000777777 0            000000777777 
ET0	031062 777777 0   0   000000777777 0            000000777777 
ST1	031062 777777 0   0   000000777777 0            000000777777 
ST2	031062 777777 0   0   000000777777 0            000000777777 
ST9	031062 777777 0   0   000000777777 0            000000777777 


*031062 JSA	0,031063
INITIAL
C(AC)=000000 777777 
C(E)=266000 031063 
FINAL
C(AC)=031063 031063 
C(E)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031062 031062 0   0   266000031063 0            000000777777 
IT1	031062 0      0   0   266000031063 0            000000777777 
AT3	031062 0      0   0   000000031063 0            266000031063 
AT6	031062 031063 0   0   000000031063 0            266000031063 
FT1A	031062 031063 0   0   000000031063 0            000000031063 
FT2	031062 031063 0   0   0            0            000000031063 
FT2RQ	031062 031063 0   0   000000777777 0            000000031063 
FT3	031062 031063 0   0   000000777777 0            000000031063 
FT9	031063 031063 0   0   000000777777 0            000000031063 
ET0	031063 031063 0   0   000000031063 0            000000777777 
ET1	031063 031063 0   0   031063031063 0            000000777777 
ET2	031064 031063 0   0   031063031063 0            000000777777 
ST1	031064 031063 0   0   031063031063 0            000000777777 
ST2	031064 031063 0   0   000000777777 0            000000777777 
ST3	031064 031063 0   0   000000777777 0            000000777777 
ST6	031064 031063 0   0   000000777777 0            000000777777 
ST6A	031064 031063 0   0   000000777777 0            000000777777 
ST9	031064 031063 0   0   000000777777 0            000000777777 


*031064 TRNN	0,777777
INITIAL
C(AC)=031063 031063 
FINAL
C(AC)=031063 031063 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031064 031064 0   0   606000777777 0            000000031063 
IT1	031064 0      0   0   606000777777 0            000000031063 
AT3	031064 0      0   0   000000777777 0            606000777777 
AT6	031064 777777 0   0   000000777777 0            606000777777 
FT1A	031064 777777 0   0   000000777777 0            000000777777 
FT2	031064 777777 0   0   0            0            000000777777 
FT2RQ	031064 777777 0   0   031063031063 0            000000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 38
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0195

FT3	031064 777777 0   0   031063031063 0            000000777777 
FT9	031065 777777 0   0   031063031063 0            000000777777 
ET0	031065 777777 0   0   031063031063 0            000000777777 
ET1	031065 777777 0   0   031063031063 0            000000031063 
ET2	031066 777777 0   0   031063031063 0            000000031063 
ST1A	031066 777777 0   0   031063031063 0            000000031063 
ST9	031066 777777 0   0   031063031063 0            000000031063 


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


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


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

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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 39
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0196

*031070 JSA	0,031071
INITIAL
C(AC)=000000 000000 
C(E)=266000 031071 
FINAL
C(AC)=031071 031071 
C(E)=000000 000000 

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


*031072 TRNN	0,777777
INITIAL
C(AC)=031071 031071 
FINAL
C(AC)=031071 031071 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031072 031072 0   0   606000777777 0            000000031071 
IT1	031072 0      0   0   606000777777 0            000000031071 
AT3	031072 0      0   0   000000777777 0            606000777777 
AT6	031072 777777 0   0   000000777777 0            606000777777 
FT1A	031072 777777 0   0   000000777777 0            000000777777 
FT2	031072 777777 0   0   0            0            000000777777 
FT2RQ	031072 777777 0   0   031071031071 0            000000777777 
FT3	031072 777777 0   0   031071031071 0            000000777777 
FT9	031073 777777 0   0   031071031071 0            000000777777 
ET0	031073 777777 0   0   031071031071 0            000000777777 
ET1	031073 777777 0   0   031071031071 0            000000031071 
ET2	031074 777777 0   0   031071031071 0            000000031071 
ST1A	031074 777777 0   0   031071031071 0            000000031071 
ST9	031074 777777 0   0   031071031071 0            000000031071 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 40
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0197

*031074 JUMPA	0,031075
INITIAL
C(AC)=031071 031071 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031074 031074 0   0   324000031075 0            000000031075 
IT1	031074 0      0   0   324000031075 0            000000031075 
AT3	031074 0      0   0   000000031075 0            324000031075 
AT6	031074 031075 0   0   000000031075 0            324000031075 
FT1A	031074 031075 0   0   000000031075 0            000000031075 
FT2	031074 031075 0   0   0            0            000000031075 
FT2RQ	031074 031075 0   0   031071031071 0            000000031075 
FT3	031074 031075 0   0   031071031071 0            000000031075 
FT9	031075 031075 0   0   031071031071 0            000000031075 
ET0	031075 031075 0   0   031071031071 0            000000031075 
ST1A	031075 031075 0   0   031071031071 0            000000031075 
ST9	031075 031075 0   0   031071031071 0            000000031075 


*031075 JSA	0,031077
INITIAL
C(AC)=031071 031071 
C(E)=266000 031077 
FINAL
C(AC)=031077 031076 
C(E)=031071 031071 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031075 031075 0   0   266000031077 0            031071031071 
IT1	031075 0      0   0   266000031077 0            031071031071 
AT3	031075 0      0   0   000000031077 0            266000031077 
AT6	031075 031077 0   0   000000031077 0            266000031077 
FT1A	031075 031077 0   0   000000031077 0            000000031077 
FT2	031075 031077 0   0   0            0            000000031077 
FT2RQ	031075 031077 0   0   031071031071 0            000000031077 
FT3	031075 031077 0   0   031071031071 0            000000031077 
FT9	031076 031077 0   0   031071031071 0            000000031077 
ET0	031077 031077 0   0   031071031076 0            031071031071 
ET1	031077 031077 0   0   031076031077 0            031071031071 
ET2	0      031077 0   0   031077031076 0            031071031071 
ST1	0      031077 0   0   031077031076 0            031071031071 
ST2	0      031077 0   0   031071031071 0            031071031071 
ST3	0      031077 0   0   031071031071 0            031071031071 
ST6	0      031077 0   0   031071031071 0            031071031071 
ST6A	0      031077 0   0   031071031071 0            031071031071 
ST9	0      031077 0   0   031071031071 0            031071031071 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 41
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0198

*031100 HLRZM	0,000001
INITIAL
C(AC)=031077 031076 
C(E)=000000 000000 
FINAL

C(E)=000000 031077 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   556000000001 0            0            
IT1	0      0      0   0   556000000001 0            0            
AT3	0      0      0   0   000000000001 0            556000000001 
AT6	0      000001 0   0   000000000001 0            556000000001 
FT0	0      000001 0   0   0            0            556000000001 
FT1A	0      000001 0   0   0            0            0            
FT2	0      000001 0   0   0            0            0            
FT2RQ	0      000001 0   0   031077031076 0            0            
FT3	0      000001 0   0   031077031076 0            0            
FT9	031101 000001 0   0   031077031076 0            0            
ET0	031101 000001 0   0   000000031077 0            0            
ST5	031101 000001 0   0   000000031077 0            0            
ST6A	031101 000001 0   0   000000031077 0            0            
ST9	031101 000001 0   0   000000031077 0            0            


*031101 CAIN	1,031076
INITIAL
C(AC)=000000 031077 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031101 031101 0   0   306040031076 0            000000031076 
IT1	031101 0      0   0   306040031076 0            000000031076 
AT3	031101 0      0   0   000000031076 0            306040031076 
AT6	031101 031076 0   0   000000031076 0            306040031076 
FT1A	031101 031076 0   0   000000031076 0            000000031076 
FT2	031101 031076 0   0   0            0            000000031076 
FT2RQ	031101 031076 0   0   000000031077 0            000000031076 
FT3	031101 031076 0   0   000000031077 0            000000031076 
FT9	031102 031076 0   0   000000031077 0            000000031076 
ET0	031103 031076 0   0   000000000001 0            000000031076 
ST1A	031103 031076 0   0   000000000001 0            000000031076 
ST9	031103 031076 0   0   000000000001 0            000000031076 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 42
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0199

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


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


*031104 SETO 	0,000000
INITIAL
C(AC)=031077 031076 
C(E)=031077 031076 
FINAL
C(AC)=777777 777777 

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


*031105 JSA	0,031107
INITIAL
C(AC)=777777 777777 
C(E)=266000 031107 
FINAL
C(AC)=031107 031106 
C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031105 031105 0   0   266000031107 0            777777777777 
IT1	031105 0      0   0   266000031107 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 43
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0200

AT3	031105 0      0   0   000000031107 0            266000031107 
AT6	031105 031107 0   0   000000031107 0            266000031107 
FT1A	031105 031107 0   0   000000031107 0            000000031107 
FT2	031105 031107 0   0   0            0            000000031107 
FT2RQ	031105 031107 0   0   777777777777 0            000000031107 
FT3	031105 031107 0   0   777777777777 0            000000031107 
FT9	031106 031107 0   0   777777777777 0            000000031107 
ET0	031107 031107 0   0   777777031106 0            777777777777 
ET1	031107 031107 0   0   031106031107 0            777777777777 
ET2	031110 031107 0   0   031107031106 0            777777777777 
ST1	031110 031107 0   0   031107031106 0            777777777777 
ST2	031110 031107 0   0   777777777777 0            777777777777 
ST3	031110 031107 0   0   777777777777 0            777777777777 
ST6	031110 031107 0   0   777777777777 0            777777777777 
ST6A	031110 031107 0   0   777777777777 0            777777777777 
ST9	031110 031107 0   0   777777777777 0            777777777777 


*031110 CAME	0,033465
INITIAL
C(AC)=031107 031106 
C(E)=031107 031106 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031110 031110 0   0   312000033465 0            031107031106 
IT1	031110 0      0   0   312000033465 0            031107031106 
AT3	031110 0      0   0   000000033465 0            312000033465 
AT6	031110 033465 0   0   000000033465 0            312000033465 
FT0	031110 033465 0   0   031107031106 0            312000033465 
FT1A	031110 033465 0   0   031107031106 0            031107031106 
FT2	031110 033465 0   0   0            0            031107031106 
FT2RQ	031110 033465 0   0   031107031106 0            031107031106 
FT3	031110 033465 0   0   031107031106 0            031107031106 
FT9	031111 033465 0   0   031107031106 0            031107031106 
ET0	031112 033465 0   0   0            0            031107031106 
ST1A	031112 033465 0   0   0            0            031107031106 
ST9	031112 033465 0   0   0            0            031107031106 


*031112 JUMPA	0,031113
INITIAL
C(AC)=031107 031106 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031112 031112 0   0   324000031113 0            000000031113 
IT1	031112 0      0   0   324000031113 0            000000031113 
AT3	031112 0      0   0   000000031113 0            324000031113 
AT6	031112 031113 0   0   000000031113 0            324000031113 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 44
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0201

FT1A	031112 031113 0   0   000000031113 0            000000031113 
FT2	031112 031113 0   0   0            0            000000031113 
FT2RQ	031112 031113 0   0   031107031106 0            000000031113 
FT3	031112 031113 0   0   031107031106 0            000000031113 
FT9	031113 031113 0   0   031107031106 0            000000031113 
ET0	031113 031113 0   0   031107031106 0            000000031113 
ST1A	031113 031113 0   0   031107031106 0            000000031113 
ST9	031113 031113 0   0   031107031106 0            000000031113 


*031113 SETZ 	0,000000
INITIAL
C(AC)=031107 031106 
C(E)=031107 031106 
FINAL
C(AC)=000000 000000 

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


*031114 JSA	0,031116
INITIAL
C(AC)=000000 000000 
C(E)=266000 031116 
FINAL
C(AC)=031116 031115 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031114 031114 0   0   266000031116 0            0            
IT1	031114 0      0   0   266000031116 0            0            
AT3	031114 0      0   0   000000031116 0            266000031116 
AT6	031114 031116 0   0   000000031116 0            266000031116 
FT1A	031114 031116 0   0   000000031116 0            000000031116 
FT2	031114 031116 0   0   0            0            000000031116 
FT2RQ	031114 031116 0   0   0            0            000000031116 
FT3	031114 031116 0   0   0            0            000000031116 
FT9	031115 031116 0   0   0            0            000000031116 
ET0	031116 031116 0   0   000000031115 0            0            
ET1	031116 031116 0   0   031115031116 0            0            
ET2	031117 031116 0   0   031116031115 0            0            
ST1	031117 031116 0   0   031116031115 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 45
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0202

ST2	031117 031116 0   0   0            0            0            
ST3	031117 031116 0   0   0            0            0            
ST6	031117 031116 0   0   0            0            0            
ST6A	031117 031116 0   0   0            0            0            
ST9	031117 031116 0   0   0            0            0            


*031117 CAME	0,033466
INITIAL
C(AC)=031116 031115 
C(E)=031116 031115 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031117 031117 0   0   312000033466 0            031116031115 
IT1	031117 0      0   0   312000033466 0            031116031115 
AT3	031117 0      0   0   000000033466 0            312000033466 
AT6	031117 033466 0   0   000000033466 0            312000033466 
FT0	031117 033466 0   0   031116031115 0            312000033466 
FT1A	031117 033466 0   0   031116031115 0            031116031115 
FT2	031117 033466 0   0   0            0            031116031115 
FT2RQ	031117 033466 0   0   031116031115 0            031116031115 
FT3	031117 033466 0   0   031116031115 0            031116031115 
FT9	031120 033466 0   0   031116031115 0            031116031115 
ET0	031121 033466 0   0   0            0            031116031115 
ST1A	031121 033466 0   0   0            0            031116031115 
ST9	031121 033466 0   0   0            0            031116031115 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031121 031121 0   0   324000031122 0            000000031122 
IT1	031121 0      0   0   324000031122 0            000000031122 
AT3	031121 0      0   0   000000031122 0            324000031122 
AT6	031121 031122 0   0   000000031122 0            324000031122 
FT1A	031121 031122 0   0   000000031122 0            000000031122 
FT2	031121 031122 0   0   0            0            000000031122 
FT2RQ	031121 031122 0   0   031116031115 0            000000031122 
FT3	031121 031122 0   0   031116031115 0            000000031122 
FT9	031122 031122 0   0   031116031115 0            000000031122 
ET0	031122 031122 0   0   031116031115 0            000000031122 
ST1A	031122 031122 0   0   031116031115 0            000000031122 
ST9	031122 031122 0   0   031116031115 0            000000031122 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 46
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0203

*031122 SETZ 	0,000000
INITIAL
C(AC)=031116 031115 
C(E)=031116 031115 
FINAL
C(AC)=000000 000000 

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


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

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031123 031123 0   0   476000031125 0            000000031125 
IT1	031123 0      0   0   476000031125 0            000000031125 
AT3	031123 0      0   0   000000031125 0            476000031125 
AT6	031123 031125 0   0   000000031125 0            476000031125 
FT1A	031123 031125 0   0   000000031125 0            000000031125 
FT9	031124 031125 0   0   000000031125 0            000000031125 
ET0	031124 031125 0   0   777777777777 0            000000031125 
ST6	031124 031125 0   0   777777777777 0            000000031125 
ST6A	031124 031125 0   0   777777777777 0            000000031125 
ST9	031124 031125 0   0   777777777777 0            000000031125 


*031124 JSA	0,031125
INITIAL
C(AC)=000000 000000 
C(E)=266000 031125 
FINAL
C(AC)=031125 031125 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031124 031124 0   0   266000031125 0            0            
IT1	031124 0      0   0   266000031125 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 47
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0204

AT3	031124 0      0   0   000000031125 0            266000031125 
AT6	031124 031125 0   0   000000031125 0            266000031125 
FT1A	031124 031125 0   0   000000031125 0            000000031125 
FT2	031124 031125 0   0   0            0            000000031125 
FT2RQ	031124 031125 0   0   0            0            000000031125 
FT3	031124 031125 0   0   0            0            000000031125 
FT9	031125 031125 0   0   0            0            000000031125 
ET0	031125 031125 0   0   000000031125 0            0            
ET1	031125 031125 0   0   031125031125 0            0            
ET2	031126 031125 0   0   031125031125 0            0            
ST1	031126 031125 0   0   031125031125 0            0            
ST2	031126 031125 0   0   0            0            0            
ST3	031126 031125 0   0   0            0            0            
ST6	031126 031125 0   0   0            0            0            
ST6A	031126 031125 0   0   0            0            0            
ST9	031126 031125 0   0   0            0            0            


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

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


*031130 JUMPA	0,031131
INITIAL
C(AC)=031125 031125 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031130 031130 0   0   324000031131 0            000000031131 
IT1	031130 0      0   0   324000031131 0            000000031131 
AT3	031130 0      0   0   000000031131 0            324000031131 
AT6	031130 031131 0   0   000000031131 0            324000031131 
FT1A	031130 031131 0   0   000000031131 0            000000031131 
FT2	031130 031131 0   0   0            0            000000031131 
FT2RQ	031130 031131 0   0   031125031125 0            000000031131 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 48
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0205

FT3	031130 031131 0   0   031125031125 0            000000031131 
FT9	031131 031131 0   0   031125031125 0            000000031131 
ET0	031131 031131 0   0   031125031125 0            000000031131 
ST1A	031131 031131 0   0   031125031125 0            000000031131 
ST9	031131 031131 0   0   031125031125 0            000000031131 


*031131 SETOB	0,000001
INITIAL
C(AC)=031125 031125 
C(E)=000000 031077 
FINAL
C(AC)=777777 777777 
C(E)=000000 031077 

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


*031132 SETZM	0,031134
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031132 031132 0   0   402000031134 0            000000031134 
IT1	031132 0      0   0   402000031134 0            000000031134 
AT3	031132 0      0   0   000000031134 0            402000031134 
AT6	031132 031134 0   0   000000031134 0            402000031134 
FT1A	031132 031134 0   0   000000031134 0            000000031134 
FT9	031133 031134 0   0   000000031134 0            000000031134 
ET0	031133 031134 0   0   0            0            000000031134 
ST6	031133 031134 0   0   0            0            000000031134 
ST6A	031133 031134 0   0   0            0            000000031134 
ST9	031133 031134 0   0   0            0            000000031134 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 49
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0206

*031133 JSA	0,031134
INITIAL
C(AC)=777777 777777 
C(E)=266000 031134 
FINAL
C(AC)=031134 031134 
C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031133 031133 0   0   266000031134 0            777777777777 
IT1	031133 0      0   0   266000031134 0            777777777777 
AT3	031133 0      0   0   000000031134 0            266000031134 
AT6	031133 031134 0   0   000000031134 0            266000031134 
FT1A	031133 031134 0   0   000000031134 0            000000031134 
FT2	031133 031134 0   0   0            0            000000031134 
FT2RQ	031133 031134 0   0   777777777777 0            000000031134 
FT3	031133 031134 0   0   777777777777 0            000000031134 
FT9	031134 031134 0   0   777777777777 0            000000031134 
ET0	031134 031134 0   0   777777031134 0            777777777777 
ET1	031134 031134 0   0   031134031134 0            777777777777 
ET2	031135 031134 0   0   031134031134 0            777777777777 
ST1	031135 031134 0   0   031134031134 0            777777777777 
ST2	031135 031134 0   0   777777777777 0            777777777777 
ST3	031135 031134 0   0   777777777777 0            777777777777 
ST6	031135 031134 0   0   777777777777 0            777777777777 
ST6A	031135 031134 0   0   777777777777 0            777777777777 
ST9	031135 031134 0   0   777777777777 0            777777777777 


*031135 CAME	1,031134
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031135 031135 0   0   312040031134 0            777777777777 
IT1	031135 0      0   0   312040031134 0            777777777777 
AT3	031135 0      0   0   000000031134 0            312040031134 
AT6	031135 031134 0   0   000000031134 0            312040031134 
FT0	031135 031134 0   0   777777777777 0            312040031134 
FT1A	031135 031134 0   0   777777777777 0            777777777777 
FT2	031135 031134 0   0   0            0            777777777777 
FT2RQ	031135 031134 0   0   777777777777 0            777777777777 
FT3	031135 031134 0   0   777777777777 0            777777777777 
FT9	031136 031134 0   0   777777777777 0            777777777777 
ET0	031137 031134 0   0   0            0            777777777777 
ST1A	031137 031134 0   0   0            0            777777777777 
ST9	031137 031134 0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 50
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0207

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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031137 031137 0   0   324000031140 0            000000031140 
IT1	031137 0      0   0   324000031140 0            000000031140 
AT3	031137 0      0   0   000000031140 0            324000031140 
AT6	031137 031140 0   0   000000031140 0            324000031140 
FT1A	031137 031140 0   0   000000031140 0            000000031140 
FT2	031137 031140 0   0   0            0            000000031140 
FT2RQ	031137 031140 0   0   031134031134 0            000000031140 
FT3	031137 031140 0   0   031134031134 0            000000031140 
FT9	031140 031140 0   0   031134031134 0            000000031140 
ET0	031140 031140 0   0   031134031134 0            000000031140 
ST1A	031140 031140 0   0   031134031134 0            000000031140 
ST9	031140 031140 0   0   031134031134 0            000000031140 


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

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


*031141 JSA	0,031142
INITIAL
C(AC)=000000 777777 
C(E)=266000 031142 
FINAL
C(AC)=031142 031142 
C(E)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031141 031141 0   0   266000031142 0            000000777777 
IT1	031141 0      0   0   266000031142 0            000000777777 
AT3	031141 0      0   0   000000031142 0            266000031142 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 51
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0208

AT6	031141 031142 0   0   000000031142 0            266000031142 
FT1A	031141 031142 0   0   000000031142 0            000000031142 
FT2	031141 031142 0   0   0            0            000000031142 
FT2RQ	031141 031142 0   0   000000777777 0            000000031142 
FT3	031141 031142 0   0   000000777777 0            000000031142 
FT9	031142 031142 0   0   000000777777 0            000000031142 
ET0	031142 031142 0   0   000000031142 0            000000777777 
ET1	031142 031142 0   0   031142031142 0            000000777777 
ET2	031143 031142 0   0   031142031142 0            000000777777 
ST1	031143 031142 0   0   031142031142 0            000000777777 
ST2	031143 031142 0   0   000000777777 0            000000777777 
ST3	031143 031142 0   0   000000777777 0            000000777777 
ST6	031143 031142 0   0   000000777777 0            000000777777 
ST6A	031143 031142 0   0   000000777777 0            000000777777 
ST9	031143 031142 0   0   000000777777 0            000000777777 


*031143 MOVE 	1,031142
INITIAL
C(AC)=777777 777777 
C(E)=000000 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031143 031143 0   0   200040031142 0            000000777777 
IT1	031143 0      0   0   200040031142 0            000000777777 
AT3	031143 0      0   0   000000031142 0            200040031142 
AT6	031143 031142 0   0   000000031142 0            200040031142 
FT0	031143 031142 0   0   000000777777 0            200040031142 
FT1A	031143 031142 0   0   000000777777 0            000000777777 
FT9	031144 031142 0   0   000000777777 0            000000777777 
ET0	031144 031142 0   0   000000777777 0            000000777777 
ST1	031144 031142 0   0   000000777777 0            000000777777 
ST2	031144 031142 0   0   000000777777 0            000000777777 
ST9	031144 031142 0   0   000000777777 0            000000777777 


*031144 CAIE	1,777777
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031144 031144 0   0   302040777777 0            000000777777 
IT1	031144 0      0   0   302040777777 0            000000777777 
AT3	031144 0      0   0   000000777777 0            302040777777 
AT6	031144 777777 0   0   000000777777 0            302040777777 
FT1A	031144 777777 0   0   000000777777 0            000000777777 
FT2	031144 777777 0   0   0            0            000000777777 
FT2RQ	031144 777777 0   0   000000777777 0            000000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 52
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0209

FT3	031144 777777 0   0   000000777777 0            000000777777 
FT9	031145 777777 0   0   000000777777 0            000000777777 
ET0	031146 777777 0   0   0            0            000000777777 
ST1A	031146 777777 0   0   0            0            000000777777 
ST9	031146 777777 0   0   0            0            000000777777 


*031146 JUMPA	0,031147
INITIAL
C(AC)=031142 031142 
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   031142031142 0            000000031147 
FT3	031146 031147 0   0   031142031142 0            000000031147 
FT9	031147 031147 0   0   031142031142 0            000000031147 
ET0	031147 031147 0   0   031142031142 0            000000031147 
ST1A	031147 031147 0   0   031142031142 0            000000031147 
ST9	031147 031147 0   0   031142031142 0            000000031147 


*031147 SETOM	0,000001
INITIAL
C(AC)=031142 031142 
C(E)=000000 777777 
FINAL

C(E)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031147 031147 0   0   476000000001 0            000000000001 
IT1	031147 0      0   0   476000000001 0            000000000001 
AT3	031147 0      0   0   000000000001 0            476000000001 
AT6	031147 000001 0   0   000000000001 0            476000000001 
FT1A	031147 000001 0   0   000000000001 0            000000000001 
FT9	031150 000001 0   0   000000000001 0            000000000001 
ET0	031150 000001 0   0   777777777777 0            000000000001 
ST6	031150 000001 0   0   777777777777 0            000000000001 
ST6A	031150 000001 0   0   777777777777 0            000000000001 
ST9	031150 000001 0   0   777777777777 0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 53
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0210

*031150 JSA	0,031151
INITIAL
C(AC)=031142 031142 
C(E)=266000 031151 
FINAL
C(AC)=031151 031151 
C(E)=031142 031142 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031150 031150 0   0   266000031151 0            031142031142 
IT1	031150 0      0   0   266000031151 0            031142031142 
AT3	031150 0      0   0   000000031151 0            266000031151 
AT6	031150 031151 0   0   000000031151 0            266000031151 
FT1A	031150 031151 0   0   000000031151 0            000000031151 
FT2	031150 031151 0   0   0            0            000000031151 
FT2RQ	031150 031151 0   0   031142031142 0            000000031151 
FT3	031150 031151 0   0   031142031142 0            000000031151 
FT9	031151 031151 0   0   031142031142 0            000000031151 
ET0	031151 031151 0   0   031142031151 0            031142031142 
ET1	031151 031151 0   0   031151031151 0            031142031142 
ET2	031152 031151 0   0   031151031151 0            031142031142 
ST1	031152 031151 0   0   031151031151 0            031142031142 
ST2	031152 031151 0   0   031142031142 0            031142031142 
ST3	031152 031151 0   0   031142031142 0            031142031142 
ST6	031152 031151 0   0   031142031142 0            031142031142 
ST6A	031152 031151 0   0   031142031142 0            031142031142 
ST9	031152 031151 0   0   031142031142 0            031142031142 


*031152 CAME	1,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031152 031152 0   0   312040033462 0            777777777777 
IT1	031152 0      0   0   312040033462 0            777777777777 
AT3	031152 0      0   0   000000033462 0            312040033462 
AT6	031152 033462 0   0   000000033462 0            312040033462 
FT0	031152 033462 0   0   777777777777 0            312040033462 
FT1A	031152 033462 0   0   777777777777 0            777777777777 
FT2	031152 033462 0   0   0            0            777777777777 
FT2RQ	031152 033462 0   0   777777777777 0            777777777777 
FT3	031152 033462 0   0   777777777777 0            777777777777 
FT9	031153 033462 0   0   777777777777 0            777777777777 
ET0	031154 033462 0   0   0            0            777777777777 
ST1A	031154 033462 0   0   0            0            777777777777 
ST9	031154 033462 0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 54
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0211

*031154 JUMPA	0,031155
INITIAL
C(AC)=031151 031151 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031154 031154 0   0   324000031155 0            000000031155 
IT1	031154 0      0   0   324000031155 0            000000031155 
AT3	031154 0      0   0   000000031155 0            324000031155 
AT6	031154 031155 0   0   000000031155 0            324000031155 
FT1A	031154 031155 0   0   000000031155 0            000000031155 
FT2	031154 031155 0   0   0            0            000000031155 
FT2RQ	031154 031155 0   0   031151031151 0            000000031155 
FT3	031154 031155 0   0   031151031151 0            000000031155 
FT9	031155 031155 0   0   031151031151 0            000000031155 
ET0	031155 031155 0   0   031151031151 0            000000031155 
ST1A	031155 031155 0   0   031151031151 0            000000031155 
ST9	031155 031155 0   0   031151031151 0            000000031155 


*031155 MOVE 	0,033467
INITIAL
C(AC)=031151 031151 
C(E)=254000 031161 
FINAL
C(AC)=254000 031161 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031155 031155 0   0   200000033467 0            254000031161 
IT1	031155 0      0   0   200000033467 0            254000031161 
AT3	031155 0      0   0   000000033467 0            200000033467 
AT6	031155 033467 0   0   000000033467 0            200000033467 
FT0	031155 033467 0   0   254000031161 0            200000033467 
FT1A	031155 033467 0   0   254000031161 0            254000031161 
FT9	031156 033467 0   0   254000031161 0            254000031161 
ET0	031156 033467 0   0   254000031161 0            254000031161 
ST1	031156 033467 0   0   254000031161 0            254000031161 
ST2	031156 033467 0   0   254000031161 0            254000031161 
ST9	031156 033467 0   0   254000031161 0            254000031161 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031156 031156 0   0   205040031160 0            000000031160 
IT1	031156 0      0   0   205040031160 0            000000031160 
AT3	031156 0      0   0   000000031160 0            205040031160 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 55
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0212

AT6	031156 031160 0   0   000000031160 0            205040031160 
FT1A	031156 031160 0   0   000000031160 0            000000031160 
FT9	031157 031160 0   0   000000031160 0            000000031160 
ET0	031157 031160 0   0   031160000000 0            000000031160 
ST1	031157 031160 0   0   031160000000 0            000000031160 
ST2	031157 031160 0   0   031160000000 0            000000031160 
ST9	031157 031160 0   0   031160000000 0            000000031160 


*031157 JRA	1,031160
INITIAL
C(AC)=031160 000000 
C(E)=334000 000000 
FINAL
C(AC)=334000 000000 
C(E)=334000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031157 031157 0   0   267040031160 0            000000031160 
IT1	031157 0      0   0   267040031160 0            000000031160 
AT3	031157 0      0   0   000000031160 0            267040031160 
AT6	031157 031160 0   0   000000031160 0            267040031160 
FT1A	031157 031160 0   0   000000031160 0            000000031160 
FT2	031157 031160 0   0   0            0            000000031160 
FT2RQ	031157 031160 0   0   031160000000 0            000000031160 
FT3	031157 031160 0   0   031160000000 0            000000031160 
FT6	031157 031160 0   0   000000031160 0            000000031160 
FT7	031157 031160 0   0   334000000000 000000031160 000000031160 
FT4RQ	031157 031160 0   0   334000000000 000000031160 000000031160 
FT4A	031157 031160 0   0   000000031160 334000000000 000000031160 
FT9	031160 031160 0   0   000000031160 334000000000 000000031160 
ET0	031160 031160 0   0   000000031160 334000000000 000000031160 
ET1	031160 031160 0   0   334000000000 334000000000 000000031160 
ET2	031160 031160 0   0   334000000000 334000000000 000000031160 
ST1	031160 031160 0   0   334000000000 334000000000 000000031160 
ST2	031160 031160 0   0   334000000000 334000000000 000000031160 
ST9	031160 031160 0   0   334000000000 334000000000 000000031160 


*031160 SKIPA	0,000000
INITIAL
C(AC)=254000 031161 
C(E)=254000 031161 
FINAL
C(AC)=254000 031161 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031160 031160 0   0   334000000000 0            254000031161 
IT1	031160 0      0   0   334000000000 0            254000031161 
AT3	031160 0      0   0   0            0            334000000000 
AT6	031160 0      0   0   0            0            334000000000 
FT0	031160 0      0   0   254000031161 0            334000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 56
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0213

FT1A	031160 0      0   0   254000031161 0            254000031161 
FT9	031161 0      0   0   254000031161 0            254000031161 
ET0	031162 0      0   0   254000031161 0            254000031161 
ST1A	031162 0      0   0   254000031161 0            254000031161 
ST9	031162 0      0   0   254000031161 0            254000031161 


*031162 JUMPA	0,031163
INITIAL
C(AC)=254000 031161 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031162 031162 0   0   324000031163 0            000000031163 
IT1	031162 0      0   0   324000031163 0            000000031163 
AT3	031162 0      0   0   000000031163 0            324000031163 
AT6	031162 031163 0   0   000000031163 0            324000031163 
FT1A	031162 031163 0   0   000000031163 0            000000031163 
FT2	031162 031163 0   0   0            0            000000031163 
FT2RQ	031162 031163 0   0   254000031161 0            000000031163 
FT3	031162 031163 0   0   254000031161 0            000000031163 
FT9	031163 031163 0   0   254000031161 0            000000031163 
ET0	031163 031163 0   0   254000031161 0            000000031163 
ST1A	031163 031163 0   0   254000031161 0            000000031163 
ST9	031163 031163 0   0   254000031161 0            000000031163 


*031163 MOVSI	0,031166
INITIAL
C(AC)=254000 031161 
FINAL
C(AC)=031166 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031163 031163 0   0   205000031166 0            000000031166 
IT1	031163 0      0   0   205000031166 0            000000031166 
AT3	031163 0      0   0   000000031166 0            205000031166 
AT6	031163 031166 0   0   000000031166 0            205000031166 
FT1A	031163 031166 0   0   000000031166 0            000000031166 
FT9	031164 031166 0   0   000000031166 0            000000031166 
ET0	031164 031166 0   0   031166000000 0            000000031166 
ST1	031164 031166 0   0   031166000000 0            000000031166 
ST2	031164 031166 0   0   031166000000 0            000000031166 
ST9	031164 031166 0   0   031166000000 0            000000031166 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 57
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0214

*031164 JRA	0,031165
INITIAL
C(AC)=031166 000000 
C(E)=254200 031167 
FINAL
C(AC)=254200 031167 
C(E)=254200 031167 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031164 031164 0   0   267000031165 0            000000031165 
IT1	031164 0      0   0   267000031165 0            000000031165 
AT3	031164 0      0   0   000000031165 0            267000031165 
AT6	031164 031165 0   0   000000031165 0            267000031165 
FT1A	031164 031165 0   0   000000031165 0            000000031165 
FT2	031164 031165 0   0   0            0            000000031165 
FT2RQ	031164 031165 0   0   031166000000 0            000000031165 
FT3	031164 031165 0   0   031166000000 0            000000031165 
FT6	031164 031165 0   0   000000031166 0            000000031165 
FT7	031164 031166 0   0   254200031167 000000031166 000000031165 
FT4RQ	031164 031166 0   0   254200031167 000000031166 000000031165 
FT4A	031164 031166 0   0   000000031166 254200031167 000000031165 
FT9	031165 031166 0   0   000000031166 254200031167 000000031165 
ET0	031165 031166 0   0   000000031165 254200031167 000000031165 
ET1	031165 031165 0   0   254200031167 254200031167 000000031165 
ET2	031165 031165 0   0   254200031167 254200031167 000000031165 
ST1	031165 031165 0   0   254200031167 254200031167 000000031165 
ST2	031165 031165 0   0   254200031167 254200031167 000000031165 
ST9	031165 031165 0   0   254200031167 254200031167 000000031165 


*031165 SKIPA	0,000000
INITIAL
C(AC)=254200 031167 
C(E)=254200 031167 
FINAL
C(AC)=254200 031167 

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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 58
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0215

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


*031170 SETZB	0,000001
INITIAL
C(AC)=254200 031167 
C(E)=334000 000000 
FINAL
C(AC)=000000 000000 
C(E)=334000 000000 

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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 59
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0216

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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031171 031171 0   0   267000031173 0            000000031173 
IT1	031171 0      0   0   267000031173 0            000000031173 
AT3	031171 0      0   0   000000031173 0            267000031173 
AT6	031171 031173 0   0   000000031173 0            267000031173 
FT1A	031171 031173 0   0   000000031173 0            000000031173 
FT2	031171 031173 0   0   0            0            000000031173 
FT2RQ	031171 031173 0   0   0            0            000000031173 
FT3	031171 031173 0   0   0            0            000000031173 
FT6	031171 031173 0   0   0            0            000000031173 
FT7	031171 0      0   0   0            0            000000031173 
FT4RQ	031171 0      0   0   0            0            000000031173 
FT4A	031171 0      0   0   0            0            000000031173 
FT9	031172 0      0   0   0            0            000000031173 
ET0	031172 0      0   0   000000031173 0            000000031173 
ET1	031172 031173 0   0   0            0            000000031173 
ET2	031173 031173 0   0   0            0            000000031173 
ST1	031173 031173 0   0   0            0            000000031173 
ST2	031173 031173 0   0   0            0            000000031173 
ST9	031173 031173 0   0   0            0            000000031173 


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

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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 60
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0217

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


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


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


*031177 JRA	0,031200
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031177 031177 0   0   267000031200 0            000000031200 
IT1	031177 0      0   0   267000031200 0            000000031200 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 61
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0218

AT3	031177 0      0   0   000000031200 0            267000031200 
AT6	031177 0      0   0   000000031200 0            267000031200 
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 
FT6	031177 0      0   0   0            0            000000031200 
FT7	031177 0      0   0   0            0            000000031200 
FT4RQ	031177 0      0   0   0            0            000000031200 
FT4A	031177 0      0   0   0            0            000000031200 
FT9	0      0      0   0   0            0            000000031200 
ET0	0      0      0   0   000000031200 0            000000031200 
ET1	0      0      0   0   0            0            000000031200 
ET2	0      0      0   0   0            0            000000031200 
ST1	0      0      0   0   0            0            000000031200 
ST2	0      0      0   0   0            0            000000031200 
ST9	0      0      0   0   0            0            000000031200 


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

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


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031202 031202 0   0   324000031203 0            000000031203 
IT1	031202 0      0   0   324000031203 0            000000031203 
AT3	031202 0      0   0   000000031203 0            324000031203 
AT6	031202 031203 0   0   000000031203 0            324000031203 
FT1A	031202 031203 0   0   000000031203 0            000000031203 
FT2	031202 031203 0   0   0            0            000000031203 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 62
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0219

FT2RQ	031202 031203 0   0   0            0            000000031203 
FT3	031202 031203 0   0   0            0            000000031203 
FT9	031203 031203 0   0   0            0            000000031203 
ET0	031203 031203 0   0   0            0            000000031203 
ST1A	031203 031203 0   0   0            0            000000031203 
ST9	031203 031203 0   0   0            0            000000031203 


*031203 MOVE 	0,033470
INITIAL
C(AC)=000000 000000 
C(E)=000001 000002 
FINAL
C(AC)=000001 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031203 031203 0   0   200000033470 0            000001000002 
IT1	031203 0      0   0   200000033470 0            000001000002 
AT3	031203 0      0   0   000000033470 0            200000033470 
AT6	031203 033470 0   0   000000033470 0            200000033470 
FT0	031203 033470 0   0   000001000002 0            200000033470 
FT1A	031203 033470 0   0   000001000002 0            000001000002 
FT9	031204 033470 0   0   000001000002 0            000001000002 
ET0	031204 033470 0   0   000001000002 0            000001000002 
ST1	031204 033470 0   0   000001000002 0            000001000002 
ST2	031204 033470 0   0   000001000002 0            000001000002 
ST9	031204 033470 0   0   000001000002 0            000001000002 


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

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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 63
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0220

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

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


*031206 JRA	0,031207
INITIAL
C(AC)=000001 000002 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 
C(E)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031206 031206 0   0   267000031207 0            000000031207 
IT1	031206 0      0   0   267000031207 0            000000031207 
AT3	031206 0      0   0   000000031207 0            267000031207 
AT6	031206 031207 0   0   000000031207 0            267000031207 
FT1A	031206 031207 0   0   000000031207 0            000000031207 
FT2	031206 031207 0   0   0            0            000000031207 
FT2RQ	031206 031207 0   0   000001000002 0            000000031207 
FT3	031206 031207 0   0   000001000002 0            000000031207 
FT6	031206 031207 0   0   000002000001 0            000000031207 
FT7	031206 000001 0   0   000000000001 000002000001 000000031207 
FT4RQ	031206 000001 0   0   000000000001 000002000001 000000031207 
FT4A	031206 000001 0   0   000002000001 000000000001 000000031207 
FT9	031207 000001 0   0   000002000001 000000000001 000000031207 
ET0	031207 000001 0   0   000000031207 000000000001 000000031207 
ET1	031207 031207 0   0   000000000001 000000000001 000000031207 
ET2	031207 031207 0   0   000000000001 000000000001 000000031207 
ST1	031207 031207 0   0   000000000001 000000000001 000000031207 
ST2	031207 031207 0   0   000000000001 000000000001 000000031207 
ST9	031207 031207 0   0   000000000001 000000000001 000000031207 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 64
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0221

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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031207 031207 0   0   302000000001 0            000000000001 
IT1	031207 0      0   0   302000000001 0            000000000001 
AT3	031207 0      0   0   000000000001 0            302000000001 
AT6	031207 000001 0   0   000000000001 0            302000000001 
FT1A	031207 000001 0   0   000000000001 0            000000000001 
FT2	031207 000001 0   0   0            0            000000000001 
FT2RQ	031207 000001 0   0   000000000001 0            000000000001 
FT3	031207 000001 0   0   000000000001 0            000000000001 
FT9	031210 000001 0   0   000000000001 0            000000000001 
ET0	031211 000001 0   0   0            0            000000000001 
ST1A	031211 000001 0   0   0            0            000000000001 
ST9	031211 000001 0   0   0            0            000000000001 


*031211 JUMPA	0,031212
INITIAL
C(AC)=000000 000001 
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   000000000001 0            000000031212 
FT3	031211 031212 0   0   000000000001 0            000000031212 
FT9	031212 031212 0   0   000000000001 0            000000031212 
ET0	031212 031212 0   0   000000000001 0            000000031212 
ST1A	031212 031212 0   0   000000000001 0            000000031212 
ST9	031212 031212 0   0   000000000001 0            000000031212 


*031212 HRRZI	0,033471
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 033471 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031212 031212 0   0   551000033471 0            000000033471 
IT1	031212 0      0   0   551000033471 0            000000033471 
AT3	031212 0      0   0   000000033471 0            551000033471 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 65
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0222

AT6	031212 033471 0   0   000000033471 0            551000033471 
FT1A	031212 033471 0   0   000000033471 0            000000033471 
FT9	031213 033471 0   0   000000033471 0            000000033471 
ET0	031213 033471 0   0   000000033471 0            000000033471 
ST1	031213 033471 0   0   000000033471 0            000000033471 
ST2	031213 033471 0   0   000000033471 0            000000033471 
ST9	031213 033471 0   0   000000033471 0            000000033471 


*031213 JRA	0,031214
INITIAL
C(AC)=000000 033471 
C(E)=000000 033471 
FINAL
C(AC)=000000 033471 
C(E)=000000 033471 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031213 031213 0   0   267000031214 0            000000031214 
IT1	031213 0      0   0   267000031214 0            000000031214 
AT3	031213 0      0   0   000000031214 0            267000031214 
AT6	031213 031214 0   0   000000031214 0            267000031214 
FT1A	031213 031214 0   0   000000031214 0            000000031214 
FT2	031213 031214 0   0   0            0            000000031214 
FT2RQ	031213 031214 0   0   000000033471 0            000000031214 
FT3	031213 031214 0   0   000000033471 0            000000031214 
FT6	031213 031214 0   0   033471000000 0            000000031214 
FT7	031213 0      0   0   000000033471 033471000000 000000031214 
FT4RQ	031213 0      0   0   000000033471 033471000000 000000031214 
FT4A	031213 0      0   0   033471000000 000000033471 000000031214 
FT9	031214 0      0   0   033471000000 000000033471 000000031214 
ET0	031214 0      0   0   000000031214 000000033471 000000031214 
ET1	031214 031214 0   0   000000033471 000000033471 000000031214 
ET2	031214 031214 0   0   000000033471 000000033471 000000031214 
ST1	031214 031214 0   0   000000033471 000000033471 000000031214 
ST2	031214 031214 0   0   000000033471 000000033471 000000031214 
ST9	031214 031214 0   0   000000033471 000000033471 000000031214 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031214 031214 0   0   302000033471 0            000000033471 
IT1	031214 0      0   0   302000033471 0            000000033471 
AT3	031214 0      0   0   000000033471 0            302000033471 
AT6	031214 033471 0   0   000000033471 0            302000033471 
FT1A	031214 033471 0   0   000000033471 0            000000033471 
FT2	031214 033471 0   0   0            0            000000033471 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 66
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0223

FT2RQ	031214 033471 0   0   000000033471 0            000000033471 
FT3	031214 033471 0   0   000000033471 0            000000033471 
FT9	031215 033471 0   0   000000033471 0            000000033471 
ET0	031216 033471 0   0   0            0            000000033471 
ST1A	031216 033471 0   0   0            0            000000033471 
ST9	031216 033471 0   0   0            0            000000033471 


*031216 JUMPA	0,031217
INITIAL
C(AC)=000000 033471 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031216 031216 0   0   324000031217 0            000000031217 
IT1	031216 0      0   0   324000031217 0            000000031217 
AT3	031216 0      0   0   000000031217 0            324000031217 
AT6	031216 031217 0   0   000000031217 0            324000031217 
FT1A	031216 031217 0   0   000000031217 0            000000031217 
FT2	031216 031217 0   0   0            0            000000031217 
FT2RQ	031216 031217 0   0   000000033471 0            000000031217 
FT3	031216 031217 0   0   000000033471 0            000000031217 
FT9	031217 031217 0   0   000000033471 0            000000031217 
ET0	031217 031217 0   0   000000033471 0            000000031217 
ST1A	031217 031217 0   0   000000033471 0            000000031217 
ST9	031217 031217 0   0   000000033471 0            000000031217 


*031217 HRLZI	0,033472
INITIAL
C(AC)=000000 033471 
FINAL
C(AC)=033472 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031217 031217 0   0   515000033472 0            000000033472 
IT1	031217 0      0   0   515000033472 0            000000033472 
AT3	031217 0      0   0   000000033472 0            515000033472 
AT6	031217 033472 0   0   000000033472 0            515000033472 
FT1A	031217 033472 0   0   000000033472 0            000000033472 
FT9	031220 033472 0   0   000000033472 0            000000033472 
ET0	031220 033472 0   0   033472000000 0            000000033472 
ST1	031220 033472 0   0   033472000000 0            000000033472 
ST2	031220 033472 0   0   033472000000 0            000000033472 
ST9	031220 033472 0   0   033472000000 0            000000033472 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 67
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0224

*031220 JRA	0,031221
INITIAL
C(AC)=033472 000000 
C(E)=135246 246135 
FINAL
C(AC)=135246 246135 
C(E)=135246 246135 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031220 031220 0   0   267000031221 0            000000031221 
IT1	031220 0      0   0   267000031221 0            000000031221 
AT3	031220 0      0   0   000000031221 0            267000031221 
AT6	031220 031221 0   0   000000031221 0            267000031221 
FT1A	031220 031221 0   0   000000031221 0            000000031221 
FT2	031220 031221 0   0   0            0            000000031221 
FT2RQ	031220 031221 0   0   033472000000 0            000000031221 
FT3	031220 031221 0   0   033472000000 0            000000031221 
FT6	031220 031221 0   0   000000033472 0            000000031221 
FT7	031220 033472 0   0   135246246135 000000033472 000000031221 
FT4RQ	031220 033472 0   0   135246246135 000000033472 000000031221 
FT4A	031220 033472 0   0   000000033472 135246246135 000000031221 
FT9	031221 033472 0   0   000000033472 135246246135 000000031221 
ET0	031221 033472 0   0   000000031221 135246246135 000000031221 
ET1	031221 031221 0   0   135246246135 135246246135 000000031221 
ET2	031221 031221 0   0   135246246135 135246246135 000000031221 
ST1	031221 031221 0   0   135246246135 135246246135 000000031221 
ST2	031221 031221 0   0   135246246135 135246246135 000000031221 
ST9	031221 031221 0   0   135246246135 135246246135 000000031221 


*031221 CAME	0,033472
INITIAL
C(AC)=135246 246135 
C(E)=135246 246135 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031221 031221 0   0   312000033472 0            135246246135 
IT1	031221 0      0   0   312000033472 0            135246246135 
AT3	031221 0      0   0   000000033472 0            312000033472 
AT6	031221 033472 0   0   000000033472 0            312000033472 
FT0	031221 033472 0   0   135246246135 0            312000033472 
FT1A	031221 033472 0   0   135246246135 0            135246246135 
FT2	031221 033472 0   0   0            0            135246246135 
FT2RQ	031221 033472 0   0   135246246135 0            135246246135 
FT3	031221 033472 0   0   135246246135 0            135246246135 
FT9	031222 033472 0   0   135246246135 0            135246246135 
ET0	031223 033472 0   0   0            0            135246246135 
ST1A	031223 033472 0   0   0            0            135246246135 
ST9	031223 033472 0   0   0            0            135246246135 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 68
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0225


*031223 JUMPA	0,031224
INITIAL
C(AC)=135246 246135 
FINAL


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


*031224 HRLOI	0,031225
INITIAL
C(AC)=135246 246135 
FINAL
C(AC)=031225 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031224 031224 0   0   525000031225 0            000000031225 
IT1	031224 0      0   0   525000031225 0            000000031225 
AT3	031224 0      0   0   000000031225 0            525000031225 
AT6	031224 031225 0   0   000000031225 0            525000031225 
FT1A	031224 031225 0   0   000000031225 0            000000031225 
FT9	031225 031225 0   0   000000031225 0            000000031225 
ET0	031225 031225 0   0   031225777777 0            000000031225 
ST1	031225 031225 0   0   031225777777 0            000000031225 
ST2	031225 031225 0   0   031225777777 0            000000031225 
ST9	031225 031225 0   0   031225777777 0            000000031225 


*031225 JRA	0,031226
INITIAL
C(AC)=031225 777777 
C(E)=267000 031226 
FINAL
C(AC)=267000 031226 
C(E)=267000 031226 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031225 031225 0   0   267000031226 0            000000031226 
IT1	031225 0      0   0   267000031226 0            000000031226 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 69
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0226

AT3	031225 0      0   0   000000031226 0            267000031226 
AT6	031225 031226 0   0   000000031226 0            267000031226 
FT1A	031225 031226 0   0   000000031226 0            000000031226 
FT2	031225 031226 0   0   0            0            000000031226 
FT2RQ	031225 031226 0   0   031225777777 0            000000031226 
FT3	031225 031226 0   0   031225777777 0            000000031226 
FT6	031225 031226 0   0   777777031225 0            000000031226 
FT7	031225 031225 0   0   267000031226 777777031225 000000031226 
FT4RQ	031225 031225 0   0   267000031226 777777031225 000000031226 
FT4A	031225 031225 0   0   777777031225 267000031226 000000031226 
FT9	031226 031225 0   0   777777031225 267000031226 000000031226 
ET0	031226 031225 0   0   000000031226 267000031226 000000031226 
ET1	031226 031226 0   0   267000031226 267000031226 000000031226 
ET2	031226 031226 0   0   267000031226 267000031226 000000031226 
ST1	031226 031226 0   0   267000031226 267000031226 000000031226 
ST2	031226 031226 0   0   267000031226 267000031226 000000031226 
ST9	031226 031226 0   0   267000031226 267000031226 000000031226 


*031226 CAME	0,031225
INITIAL
C(AC)=267000 031226 
C(E)=267000 031226 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031226 031226 0   0   312000031225 0            267000031226 
IT1	031226 0      0   0   312000031225 0            267000031226 
AT3	031226 0      0   0   000000031225 0            312000031225 
AT6	031226 031225 0   0   000000031225 0            312000031225 
FT0	031226 031225 0   0   267000031226 0            312000031225 
FT1A	031226 031225 0   0   267000031226 0            267000031226 
FT2	031226 031225 0   0   0            0            267000031226 
FT2RQ	031226 031225 0   0   267000031226 0            267000031226 
FT3	031226 031225 0   0   267000031226 0            267000031226 
FT9	031227 031225 0   0   267000031226 0            267000031226 
ET0	031230 031225 0   0   0            0            267000031226 
ST1A	031230 031225 0   0   0            0            267000031226 
ST9	031230 031225 0   0   0            0            267000031226 


*031230 JUMPA	0,031231
INITIAL
C(AC)=267000 031226 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031230 031230 0   0   324000031231 0            000000031231 
IT1	031230 0      0   0   324000031231 0            000000031231 
AT3	031230 0      0   0   000000031231 0            324000031231 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 70
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0227

AT6	031230 031231 0   0   000000031231 0            324000031231 
FT1A	031230 031231 0   0   000000031231 0            000000031231 
FT2	031230 031231 0   0   0            0            000000031231 
FT2RQ	031230 031231 0   0   267000031226 0            000000031231 
FT3	031230 031231 0   0   267000031226 0            000000031231 
FT9	031231 031231 0   0   267000031226 0            000000031231 
ET0	031231 031231 0   0   267000031226 0            000000031231 
ST1A	031231 031231 0   0   267000031226 0            000000031231 
ST9	031231 031231 0   0   267000031226 0            000000031231 


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

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


*031232 JFCL	17,031233
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031232 031232 0   0   255740031233 0            000000031233 
IT1	031232 0      0   0   255740031233 0            000000031233 
AT3	031232 0      0   0   000000031233 0            255740031233 
AT6	031232 031233 0   0   000000031233 0            255740031233 
FT1A	031232 031233 0   0   000000031233 0            000000031233 
FT9	031233 031233 0   0   000000031233 0            000000031233 
ET0	031233 031233 0   0   000000031233 0            000000031233 
ST1A	031233 031233 0   0   000000031233 0            000000031233 
ST9	031233 031233 0   0   000000031233 0            000000031233 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 71
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0228

*031233 JRST	2,031234(1)
INITIAL
C(AC)=000000 000002 
C(E)=205040 000000 
FINAL

C(E)=205040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031233 031233 0   0   254101031234 0            020000031234 
IT1	031233 0      0   0   254101031234 0            020000031234 
AT1	031233 0      0   0   0            0            254101031234 
AT2	031233 0      0   0   020000000000 0            254101031234 
AT3	031233 0      0   0   000000031234 0            020000031234 
AT6	031233 031234 0   0   000000031234 0            020000031234 
FT1A	031233 031234 0   0   000000031234 0            020000031234 
FT9	031234 031234 0   0   000000031234 0            020000031234 
ET0	031234 031234 0   0   000000031234 0            020000031234 
ST1A	031234 031234 0   0   000000031234 0            020000031234 
ST9	031234 031234 0   0   000000031234 0            020000031234 


*031234 MOVSI	1,000000
INITIAL
C(AC)=020000 000000 
FINAL
C(AC)=000000 000000 

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


*031235 JFCL	17,031236
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031235 031235 0   0   255740031236 0            000000031236 
IT1	031235 0      0   0   255740031236 0            000000031236 
AT3	031235 0      0   0   000000031236 0            255740031236 
AT6	031235 031236 0   0   000000031236 0            255740031236 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 72
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0229

FT1A	031235 031236 0   0   000000031236 0            000000031236 
FT9	031236 031236 0   0   000000031236 0            000000031236 
ET0	031236 031236 0   0   000000031236 0            000000031236 
ST1A	031236 031236 0   0   000000031236 0            000000031236 
ST9	031236 031236 0   0   000000031236 0            000000031236 


*031236 JRST	2,031237(1)
INITIAL
C(AC)=000000 000002 
C(E)=265000 031240 
FINAL

C(E)=265000 031240 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031236 031236 0   0   254101031237 0            000000031237 
IT1	031236 0      0   0   254101031237 0            000000031237 
AT1	031236 0      0   0   0            0            254101031237 
AT2	031236 0      0   0   0            0            254101031237 
AT3	031236 0      0   0   000000031237 0            000000031237 
AT6	031236 031237 0   0   000000031237 0            000000031237 
FT1A	031236 031237 0   0   000000031237 0            000000031237 
FT9	031237 031237 0   0   000000031237 0            000000031237 
ET0	031237 031237 0   0   000000031237 0            000000031237 
ST1A	031237 031237 0   0   000000031237 0            000000031237 
ST9	031237 031237 0   0   000000031237 0            000000031237 


*031237 JSP	0,031240
INITIAL
C(AC)=267000 031226 
FINAL
C(AC)=000000 031240 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031237 031237 0   0   265000031240 0            000000031240 
IT1	031237 0      0   0   265000031240 0            000000031240 
AT3	031237 0      0   0   000000031240 0            265000031240 
AT6	031237 031240 0   0   000000031240 0            265000031240 
FT1A	031237 031240 0   0   000000031240 0            000000031240 
FT9	031240 031240 0   0   000000031240 0            000000031240 
ET0	031240 031240 0   0   000000031240 0            000000031240 
ST1	031240 031240 0   0   000000031240 0            000000031240 
ST2	031240 031240 0   0   000000031240 0            000000031240 
ST9	031240 031240 0   0   000000031240 0            000000031240 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 73
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0230

*031240 TLNE	0,020037
INITIAL
C(AC)=000000 031240 
FINAL
C(AC)=000000 031240 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031240 031240 0   0   603000020037 0            0            
IT1	031240 0      0   0   603000020037 0            0            
AT3	031240 0      0   0   000000020037 0            603000020037 
AT6	031240 020037 0   0   000000020037 0            603000020037 
FT1A	031240 020037 0   0   000000020037 0            000000020037 
FT2	031240 020037 0   0   0            0            000000020037 
FT2RQ	031240 020037 0   0   000000031240 0            000000020037 
FT3	031240 020037 0   0   000000031240 0            000000020037 
FT9	031241 020037 0   0   000000031240 0            000000020037 
ET0	031241 020037 0   0   031240000000 0            000000020037 
ET1	031241 020037 0   0   031240000000 0            0            
ET2	031242 020037 0   0   000000031240 0            0            
ST1A	031242 020037 0   0   000000031240 0            0            
ST9	031242 020037 0   0   000000031240 0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031242 031242 0   0   324000031243 0            000000031243 
IT1	031242 0      0   0   324000031243 0            000000031243 
AT3	031242 0      0   0   000000031243 0            324000031243 
AT6	031242 031243 0   0   000000031243 0            324000031243 
FT1A	031242 031243 0   0   000000031243 0            000000031243 
FT2	031242 031243 0   0   0            0            000000031243 
FT2RQ	031242 031243 0   0   000000031240 0            000000031243 
FT3	031242 031243 0   0   000000031240 0            000000031243 
FT9	031243 031243 0   0   000000031240 0            000000031243 
ET0	031243 031243 0   0   000000031240 0            000000031243 
ST1A	031243 031243 0   0   000000031240 0            000000031243 
ST9	031243 031243 0   0   000000031240 0            000000031243 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 74
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0231

*031243 MOVSI	1,020000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=020000 000000 

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


*031244 JFCL	17,031245
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031244 031244 0   0   255740031245 0            000000031245 
IT1	031244 0      0   0   255740031245 0            000000031245 
AT3	031244 0      0   0   000000031245 0            255740031245 
AT6	031244 031245 0   0   000000031245 0            255740031245 
FT1A	031244 031245 0   0   000000031245 0            000000031245 
FT9	031245 031245 0   0   000000031245 0            000000031245 
ET0	031245 031245 0   0   000000031245 0            000000031245 
ST1A	031245 031245 0   0   000000031245 0            000000031245 
ST9	031245 031245 0   0   000000031245 0            000000031245 


*031245 JRST	2,031246(1)
INITIAL
C(AC)=000000 000002 
C(E)=265000 031247 
FINAL

C(E)=265000 031247 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031245 031245 0   0   254101031246 0            020000031246 
IT1	031245 0      0   0   254101031246 0            020000031246 
AT1	031245 0      0   0   0            0            254101031246 
AT2	031245 0      0   0   020000000000 0            254101031246 
AT3	031245 0      0   0   000000031246 0            020000031246 
AT6	031245 031246 0   0   000000031246 0            020000031246 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 75
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0232

FT1A	031245 031246 0   0   000000031246 0            020000031246 
FT9	031246 031246 0   0   000000031246 0            020000031246 
ET0	031246 031246 0   0   000000031246 0            020000031246 
ST1A	031246 031246 0   0   000000031246 0            020000031246 
ST9	031246 031246 0   0   000000031246 0            020000031246 


*031246 JSP	0,031247
INITIAL
C(AC)=000000 031240 
FINAL
C(AC)=020000 031247 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031246 031246 0   0   265000031247 0            000000031247 
IT1	031246 0      0   0   265000031247 0            000000031247 
AT3	031246 0      0   0   000000031247 0            265000031247 
AT6	031246 031247 0   0   000000031247 0            265000031247 
FT1A	031246 031247 0   0   000000031247 0            000000031247 
FT9	031247 031247 0   0   000000031247 0            000000031247 
ET0	031247 031247 0   0   020000031247 0            000000031247 
ST1	031247 031247 0   0   020000031247 0            000000031247 
ST2	031247 031247 0   0   020000031247 0            000000031247 
ST9	031247 031247 0   0   020000031247 0            000000031247 


*031247 TLNN	0,020000
INITIAL
C(AC)=020000 031247 
FINAL
C(AC)=020000 031247 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031247 031247 0   0   607000020000 0            000000020000 
IT1	031247 0      0   0   607000020000 0            000000020000 
AT3	031247 0      0   0   000000020000 0            607000020000 
AT6	031247 0      0   0   000000020000 0            607000020000 
FT1A	031247 0      0   0   000000020000 0            000000020000 
FT2	031247 0      0   0   0            0            000000020000 
FT2RQ	031247 0      0   0   020000031247 0            000000020000 
FT3	031247 0      0   0   020000031247 0            000000020000 
FT9	031250 0      0   0   020000031247 0            000000020000 
ET0	031250 0      0   0   031247020000 0            000000020000 
ET1	031250 0      0   0   031247020000 0            000000020000 
ET2	031251 0      0   0   020000031247 0            000000020000 
ST1A	031251 0      0   0   020000031247 0            000000020000 
ST9	031251 0      0   0   020000031247 0            000000020000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 76
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0233

*031251 JUMPA	0,031252
INITIAL
C(AC)=020000 031247 
FINAL


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


*031252 MOVSI	1,020000
INITIAL
C(AC)=020000 000000 
FINAL
C(AC)=020000 000000 

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


*031253 JFCL	17,031254
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031253 031253 0   0   255740031254 0            000000031254 
IT1	031253 0      0   0   255740031254 0            000000031254 
AT3	031253 0      0   0   000000031254 0            255740031254 
AT6	031253 031254 0   0   000000031254 0            255740031254 
FT1A	031253 031254 0   0   000000031254 0            000000031254 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 77
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0234

FT9	031254 031254 0   0   000000031254 0            000000031254 
ET0	031254 031254 0   0   000000031254 0            000000031254 
ST1A	031254 031254 0   0   000000031254 0            000000031254 
ST9	031254 031254 0   0   000000031254 0            000000031254 


*031254 JRST	2,031255(1)
INITIAL
C(AC)=000000 000002 
C(E)=264000 031256 
FINAL

C(E)=264000 031256 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031254 031254 0   0   254101031255 0            020000031255 
IT1	031254 0      0   0   254101031255 0            020000031255 
AT1	031254 0      0   0   0            0            254101031255 
AT2	031254 0      0   0   020000000000 0            254101031255 
AT3	031254 0      0   0   000000031255 0            020000031255 
AT6	031254 031255 0   0   000000031255 0            020000031255 
FT1A	031254 031255 0   0   000000031255 0            020000031255 
FT9	031255 031255 0   0   000000031255 0            020000031255 
ET0	031255 031255 0   0   000000031255 0            020000031255 
ST1A	031255 031255 0   0   000000031255 0            020000031255 
ST9	031255 031255 0   0   000000031255 0            020000031255 


*031255 JSR	0,031256
INITIAL
C(AC)=020000 031247 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031255 031255 0   0   264000031256 0            000000031256 
IT1	031255 0      0   0   264000031256 0            000000031256 
AT3	031255 0      0   0   000000031256 0            264000031256 
AT6	031255 031256 0   0   000000031256 0            264000031256 
FT1A	031255 031256 0   0   000000031256 0            000000031256 
FT9	031256 031256 0   0   000000031256 0            000000031256 
ET0	031256 031256 0   0   020000031256 0            000000031256 
ET2	031257 031256 0   0   020000031256 0            000000031256 
ST6	031257 031256 0   0   020000031256 0            000000031256 
ST6A	031257 031256 0   0   020000031256 0            000000031256 
ST9	031257 031256 0   0   020000031256 0            000000031256 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 78
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0235

*031257 JSP	0,031260
INITIAL
C(AC)=020000 031247 
FINAL
C(AC)=000000 031260 

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


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031260 031260 0   0   603000020000 0            0            
IT1	031260 0      0   0   603000020000 0            0            
AT3	031260 0      0   0   000000020000 0            603000020000 
AT6	031260 0      0   0   000000020000 0            603000020000 
FT1A	031260 0      0   0   000000020000 0            000000020000 
FT2	031260 0      0   0   0            0            000000020000 
FT2RQ	031260 0      0   0   000000031260 0            000000020000 
FT3	031260 0      0   0   000000031260 0            000000020000 
FT9	031261 0      0   0   000000031260 0            000000020000 
ET0	031261 0      0   0   031260000000 0            000000020000 
ET1	031261 0      0   0   031260000000 0            0            
ET2	031262 0      0   0   000000031260 0            0            
ST1A	031262 0      0   0   000000031260 0            0            
ST9	031262 0      0   0   000000031260 0            0            


*031262 JUMPA	0,031263
INITIAL
C(AC)=000000 031260 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031262 031262 0   0   324000031263 0            000000031263 
IT1	031262 0      0   0   324000031263 0            000000031263 
AT3	031262 0      0   0   000000031263 0            324000031263 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 79
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0236

AT6	031262 031263 0   0   000000031263 0            324000031263 
FT1A	031262 031263 0   0   000000031263 0            000000031263 
FT2	031262 031263 0   0   0            0            000000031263 
FT2RQ	031262 031263 0   0   000000031260 0            000000031263 
FT3	031262 031263 0   0   000000031260 0            000000031263 
FT9	031263 031263 0   0   000000031260 0            000000031263 
ET0	031263 031263 0   0   000000031260 0            000000031263 
ST1A	031263 031263 0   0   000000031260 0            000000031263 
ST9	031263 031263 0   0   000000031260 0            000000031263 


*031263 MOVSI	1,020000
INITIAL
C(AC)=020000 000000 
FINAL
C(AC)=020000 000000 

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


*031264 JFCL	17,031265
INITIAL
C(AC)=000000 000000 
FINAL


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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 80
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0237

*031265 JRST	2,031266(1)
INITIAL
C(AC)=000000 000002 
C(E)=265000 031267 
FINAL

C(E)=265000 031267 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031265 031265 0   0   254101031266 0            020000031266 
IT1	031265 0      0   0   254101031266 0            020000031266 
AT1	031265 0      0   0   0            0            254101031266 
AT2	031265 0      0   0   020000000000 0            254101031266 
AT3	031265 0      0   0   000000031266 0            020000031266 
AT6	031265 031266 0   0   000000031266 0            020000031266 
FT1A	031265 031266 0   0   000000031266 0            020000031266 
FT9	031266 031266 0   0   000000031266 0            020000031266 
ET0	031266 031266 0   0   000000031266 0            020000031266 
ST1A	031266 031266 0   0   000000031266 0            020000031266 
ST9	031266 031266 0   0   000000031266 0            020000031266 


*031266 JSP	0,031267
INITIAL
C(AC)=000000 031260 
FINAL
C(AC)=020000 031267 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031266 031266 0   0   265000031267 0            000000031267 
IT1	031266 0      0   0   265000031267 0            000000031267 
AT3	031266 0      0   0   000000031267 0            265000031267 
AT6	031266 031267 0   0   000000031267 0            265000031267 
FT1A	031266 031267 0   0   000000031267 0            000000031267 
FT9	031267 031267 0   0   000000031267 0            000000031267 
ET0	031267 031267 0   0   020000031267 0            000000031267 
ST1	031267 031267 0   0   020000031267 0            000000031267 
ST2	031267 031267 0   0   020000031267 0            000000031267 
ST9	031267 031267 0   0   020000031267 0            000000031267 


*031267 JSP	0,031270
INITIAL
C(AC)=020000 031267 
FINAL
C(AC)=000000 031270 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031267 031267 0   0   265000031270 0            000000031270 
IT1	031267 0      0   0   265000031270 0            000000031270 
AT3	031267 0      0   0   000000031270 0            265000031270 
AT6	031267 031270 0   0   000000031270 0            265000031270 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 81
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0238

FT1A	031267 031270 0   0   000000031270 0            000000031270 
FT9	031270 031270 0   0   000000031270 0            000000031270 
ET0	031270 031270 0   0   000000031270 0            000000031270 
ST1	031270 031270 0   0   000000031270 0            000000031270 
ST2	031270 031270 0   0   000000031270 0            000000031270 
ST9	031270 031270 0   0   000000031270 0            000000031270 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031270 031270 0   0   603000020000 0            0            
IT1	031270 0      0   0   603000020000 0            0            
AT3	031270 0      0   0   000000020000 0            603000020000 
AT6	031270 0      0   0   000000020000 0            603000020000 
FT1A	031270 0      0   0   000000020000 0            000000020000 
FT2	031270 0      0   0   0            0            000000020000 
FT2RQ	031270 0      0   0   000000031270 0            000000020000 
FT3	031270 0      0   0   000000031270 0            000000020000 
FT9	031271 0      0   0   000000031270 0            000000020000 
ET0	031271 0      0   0   031270000000 0            000000020000 
ET1	031271 0      0   0   031270000000 0            0            
ET2	031272 0      0   0   000000031270 0            0            
ST1A	031272 0      0   0   000000031270 0            0            
ST9	031272 0      0   0   000000031270 0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031272 031272 0   0   324000031273 0            000000031273 
IT1	031272 0      0   0   324000031273 0            000000031273 
AT3	031272 0      0   0   000000031273 0            324000031273 
AT6	031272 031273 0   0   000000031273 0            324000031273 
FT1A	031272 031273 0   0   000000031273 0            000000031273 
FT2	031272 031273 0   0   0            0            000000031273 
FT2RQ	031272 031273 0   0   000000031270 0            000000031273 
FT3	031272 031273 0   0   000000031270 0            000000031273 
FT9	031273 031273 0   0   000000031270 0            000000031273 
ET0	031273 031273 0   0   000000031270 0            000000031273 
ST1A	031273 031273 0   0   000000031270 0            000000031273 
ST9	031273 031273 0   0   000000031270 0            000000031273 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 82
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0239

*031273 MOVSI	1,000000
INITIAL
C(AC)=020000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031273 031273 0   0   205040000000 0            0            
IT1	031273 0      0   0   205040000000 0            0            
AT3	031273 0      0   0   0            0            205040000000 
AT6	031273 0      0   0   0            0            205040000000 
FT1A	031273 0      0   0   0            0            0            
FT9	031274 0      0   0   0            0            0            
ET0	031274 0      0   0   0            0            0            
ST1	031274 0      0   0   0            0            0            
ST2	031274 0      0   0   0            0            0            
ST9	031274 0      0   0   0            0            0            


*031274 JFCL	17,031275
INITIAL
C(AC)=000000 000000 
FINAL


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


*031275 JRST	2,031276(1)
INITIAL
C(AC)=000000 000002 
C(E)=265000 031277 
FINAL

C(E)=265000 031277 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031275 031275 0   0   254101031276 0            000000031276 
IT1	031275 0      0   0   254101031276 0            000000031276 
AT1	031275 0      0   0   0            0            254101031276 
AT2	031275 0      0   0   0            0            254101031276 
AT3	031275 0      0   0   000000031276 0            000000031276 
AT6	031275 031276 0   0   000000031276 0            000000031276 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 83
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0240

FT1A	031275 031276 0   0   000000031276 0            000000031276 
FT9	031276 031276 0   0   000000031276 0            000000031276 
ET0	031276 031276 0   0   000000031276 0            000000031276 
ST1A	031276 031276 0   0   000000031276 0            000000031276 
ST9	031276 031276 0   0   000000031276 0            000000031276 


*031276 JSP	0,031277
INITIAL
C(AC)=000000 031270 
FINAL
C(AC)=000000 031277 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031276 031276 0   0   265000031277 0            000000031277 
IT1	031276 0      0   0   265000031277 0            000000031277 
AT3	031276 0      0   0   000000031277 0            265000031277 
AT6	031276 031277 0   0   000000031277 0            265000031277 
FT1A	031276 031277 0   0   000000031277 0            000000031277 
FT9	031277 031277 0   0   000000031277 0            000000031277 
ET0	031277 031277 0   0   000000031277 0            000000031277 
ST1	031277 031277 0   0   000000031277 0            000000031277 
ST2	031277 031277 0   0   000000031277 0            000000031277 
ST9	031277 031277 0   0   000000031277 0            000000031277 


*031277 TLNE	0,001600
INITIAL
C(AC)=000000 031277 
FINAL
C(AC)=000000 031277 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031277 031277 0   0   603000001600 0            0            
IT1	031277 0      0   0   603000001600 0            0            
AT3	031277 0      0   0   000000001600 0            603000001600 
AT6	031277 0      0   0   000000001600 0            603000001600 
FT1A	031277 0      0   0   000000001600 0            000000001600 
FT2	031277 0      0   0   0            0            000000001600 
FT2RQ	031277 0      0   0   000000031277 0            000000001600 
FT3	031277 0      0   0   000000031277 0            000000001600 
FT9	0      0      0   0   000000031277 0            000000001600 
ET0	0      0      0   0   031277000000 0            000000001600 
ET1	0      0      0   0   031277000000 0            0            
ET2	031301 0      0   0   000000031277 0            0            
ST1A	031301 0      0   0   000000031277 0            0            
ST9	031301 0      0   0   000000031277 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 84
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0241

*031301 JUMPA	0,031302
INITIAL
C(AC)=000000 031277 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031301 031301 0   0   324000031302 0            000000031302 
IT1	031301 0      0   0   324000031302 0            000000031302 
AT3	031301 0      0   0   000000031302 0            324000031302 
AT6	031301 031302 0   0   000000031302 0            324000031302 
FT1A	031301 031302 0   0   000000031302 0            000000031302 
FT2	031301 031302 0   0   0            0            000000031302 
FT2RQ	031301 031302 0   0   000000031277 0            000000031302 
FT3	031301 031302 0   0   000000031277 0            000000031302 
FT9	031302 031302 0   0   000000031277 0            000000031302 
ET0	031302 031302 0   0   000000031277 0            000000031302 
ST1A	031302 031302 0   0   000000031277 0            000000031302 
ST9	031302 031302 0   0   000000031277 0            000000031302 


*031302 MOVE 	0,033473
INITIAL
C(AC)=000000 031277 
C(E)=252525 252525 
FINAL
C(AC)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031302 031302 0   0   200000033473 0            252525252525 
IT1	031302 0      0   0   200000033473 0            252525252525 
AT3	031302 0      0   0   000000033473 0            200000033473 
AT6	031302 033473 0   0   000000033473 0            200000033473 
FT0	031302 033473 0   0   252525252525 0            200000033473 
FT1A	031302 033473 0   0   252525252525 0            252525252525 
FT9	031303 033473 0   0   252525252525 0            252525252525 
ET0	031303 033473 0   0   252525252525 0            252525252525 
ST1	031303 033473 0   0   252525252525 0            252525252525 
ST2	031303 033473 0   0   252525252525 0            252525252525 
ST9	031303 033473 0   0   252525252525 0            252525252525 


*031303 MOVE 	1,033474
INITIAL
C(AC)=000000 000000 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031303 031303 0   0   200040033474 0            707070707070 
IT1	031303 0      0   0   200040033474 0            707070707070 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 85
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0242

AT3	031303 0      0   0   000000033474 0            200040033474 
AT6	031303 033474 0   0   000000033474 0            200040033474 
FT0	031303 033474 0   0   707070707070 0            200040033474 
FT1A	031303 033474 0   0   707070707070 0            707070707070 
FT9	031304 033474 0   0   707070707070 0            707070707070 
ET0	031304 033474 0   0   707070707070 0            707070707070 
ST1	031304 033474 0   0   707070707070 0            707070707070 
ST2	031304 033474 0   0   707070707070 0            707070707070 
ST9	031304 033474 0   0   707070707070 0            707070707070 


*031304 MOVEM	0,000001
INITIAL
C(AC)=252525 252525 
C(E)=707070 707070 
FINAL

C(E)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031304 031304 0   0   202000000001 0            000000000001 
IT1	031304 0      0   0   202000000001 0            000000000001 
AT3	031304 0      0   0   000000000001 0            202000000001 
AT6	031304 000001 0   0   000000000001 0            202000000001 
FT1A	031304 000001 0   0   000000000001 0            000000000001 
FT2	031304 000001 0   0   0            0            000000000001 
FT2RQ	031304 000001 0   0   252525252525 0            000000000001 
FT3	031304 000001 0   0   252525252525 0            000000000001 
FT9	031305 000001 0   0   252525252525 0            000000000001 
ET0	031305 000001 0   0   252525252525 0            000000000001 
ST6	031305 000001 0   0   252525252525 0            000000000001 
ST6A	031305 000001 0   0   252525252525 0            000000000001 
ST9	031305 000001 0   0   252525252525 0            000000000001 


*031305 CAME	0,033473
INITIAL
C(AC)=252525 252525 
C(E)=252525 252525 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031305 031305 0   0   312000033473 0            252525252525 
IT1	031305 0      0   0   312000033473 0            252525252525 
AT3	031305 0      0   0   000000033473 0            312000033473 
AT6	031305 033473 0   0   000000033473 0            312000033473 
FT0	031305 033473 0   0   252525252525 0            312000033473 
FT1A	031305 033473 0   0   252525252525 0            252525252525 
FT2	031305 033473 0   0   0            0            252525252525 
FT2RQ	031305 033473 0   0   252525252525 0            252525252525 
FT3	031305 033473 0   0   252525252525 0            252525252525 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 86
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0243

FT9	031306 033473 0   0   252525252525 0            252525252525 
ET0	031307 033473 0   0   0            0            252525252525 
ST1A	031307 033473 0   0   0            0            252525252525 
ST9	031307 033473 0   0   0            0            252525252525 


*031307 JUMPA	0,031310
INITIAL
C(AC)=252525 252525 
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   252525252525 0            000000031310 
FT3	031307 031310 0   0   252525252525 0            000000031310 
FT9	031310 031310 0   0   252525252525 0            000000031310 
ET0	031310 031310 0   0   252525252525 0            000000031310 
ST1A	031310 031310 0   0   252525252525 0            000000031310 
ST9	031310 031310 0   0   252525252525 0            000000031310 


*031310 CAME	1,033473
INITIAL
C(AC)=252525 252525 
C(E)=252525 252525 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031310 031310 0   0   312040033473 0            252525252525 
IT1	031310 0      0   0   312040033473 0            252525252525 
AT3	031310 0      0   0   000000033473 0            312040033473 
AT6	031310 033473 0   0   000000033473 0            312040033473 
FT0	031310 033473 0   0   252525252525 0            312040033473 
FT1A	031310 033473 0   0   252525252525 0            252525252525 
FT2	031310 033473 0   0   0            0            252525252525 
FT2RQ	031310 033473 0   0   252525252525 0            252525252525 
FT3	031310 033473 0   0   252525252525 0            252525252525 
FT9	031311 033473 0   0   252525252525 0            252525252525 
ET0	031312 033473 0   0   0            0            252525252525 
ST1A	031312 033473 0   0   0            0            252525252525 
ST9	031312 033473 0   0   0            0            252525252525 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 87
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0244

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


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


*031313 MOVE 	2,033474
INITIAL
C(AC)=000000 000002 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031313 031313 0   0   200100033474 0            707070707070 
IT1	031313 0      0   0   200100033474 0            707070707070 
AT3	031313 0      0   0   000000033474 0            200100033474 
AT6	031313 033474 0   0   000000033474 0            200100033474 
FT0	031313 033474 0   0   707070707070 0            200100033474 
FT1A	031313 033474 0   0   707070707070 0            707070707070 
FT9	031314 033474 0   0   707070707070 0            707070707070 
ET0	031314 033474 0   0   707070707070 0            707070707070 
ST1	031314 033474 0   0   707070707070 0            707070707070 
ST2	031314 033474 0   0   707070707070 0            707070707070 
ST9	031314 033474 0   0   707070707070 0            707070707070 


*031314 MOVE 	1,033475
INITIAL
C(AC)=252525 252525 
C(E)=123456 123456 
FINAL
C(AC)=123456 123456 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031314 031314 0   0   200040033475 0            123456123456 
IT1	031314 0      0   0   200040033475 0            123456123456 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 88
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0245

AT3	031314 0      0   0   000000033475 0            200040033475 
AT6	031314 033475 0   0   000000033475 0            200040033475 
FT0	031314 033475 0   0   123456123456 0            200040033475 
FT1A	031314 033475 0   0   123456123456 0            123456123456 
FT9	031315 033475 0   0   123456123456 0            123456123456 
ET0	031315 033475 0   0   123456123456 0            123456123456 
ST1	031315 033475 0   0   123456123456 0            123456123456 
ST2	031315 033475 0   0   123456123456 0            123456123456 
ST9	031315 033475 0   0   123456123456 0            123456123456 


*031315 MOVES	2,000001
INITIAL
C(AC)=707070 707070 
C(E)=123456 123456 
FINAL
C(AC)=123456 123456 
C(E)=123456 123456 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031315 031315 0   0   203100000001 0            123456123456 
IT1	031315 0      0   0   203100000001 0            123456123456 
AT3	031315 0      0   0   000000000001 0            203100000001 
AT6	031315 000001 0   0   000000000001 0            203100000001 
FT0	031315 000001 0   0   123456123456 0            203100000001 
FT1A	031315 000001 0   0   123456123456 0            123456123456 
FT9	031316 000001 0   0   123456123456 0            123456123456 
ET0	031316 000001 0   0   123456123456 0            123456123456 
ST1	031316 000001 0   0   123456123456 0            123456123456 
ST2	031316 000001 0   0   123456123456 0            123456123456 
ST5	031316 000001 0   0   123456123456 0            123456123456 
ST6A	031316 000001 0   0   123456123456 0            123456123456 
ST9	031316 000001 0   0   123456123456 0            123456123456 


*031316 CAME	2,033475
INITIAL
C(AC)=123456 123456 
C(E)=123456 123456 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031316 031316 0   0   312100033475 0            123456123456 
IT1	031316 0      0   0   312100033475 0            123456123456 
AT3	031316 0      0   0   000000033475 0            312100033475 
AT6	031316 033475 0   0   000000033475 0            312100033475 
FT0	031316 033475 0   0   123456123456 0            312100033475 
FT1A	031316 033475 0   0   123456123456 0            123456123456 
FT2	031316 033475 0   0   0            0            123456123456 
FT2RQ	031316 033475 0   0   123456123456 0            123456123456 
FT3	031316 033475 0   0   123456123456 0            123456123456 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 89
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0246

FT9	031317 033475 0   0   123456123456 0            123456123456 
ET0	031320 033475 0   0   0            0            123456123456 
ST1A	031320 033475 0   0   0            0            123456123456 
ST9	031320 033475 0   0   0            0            123456123456 


*031320 JUMPA	0,031321
INITIAL
C(AC)=252525 252525 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031320 031320 0   0   324000031321 0            000000031321 
IT1	031320 0      0   0   324000031321 0            000000031321 
AT3	031320 0      0   0   000000031321 0            324000031321 
AT6	031320 031321 0   0   000000031321 0            324000031321 
FT1A	031320 031321 0   0   000000031321 0            000000031321 
FT2	031320 031321 0   0   0            0            000000031321 
FT2RQ	031320 031321 0   0   252525252525 0            000000031321 
FT3	031320 031321 0   0   252525252525 0            000000031321 
FT9	031321 031321 0   0   252525252525 0            000000031321 
ET0	031321 031321 0   0   252525252525 0            000000031321 
ST1A	031321 031321 0   0   252525252525 0            000000031321 
ST9	031321 031321 0   0   252525252525 0            000000031321 


*031321 CAME	1,033475
INITIAL
C(AC)=123456 123456 
C(E)=123456 123456 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031321 031321 0   0   312040033475 0            123456123456 
IT1	031321 0      0   0   312040033475 0            123456123456 
AT3	031321 0      0   0   000000033475 0            312040033475 
AT6	031321 033475 0   0   000000033475 0            312040033475 
FT0	031321 033475 0   0   123456123456 0            312040033475 
FT1A	031321 033475 0   0   123456123456 0            123456123456 
FT2	031321 033475 0   0   0            0            123456123456 
FT2RQ	031321 033475 0   0   123456123456 0            123456123456 
FT3	031321 033475 0   0   123456123456 0            123456123456 
FT9	031322 033475 0   0   123456123456 0            123456123456 
ET0	031323 033475 0   0   0            0            123456123456 
ST1A	031323 033475 0   0   0            0            123456123456 
ST9	031323 033475 0   0   0            0            123456123456 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 90
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0247

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


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


*031324 MOVE 	1,033474
INITIAL
C(AC)=123456 123456 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031324 031324 0   0   200040033474 0            707070707070 
IT1	031324 0      0   0   200040033474 0            707070707070 
AT3	031324 0      0   0   000000033474 0            200040033474 
AT6	031324 033474 0   0   000000033474 0            200040033474 
FT0	031324 033474 0   0   707070707070 0            200040033474 
FT1A	031324 033474 0   0   707070707070 0            707070707070 
FT9	031325 033474 0   0   707070707070 0            707070707070 
ET0	031325 033474 0   0   707070707070 0            707070707070 
ST1	031325 033474 0   0   707070707070 0            707070707070 
ST2	031325 033474 0   0   707070707070 0            707070707070 
ST9	031325 033474 0   0   707070707070 0            707070707070 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031325 031325 0   0   474000000000 0            0            
IT1	031325 0      0   0   474000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 91
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0248

AT3	031325 0      0   0   0            0            474000000000 
AT6	031325 0      0   0   0            0            474000000000 
FT1A	031325 0      0   0   0            0            0            
FT9	031326 0      0   0   0            0            0            
ET0	031326 0      0   0   777777777777 0            0            
ST1	031326 0      0   0   777777777777 0            0            
ST2	031326 0      0   0   777777777777 0            0            
ST9	031326 0      0   0   777777777777 0            0            


*031326 MOVES	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=707070 707070 
FINAL
C(AC)=777777 777777 
C(E)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031326 031326 0   0   203000000001 0            707070707070 
IT1	031326 0      0   0   203000000001 0            707070707070 
AT3	031326 0      0   0   000000000001 0            203000000001 
AT6	031326 000001 0   0   000000000001 0            203000000001 
FT0	031326 000001 0   0   707070707070 0            203000000001 
FT1A	031326 000001 0   0   707070707070 0            707070707070 
FT9	031327 000001 0   0   707070707070 0            707070707070 
ET0	031327 000001 0   0   707070707070 0            707070707070 
ST5	031327 000001 0   0   707070707070 0            707070707070 
ST6A	031327 000001 0   0   707070707070 0            707070707070 
ST9	031327 000001 0   0   707070707070 0            707070707070 


*031327 CAME	0,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031327 031327 0   0   312000033462 0            777777777777 
IT1	031327 0      0   0   312000033462 0            777777777777 
AT3	031327 0      0   0   000000033462 0            312000033462 
AT6	031327 033462 0   0   000000033462 0            312000033462 
FT0	031327 033462 0   0   777777777777 0            312000033462 
FT1A	031327 033462 0   0   777777777777 0            777777777777 
FT2	031327 033462 0   0   0            0            777777777777 
FT2RQ	031327 033462 0   0   777777777777 0            777777777777 
FT3	031327 033462 0   0   777777777777 0            777777777777 
FT9	031330 033462 0   0   777777777777 0            777777777777 
ET0	031331 033462 0   0   0            0            777777777777 
ST1A	031331 033462 0   0   0            0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 92
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0249

ST9	031331 033462 0   0   0            0            777777777777 


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


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


*031332 CAME	1,033474
INITIAL
C(AC)=707070 707070 
C(E)=707070 707070 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031332 031332 0   0   312040033474 0            707070707070 
IT1	031332 0      0   0   312040033474 0            707070707070 
AT3	031332 0      0   0   000000033474 0            312040033474 
AT6	031332 033474 0   0   000000033474 0            312040033474 
FT0	031332 033474 0   0   707070707070 0            312040033474 
FT1A	031332 033474 0   0   707070707070 0            707070707070 
FT2	031332 033474 0   0   0            0            707070707070 
FT2RQ	031332 033474 0   0   707070707070 0            707070707070 
FT3	031332 033474 0   0   707070707070 0            707070707070 
FT9	031333 033474 0   0   707070707070 0            707070707070 
ET0	031334 033474 0   0   0            0            707070707070 
ST1A	031334 033474 0   0   0            0            707070707070 
ST9	031334 033474 0   0   0            0            707070707070 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 93
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0250

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


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


*031335 MOVE 	1,033474
INITIAL
C(AC)=707070 707070 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031335 031335 0   0   200040033474 0            707070707070 
IT1	031335 0      0   0   200040033474 0            707070707070 
AT3	031335 0      0   0   000000033474 0            200040033474 
AT6	031335 033474 0   0   000000033474 0            200040033474 
FT0	031335 033474 0   0   707070707070 0            200040033474 
FT1A	031335 033474 0   0   707070707070 0            707070707070 
FT9	031336 033474 0   0   707070707070 0            707070707070 
ET0	031336 033474 0   0   707070707070 0            707070707070 
ST1	031336 033474 0   0   707070707070 0            707070707070 
ST2	031336 033474 0   0   707070707070 0            707070707070 
ST9	031336 033474 0   0   707070707070 0            707070707070 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031336 031336 0   0   205040777777 0            000000777777 
IT1	031336 0      0   0   205040777777 0            000000777777 
AT3	031336 0      0   0   000000777777 0            205040777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 94
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0251

AT6	031336 777777 0   0   000000777777 0            205040777777 
FT1A	031336 777777 0   0   000000777777 0            000000777777 
FT9	031337 777777 0   0   000000777777 0            000000777777 
ET0	031337 777777 0   0   777777000000 0            000000777777 
ST1	031337 777777 0   0   777777000000 0            000000777777 
ST2	031337 777777 0   0   777777000000 0            000000777777 
ST9	031337 777777 0   0   777777000000 0            000000777777 


*031337 CAME	1,033476
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031337 031337 0   0   312040033476 0            777777000000 
IT1	031337 0      0   0   312040033476 0            777777000000 
AT3	031337 0      0   0   000000033476 0            312040033476 
AT6	031337 033476 0   0   000000033476 0            312040033476 
FT0	031337 033476 0   0   777777000000 0            312040033476 
FT1A	031337 033476 0   0   777777000000 0            777777000000 
FT2	031337 033476 0   0   0            0            777777000000 
FT2RQ	031337 033476 0   0   777777000000 0            777777000000 
FT3	031337 033476 0   0   777777000000 0            777777000000 
FT9	031340 033476 0   0   777777000000 0            777777000000 
ET0	031341 033476 0   0   0            0            777777000000 
ST1A	031341 033476 0   0   0            0            777777000000 
ST9	031341 033476 0   0   0            0            777777000000 


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


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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 95
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0252


*031342 SETO 	1,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

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


*031343 MOVE 	2,033477
INITIAL
C(AC)=123456 123456 
C(E)=777777 777775 
FINAL
C(AC)=777777 777775 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031343 031343 0   0   200100033477 0            777777777775 
IT1	031343 0      0   0   200100033477 0            777777777775 
AT3	031343 0      0   0   000000033477 0            200100033477 
AT6	031343 033477 0   0   000000033477 0            200100033477 
FT0	031343 033477 0   0   777777777775 0            200100033477 
FT1A	031343 033477 0   0   777777777775 0            777777777775 
FT9	031344 033477 0   0   777777777775 0            777777777775 
ET0	031344 033477 0   0   777777777775 0            777777777775 
ST1	031344 033477 0   0   777777777775 0            777777777775 
ST2	031344 033477 0   0   777777777775 0            777777777775 
ST9	031344 033477 0   0   777777777775 0            777777777775 


*031344 MOVNM	1,000002
INITIAL
C(AC)=777777 777777 
C(E)=777777 777775 
FINAL

C(E)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031344 031344 0   0   212040000002 0            000000000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 96
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0253

IT1	031344 0      0   0   212040000002 0            000000000002 
AT3	031344 0      0   0   000000000002 0            212040000002 
AT6	031344 000002 0   0   000000000002 0            212040000002 
FT1A	031344 000002 0   0   000000000002 0            000000000002 
FT2	031344 000002 0   0   0            0            000000000002 
FT2RQ	031344 000002 0   0   777777777777 0            000000000002 
FT3	031344 000002 0   0   777777777777 0            000000000002 
FT9	031345 000002 0   0   777777777777 0            000000000002 
ET0	031345 000002 0   0   000000000001 0            000000000002 
ST6	031345 000002 0   0   000000000001 0            000000000002 
ST6A	031345 000002 0   0   000000000001 0            000000000002 
ST9	031345 000002 0   0   000000000001 0            000000000002 


*031345 CAME	1,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031345 031345 0   0   312040033462 0            777777777777 
IT1	031345 0      0   0   312040033462 0            777777777777 
AT3	031345 0      0   0   000000033462 0            312040033462 
AT6	031345 033462 0   0   000000033462 0            312040033462 
FT0	031345 033462 0   0   777777777777 0            312040033462 
FT1A	031345 033462 0   0   777777777777 0            777777777777 
FT2	031345 033462 0   0   0            0            777777777777 
FT2RQ	031345 033462 0   0   777777777777 0            777777777777 
FT3	031345 033462 0   0   777777777777 0            777777777777 
FT9	031346 033462 0   0   777777777777 0            777777777777 
ET0	031347 033462 0   0   0            0            777777777777 
ST1A	031347 033462 0   0   0            0            777777777777 
ST9	031347 033462 0   0   0            0            777777777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031347 031347 0   0   324000031350 0            000000031350 
IT1	031347 0      0   0   324000031350 0            000000031350 
AT3	031347 0      0   0   000000031350 0            324000031350 
AT6	031347 031350 0   0   000000031350 0            324000031350 
FT1A	031347 031350 0   0   000000031350 0            000000031350 
FT2	031347 031350 0   0   0            0            000000031350 
FT2RQ	031347 031350 0   0   777777777777 0            000000031350 
FT3	031347 031350 0   0   777777777777 0            000000031350 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 97
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0254

FT9	031350 031350 0   0   777777777777 0            000000031350 
ET0	031350 031350 0   0   777777777777 0            000000031350 
ST1A	031350 031350 0   0   777777777777 0            000000031350 
ST9	031350 031350 0   0   777777777777 0            000000031350 


*031350 CAIE	2,000001
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031350 031350 0   0   302100000001 0            000000000001 
IT1	031350 0      0   0   302100000001 0            000000000001 
AT3	031350 0      0   0   000000000001 0            302100000001 
AT6	031350 000001 0   0   000000000001 0            302100000001 
FT1A	031350 000001 0   0   000000000001 0            000000000001 
FT2	031350 000001 0   0   0            0            000000000001 
FT2RQ	031350 000001 0   0   000000000001 0            000000000001 
FT3	031350 000001 0   0   000000000001 0            000000000001 
FT9	031351 000001 0   0   000000000001 0            000000000001 
ET0	031352 000001 0   0   0            0            000000000001 
ST1A	031352 000001 0   0   0            0            000000000001 
ST9	031352 000001 0   0   0            0            000000000001 


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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 98
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0255

*031353 SETO 	1,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

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


*031354 MOVE 	2,033477
INITIAL
C(AC)=000000 000001 
C(E)=777777 777775 
FINAL
C(AC)=777777 777775 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031354 031354 0   0   200100033477 0            777777777775 
IT1	031354 0      0   0   200100033477 0            777777777775 
AT3	031354 0      0   0   000000033477 0            200100033477 
AT6	031354 033477 0   0   000000033477 0            200100033477 
FT0	031354 033477 0   0   777777777775 0            200100033477 
FT1A	031354 033477 0   0   777777777775 0            777777777775 
FT9	031355 033477 0   0   777777777775 0            777777777775 
ET0	031355 033477 0   0   777777777775 0            777777777775 
ST1	031355 033477 0   0   777777777775 0            777777777775 
ST2	031355 033477 0   0   777777777775 0            777777777775 
ST9	031355 033477 0   0   777777777775 0            777777777775 


*031355 MOVEM	2,031367
INITIAL
C(AC)=777777 777775 
C(E)=000000 000000 
FINAL

C(E)=777777 777775 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031355 031355 0   0   202100031367 0            000000031367 
IT1	031355 0      0   0   202100031367 0            000000031367 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 99
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0256

AT3	031355 0      0   0   000000031367 0            202100031367 
AT6	031355 031367 0   0   000000031367 0            202100031367 
FT1A	031355 031367 0   0   000000031367 0            000000031367 
FT2	031355 031367 0   0   0            0            000000031367 
FT2RQ	031355 031367 0   0   777777777775 0            000000031367 
FT3	031355 031367 0   0   777777777775 0            000000031367 
FT9	031356 031367 0   0   777777777775 0            000000031367 
ET0	031356 031367 0   0   777777777775 0            000000031367 
ST6	031356 031367 0   0   777777777775 0            000000031367 
ST6A	031356 031367 0   0   777777777775 0            000000031367 
ST9	031356 031367 0   0   777777777775 0            000000031367 


*031356 MOVNM	1,031367
INITIAL
C(AC)=777777 777777 
C(E)=777777 777775 
FINAL

C(E)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031356 031356 0   0   212040031367 0            000000031367 
IT1	031356 0      0   0   212040031367 0            000000031367 
AT3	031356 0      0   0   000000031367 0            212040031367 
AT6	031356 031367 0   0   000000031367 0            212040031367 
FT1A	031356 031367 0   0   000000031367 0            000000031367 
FT2	031356 031367 0   0   0            0            000000031367 
FT2RQ	031356 031367 0   0   777777777777 0            000000031367 
FT3	031356 031367 0   0   777777777777 0            000000031367 
FT9	031357 031367 0   0   777777777777 0            000000031367 
ET0	031357 031367 0   0   000000000001 0            000000031367 
ST6	031357 031367 0   0   000000000001 0            000000031367 
ST6A	031357 031367 0   0   000000000001 0            000000031367 
ST9	031357 031367 0   0   000000000001 0            000000031367 


*031357 CAME	1,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031357 031357 0   0   312040033462 0            777777777777 
IT1	031357 0      0   0   312040033462 0            777777777777 
AT3	031357 0      0   0   000000033462 0            312040033462 
AT6	031357 033462 0   0   000000033462 0            312040033462 
FT0	031357 033462 0   0   777777777777 0            312040033462 
FT1A	031357 033462 0   0   777777777777 0            777777777777 
FT2	031357 033462 0   0   0            0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 100
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0257

FT2RQ	031357 033462 0   0   777777777777 0            777777777777 
FT3	031357 033462 0   0   777777777777 0            777777777777 
FT9	031360 033462 0   0   777777777777 0            777777777777 
ET0	031361 033462 0   0   0            0            777777777777 
ST1A	031361 033462 0   0   0            0            777777777777 
ST9	031361 033462 0   0   0            0            777777777777 


*031361 JUMPA	0,031362
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031361 031361 0   0   324000031362 0            000000031362 
IT1	031361 0      0   0   324000031362 0            000000031362 
AT3	031361 0      0   0   000000031362 0            324000031362 
AT6	031361 031362 0   0   000000031362 0            324000031362 
FT1A	031361 031362 0   0   000000031362 0            000000031362 
FT2	031361 031362 0   0   0            0            000000031362 
FT2RQ	031361 031362 0   0   777777777777 0            000000031362 
FT3	031361 031362 0   0   777777777777 0            000000031362 
FT9	031362 031362 0   0   777777777777 0            000000031362 
ET0	031362 031362 0   0   777777777777 0            000000031362 
ST1A	031362 031362 0   0   777777777777 0            000000031362 
ST9	031362 031362 0   0   777777777777 0            000000031362 


*031362 MOVE 	2,031367
INITIAL
C(AC)=777777 777775 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031362 031362 0   0   200100031367 0            000000000001 
IT1	031362 0      0   0   200100031367 0            000000000001 
AT3	031362 0      0   0   000000031367 0            200100031367 
AT6	031362 031367 0   0   000000031367 0            200100031367 
FT0	031362 031367 0   0   000000000001 0            200100031367 
FT1A	031362 031367 0   0   000000000001 0            000000000001 
FT9	031363 031367 0   0   000000000001 0            000000000001 
ET0	031363 031367 0   0   000000000001 0            000000000001 
ST1	031363 031367 0   0   000000000001 0            000000000001 
ST2	031363 031367 0   0   000000000001 0            000000000001 
ST9	031363 031367 0   0   000000000001 0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 101
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0258

*031363 CAIE	2,000001
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031363 031363 0   0   302100000001 0            000000000001 
IT1	031363 0      0   0   302100000001 0            000000000001 
AT3	031363 0      0   0   000000000001 0            302100000001 
AT6	031363 000001 0   0   000000000001 0            302100000001 
FT1A	031363 000001 0   0   000000000001 0            000000000001 
FT2	031363 000001 0   0   0            0            000000000001 
FT2RQ	031363 000001 0   0   000000000001 0            000000000001 
FT3	031363 000001 0   0   000000000001 0            000000000001 
FT9	031364 000001 0   0   000000000001 0            000000000001 
ET0	031365 000001 0   0   0            0            000000000001 
ST1A	031365 000001 0   0   0            0            000000000001 
ST9	031365 000001 0   0   0            0            000000000001 


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


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


*031366 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	031366 031366 0   0   334000000000 0            777777777777 
IT1	031366 0      0   0   334000000000 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 102
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0259

AT3	031366 0      0   0   0            0            334000000000 
AT6	031366 0      0   0   0            0            334000000000 
FT0	031366 0      0   0   777777777777 0            334000000000 
FT1A	031366 0      0   0   777777777777 0            777777777777 
FT9	031367 0      0   0   777777777777 0            777777777777 
ET0	031370 0      0   0   777777777777 0            777777777777 
ST1A	031370 0      0   0   777777777777 0            777777777777 
ST9	031370 0      0   0   777777777777 0            777777777777 


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


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

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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 103
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0260

*031372 MOVNS	0,000002
INITIAL
C(AC)=000000 000000 
C(E)=000000 000001 
FINAL
C(AC)=000000 000000 
C(E)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031372 031372 0   0   213000000002 0            000000000001 
IT1	031372 0      0   0   213000000002 0            000000000001 
AT3	031372 0      0   0   000000000002 0            213000000002 
AT6	031372 000002 0   0   000000000002 0            213000000002 
FT0	031372 000002 0   0   000000000001 0            213000000002 
FT1A	031372 000002 0   0   000000000001 0            000000000001 
FT9	031373 000002 0   0   000000000001 0            000000000001 
ET0	031373 000002 0   0   777777777777 0            000000000001 
ST5	031373 000002 0   0   777777777777 0            000000000001 
ST6A	031373 000002 0   0   777777777777 0            000000000001 
ST9	031373 000002 0   0   777777777777 0            000000000001 


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

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


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031375 031375 0   0   324000031376 0            000000031376 
IT1	031375 0      0   0   324000031376 0            000000031376 
AT3	031375 0      0   0   000000031376 0            324000031376 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 104
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0261

AT6	031375 031376 0   0   000000031376 0            324000031376 
FT1A	031375 031376 0   0   000000031376 0            000000031376 
FT2	031375 031376 0   0   0            0            000000031376 
FT2RQ	031375 031376 0   0   0            0            000000031376 
FT3	031375 031376 0   0   0            0            000000031376 
FT9	031376 031376 0   0   0            0            000000031376 
ET0	031376 031376 0   0   0            0            000000031376 
ST1A	031376 031376 0   0   0            0            000000031376 
ST9	031376 031376 0   0   0            0            000000031376 


*031376 CAME	2,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031376 031376 0   0   312100033462 0            777777777777 
IT1	031376 0      0   0   312100033462 0            777777777777 
AT3	031376 0      0   0   000000033462 0            312100033462 
AT6	031376 033462 0   0   000000033462 0            312100033462 
FT0	031376 033462 0   0   777777777777 0            312100033462 
FT1A	031376 033462 0   0   777777777777 0            777777777777 
FT2	031376 033462 0   0   0            0            777777777777 
FT2RQ	031376 033462 0   0   777777777777 0            777777777777 
FT3	031376 033462 0   0   777777777777 0            777777777777 
FT9	031377 033462 0   0   777777777777 0            777777777777 
ET0	0      033462 0   0   0            0            777777777777 
ST1A	0      033462 0   0   0            0            777777777777 
ST9	0      033462 0   0   0            0            777777777777 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000031401 0            000000031401 
IT1	0      0      0   0   324000031401 0            000000031401 
AT3	0      0      0   0   000000031401 0            324000031401 
AT6	0      031401 0   0   000000031401 0            324000031401 
FT1A	0      031401 0   0   000000031401 0            000000031401 
FT2	0      031401 0   0   0            0            000000031401 
FT2RQ	0      031401 0   0   0            0            000000031401 
FT3	0      031401 0   0   0            0            000000031401 
FT9	031401 031401 0   0   0            0            000000031401 
ET0	031401 031401 0   0   0            0            000000031401 
ST1A	031401 031401 0   0   0            0            000000031401 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 105
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0262

ST9	031401 031401 0   0   0            0            000000031401 


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


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

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


*031403 MOVEM	2,031415
INITIAL
C(AC)=000000 000001 
C(E)=000000 000000 
FINAL

C(E)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031403 031403 0   0   202100031415 0            000000031415 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 106
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0263

IT1	031403 0      0   0   202100031415 0            000000031415 
AT3	031403 0      0   0   000000031415 0            202100031415 
AT6	031403 031415 0   0   000000031415 0            202100031415 
FT1A	031403 031415 0   0   000000031415 0            000000031415 
FT2	031403 031415 0   0   0            0            000000031415 
FT2RQ	031403 031415 0   0   000000000001 0            000000031415 
FT3	031403 031415 0   0   000000000001 0            000000031415 
FT9	031404 031415 0   0   000000000001 0            000000031415 
ET0	031404 031415 0   0   000000000001 0            000000031415 
ST6	031404 031415 0   0   000000000001 0            000000031415 
ST6A	031404 031415 0   0   000000000001 0            000000031415 
ST9	031404 031415 0   0   000000000001 0            000000031415 


*031404 MOVNS	0,031415
INITIAL
C(AC)=000000 000000 
C(E)=000000 000001 
FINAL
C(AC)=000000 000000 
C(E)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031404 031404 0   0   213000031415 0            000000000001 
IT1	031404 0      0   0   213000031415 0            000000000001 
AT3	031404 0      0   0   000000031415 0            213000031415 
AT6	031404 031415 0   0   000000031415 0            213000031415 
FT0	031404 031415 0   0   000000000001 0            213000031415 
FT1A	031404 031415 0   0   000000000001 0            000000000001 
FT9	031405 031415 0   0   000000000001 0            000000000001 
ET0	031405 031415 0   0   777777777777 0            000000000001 
ST5	031405 031415 0   0   777777777777 0            000000000001 
ST6A	031405 031415 0   0   777777777777 0            000000000001 
ST9	031405 031415 0   0   777777777777 0            000000000001 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031405 031405 0   0   332000000000 0            0            
IT1	031405 0      0   0   332000000000 0            0            
AT3	031405 0      0   0   0            0            332000000000 
AT6	031405 0      0   0   0            0            332000000000 
FT0	031405 0      0   0   0            0            332000000000 
FT1A	031405 0      0   0   0            0            0            
FT9	031406 0      0   0   0            0            0            
ET0	031407 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 107
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0264

ST1A	031407 0      0   0   0            0            0            
ST9	031407 0      0   0   0            0            0            


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031407 031407 0   0   324000031410 0            000000031410 
IT1	031407 0      0   0   324000031410 0            000000031410 
AT3	031407 0      0   0   000000031410 0            324000031410 
AT6	031407 031410 0   0   000000031410 0            324000031410 
FT1A	031407 031410 0   0   000000031410 0            000000031410 
FT2	031407 031410 0   0   0            0            000000031410 
FT2RQ	031407 031410 0   0   0            0            000000031410 
FT3	031407 031410 0   0   0            0            000000031410 
FT9	031410 031410 0   0   0            0            000000031410 
ET0	031410 031410 0   0   0            0            000000031410 
ST1A	031410 031410 0   0   0            0            000000031410 
ST9	031410 031410 0   0   0            0            000000031410 


*031410 MOVE 	2,031415
INITIAL
C(AC)=000000 000001 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031410 031410 0   0   200100031415 0            777777777777 
IT1	031410 0      0   0   200100031415 0            777777777777 
AT3	031410 0      0   0   000000031415 0            200100031415 
AT6	031410 031415 0   0   000000031415 0            200100031415 
FT0	031410 031415 0   0   777777777777 0            200100031415 
FT1A	031410 031415 0   0   777777777777 0            777777777777 
FT9	031411 031415 0   0   777777777777 0            777777777777 
ET0	031411 031415 0   0   777777777777 0            777777777777 
ST1	031411 031415 0   0   777777777777 0            777777777777 
ST2	031411 031415 0   0   777777777777 0            777777777777 
ST9	031411 031415 0   0   777777777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 108
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0265

*031411 CAME	2,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031411 031411 0   0   312100033462 0            777777777777 
IT1	031411 0      0   0   312100033462 0            777777777777 
AT3	031411 0      0   0   000000033462 0            312100033462 
AT6	031411 033462 0   0   000000033462 0            312100033462 
FT0	031411 033462 0   0   777777777777 0            312100033462 
FT1A	031411 033462 0   0   777777777777 0            777777777777 
FT2	031411 033462 0   0   0            0            777777777777 
FT2RQ	031411 033462 0   0   777777777777 0            777777777777 
FT3	031411 033462 0   0   777777777777 0            777777777777 
FT9	031412 033462 0   0   777777777777 0            777777777777 
ET0	031413 033462 0   0   0            0            777777777777 
ST1A	031413 033462 0   0   0            0            777777777777 
ST9	031413 033462 0   0   0            0            777777777777 


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


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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 109
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0266

*031414 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	031414 031414 0   0   334000000000 0            0            
IT1	031414 0      0   0   334000000000 0            0            
AT3	031414 0      0   0   0            0            334000000000 
AT6	031414 0      0   0   0            0            334000000000 
FT0	031414 0      0   0   0            0            334000000000 
FT1A	031414 0      0   0   0            0            0            
FT9	031415 0      0   0   0            0            0            
ET0	031416 0      0   0   0            0            0            
ST1A	031416 0      0   0   0            0            0            
ST9	031416 0      0   0   0            0            0            


*031416 SETZ 	1,000000
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

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


*031417 MOVEI	2,000003
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031417 031417 0   0   201100000003 0            000000000003 
IT1	031417 0      0   0   201100000003 0            000000000003 
AT3	031417 0      0   0   000000000003 0            201100000003 
AT6	031417 000003 0   0   000000000003 0            201100000003 
FT1A	031417 000003 0   0   000000000003 0            000000000003 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 110
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0267

FT9	031420 000003 0   0   000000000003 0            000000000003 
ET0	031420 000003 0   0   000000000003 0            000000000003 
ST1	031420 000003 0   0   000000000003 0            000000000003 
ST2	031420 000003 0   0   000000000003 0            000000000003 
ST9	031420 000003 0   0   000000000003 0            000000000003 


*031420 MOVNS	1,000002
INITIAL
C(AC)=000000 000000 
C(E)=000000 000003 
FINAL
C(AC)=777777 777775 
C(E)=000000 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031420 031420 0   0   213040000002 0            000000000003 
IT1	031420 0      0   0   213040000002 0            000000000003 
AT3	031420 0      0   0   000000000002 0            213040000002 
AT6	031420 000002 0   0   000000000002 0            213040000002 
FT0	031420 000002 0   0   000000000003 0            213040000002 
FT1A	031420 000002 0   0   000000000003 0            000000000003 
FT9	031421 000002 0   0   000000000003 0            000000000003 
ET0	031421 000002 0   0   777777777775 0            000000000003 
ST1	031421 000002 0   0   777777777775 0            000000000003 
ST2	031421 000002 0   0   777777777775 0            000000000003 
ST5	031421 000002 0   0   777777777775 0            000000000003 
ST6A	031421 000002 0   0   777777777775 0            000000000003 
ST9	031421 000002 0   0   777777777775 0            000000000003 


*031421 CAME	1,033477
INITIAL
C(AC)=777777 777775 
C(E)=777777 777775 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031421 031421 0   0   312040033477 0            777777777775 
IT1	031421 0      0   0   312040033477 0            777777777775 
AT3	031421 0      0   0   000000033477 0            312040033477 
AT6	031421 033477 0   0   000000033477 0            312040033477 
FT0	031421 033477 0   0   777777777775 0            312040033477 
FT1A	031421 033477 0   0   777777777775 0            777777777775 
FT2	031421 033477 0   0   0            0            777777777775 
FT2RQ	031421 033477 0   0   777777777775 0            777777777775 
FT3	031421 033477 0   0   777777777775 0            777777777775 
FT9	031422 033477 0   0   777777777775 0            777777777775 
ET0	031423 033477 0   0   0            0            777777777775 
ST1A	031423 033477 0   0   0            0            777777777775 
ST9	031423 033477 0   0   0            0            777777777775 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 111
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0268



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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031423 031423 0   0   324000031424 0            000000031424 
IT1	031423 0      0   0   324000031424 0            000000031424 
AT3	031423 0      0   0   000000031424 0            324000031424 
AT6	031423 031424 0   0   000000031424 0            324000031424 
FT1A	031423 031424 0   0   000000031424 0            000000031424 
FT2	031423 031424 0   0   0            0            000000031424 
FT2RQ	031423 031424 0   0   0            0            000000031424 
FT3	031423 031424 0   0   0            0            000000031424 
FT9	031424 031424 0   0   0            0            000000031424 
ET0	031424 031424 0   0   0            0            000000031424 
ST1A	031424 031424 0   0   0            0            000000031424 
ST9	031424 031424 0   0   0            0            000000031424 


*031424 CAME	2,033477
INITIAL
C(AC)=777777 777775 
C(E)=777777 777775 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031424 031424 0   0   312100033477 0            777777777775 
IT1	031424 0      0   0   312100033477 0            777777777775 
AT3	031424 0      0   0   000000033477 0            312100033477 
AT6	031424 033477 0   0   000000033477 0            312100033477 
FT0	031424 033477 0   0   777777777775 0            312100033477 
FT1A	031424 033477 0   0   777777777775 0            777777777775 
FT2	031424 033477 0   0   0            0            777777777775 
FT2RQ	031424 033477 0   0   777777777775 0            777777777775 
FT3	031424 033477 0   0   777777777775 0            777777777775 
FT9	031425 033477 0   0   777777777775 0            777777777775 
ET0	031426 033477 0   0   0            0            777777777775 
ST1A	031426 033477 0   0   0            0            777777777775 
ST9	031426 033477 0   0   0            0            777777777775 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 112
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0269

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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031426 031426 0   0   324000031427 0            000000031427 
IT1	031426 0      0   0   324000031427 0            000000031427 
AT3	031426 0      0   0   000000031427 0            324000031427 
AT6	031426 031427 0   0   000000031427 0            324000031427 
FT1A	031426 031427 0   0   000000031427 0            000000031427 
FT2	031426 031427 0   0   0            0            000000031427 
FT2RQ	031426 031427 0   0   0            0            000000031427 
FT3	031426 031427 0   0   0            0            000000031427 
FT9	031427 031427 0   0   0            0            000000031427 
ET0	031427 031427 0   0   0            0            000000031427 
ST1A	031427 031427 0   0   0            0            000000031427 
ST9	031427 031427 0   0   0            0            000000031427 


*031427 SETZ 	1,000000
INITIAL
C(AC)=777777 777775 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

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


*031430 MOVMI	1,777776
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031430 031430 0   0   215040777776 0            000000777776 
IT1	031430 0      0   0   215040777776 0            000000777776 
AT3	031430 0      0   0   000000777776 0            215040777776 
AT6	031430 777776 0   0   000000777776 0            215040777776 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 113
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0270

FT1A	031430 777776 0   0   000000777776 0            000000777776 
FT9	031431 777776 0   0   000000777776 0            000000777776 
ET0	031431 777776 0   0   000000777776 0            000000777776 
ST1	031431 777776 0   0   000000777776 0            000000777776 
ST2	031431 777776 0   0   000000777776 0            000000777776 
ST9	031431 777776 0   0   000000777776 0            000000777776 


*031431 CAIE	1,777776
INITIAL
C(AC)=000000 777776 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031431 031431 0   0   302040777776 0            000000777776 
IT1	031431 0      0   0   302040777776 0            000000777776 
AT3	031431 0      0   0   000000777776 0            302040777776 
AT6	031431 777776 0   0   000000777776 0            302040777776 
FT1A	031431 777776 0   0   000000777776 0            000000777776 
FT2	031431 777776 0   0   0            0            000000777776 
FT2RQ	031431 777776 0   0   000000777776 0            000000777776 
FT3	031431 777776 0   0   000000777776 0            000000777776 
FT9	031432 777776 0   0   000000777776 0            000000777776 
ET0	031433 777776 0   0   0            0            000000777776 
ST1A	031433 777776 0   0   0            0            000000777776 
ST9	031433 777776 0   0   0            0            000000777776 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031433 031433 0   0   324000031434 0            000000031434 
IT1	031433 0      0   0   324000031434 0            000000031434 
AT3	031433 0      0   0   000000031434 0            324000031434 
AT6	031433 031434 0   0   000000031434 0            324000031434 
FT1A	031433 031434 0   0   000000031434 0            000000031434 
FT2	031433 031434 0   0   0            0            000000031434 
FT2RQ	031433 031434 0   0   0            0            000000031434 
FT3	031433 031434 0   0   0            0            000000031434 
FT9	031434 031434 0   0   0            0            000000031434 
ET0	031434 031434 0   0   0            0            000000031434 
ST1A	031434 031434 0   0   0            0            000000031434 
ST9	031434 031434 0   0   0            0            000000031434 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 114
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0271

*031434 SETZ 	1,000000
INITIAL
C(AC)=000000 777776 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

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


*031435 MOVE 	3,033500
INITIAL
C(AC)=000000 000000 
C(E)=777777 777776 
FINAL
C(AC)=777777 777776 

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


*031436 MOVM 	1,000003
INITIAL
C(AC)=000000 000000 
C(E)=777777 777776 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031436 031436 0   0   214040000003 0            777777777776 
IT1	031436 0      0   0   214040000003 0            777777777776 
AT3	031436 0      0   0   000000000003 0            214040000003 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 115
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0272

AT6	031436 000003 0   0   000000000003 0            214040000003 
FT0	031436 000003 0   0   777777777776 0            214040000003 
FT1A	031436 000003 0   0   777777777776 0            777777777776 
FT9	031437 000003 0   0   777777777776 0            777777777776 
ET0	031437 000003 0   0   000000000002 0            777777777776 
ST1	031437 000003 0   0   000000000002 0            777777777776 
ST2	031437 000003 0   0   000000000002 0            777777777776 
ST9	031437 000003 0   0   000000000002 0            777777777776 


*031437 CAIE	1,000002
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031437 031437 0   0   302040000002 0            000000000002 
IT1	031437 0      0   0   302040000002 0            000000000002 
AT3	031437 0      0   0   000000000002 0            302040000002 
AT6	031437 000002 0   0   000000000002 0            302040000002 
FT1A	031437 000002 0   0   000000000002 0            000000000002 
FT2	031437 000002 0   0   0            0            000000000002 
FT2RQ	031437 000002 0   0   000000000002 0            000000000002 
FT3	031437 000002 0   0   000000000002 0            000000000002 
FT9	031440 000002 0   0   000000000002 0            000000000002 
ET0	031441 000002 0   0   0            0            000000000002 
ST1A	031441 000002 0   0   0            0            000000000002 
ST9	031441 000002 0   0   0            0            000000000002 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031441 031441 0   0   324000031442 0            000000031442 
IT1	031441 0      0   0   324000031442 0            000000031442 
AT3	031441 0      0   0   000000031442 0            324000031442 
AT6	031441 031442 0   0   000000031442 0            324000031442 
FT1A	031441 031442 0   0   000000031442 0            000000031442 
FT2	031441 031442 0   0   0            0            000000031442 
FT2RQ	031441 031442 0   0   0            0            000000031442 
FT3	031441 031442 0   0   0            0            000000031442 
FT9	031442 031442 0   0   0            0            000000031442 
ET0	031442 031442 0   0   0            0            000000031442 
ST1A	031442 031442 0   0   0            0            000000031442 
ST9	031442 031442 0   0   0            0            000000031442 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 116
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0273

*031442 MOVE 	1,033500
INITIAL
C(AC)=000000 000002 
C(E)=777777 777776 
FINAL
C(AC)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031442 031442 0   0   200040033500 0            777777777776 
IT1	031442 0      0   0   200040033500 0            777777777776 
AT3	031442 0      0   0   000000033500 0            200040033500 
AT6	031442 0      0   0   000000033500 0            200040033500 
FT0	031442 0      0   0   777777777776 0            200040033500 
FT1A	031442 0      0   0   777777777776 0            777777777776 
FT9	031443 0      0   0   777777777776 0            777777777776 
ET0	031443 0      0   0   777777777776 0            777777777776 
ST1	031443 0      0   0   777777777776 0            777777777776 
ST2	031443 0      0   0   777777777776 0            777777777776 
ST9	031443 0      0   0   777777777776 0            777777777776 


*031443 SETZ 	2,000000
INITIAL
C(AC)=777777 777775 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

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


*031444 MOVMM	1,000002
INITIAL
C(AC)=777777 777776 
C(E)=000000 000000 
FINAL

C(E)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031444 031444 0   0   216040000002 0            000000000002 
IT1	031444 0      0   0   216040000002 0            000000000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 117
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0274

AT3	031444 0      0   0   000000000002 0            216040000002 
AT6	031444 000002 0   0   000000000002 0            216040000002 
FT1A	031444 000002 0   0   000000000002 0            000000000002 
FT2	031444 000002 0   0   0            0            000000000002 
FT2RQ	031444 000002 0   0   777777777776 0            000000000002 
FT3	031444 000002 0   0   777777777776 0            000000000002 
FT9	031445 000002 0   0   777777777776 0            000000000002 
ET0	031445 000002 0   0   000000000002 0            000000000002 
ST6	031445 000002 0   0   000000000002 0            000000000002 
ST6A	031445 000002 0   0   000000000002 0            000000000002 
ST9	031445 000002 0   0   000000000002 0            000000000002 


*031445 CAME	1,033500
INITIAL
C(AC)=777777 777776 
C(E)=777777 777776 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031445 031445 0   0   312040033500 0            777777777776 
IT1	031445 0      0   0   312040033500 0            777777777776 
AT3	031445 0      0   0   000000033500 0            312040033500 
AT6	031445 0      0   0   000000033500 0            312040033500 
FT0	031445 0      0   0   777777777776 0            312040033500 
FT1A	031445 0      0   0   777777777776 0            777777777776 
FT2	031445 0      0   0   0            0            777777777776 
FT2RQ	031445 0      0   0   777777777776 0            777777777776 
FT3	031445 0      0   0   777777777776 0            777777777776 
FT9	031446 0      0   0   777777777776 0            777777777776 
ET0	031447 0      0   0   0            0            777777777776 
ST1A	031447 0      0   0   0            0            777777777776 
ST9	031447 0      0   0   0            0            777777777776 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031447 031447 0   0   324000031450 0            000000031450 
IT1	031447 0      0   0   324000031450 0            000000031450 
AT3	031447 0      0   0   000000031450 0            324000031450 
AT6	031447 031450 0   0   000000031450 0            324000031450 
FT1A	031447 031450 0   0   000000031450 0            000000031450 
FT2	031447 031450 0   0   0            0            000000031450 
FT2RQ	031447 031450 0   0   0            0            000000031450 
FT3	031447 031450 0   0   0            0            000000031450 
FT9	031450 031450 0   0   0            0            000000031450 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 118
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0275

ET0	031450 031450 0   0   0            0            000000031450 
ST1A	031450 031450 0   0   0            0            000000031450 
ST9	031450 031450 0   0   0            0            000000031450 


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


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


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031452 031452 0   0   324000031453 0            000000031453 
IT1	031452 0      0   0   324000031453 0            000000031453 
AT3	031452 0      0   0   000000031453 0            324000031453 
AT6	031452 031453 0   0   000000031453 0            324000031453 
FT1A	031452 031453 0   0   000000031453 0            000000031453 
FT2	031452 031453 0   0   0            0            000000031453 
FT2RQ	031452 031453 0   0   0            0            000000031453 
FT3	031452 031453 0   0   0            0            000000031453 
FT9	031453 031453 0   0   0            0            000000031453 
ET0	031453 031453 0   0   0            0            000000031453 
ST1A	031453 031453 0   0   0            0            000000031453 
ST9	031453 031453 0   0   0            0            000000031453 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 119
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0276

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


*031454 MOVE 	2,033500
INITIAL
C(AC)=000000 000002 
C(E)=777777 777776 
FINAL
C(AC)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031454 031454 0   0   200100033500 0            777777777776 
IT1	031454 0      0   0   200100033500 0            777777777776 
AT3	031454 0      0   0   000000033500 0            200100033500 
AT6	031454 0      0   0   000000033500 0            200100033500 
FT0	031454 0      0   0   777777777776 0            200100033500 
FT1A	031454 0      0   0   777777777776 0            777777777776 
FT9	031455 0      0   0   777777777776 0            777777777776 
ET0	031455 0      0   0   777777777776 0            777777777776 
ST1	031455 0      0   0   777777777776 0            777777777776 
ST2	031455 0      0   0   777777777776 0            777777777776 
ST9	031455 0      0   0   777777777776 0            777777777776 


*031455 MOVMS	0,000002
INITIAL
C(AC)=000000 000000 
C(E)=777777 777776 
FINAL
C(AC)=000000 000000 
C(E)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031455 031455 0   0   217000000002 0            777777777776 
IT1	031455 0      0   0   217000000002 0            777777777776 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 120
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0277

AT3	031455 0      0   0   000000000002 0            217000000002 
AT6	031455 000002 0   0   000000000002 0            217000000002 
FT0	031455 000002 0   0   777777777776 0            217000000002 
FT1A	031455 000002 0   0   777777777776 0            777777777776 
FT9	031456 000002 0   0   777777777776 0            777777777776 
ET0	031456 000002 0   0   000000000002 0            777777777776 
ST5	031456 000002 0   0   000000000002 0            777777777776 
ST6A	031456 000002 0   0   000000000002 0            777777777776 
ST9	031456 000002 0   0   000000000002 0            777777777776 


*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 
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 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 121
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0278

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


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


*031463 JUMPA	0,031464
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031463 031463 0   0   324000031464 0            000000031464 
IT1	031463 0      0   0   324000031464 0            000000031464 
AT3	031463 0      0   0   000000031464 0            324000031464 
AT6	031463 031464 0   0   000000031464 0            324000031464 
FT1A	031463 031464 0   0   000000031464 0            000000031464 
FT2	031463 031464 0   0   0            0            000000031464 
FT2RQ	031463 031464 0   0   0            0            000000031464 
FT3	031463 031464 0   0   0            0            000000031464 
FT9	031464 031464 0   0   0            0            000000031464 
ET0	031464 031464 0   0   0            0            000000031464 
ST1A	031464 031464 0   0   0            0            000000031464 
ST9	031464 031464 0   0   0            0            000000031464 


*031464 SETO 	1,000000
INITIAL
C(AC)=777777 777776 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031464 031464 0   0   474040000000 0            0            
IT1	031464 0      0   0   474040000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 122
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0279

AT3	031464 0      0   0   0            0            474040000000 
AT6	031464 0      0   0   0            0            474040000000 
FT1A	031464 0      0   0   0            0            0            
FT9	031465 0      0   0   0            0            0            
ET0	031465 0      0   0   777777777777 0            0            
ST1	031465 0      0   0   777777777777 0            0            
ST2	031465 0      0   0   777777777777 0            0            
ST9	031465 0      0   0   777777777777 0            0            


*031465 MOVE 	2,033500
INITIAL
C(AC)=000000 000002 
C(E)=777777 777776 
FINAL
C(AC)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031465 031465 0   0   200100033500 0            777777777776 
IT1	031465 0      0   0   200100033500 0            777777777776 
AT3	031465 0      0   0   000000033500 0            200100033500 
AT6	031465 0      0   0   000000033500 0            200100033500 
FT0	031465 0      0   0   777777777776 0            200100033500 
FT1A	031465 0      0   0   777777777776 0            777777777776 
FT9	031466 0      0   0   777777777776 0            777777777776 
ET0	031466 0      0   0   777777777776 0            777777777776 
ST1	031466 0      0   0   777777777776 0            777777777776 
ST2	031466 0      0   0   777777777776 0            777777777776 
ST9	031466 0      0   0   777777777776 0            777777777776 


*031466 MOVMS	1,000002
INITIAL
C(AC)=777777 777777 
C(E)=777777 777776 
FINAL
C(AC)=000000 000002 
C(E)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031466 031466 0   0   217040000002 0            777777777776 
IT1	031466 0      0   0   217040000002 0            777777777776 
AT3	031466 0      0   0   000000000002 0            217040000002 
AT6	031466 000002 0   0   000000000002 0            217040000002 
FT0	031466 000002 0   0   777777777776 0            217040000002 
FT1A	031466 000002 0   0   777777777776 0            777777777776 
FT9	031467 000002 0   0   777777777776 0            777777777776 
ET0	031467 000002 0   0   000000000002 0            777777777776 
ST1	031467 000002 0   0   000000000002 0            777777777776 
ST2	031467 000002 0   0   000000000002 0            777777777776 
ST5	031467 000002 0   0   000000000002 0            777777777776 
ST6A	031467 000002 0   0   000000000002 0            777777777776 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 123
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0280

ST9	031467 000002 0   0   000000000002 0            777777777776 


*031467 CAIE	1,000002
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031467 031467 0   0   302040000002 0            000000000002 
IT1	031467 0      0   0   302040000002 0            000000000002 
AT3	031467 0      0   0   000000000002 0            302040000002 
AT6	031467 000002 0   0   000000000002 0            302040000002 
FT1A	031467 000002 0   0   000000000002 0            000000000002 
FT2	031467 000002 0   0   0            0            000000000002 
FT2RQ	031467 000002 0   0   000000000002 0            000000000002 
FT3	031467 000002 0   0   000000000002 0            000000000002 
FT9	031470 000002 0   0   000000000002 0            000000000002 
ET0	031471 000002 0   0   0            0            000000000002 
ST1A	031471 000002 0   0   0            0            000000000002 
ST9	031471 000002 0   0   0            0            000000000002 


*031471 JUMPA	0,031472
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031471 031471 0   0   324000031472 0            000000031472 
IT1	031471 0      0   0   324000031472 0            000000031472 
AT3	031471 0      0   0   000000031472 0            324000031472 
AT6	031471 031472 0   0   000000031472 0            324000031472 
FT1A	031471 031472 0   0   000000031472 0            000000031472 
FT2	031471 031472 0   0   0            0            000000031472 
FT2RQ	031471 031472 0   0   0            0            000000031472 
FT3	031471 031472 0   0   0            0            000000031472 
FT9	031472 031472 0   0   0            0            000000031472 
ET0	031472 031472 0   0   0            0            000000031472 
ST1A	031472 031472 0   0   0            0            000000031472 
ST9	031472 031472 0   0   0            0            000000031472 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 124
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0281

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


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


*031474 JUMPA	0,031475
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031474 031474 0   0   324000031475 0            000000031475 
IT1	031474 0      0   0   324000031475 0            000000031475 
AT3	031474 0      0   0   000000031475 0            324000031475 
AT6	031474 031475 0   0   000000031475 0            324000031475 
FT1A	031474 031475 0   0   000000031475 0            000000031475 
FT2	031474 031475 0   0   0            0            000000031475 
FT2RQ	031474 031475 0   0   0            0            000000031475 
FT3	031474 031475 0   0   0            0            000000031475 
FT9	031475 031475 0   0   0            0            000000031475 
ET0	031475 031475 0   0   0            0            000000031475 
ST1A	031475 031475 0   0   0            0            000000031475 
ST9	031475 031475 0   0   0            0            000000031475 


*031475 MOVEI	1,000070
INITIAL
C(AC)=000000 000002 
FINAL
C(AC)=000000 000070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031475 031475 0   0   201040000070 0            000000000070 
IT1	031475 0      0   0   201040000070 0            000000000070 
AT3	031475 0      0   0   000000000070 0            201040000070 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 125
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0282

AT6	031475 000070 0   0   000000000070 0            201040000070 
FT1A	031475 000070 0   0   000000000070 0            000000000070 
FT9	031476 000070 0   0   000000000070 0            000000000070 
ET0	031476 000070 0   0   000000000070 0            000000000070 
ST1	031476 000070 0   0   000000000070 0            000000000070 
ST2	031476 000070 0   0   000000000070 0            000000000070 
ST9	031476 000070 0   0   000000000070 0            000000000070 


*031476 SUBI	1,000002
INITIAL
C(AC)=000000 000070 
FINAL
C(AC)=000000 000066 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031476 031476 0   0   275040000002 0            000000000002 
IT1	031476 0      0   0   275040000002 0            000000000002 
AT3	031476 0      0   0   000000000002 0            275040000002 
AT6	031476 000002 0   0   000000000002 0            275040000002 
FT1A	031476 000002 0   0   000000000002 0            000000000002 
FT2	031476 000002 0   0   0            0            000000000002 
FT2RQ	031476 000002 0   0   000000000070 0            000000000002 
FT3	031476 000002 0   0   000000000070 0            000000000002 
FT9	031477 000002 0   0   000000000070 0            000000000002 
ET0	031477 000002 0   0   000000000066 0            000000000002 
ST1	031477 000002 0   0   000000000066 0            000000000002 
ST2	031477 000002 0   0   000000000066 0            000000000002 
ST9	031477 000002 0   0   000000000066 0            000000000002 


*031477 CAIE	1,000066
INITIAL
C(AC)=000000 000066 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031477 031477 0   0   302040000066 0            000000000066 
IT1	031477 0      0   0   302040000066 0            000000000066 
AT3	031477 0      0   0   000000000066 0            302040000066 
AT6	031477 000066 0   0   000000000066 0            302040000066 
FT1A	031477 000066 0   0   000000000066 0            000000000066 
FT2	031477 000066 0   0   0            0            000000000066 
FT2RQ	031477 000066 0   0   000000000066 0            000000000066 
FT3	031477 000066 0   0   000000000066 0            000000000066 
FT9	0      000066 0   0   000000000066 0            000000000066 
ET0	031501 000066 0   0   0            0            000000000066 
ST1A	031501 000066 0   0   0            0            000000000066 
ST9	031501 000066 0   0   0            0            000000000066 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 126
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0283

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


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


*031502 MOVEI	1,000100
INITIAL
C(AC)=000000 000066 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031502 031502 0   0   201040000100 0            000000000100 
IT1	031502 0      0   0   201040000100 0            000000000100 
AT3	031502 0      0   0   000000000100 0            201040000100 
AT6	031502 0      0   0   000000000100 0            201040000100 
FT1A	031502 0      0   0   000000000100 0            000000000100 
FT9	031503 0      0   0   000000000100 0            000000000100 
ET0	031503 0      0   0   000000000100 0            000000000100 
ST1	031503 0      0   0   000000000100 0            000000000100 
ST2	031503 0      0   0   000000000100 0            000000000100 
ST9	031503 0      0   0   000000000100 0            000000000100 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031503 031503 0   0   201100000037 0            000000000037 
IT1	031503 0      0   0   201100000037 0            000000000037 
AT3	031503 0      0   0   000000000037 0            201100000037 
AT6	031503 000037 0   0   000000000037 0            201100000037 
FT1A	031503 000037 0   0   000000000037 0            000000000037 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 127
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0284

FT9	031504 000037 0   0   000000000037 0            000000000037 
ET0	031504 000037 0   0   000000000037 0            000000000037 
ST1	031504 000037 0   0   000000000037 0            000000000037 
ST2	031504 000037 0   0   000000000037 0            000000000037 
ST9	031504 000037 0   0   000000000037 0            000000000037 


*031504 SUBM	1,000002
INITIAL
C(AC)=000000 000100 
C(E)=000000 000037 
FINAL

C(E)=000000 000041 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031504 031504 0   0   276040000002 0            000000000037 
IT1	031504 0      0   0   276040000002 0            000000000037 
AT3	031504 0      0   0   000000000002 0            276040000002 
AT6	031504 000002 0   0   000000000002 0            276040000002 
FT0	031504 000002 0   0   000000000037 0            276040000002 
FT1A	031504 000002 0   0   000000000037 0            000000000037 
FT2	031504 000002 0   0   0            0            000000000037 
FT2RQ	031504 000002 0   0   000000000100 0            000000000037 
FT3	031504 000002 0   0   000000000100 0            000000000037 
FT9	031505 000002 0   0   000000000100 0            000000000037 
ET0	031505 000002 0   0   000000000041 0            000000000037 
ST5	031505 000002 0   0   000000000041 0            000000000037 
ST6A	031505 000002 0   0   000000000041 0            000000000037 
ST9	031505 000002 0   0   000000000041 0            000000000037 


*031505 CAIE	1,000100
INITIAL
C(AC)=000000 000100 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031505 031505 0   0   302040000100 0            000000000100 
IT1	031505 0      0   0   302040000100 0            000000000100 
AT3	031505 0      0   0   000000000100 0            302040000100 
AT6	031505 0      0   0   000000000100 0            302040000100 
FT1A	031505 0      0   0   000000000100 0            000000000100 
FT2	031505 0      0   0   0            0            000000000100 
FT2RQ	031505 0      0   0   000000000100 0            000000000100 
FT3	031505 0      0   0   000000000100 0            000000000100 
FT9	031506 0      0   0   000000000100 0            000000000100 
ET0	031507 0      0   0   0            0            000000000100 
ST1A	031507 0      0   0   0            0            000000000100 
ST9	031507 0      0   0   0            0            000000000100 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 128
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0285


*031507 JUMPA	0,031510
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031507 031507 0   0   324000031510 0            000000031510 
IT1	031507 0      0   0   324000031510 0            000000031510 
AT3	031507 0      0   0   000000031510 0            324000031510 
AT6	031507 031510 0   0   000000031510 0            324000031510 
FT1A	031507 031510 0   0   000000031510 0            000000031510 
FT2	031507 031510 0   0   0            0            000000031510 
FT2RQ	031507 031510 0   0   0            0            000000031510 
FT3	031507 031510 0   0   0            0            000000031510 
FT9	031510 031510 0   0   0            0            000000031510 
ET0	031510 031510 0   0   0            0            000000031510 
ST1A	031510 031510 0   0   0            0            000000031510 
ST9	031510 031510 0   0   0            0            000000031510 


*031510 CAIE	2,000041
INITIAL
C(AC)=000000 000041 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031510 031510 0   0   302100000041 0            000000000041 
IT1	031510 0      0   0   302100000041 0            000000000041 
AT3	031510 0      0   0   000000000041 0            302100000041 
AT6	031510 000041 0   0   000000000041 0            302100000041 
FT1A	031510 000041 0   0   000000000041 0            000000000041 
FT2	031510 000041 0   0   0            0            000000000041 
FT2RQ	031510 000041 0   0   000000000041 0            000000000041 
FT3	031510 000041 0   0   000000000041 0            000000000041 
FT9	031511 000041 0   0   000000000041 0            000000000041 
ET0	031512 000041 0   0   0            0            000000000041 
ST1A	031512 000041 0   0   0            0            000000000041 
ST9	031512 000041 0   0   0            0            000000000041 


*031512 JUMPA	0,031513
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031512 031512 0   0   324000031513 0            000000031513 
IT1	031512 0      0   0   324000031513 0            000000031513 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 129
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0286

AT3	031512 0      0   0   000000031513 0            324000031513 
AT6	031512 031513 0   0   000000031513 0            324000031513 
FT1A	031512 031513 0   0   000000031513 0            000000031513 
FT2	031512 031513 0   0   0            0            000000031513 
FT2RQ	031512 031513 0   0   0            0            000000031513 
FT3	031512 031513 0   0   0            0            000000031513 
FT9	031513 031513 0   0   0            0            000000031513 
ET0	031513 031513 0   0   0            0            000000031513 
ST1A	031513 031513 0   0   0            0            000000031513 
ST9	031513 031513 0   0   0            0            000000031513 


*031513 MOVEI	1,000100
INITIAL
C(AC)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031513 031513 0   0   201040000100 0            000000000100 
IT1	031513 0      0   0   201040000100 0            000000000100 
AT3	031513 0      0   0   000000000100 0            201040000100 
AT6	031513 0      0   0   000000000100 0            201040000100 
FT1A	031513 0      0   0   000000000100 0            000000000100 
FT9	031514 0      0   0   000000000100 0            000000000100 
ET0	031514 0      0   0   000000000100 0            000000000100 
ST1	031514 0      0   0   000000000100 0            000000000100 
ST2	031514 0      0   0   000000000100 0            000000000100 
ST9	031514 0      0   0   000000000100 0            000000000100 


*031514 MOVEI	2,000037
INITIAL
C(AC)=000000 000041 
FINAL
C(AC)=000000 000037 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031514 031514 0   0   201100000037 0            000000000037 
IT1	031514 0      0   0   201100000037 0            000000000037 
AT3	031514 0      0   0   000000000037 0            201100000037 
AT6	031514 000037 0   0   000000000037 0            201100000037 
FT1A	031514 000037 0   0   000000000037 0            000000000037 
FT9	031515 000037 0   0   000000000037 0            000000000037 
ET0	031515 000037 0   0   000000000037 0            000000000037 
ST1	031515 000037 0   0   000000000037 0            000000000037 
ST2	031515 000037 0   0   000000000037 0            000000000037 
ST9	031515 000037 0   0   000000000037 0            000000000037 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 130
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0287

*031515 MOVEM	2,031527
INITIAL
C(AC)=000000 000037 
C(E)=000000 000000 
FINAL

C(E)=000000 000037 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031515 031515 0   0   202100031527 0            000000031527 
IT1	031515 0      0   0   202100031527 0            000000031527 
AT3	031515 0      0   0   000000031527 0            202100031527 
AT6	031515 031527 0   0   000000031527 0            202100031527 
FT1A	031515 031527 0   0   000000031527 0            000000031527 
FT2	031515 031527 0   0   0            0            000000031527 
FT2RQ	031515 031527 0   0   000000000037 0            000000031527 
FT3	031515 031527 0   0   000000000037 0            000000031527 
FT9	031516 031527 0   0   000000000037 0            000000031527 
ET0	031516 031527 0   0   000000000037 0            000000031527 
ST6	031516 031527 0   0   000000000037 0            000000031527 
ST6A	031516 031527 0   0   000000000037 0            000000031527 
ST9	031516 031527 0   0   000000000037 0            000000031527 


*031516 SUBM	1,031527
INITIAL
C(AC)=000000 000100 
C(E)=000000 000037 
FINAL

C(E)=000000 000041 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031516 031516 0   0   276040031527 0            000000000037 
IT1	031516 0      0   0   276040031527 0            000000000037 
AT3	031516 0      0   0   000000031527 0            276040031527 
AT6	031516 031527 0   0   000000031527 0            276040031527 
FT0	031516 031527 0   0   000000000037 0            276040031527 
FT1A	031516 031527 0   0   000000000037 0            000000000037 
FT2	031516 031527 0   0   0            0            000000000037 
FT2RQ	031516 031527 0   0   000000000100 0            000000000037 
FT3	031516 031527 0   0   000000000100 0            000000000037 
FT9	031517 031527 0   0   000000000100 0            000000000037 
ET0	031517 031527 0   0   000000000041 0            000000000037 
ST5	031517 031527 0   0   000000000041 0            000000000037 
ST6A	031517 031527 0   0   000000000041 0            000000000037 
ST9	031517 031527 0   0   000000000041 0            000000000037 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 131
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0288

*031517 CAIE	1,000100
INITIAL
C(AC)=000000 000100 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031517 031517 0   0   302040000100 0            000000000100 
IT1	031517 0      0   0   302040000100 0            000000000100 
AT3	031517 0      0   0   000000000100 0            302040000100 
AT6	031517 0      0   0   000000000100 0            302040000100 
FT1A	031517 0      0   0   000000000100 0            000000000100 
FT2	031517 0      0   0   0            0            000000000100 
FT2RQ	031517 0      0   0   000000000100 0            000000000100 
FT3	031517 0      0   0   000000000100 0            000000000100 
FT9	031520 0      0   0   000000000100 0            000000000100 
ET0	031521 0      0   0   0            0            000000000100 
ST1A	031521 0      0   0   0            0            000000000100 
ST9	031521 0      0   0   0            0            000000000100 


*031521 JUMPA	0,031522
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031521 031521 0   0   324000031522 0            000000031522 
IT1	031521 0      0   0   324000031522 0            000000031522 
AT3	031521 0      0   0   000000031522 0            324000031522 
AT6	031521 031522 0   0   000000031522 0            324000031522 
FT1A	031521 031522 0   0   000000031522 0            000000031522 
FT2	031521 031522 0   0   0            0            000000031522 
FT2RQ	031521 031522 0   0   0            0            000000031522 
FT3	031521 031522 0   0   0            0            000000031522 
FT9	031522 031522 0   0   0            0            000000031522 
ET0	031522 031522 0   0   0            0            000000031522 
ST1A	031522 031522 0   0   0            0            000000031522 
ST9	031522 031522 0   0   0            0            000000031522 


*031522 MOVE 	2,031527
INITIAL
C(AC)=000000 000037 
C(E)=000000 000041 
FINAL
C(AC)=000000 000041 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031522 031522 0   0   200100031527 0            000000000041 
IT1	031522 0      0   0   200100031527 0            000000000041 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 132
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0289

AT3	031522 0      0   0   000000031527 0            200100031527 
AT6	031522 031527 0   0   000000031527 0            200100031527 
FT0	031522 031527 0   0   000000000041 0            200100031527 
FT1A	031522 031527 0   0   000000000041 0            000000000041 
FT9	031523 031527 0   0   000000000041 0            000000000041 
ET0	031523 031527 0   0   000000000041 0            000000000041 
ST1	031523 031527 0   0   000000000041 0            000000000041 
ST2	031523 031527 0   0   000000000041 0            000000000041 
ST9	031523 031527 0   0   000000000041 0            000000000041 


*031523 CAIE	2,000041
INITIAL
C(AC)=000000 000041 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031523 031523 0   0   302100000041 0            000000000041 
IT1	031523 0      0   0   302100000041 0            000000000041 
AT3	031523 0      0   0   000000000041 0            302100000041 
AT6	031523 000041 0   0   000000000041 0            302100000041 
FT1A	031523 000041 0   0   000000000041 0            000000000041 
FT2	031523 000041 0   0   0            0            000000000041 
FT2RQ	031523 000041 0   0   000000000041 0            000000000041 
FT3	031523 000041 0   0   000000000041 0            000000000041 
FT9	031524 000041 0   0   000000000041 0            000000000041 
ET0	031525 000041 0   0   0            0            000000000041 
ST1A	031525 000041 0   0   0            0            000000000041 
ST9	031525 000041 0   0   0            0            000000000041 


*031525 JUMPA	0,031526
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031525 031525 0   0   324000031526 0            000000031526 
IT1	031525 0      0   0   324000031526 0            000000031526 
AT3	031525 0      0   0   000000031526 0            324000031526 
AT6	031525 031526 0   0   000000031526 0            324000031526 
FT1A	031525 031526 0   0   000000031526 0            000000031526 
FT2	031525 031526 0   0   0            0            000000031526 
FT2RQ	031525 031526 0   0   0            0            000000031526 
FT3	031525 031526 0   0   0            0            000000031526 
FT9	031526 031526 0   0   0            0            000000031526 
ET0	031526 031526 0   0   0            0            000000031526 
ST1A	031526 031526 0   0   0            0            000000031526 
ST9	031526 031526 0   0   0            0            000000031526 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 133
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0290


*031526 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	031526 031526 0   0   334000000000 0            0            
IT1	031526 0      0   0   334000000000 0            0            
AT3	031526 0      0   0   0            0            334000000000 
AT6	031526 0      0   0   0            0            334000000000 
FT0	031526 0      0   0   0            0            334000000000 
FT1A	031526 0      0   0   0            0            0            
FT9	031527 0      0   0   0            0            0            
ET0	031530 0      0   0   0            0            0            
ST1A	031530 0      0   0   0            0            0            
ST9	031530 0      0   0   0            0            0            


*031530 MOVEI	1,000100
INITIAL
C(AC)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031530 031530 0   0   201040000100 0            000000000100 
IT1	031530 0      0   0   201040000100 0            000000000100 
AT3	031530 0      0   0   000000000100 0            201040000100 
AT6	031530 0      0   0   000000000100 0            201040000100 
FT1A	031530 0      0   0   000000000100 0            000000000100 
FT9	031531 0      0   0   000000000100 0            000000000100 
ET0	031531 0      0   0   000000000100 0            000000000100 
ST1	031531 0      0   0   000000000100 0            000000000100 
ST2	031531 0      0   0   000000000100 0            000000000100 
ST9	031531 0      0   0   000000000100 0            000000000100 


*031531 MOVEI	2,000037
INITIAL
C(AC)=000000 000041 
FINAL
C(AC)=000000 000037 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031531 031531 0   0   201100000037 0            000000000037 
IT1	031531 0      0   0   201100000037 0            000000000037 
AT3	031531 0      0   0   000000000037 0            201100000037 
AT6	031531 000037 0   0   000000000037 0            201100000037 
FT1A	031531 000037 0   0   000000000037 0            000000000037 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 134
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0291

FT9	031532 000037 0   0   000000000037 0            000000000037 
ET0	031532 000037 0   0   000000000037 0            000000000037 
ST1	031532 000037 0   0   000000000037 0            000000000037 
ST2	031532 000037 0   0   000000000037 0            000000000037 
ST9	031532 000037 0   0   000000000037 0            000000000037 


*031532 SUBB	1,000002
INITIAL
C(AC)=000000 000100 
C(E)=000000 000037 
FINAL
C(AC)=000000 000041 
C(E)=000000 000041 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031532 031532 0   0   277040000002 0            000000000037 
IT1	031532 0      0   0   277040000002 0            000000000037 
AT3	031532 0      0   0   000000000002 0            277040000002 
AT6	031532 000002 0   0   000000000002 0            277040000002 
FT0	031532 000002 0   0   000000000037 0            277040000002 
FT1A	031532 000002 0   0   000000000037 0            000000000037 
FT2	031532 000002 0   0   0            0            000000000037 
FT2RQ	031532 000002 0   0   000000000100 0            000000000037 
FT3	031532 000002 0   0   000000000100 0            000000000037 
FT9	031533 000002 0   0   000000000100 0            000000000037 
ET0	031533 000002 0   0   000000000041 0            000000000037 
ST1	031533 000002 0   0   000000000041 0            000000000037 
ST2	031533 000002 0   0   000000000041 0            000000000037 
ST5	031533 000002 0   0   000000000041 0            000000000037 
ST6A	031533 000002 0   0   000000000041 0            000000000037 
ST9	031533 000002 0   0   000000000041 0            000000000037 


*031533 CAIE	1,000041
INITIAL
C(AC)=000000 000041 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031533 031533 0   0   302040000041 0            000000000041 
IT1	031533 0      0   0   302040000041 0            000000000041 
AT3	031533 0      0   0   000000000041 0            302040000041 
AT6	031533 000041 0   0   000000000041 0            302040000041 
FT1A	031533 000041 0   0   000000000041 0            000000000041 
FT2	031533 000041 0   0   0            0            000000000041 
FT2RQ	031533 000041 0   0   000000000041 0            000000000041 
FT3	031533 000041 0   0   000000000041 0            000000000041 
FT9	031534 000041 0   0   000000000041 0            000000000041 
ET0	031535 000041 0   0   0            0            000000000041 
ST1A	031535 000041 0   0   0            0            000000000041 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 135
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0292

ST9	031535 000041 0   0   0            0            000000000041 


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


*031536 CAIE	2,000041
INITIAL
C(AC)=000000 000041 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031536 031536 0   0   302100000041 0            000000000041 
IT1	031536 0      0   0   302100000041 0            000000000041 
AT3	031536 0      0   0   000000000041 0            302100000041 
AT6	031536 000041 0   0   000000000041 0            302100000041 
FT1A	031536 000041 0   0   000000000041 0            000000000041 
FT2	031536 000041 0   0   0            0            000000000041 
FT2RQ	031536 000041 0   0   000000000041 0            000000000041 
FT3	031536 000041 0   0   000000000041 0            000000000041 
FT9	031537 000041 0   0   000000000041 0            000000000041 
ET0	031540 000041 0   0   0            0            000000000041 
ST1A	031540 000041 0   0   0            0            000000000041 
ST9	031540 000041 0   0   0            0            000000000041 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 136
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0293

*031540 JUMPA	0,031541
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031540 031540 0   0   324000031541 0            000000031541 
IT1	031540 0      0   0   324000031541 0            000000031541 
AT3	031540 0      0   0   000000031541 0            324000031541 
AT6	031540 031541 0   0   000000031541 0            324000031541 
FT1A	031540 031541 0   0   000000031541 0            000000031541 
FT2	031540 031541 0   0   0            0            000000031541 
FT2RQ	031540 031541 0   0   0            0            000000031541 
FT3	031540 031541 0   0   0            0            000000031541 
FT9	031541 031541 0   0   0            0            000000031541 
ET0	031541 031541 0   0   0            0            000000031541 
ST1A	031541 031541 0   0   0            0            000000031541 
ST9	031541 031541 0   0   0            0            000000031541 


*031541 MOVEI	1,000100
INITIAL
C(AC)=000000 000041 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031541 031541 0   0   201040000100 0            000000000100 
IT1	031541 0      0   0   201040000100 0            000000000100 
AT3	031541 0      0   0   000000000100 0            201040000100 
AT6	031541 0      0   0   000000000100 0            201040000100 
FT1A	031541 0      0   0   000000000100 0            000000000100 
FT9	031542 0      0   0   000000000100 0            000000000100 
ET0	031542 0      0   0   000000000100 0            000000000100 
ST1	031542 0      0   0   000000000100 0            000000000100 
ST2	031542 0      0   0   000000000100 0            000000000100 
ST9	031542 0      0   0   000000000100 0            000000000100 


*031542 MOVEI	2,000037
INITIAL
C(AC)=000000 000041 
FINAL
C(AC)=000000 000037 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031542 031542 0   0   201100000037 0            000000000037 
IT1	031542 0      0   0   201100000037 0            000000000037 
AT3	031542 0      0   0   000000000037 0            201100000037 
AT6	031542 000037 0   0   000000000037 0            201100000037 
FT1A	031542 000037 0   0   000000000037 0            000000000037 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 137
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0294

FT9	031543 000037 0   0   000000000037 0            000000000037 
ET0	031543 000037 0   0   000000000037 0            000000000037 
ST1	031543 000037 0   0   000000000037 0            000000000037 
ST2	031543 000037 0   0   000000000037 0            000000000037 
ST9	031543 000037 0   0   000000000037 0            000000000037 


*031543 MOVEM	2,031555
INITIAL
C(AC)=000000 000037 
C(E)=000000 000000 
FINAL

C(E)=000000 000037 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031543 031543 0   0   202100031555 0            000000031555 
IT1	031543 0      0   0   202100031555 0            000000031555 
AT3	031543 0      0   0   000000031555 0            202100031555 
AT6	031543 031555 0   0   000000031555 0            202100031555 
FT1A	031543 031555 0   0   000000031555 0            000000031555 
FT2	031543 031555 0   0   0            0            000000031555 
FT2RQ	031543 031555 0   0   000000000037 0            000000031555 
FT3	031543 031555 0   0   000000000037 0            000000031555 
FT9	031544 031555 0   0   000000000037 0            000000031555 
ET0	031544 031555 0   0   000000000037 0            000000031555 
ST6	031544 031555 0   0   000000000037 0            000000031555 
ST6A	031544 031555 0   0   000000000037 0            000000031555 
ST9	031544 031555 0   0   000000000037 0            000000031555 


*031544 SUBB	1,031555
INITIAL
C(AC)=000000 000100 
C(E)=000000 000037 
FINAL
C(AC)=000000 000041 
C(E)=000000 000041 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031544 031544 0   0   277040031555 0            000000000037 
IT1	031544 0      0   0   277040031555 0            000000000037 
AT3	031544 0      0   0   000000031555 0            277040031555 
AT6	031544 031555 0   0   000000031555 0            277040031555 
FT0	031544 031555 0   0   000000000037 0            277040031555 
FT1A	031544 031555 0   0   000000000037 0            000000000037 
FT2	031544 031555 0   0   0            0            000000000037 
FT2RQ	031544 031555 0   0   000000000100 0            000000000037 
FT3	031544 031555 0   0   000000000100 0            000000000037 
FT9	031545 031555 0   0   000000000100 0            000000000037 
ET0	031545 031555 0   0   000000000041 0            000000000037 
ST1	031545 031555 0   0   000000000041 0            000000000037 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 138
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0295

ST2	031545 031555 0   0   000000000041 0            000000000037 
ST5	031545 031555 0   0   000000000041 0            000000000037 
ST6A	031545 031555 0   0   000000000041 0            000000000037 
ST9	031545 031555 0   0   000000000041 0            000000000037 


*031545 CAIE	1,000041
INITIAL
C(AC)=000000 000041 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031545 031545 0   0   302040000041 0            000000000041 
IT1	031545 0      0   0   302040000041 0            000000000041 
AT3	031545 0      0   0   000000000041 0            302040000041 
AT6	031545 000041 0   0   000000000041 0            302040000041 
FT1A	031545 000041 0   0   000000000041 0            000000000041 
FT2	031545 000041 0   0   0            0            000000000041 
FT2RQ	031545 000041 0   0   000000000041 0            000000000041 
FT3	031545 000041 0   0   000000000041 0            000000000041 
FT9	031546 000041 0   0   000000000041 0            000000000041 
ET0	031547 000041 0   0   0            0            000000000041 
ST1A	031547 000041 0   0   0            0            000000000041 
ST9	031547 000041 0   0   0            0            000000000041 


*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 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 139
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0296

*031550 MOVE 	2,031555
INITIAL
C(AC)=000000 000037 
C(E)=000000 000041 
FINAL
C(AC)=000000 000041 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031550 031550 0   0   200100031555 0            000000000041 
IT1	031550 0      0   0   200100031555 0            000000000041 
AT3	031550 0      0   0   000000031555 0            200100031555 
AT6	031550 031555 0   0   000000031555 0            200100031555 
FT0	031550 031555 0   0   000000000041 0            200100031555 
FT1A	031550 031555 0   0   000000000041 0            000000000041 
FT9	031551 031555 0   0   000000000041 0            000000000041 
ET0	031551 031555 0   0   000000000041 0            000000000041 
ST1	031551 031555 0   0   000000000041 0            000000000041 
ST2	031551 031555 0   0   000000000041 0            000000000041 
ST9	031551 031555 0   0   000000000041 0            000000000041 


*031551 CAIE	2,000041
INITIAL
C(AC)=000000 000041 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031551 031551 0   0   302100000041 0            000000000041 
IT1	031551 0      0   0   302100000041 0            000000000041 
AT3	031551 0      0   0   000000000041 0            302100000041 
AT6	031551 000041 0   0   000000000041 0            302100000041 
FT1A	031551 000041 0   0   000000000041 0            000000000041 
FT2	031551 000041 0   0   0            0            000000000041 
FT2RQ	031551 000041 0   0   000000000041 0            000000000041 
FT3	031551 000041 0   0   000000000041 0            000000000041 
FT9	031552 000041 0   0   000000000041 0            000000000041 
ET0	031553 000041 0   0   0            0            000000000041 
ST1A	031553 000041 0   0   0            0            000000000041 
ST9	031553 000041 0   0   0            0            000000000041 


*031553 JUMPA	0,031554
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031553 031553 0   0   324000031554 0            000000031554 
IT1	031553 0      0   0   324000031554 0            000000031554 
AT3	031553 0      0   0   000000031554 0            324000031554 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 140
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0297

AT6	031553 031554 0   0   000000031554 0            324000031554 
FT1A	031553 031554 0   0   000000031554 0            000000031554 
FT2	031553 031554 0   0   0            0            000000031554 
FT2RQ	031553 031554 0   0   0            0            000000031554 
FT3	031553 031554 0   0   0            0            000000031554 
FT9	031554 031554 0   0   0            0            000000031554 
ET0	031554 031554 0   0   0            0            000000031554 
ST1A	031554 031554 0   0   0            0            000000031554 
ST9	031554 031554 0   0   0            0            000000031554 


*031554 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	031554 031554 0   0   334000000000 0            0            
IT1	031554 0      0   0   334000000000 0            0            
AT3	031554 0      0   0   0            0            334000000000 
AT6	031554 0      0   0   0            0            334000000000 
FT0	031554 0      0   0   0            0            334000000000 
FT1A	031554 0      0   0   0            0            0            
FT9	031555 0      0   0   0            0            0            
ET0	031556 0      0   0   0            0            0            
ST1A	031556 0      0   0   0            0            0            
ST9	031556 0      0   0   0            0            0            


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

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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 141
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0298

*031557 CAIL	1,000002
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031557 031557 0   0   301040000002 0            000000000002 
IT1	031557 0      0   0   301040000002 0            000000000002 
AT3	031557 0      0   0   000000000002 0            301040000002 
AT6	031557 000002 0   0   000000000002 0            301040000002 
FT1A	031557 000002 0   0   000000000002 0            000000000002 
FT2	031557 000002 0   0   0            0            000000000002 
FT2RQ	031557 000002 0   0   000000000001 0            000000000002 
FT3	031557 000002 0   0   000000000001 0            000000000002 
FT9	031560 000002 0   0   000000000001 0            000000000002 
ET0	031561 000002 0   0   777777777777 0            000000000002 
ST1A	031561 000002 0   0   777777777777 0            000000000002 
ST9	031561 000002 0   0   777777777777 0            000000000002 


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


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031562 031562 0   0   201040000002 0            000000000002 
IT1	031562 0      0   0   201040000002 0            000000000002 
AT3	031562 0      0   0   000000000002 0            201040000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 142
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0299

AT6	031562 000002 0   0   000000000002 0            201040000002 
FT1A	031562 000002 0   0   000000000002 0            000000000002 
FT9	031563 000002 0   0   000000000002 0            000000000002 
ET0	031563 000002 0   0   000000000002 0            000000000002 
ST1	031563 000002 0   0   000000000002 0            000000000002 
ST2	031563 000002 0   0   000000000002 0            000000000002 
ST9	031563 000002 0   0   000000000002 0            000000000002 


*031563 CAIL	1,000002
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031563 031563 0   0   301040000002 0            000000000002 
IT1	031563 0      0   0   301040000002 0            000000000002 
AT3	031563 0      0   0   000000000002 0            301040000002 
AT6	031563 000002 0   0   000000000002 0            301040000002 
FT1A	031563 000002 0   0   000000000002 0            000000000002 
FT2	031563 000002 0   0   0            0            000000000002 
FT2RQ	031563 000002 0   0   000000000002 0            000000000002 
FT3	031563 000002 0   0   000000000002 0            000000000002 
FT9	031564 000002 0   0   000000000002 0            000000000002 
ET0	031564 000002 0   0   0            0            000000000002 
ST1A	031564 000002 0   0   0            0            000000000002 
ST9	031564 000002 0   0   0            0            000000000002 


*031564 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	031564 031564 0   0   334000000000 0            0            
IT1	031564 0      0   0   334000000000 0            0            
AT3	031564 0      0   0   0            0            334000000000 
AT6	031564 0      0   0   0            0            334000000000 
FT0	031564 0      0   0   0            0            334000000000 
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            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 143
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0300

*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	1,000003
INITIAL
C(AC)=000000 000002 
FINAL
C(AC)=000000 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031567 031567 0   0   201040000003 0            000000000003 
IT1	031567 0      0   0   201040000003 0            000000000003 
AT3	031567 0      0   0   000000000003 0            201040000003 
AT6	031567 000003 0   0   000000000003 0            201040000003 
FT1A	031567 000003 0   0   000000000003 0            000000000003 
FT9	031570 000003 0   0   000000000003 0            000000000003 
ET0	031570 000003 0   0   000000000003 0            000000000003 
ST1	031570 000003 0   0   000000000003 0            000000000003 
ST2	031570 000003 0   0   000000000003 0            000000000003 
ST9	031570 000003 0   0   000000000003 0            000000000003 


*031570 CAIL	1,000002
INITIAL
C(AC)=000000 000003 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031570 031570 0   0   301040000002 0            000000000002 
IT1	031570 0      0   0   301040000002 0            000000000002 
AT3	031570 0      0   0   000000000002 0            301040000002 
AT6	031570 000002 0   0   000000000002 0            301040000002 
FT1A	031570 000002 0   0   000000000002 0            000000000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 144
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0301

FT2	031570 000002 0   0   0            0            000000000002 
FT2RQ	031570 000002 0   0   000000000003 0            000000000002 
FT3	031570 000002 0   0   000000000003 0            000000000002 
FT9	031571 000002 0   0   000000000003 0            000000000002 
ET0	031571 000002 0   0   000000000001 0            000000000002 
ST1A	031571 000002 0   0   000000000001 0            000000000002 
ST9	031571 000002 0   0   000000000001 0            000000000002 


*031571 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	031571 031571 0   0   334000000000 0            0            
IT1	031571 0      0   0   334000000000 0            0            
AT3	031571 0      0   0   0            0            334000000000 
AT6	031571 0      0   0   0            0            334000000000 
FT0	031571 0      0   0   0            0            334000000000 
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            


*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 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 145
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0302

*031574 SETO 	1,000000
INITIAL
C(AC)=000000 000003 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

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


*031575 CAILE	1,000000
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031575 031575 0   0   303040000000 0            0            
IT1	031575 0      0   0   303040000000 0            0            
AT3	031575 0      0   0   0            0            303040000000 
AT6	031575 0      0   0   0            0            303040000000 
FT1A	031575 0      0   0   0            0            0            
FT2	031575 0      0   0   0            0            0            
FT2RQ	031575 0      0   0   777777777777 0            0            
FT3	031575 0      0   0   777777777777 0            0            
FT9	031576 0      0   0   777777777777 0            0            
ET0	031577 0      0   0   777777777777 0            0            
ST1A	031577 0      0   0   777777777777 0            0            
ST9	031577 0      0   0   777777777777 0            0            


*031577 JUMPA	0,031600
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031577 031577 0   0   324000031600 0            000000031600 
IT1	031577 0      0   0   324000031600 0            000000031600 
AT3	031577 0      0   0   000000031600 0            324000031600 
AT6	031577 0      0   0   000000031600 0            324000031600 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 146
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0303

FT1A	031577 0      0   0   000000031600 0            000000031600 
FT2	031577 0      0   0   0            0            000000031600 
FT2RQ	031577 0      0   0   0            0            000000031600 
FT3	031577 0      0   0   0            0            000000031600 
FT9	0      0      0   0   0            0            000000031600 
ET0	0      0      0   0   0            0            000000031600 
ST1A	0      0      0   0   0            0            000000031600 
ST9	0      0      0   0   0            0            000000031600 


*031600 SETZ 	1,000000
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

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


*031601 CAILE	1,000000
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031601 031601 0   0   303040000000 0            0            
IT1	031601 0      0   0   303040000000 0            0            
AT3	031601 0      0   0   0            0            303040000000 
AT6	031601 0      0   0   0            0            303040000000 
FT1A	031601 0      0   0   0            0            0            
FT2	031601 0      0   0   0            0            0            
FT2RQ	031601 0      0   0   0            0            0            
FT3	031601 0      0   0   0            0            0            
FT9	031602 0      0   0   0            0            0            
ET0	031603 0      0   0   0            0            0            
ST1A	031603 0      0   0   0            0            0            
ST9	031603 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 147
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0304

*031603 JUMPA	0,031604
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031603 031603 0   0   324000031604 0            000000031604 
IT1	031603 0      0   0   324000031604 0            000000031604 
AT3	031603 0      0   0   000000031604 0            324000031604 
AT6	031603 031604 0   0   000000031604 0            324000031604 
FT1A	031603 031604 0   0   000000031604 0            000000031604 
FT2	031603 031604 0   0   0            0            000000031604 
FT2RQ	031603 031604 0   0   0            0            000000031604 
FT3	031603 031604 0   0   0            0            000000031604 
FT9	031604 031604 0   0   0            0            000000031604 
ET0	031604 031604 0   0   0            0            000000031604 
ST1A	031604 031604 0   0   0            0            000000031604 
ST9	031604 031604 0   0   0            0            000000031604 


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

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


*031605 CAILE	1,000000
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031605 031605 0   0   303040000000 0            0            
IT1	031605 0      0   0   303040000000 0            0            
AT3	031605 0      0   0   0            0            303040000000 
AT6	031605 0      0   0   0            0            303040000000 
FT1A	031605 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 148
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0305

FT2	031605 0      0   0   0            0            0            
FT2RQ	031605 0      0   0   000000000001 0            0            
FT3	031605 0      0   0   000000000001 0            0            
FT9	031606 0      0   0   000000000001 0            0            
ET0	031606 0      0   0   000000000001 0            0            
ST1A	031606 0      0   0   000000000001 0            0            
ST9	031606 0      0   0   000000000001 0            0            


*031606 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	031606 031606 0   0   334000000000 0            0            
IT1	031606 0      0   0   334000000000 0            0            
AT3	031606 0      0   0   0            0            334000000000 
AT6	031606 0      0   0   0            0            334000000000 
FT0	031606 0      0   0   0            0            334000000000 
FT1A	031606 0      0   0   0            0            0            
FT9	031607 0      0   0   0            0            0            
ET0	031610 0      0   0   0            0            0            
ST1A	031610 0      0   0   0            0            0            
ST9	031610 0      0   0   0            0            0            


*031610 JUMPA	0,031611
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031610 031610 0   0   324000031611 0            000000031611 
IT1	031610 0      0   0   324000031611 0            000000031611 
AT3	031610 0      0   0   000000031611 0            324000031611 
AT6	031610 031611 0   0   000000031611 0            324000031611 
FT1A	031610 031611 0   0   000000031611 0            000000031611 
FT2	031610 031611 0   0   0            0            000000031611 
FT2RQ	031610 031611 0   0   0            0            000000031611 
FT3	031610 031611 0   0   0            0            000000031611 
FT9	031611 031611 0   0   0            0            000000031611 
ET0	031611 031611 0   0   0            0            000000031611 
ST1A	031611 031611 0   0   0            0            000000031611 
ST9	031611 031611 0   0   0            0            000000031611 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 149
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0306

*031611 SETO 	1,000000
INITIAL
C(AC)=000000 000001 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

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


*031612 CAIA	1,000000
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031612 031612 0   0   304040000000 0            0            
IT1	031612 0      0   0   304040000000 0            0            
AT3	031612 0      0   0   0            0            304040000000 
AT6	031612 0      0   0   0            0            304040000000 
FT1A	031612 0      0   0   0            0            0            
FT2	031612 0      0   0   0            0            0            
FT2RQ	031612 0      0   0   777777777777 0            0            
FT3	031612 0      0   0   777777777777 0            0            
FT9	031613 0      0   0   777777777777 0            0            
ET0	031614 0      0   0   777777777777 0            0            
ST1A	031614 0      0   0   777777777777 0            0            
ST9	031614 0      0   0   777777777777 0            0            


*031614 JUMPA	0,031615
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031614 031614 0   0   324000031615 0            000000031615 
IT1	031614 0      0   0   324000031615 0            000000031615 
AT3	031614 0      0   0   000000031615 0            324000031615 
AT6	031614 031615 0   0   000000031615 0            324000031615 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 150
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0307

FT1A	031614 031615 0   0   000000031615 0            000000031615 
FT2	031614 031615 0   0   0            0            000000031615 
FT2RQ	031614 031615 0   0   0            0            000000031615 
FT3	031614 031615 0   0   0            0            000000031615 
FT9	031615 031615 0   0   0            0            000000031615 
ET0	031615 031615 0   0   0            0            000000031615 
ST1A	031615 031615 0   0   0            0            000000031615 
ST9	031615 031615 0   0   0            0            000000031615 


*031615 SETZ 	1,000000
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031615 031615 0   0   400040000000 0            0            
IT1	031615 0      0   0   400040000000 0            0            
AT3	031615 0      0   0   0            0            400040000000 
AT6	031615 0      0   0   0            0            400040000000 
FT1A	031615 0      0   0   0            0            0            
FT9	031616 0      0   0   0            0            0            
ET0	031616 0      0   0   0            0            0            
ST1	031616 0      0   0   0            0            0            
ST2	031616 0      0   0   0            0            0            
ST9	031616 0      0   0   0            0            0            


*031616 CAIA	1,000000
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031616 031616 0   0   304040000000 0            0            
IT1	031616 0      0   0   304040000000 0            0            
AT3	031616 0      0   0   0            0            304040000000 
AT6	031616 0      0   0   0            0            304040000000 
FT1A	031616 0      0   0   0            0            0            
FT2	031616 0      0   0   0            0            0            
FT2RQ	031616 0      0   0   0            0            0            
FT3	031616 0      0   0   0            0            0            
FT9	031617 0      0   0   0            0            0            
ET0	031620 0      0   0   0            0            0            
ST1A	031620 0      0   0   0            0            0            
ST9	031620 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 151
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0308

*031620 JUMPA	0,031621
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031620 031620 0   0   324000031621 0            000000031621 
IT1	031620 0      0   0   324000031621 0            000000031621 
AT3	031620 0      0   0   000000031621 0            324000031621 
AT6	031620 031621 0   0   000000031621 0            324000031621 
FT1A	031620 031621 0   0   000000031621 0            000000031621 
FT2	031620 031621 0   0   0            0            000000031621 
FT2RQ	031620 031621 0   0   0            0            000000031621 
FT3	031620 031621 0   0   0            0            000000031621 
FT9	031621 031621 0   0   0            0            000000031621 
ET0	031621 031621 0   0   0            0            000000031621 
ST1A	031621 031621 0   0   0            0            000000031621 
ST9	031621 031621 0   0   0            0            000000031621 


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

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


*031622 CAIA	1,000000
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031622 031622 0   0   304040000000 0            0            
IT1	031622 0      0   0   304040000000 0            0            
AT3	031622 0      0   0   0            0            304040000000 
AT6	031622 0      0   0   0            0            304040000000 
FT1A	031622 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 152
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0309

FT2	031622 0      0   0   0            0            0            
FT2RQ	031622 0      0   0   000000000001 0            0            
FT3	031622 0      0   0   000000000001 0            0            
FT9	031623 0      0   0   000000000001 0            0            
ET0	031624 0      0   0   000000000001 0            0            
ST1A	031624 0      0   0   000000000001 0            0            
ST9	031624 0      0   0   000000000001 0            0            


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


*031625 MOVEI	2,000005
INITIAL
C(AC)=000000 000041 
FINAL
C(AC)=000000 000005 

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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 153
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0310

*031626 CAIGE	2,000006
INITIAL
C(AC)=000000 000005 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031626 031626 0   0   305100000006 0            000000000006 
IT1	031626 0      0   0   305100000006 0            000000000006 
AT3	031626 0      0   0   000000000006 0            305100000006 
AT6	031626 000006 0   0   000000000006 0            305100000006 
FT1A	031626 000006 0   0   000000000006 0            000000000006 
FT2	031626 000006 0   0   0            0            000000000006 
FT2RQ	031626 000006 0   0   000000000005 0            000000000006 
FT3	031626 000006 0   0   000000000005 0            000000000006 
FT9	031627 000006 0   0   000000000005 0            000000000006 
ET0	031627 000006 0   0   777777777777 0            000000000006 
ST1A	031627 000006 0   0   777777777777 0            000000000006 
ST9	031627 000006 0   0   777777777777 0            000000000006 


*031627 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	031627 031627 0   0   334000000000 0            0            
IT1	031627 0      0   0   334000000000 0            0            
AT3	031627 0      0   0   0            0            334000000000 
AT6	031627 0      0   0   0            0            334000000000 
FT0	031627 0      0   0   0            0            334000000000 
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 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 154
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0311

FT1A	031631 031632 0   0   000000031632 0            000000031632 
FT2	031631 031632 0   0   0            0            000000031632 
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 MOVEI	2,000006
INITIAL
C(AC)=000000 000005 
FINAL
C(AC)=000000 000006 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031632 031632 0   0   201100000006 0            000000000006 
IT1	031632 0      0   0   201100000006 0            000000000006 
AT3	031632 0      0   0   000000000006 0            201100000006 
AT6	031632 000006 0   0   000000000006 0            201100000006 
FT1A	031632 000006 0   0   000000000006 0            000000000006 
FT9	031633 000006 0   0   000000000006 0            000000000006 
ET0	031633 000006 0   0   000000000006 0            000000000006 
ST1	031633 000006 0   0   000000000006 0            000000000006 
ST2	031633 000006 0   0   000000000006 0            000000000006 
ST9	031633 000006 0   0   000000000006 0            000000000006 


*031633 CAIGE	0,000000
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031633 031633 0   0   305000000000 0            0            
IT1	031633 0      0   0   305000000000 0            0            
AT3	031633 0      0   0   0            0            305000000000 
AT6	031633 0      0   0   0            0            305000000000 
FT1A	031633 0      0   0   0            0            0            
FT2	031633 0      0   0   0            0            0            
FT2RQ	031633 0      0   0   0            0            0            
FT3	031633 0      0   0   0            0            0            
FT9	031634 0      0   0   0            0            0            
ET0	031635 0      0   0   0            0            0            
ST1A	031635 0      0   0   0            0            0            
ST9	031635 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 155
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0312

*031635 JUMPA	0,031636
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031635 031635 0   0   324000031636 0            000000031636 
IT1	031635 0      0   0   324000031636 0            000000031636 
AT3	031635 0      0   0   000000031636 0            324000031636 
AT6	031635 031636 0   0   000000031636 0            324000031636 
FT1A	031635 031636 0   0   000000031636 0            000000031636 
FT2	031635 031636 0   0   0            0            000000031636 
FT2RQ	031635 031636 0   0   0            0            000000031636 
FT3	031635 031636 0   0   0            0            000000031636 
FT9	031636 031636 0   0   0            0            000000031636 
ET0	031636 031636 0   0   0            0            000000031636 
ST1A	031636 031636 0   0   0            0            000000031636 
ST9	031636 031636 0   0   0            0            000000031636 


*031636 MOVEI	2,000007
INITIAL
C(AC)=000000 000006 
FINAL
C(AC)=000000 000007 

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


*031637 CAIGE	2,000006
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031637 031637 0   0   305100000006 0            000000000006 
IT1	031637 0      0   0   305100000006 0            000000000006 
AT3	031637 0      0   0   000000000006 0            305100000006 
AT6	031637 000006 0   0   000000000006 0            305100000006 
FT1A	031637 000006 0   0   000000000006 0            000000000006 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 156
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0313

FT2	031637 000006 0   0   0            0            000000000006 
FT2RQ	031637 000006 0   0   000000000007 0            000000000006 
FT3	031637 000006 0   0   000000000007 0            000000000006 
FT9	031640 000006 0   0   000000000007 0            000000000006 
ET0	031641 000006 0   0   000000000001 0            000000000006 
ST1A	031641 000006 0   0   000000000001 0            000000000006 
ST9	031641 000006 0   0   000000000001 0            000000000006 


*031641 JUMPA	0,031642
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031641 031641 0   0   324000031642 0            000000031642 
IT1	031641 0      0   0   324000031642 0            000000031642 
AT3	031641 0      0   0   000000031642 0            324000031642 
AT6	031641 031642 0   0   000000031642 0            324000031642 
FT1A	031641 031642 0   0   000000031642 0            000000031642 
FT2	031641 031642 0   0   0            0            000000031642 
FT2RQ	031641 031642 0   0   0            0            000000031642 
FT3	031641 031642 0   0   0            0            000000031642 
FT9	031642 031642 0   0   0            0            000000031642 
ET0	031642 031642 0   0   0            0            000000031642 
ST1A	031642 031642 0   0   0            0            000000031642 
ST9	031642 031642 0   0   0            0            000000031642 


*031642 SETZ 	6,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031642 031642 0   0   400300000000 0            0            
IT1	031642 0      0   0   400300000000 0            0            
AT3	031642 0      0   0   0            0            400300000000 
AT6	031642 0      0   0   0            0            400300000000 
FT1A	031642 0      0   0   0            0            0            
FT9	031643 0      0   0   0            0            0            
ET0	031643 0      0   0   0            0            0            
ST1	031643 0      0   0   0            0            0            
ST2	031643 0      0   0   0            0            0            
ST9	031643 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 157
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0314

*031643 CAIN	6,000001
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031643 031643 0   0   306300000001 0            000000000001 
IT1	031643 0      0   0   306300000001 0            000000000001 
AT3	031643 0      0   0   000000000001 0            306300000001 
AT6	031643 000001 0   0   000000000001 0            306300000001 
FT1A	031643 000001 0   0   000000000001 0            000000000001 
FT2	031643 000001 0   0   0            0            000000000001 
FT2RQ	031643 000001 0   0   0            0            000000000001 
FT3	031643 000001 0   0   0            0            000000000001 
FT9	031644 000001 0   0   0            0            000000000001 
ET0	031645 000001 0   0   777777777777 0            000000000001 
ST1A	031645 000001 0   0   777777777777 0            000000000001 
ST9	031645 000001 0   0   777777777777 0            000000000001 


*031645 JUMPA	0,031646
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031645 031645 0   0   324000031646 0            000000031646 
IT1	031645 0      0   0   324000031646 0            000000031646 
AT3	031645 0      0   0   000000031646 0            324000031646 
AT6	031645 031646 0   0   000000031646 0            324000031646 
FT1A	031645 031646 0   0   000000031646 0            000000031646 
FT2	031645 031646 0   0   0            0            000000031646 
FT2RQ	031645 031646 0   0   0            0            000000031646 
FT3	031645 031646 0   0   0            0            000000031646 
FT9	031646 031646 0   0   0            0            000000031646 
ET0	031646 031646 0   0   0            0            000000031646 
ST1A	031646 031646 0   0   0            0            000000031646 
ST9	031646 031646 0   0   0            0            000000031646 


*031646 MOVE 	6,000001
INITIAL
C(AC)=000000 000000 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031646 031646 0   0   200300000001 0            000000000001 
IT1	031646 0      0   0   200300000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 158
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0315

AT3	031646 0      0   0   000000000001 0            200300000001 
AT6	031646 000001 0   0   000000000001 0            200300000001 
FT0	031646 000001 0   0   000000000001 0            200300000001 
FT1A	031646 000001 0   0   000000000001 0            000000000001 
FT9	031647 000001 0   0   000000000001 0            000000000001 
ET0	031647 000001 0   0   000000000001 0            000000000001 
ST1	031647 000001 0   0   000000000001 0            000000000001 
ST2	031647 000001 0   0   000000000001 0            000000000001 
ST9	031647 000001 0   0   000000000001 0            000000000001 


*031647 CAIN	6,000001
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031647 031647 0   0   306300000001 0            000000000001 
IT1	031647 0      0   0   306300000001 0            000000000001 
AT3	031647 0      0   0   000000000001 0            306300000001 
AT6	031647 000001 0   0   000000000001 0            306300000001 
FT1A	031647 000001 0   0   000000000001 0            000000000001 
FT2	031647 000001 0   0   0            0            000000000001 
FT2RQ	031647 000001 0   0   000000000001 0            000000000001 
FT3	031647 000001 0   0   000000000001 0            000000000001 
FT9	031650 000001 0   0   000000000001 0            000000000001 
ET0	031650 000001 0   0   0            0            000000000001 
ST1A	031650 000001 0   0   0            0            000000000001 
ST9	031650 000001 0   0   0            0            000000000001 


*031650 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	031650 031650 0   0   334000000000 0            0            
IT1	031650 0      0   0   334000000000 0            0            
AT3	031650 0      0   0   0            0            334000000000 
AT6	031650 0      0   0   0            0            334000000000 
FT0	031650 0      0   0   0            0            334000000000 
FT1A	031650 0      0   0   0            0            0            
FT9	031651 0      0   0   0            0            0            
ET0	031652 0      0   0   0            0            0            
ST1A	031652 0      0   0   0            0            0            
ST9	031652 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 159
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0316

*031652 JUMPA	0,031653
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031652 031652 0   0   324000031653 0            000000031653 
IT1	031652 0      0   0   324000031653 0            000000031653 
AT3	031652 0      0   0   000000031653 0            324000031653 
AT6	031652 031653 0   0   000000031653 0            324000031653 
FT1A	031652 031653 0   0   000000031653 0            000000031653 
FT2	031652 031653 0   0   0            0            000000031653 
FT2RQ	031652 031653 0   0   0            0            000000031653 
FT3	031652 031653 0   0   0            0            000000031653 
FT9	031653 031653 0   0   0            0            000000031653 
ET0	031653 031653 0   0   0            0            000000031653 
ST1A	031653 031653 0   0   0            0            000000031653 
ST9	031653 031653 0   0   0            0            000000031653 


*031653 MOVEI	6,000002
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000002 

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


*031654 CAIN	6,000001
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031654 031654 0   0   306300000001 0            000000000001 
IT1	031654 0      0   0   306300000001 0            000000000001 
AT3	031654 0      0   0   000000000001 0            306300000001 
AT6	031654 000001 0   0   000000000001 0            306300000001 
FT1A	031654 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 160
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0317

FT2	031654 000001 0   0   0            0            000000000001 
FT2RQ	031654 000001 0   0   000000000002 0            000000000001 
FT3	031654 000001 0   0   000000000002 0            000000000001 
FT9	031655 000001 0   0   000000000002 0            000000000001 
ET0	031656 000001 0   0   000000000001 0            000000000001 
ST1A	031656 000001 0   0   000000000001 0            000000000001 
ST9	031656 000001 0   0   000000000001 0            000000000001 


*031656 JUMPA	0,031657
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031656 031656 0   0   324000031657 0            000000031657 
IT1	031656 0      0   0   324000031657 0            000000031657 
AT3	031656 0      0   0   000000031657 0            324000031657 
AT6	031656 031657 0   0   000000031657 0            324000031657 
FT1A	031656 031657 0   0   000000031657 0            000000031657 
FT2	031656 031657 0   0   0            0            000000031657 
FT2RQ	031656 031657 0   0   0            0            000000031657 
FT3	031656 031657 0   0   0            0            000000031657 
FT9	031657 031657 0   0   0            0            000000031657 
ET0	031657 031657 0   0   0            0            000000031657 
ST1A	031657 031657 0   0   0            0            000000031657 
ST9	031657 031657 0   0   0            0            000000031657 


*031657 MOVEI	11,000002
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000002 

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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 161
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0318

*031660 CAIG	11,000003
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031660 031660 0   0   307440000003 0            000000000003 
IT1	031660 0      0   0   307440000003 0            000000000003 
AT3	031660 0      0   0   000000000003 0            307440000003 
AT6	031660 000003 0   0   000000000003 0            307440000003 
FT1A	031660 000003 0   0   000000000003 0            000000000003 
FT2	031660 000003 0   0   0            0            000000000003 
FT2RQ	031660 000003 0   0   000000000002 0            000000000003 
FT3	031660 000003 0   0   000000000002 0            000000000003 
FT9	031661 000003 0   0   000000000002 0            000000000003 
ET0	031661 000003 0   0   777777777777 0            000000000003 
ST1A	031661 000003 0   0   777777777777 0            000000000003 
ST9	031661 000003 0   0   777777777777 0            000000000003 


*031661 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	031661 031661 0   0   334000000000 0            0            
IT1	031661 0      0   0   334000000000 0            0            
AT3	031661 0      0   0   0            0            334000000000 
AT6	031661 0      0   0   0            0            334000000000 
FT0	031661 0      0   0   0            0            334000000000 
FT1A	031661 0      0   0   0            0            0            
FT9	031662 0      0   0   0            0            0            
ET0	031663 0      0   0   0            0            0            
ST1A	031663 0      0   0   0            0            0            
ST9	031663 0      0   0   0            0            0            


*031663 JUMPA	0,031664
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031663 031663 0   0   324000031664 0            000000031664 
IT1	031663 0      0   0   324000031664 0            000000031664 
AT3	031663 0      0   0   000000031664 0            324000031664 
AT6	031663 031664 0   0   000000031664 0            324000031664 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 162
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0319

FT1A	031663 031664 0   0   000000031664 0            000000031664 
FT2	031663 031664 0   0   0            0            000000031664 
FT2RQ	031663 031664 0   0   0            0            000000031664 
FT3	031663 031664 0   0   0            0            000000031664 
FT9	031664 031664 0   0   0            0            000000031664 
ET0	031664 031664 0   0   0            0            000000031664 
ST1A	031664 031664 0   0   0            0            000000031664 
ST9	031664 031664 0   0   0            0            000000031664 


*031664 MOVEI	11,000003
INITIAL
C(AC)=000000 000002 
FINAL
C(AC)=000000 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031664 031664 0   0   201440000003 0            000000000003 
IT1	031664 0      0   0   201440000003 0            000000000003 
AT3	031664 0      0   0   000000000003 0            201440000003 
AT6	031664 000003 0   0   000000000003 0            201440000003 
FT1A	031664 000003 0   0   000000000003 0            000000000003 
FT9	031665 000003 0   0   000000000003 0            000000000003 
ET0	031665 000003 0   0   000000000003 0            000000000003 
ST1	031665 000003 0   0   000000000003 0            000000000003 
ST2	031665 000003 0   0   000000000003 0            000000000003 
ST9	031665 000003 0   0   000000000003 0            000000000003 


*031665 CAIG	11,000003
INITIAL
C(AC)=000000 000003 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031665 031665 0   0   307440000003 0            000000000003 
IT1	031665 0      0   0   307440000003 0            000000000003 
AT3	031665 0      0   0   000000000003 0            307440000003 
AT6	031665 000003 0   0   000000000003 0            307440000003 
FT1A	031665 000003 0   0   000000000003 0            000000000003 
FT2	031665 000003 0   0   0            0            000000000003 
FT2RQ	031665 000003 0   0   000000000003 0            000000000003 
FT3	031665 000003 0   0   000000000003 0            000000000003 
FT9	031666 000003 0   0   000000000003 0            000000000003 
ET0	031666 000003 0   0   0            0            000000000003 
ST1A	031666 000003 0   0   0            0            000000000003 
ST9	031666 000003 0   0   0            0            000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 163
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0320

*031666 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	031666 031666 0   0   334000000000 0            0            
IT1	031666 0      0   0   334000000000 0            0            
AT3	031666 0      0   0   0            0            334000000000 
AT6	031666 0      0   0   0            0            334000000000 
FT0	031666 0      0   0   0            0            334000000000 
FT1A	031666 0      0   0   0            0            0            
FT9	031667 0      0   0   0            0            0            
ET0	031670 0      0   0   0            0            0            
ST1A	031670 0      0   0   0            0            0            
ST9	031670 0      0   0   0            0            0            


*031670 JUMPA	0,031671
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031670 031670 0   0   324000031671 0            000000031671 
IT1	031670 0      0   0   324000031671 0            000000031671 
AT3	031670 0      0   0   000000031671 0            324000031671 
AT6	031670 031671 0   0   000000031671 0            324000031671 
FT1A	031670 031671 0   0   000000031671 0            000000031671 
FT2	031670 031671 0   0   0            0            000000031671 
FT2RQ	031670 031671 0   0   0            0            000000031671 
FT3	031670 031671 0   0   0            0            000000031671 
FT9	031671 031671 0   0   0            0            000000031671 
ET0	031671 031671 0   0   0            0            000000031671 
ST1A	031671 031671 0   0   0            0            000000031671 
ST9	031671 031671 0   0   0            0            000000031671 


*031671 MOVEI	11,000004
INITIAL
C(AC)=000000 000003 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031671 031671 0   0   201440000004 0            000000000004 
IT1	031671 0      0   0   201440000004 0            000000000004 
AT3	031671 0      0   0   000000000004 0            201440000004 
AT6	031671 000004 0   0   000000000004 0            201440000004 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 164
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0321

FT1A	031671 000004 0   0   000000000004 0            000000000004 
FT9	031672 000004 0   0   000000000004 0            000000000004 
ET0	031672 000004 0   0   000000000004 0            000000000004 
ST1	031672 000004 0   0   000000000004 0            000000000004 
ST2	031672 000004 0   0   000000000004 0            000000000004 
ST9	031672 000004 0   0   000000000004 0            000000000004 


*031672 CAIG	11,000003
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031672 031672 0   0   307440000003 0            000000000003 
IT1	031672 0      0   0   307440000003 0            000000000003 
AT3	031672 0      0   0   000000000003 0            307440000003 
AT6	031672 000003 0   0   000000000003 0            307440000003 
FT1A	031672 000003 0   0   000000000003 0            000000000003 
FT2	031672 000003 0   0   0            0            000000000003 
FT2RQ	031672 000003 0   0   000000000004 0            000000000003 
FT3	031672 000003 0   0   000000000004 0            000000000003 
FT9	031673 000003 0   0   000000000004 0            000000000003 
ET0	031674 000003 0   0   000000000001 0            000000000003 
ST1A	031674 000003 0   0   000000000001 0            000000000003 
ST9	031674 000003 0   0   000000000001 0            000000000003 


*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 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 165
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0322

*031675 SETO 	1,000000
INITIAL
C(AC)=000000 000001 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

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


*031676 SETZ 	2,000000
INITIAL
C(AC)=000000 000007 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031676 031676 0   0   400100000000 0            0            
IT1	031676 0      0   0   400100000000 0            0            
AT3	031676 0      0   0   0            0            400100000000 
AT6	031676 0      0   0   0            0            400100000000 
FT1A	031676 0      0   0   0            0            0            
FT9	031677 0      0   0   0            0            0            
ET0	031677 0      0   0   0            0            0            
ST1	031677 0      0   0   0            0            0            
ST2	031677 0      0   0   0            0            0            
ST9	031677 0      0   0   0            0            0            


*031677 CAMLE	1,000002
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031677 031677 0   0   313040000002 0            0            
IT1	031677 0      0   0   313040000002 0            0            
AT3	031677 0      0   0   000000000002 0            313040000002 
AT6	031677 000002 0   0   000000000002 0            313040000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 166
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0323

FT0	031677 000002 0   0   0            0            313040000002 
FT1A	031677 000002 0   0   0            0            0            
FT2	031677 000002 0   0   0            0            0            
FT2RQ	031677 000002 0   0   777777777777 0            0            
FT3	031677 000002 0   0   777777777777 0            0            
FT9	0      000002 0   0   777777777777 0            0            
ET0	031701 000002 0   0   777777777777 0            0            
ST1A	031701 000002 0   0   777777777777 0            0            
ST9	031701 000002 0   0   777777777777 0            0            


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


*031702 SETZ 	1,000000
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031702 031702 0   0   400040000000 0            0            
IT1	031702 0      0   0   400040000000 0            0            
AT3	031702 0      0   0   0            0            400040000000 
AT6	031702 0      0   0   0            0            400040000000 
FT1A	031702 0      0   0   0            0            0            
FT9	031703 0      0   0   0            0            0            
ET0	031703 0      0   0   0            0            0            
ST1	031703 0      0   0   0            0            0            
ST2	031703 0      0   0   0            0            0            
ST9	031703 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 167
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0324

*031703 CAMLE	1,033501
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031703 031703 0   0   313040033501 0            0            
IT1	031703 0      0   0   313040033501 0            0            
AT3	031703 0      0   0   000000033501 0            313040033501 
AT6	031703 033501 0   0   000000033501 0            313040033501 
FT0	031703 033501 0   0   0            0            313040033501 
FT1A	031703 033501 0   0   0            0            0            
FT2	031703 033501 0   0   0            0            0            
FT2RQ	031703 033501 0   0   0            0            0            
FT3	031703 033501 0   0   0            0            0            
FT9	031704 033501 0   0   0            0            0            
ET0	031705 033501 0   0   0            0            0            
ST1A	031705 033501 0   0   0            0            0            
ST9	031705 033501 0   0   0            0            0            


*031705 JUMPA	0,031706
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031705 031705 0   0   324000031706 0            000000031706 
IT1	031705 0      0   0   324000031706 0            000000031706 
AT3	031705 0      0   0   000000031706 0            324000031706 
AT6	031705 031706 0   0   000000031706 0            324000031706 
FT1A	031705 031706 0   0   000000031706 0            000000031706 
FT2	031705 031706 0   0   0            0            000000031706 
FT2RQ	031705 031706 0   0   0            0            000000031706 
FT3	031705 031706 0   0   0            0            000000031706 
FT9	031706 031706 0   0   0            0            000000031706 
ET0	031706 031706 0   0   0            0            000000031706 
ST1A	031706 031706 0   0   0            0            000000031706 
ST9	031706 031706 0   0   0            0            000000031706 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 168
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0325

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

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


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031707 031707 0   0   400100000000 0            0            
IT1	031707 0      0   0   400100000000 0            0            
AT3	031707 0      0   0   0            0            400100000000 
AT6	031707 0      0   0   0            0            400100000000 
FT1A	031707 0      0   0   0            0            0            
FT9	031710 0      0   0   0            0            0            
ET0	031710 0      0   0   0            0            0            
ST1	031710 0      0   0   0            0            0            
ST2	031710 0      0   0   0            0            0            
ST9	031710 0      0   0   0            0            0            


*031710 CAMLE	1,000002
INITIAL
C(AC)=000000 000001 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031710 031710 0   0   313040000002 0            0            
IT1	031710 0      0   0   313040000002 0            0            
AT3	031710 0      0   0   000000000002 0            313040000002 
AT6	031710 000002 0   0   000000000002 0            313040000002 
FT0	031710 000002 0   0   0            0            313040000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 169
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0326

FT1A	031710 000002 0   0   0            0            0            
FT2	031710 000002 0   0   0            0            0            
FT2RQ	031710 000002 0   0   000000000001 0            0            
FT3	031710 000002 0   0   000000000001 0            0            
FT9	031711 000002 0   0   000000000001 0            0            
ET0	031711 000002 0   0   000000000001 0            0            
ST1A	031711 000002 0   0   000000000001 0            0            
ST9	031711 000002 0   0   000000000001 0            0            


*031711 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	031711 031711 0   0   334000000000 0            0            
IT1	031711 0      0   0   334000000000 0            0            
AT3	031711 0      0   0   0            0            334000000000 
AT6	031711 0      0   0   0            0            334000000000 
FT0	031711 0      0   0   0            0            334000000000 
FT1A	031711 0      0   0   0            0            0            
FT9	031712 0      0   0   0            0            0            
ET0	031713 0      0   0   0            0            0            
ST1A	031713 0      0   0   0            0            0            
ST9	031713 0      0   0   0            0            0            


*031713 JUMPA	0,031714
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031713 031713 0   0   324000031714 0            000000031714 
IT1	031713 0      0   0   324000031714 0            000000031714 
AT3	031713 0      0   0   000000031714 0            324000031714 
AT6	031713 031714 0   0   000000031714 0            324000031714 
FT1A	031713 031714 0   0   000000031714 0            000000031714 
FT2	031713 031714 0   0   0            0            000000031714 
FT2RQ	031713 031714 0   0   0            0            000000031714 
FT3	031713 031714 0   0   0            0            000000031714 
FT9	031714 031714 0   0   0            0            000000031714 
ET0	031714 031714 0   0   0            0            000000031714 
ST1A	031714 031714 0   0   0            0            000000031714 
ST9	031714 031714 0   0   0            0            000000031714 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 170
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0327

*031714 HRROI	10,777776
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031714 031714 0   0   561400777776 0            000000777776 
IT1	031714 0      0   0   561400777776 0            000000777776 
AT3	031714 0      0   0   000000777776 0            561400777776 
AT6	031714 777776 0   0   000000777776 0            561400777776 
FT1A	031714 777776 0   0   000000777776 0            000000777776 
FT9	031715 777776 0   0   000000777776 0            000000777776 
ET0	031715 777776 0   0   777777777776 0            000000777776 
ST1	031715 777776 0   0   777777777776 0            000000777776 
ST2	031715 777776 0   0   777777777776 0            000000777776 
ST9	031715 777776 0   0   777777777776 0            000000777776 


*031715 CAMG	10,033462
INITIAL
C(AC)=777777 777776 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031715 031715 0   0   317400033462 0            777777777777 
IT1	031715 0      0   0   317400033462 0            777777777777 
AT3	031715 0      0   0   000000033462 0            317400033462 
AT6	031715 033462 0   0   000000033462 0            317400033462 
FT0	031715 033462 0   0   777777777777 0            317400033462 
FT1A	031715 033462 0   0   777777777777 0            777777777777 
FT2	031715 033462 0   0   0            0            777777777777 
FT2RQ	031715 033462 0   0   777777777776 0            777777777777 
FT3	031715 033462 0   0   777777777776 0            777777777777 
FT9	031716 033462 0   0   777777777776 0            777777777777 
ET0	031716 033462 0   0   777777777777 0            777777777777 
ST1A	031716 033462 0   0   777777777777 0            777777777777 
ST9	031716 033462 0   0   777777777777 0            777777777777 


*031716 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	031716 031716 0   0   334000000000 0            0            
IT1	031716 0      0   0   334000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 171
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0328

AT3	031716 0      0   0   0            0            334000000000 
AT6	031716 0      0   0   0            0            334000000000 
FT0	031716 0      0   0   0            0            334000000000 
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 


*031721 HRROI	10,777777
INITIAL
C(AC)=777777 777776 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031721 031721 0   0   561400777777 0            000000777777 
IT1	031721 0      0   0   561400777777 0            000000777777 
AT3	031721 0      0   0   000000777777 0            561400777777 
AT6	031721 777777 0   0   000000777777 0            561400777777 
FT1A	031721 777777 0   0   000000777777 0            000000777777 
FT9	031722 777777 0   0   000000777777 0            000000777777 
ET0	031722 777777 0   0   777777777777 0            000000777777 
ST1	031722 777777 0   0   777777777777 0            000000777777 
ST2	031722 777777 0   0   777777777777 0            000000777777 
ST9	031722 777777 0   0   777777777777 0            000000777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 172
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0329

*031722 CAMG	10,033500
INITIAL
C(AC)=777777 777777 
C(E)=777777 777776 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031722 031722 0   0   317400033500 0            777777777776 
IT1	031722 0      0   0   317400033500 0            777777777776 
AT3	031722 0      0   0   000000033500 0            317400033500 
AT6	031722 0      0   0   000000033500 0            317400033500 
FT0	031722 0      0   0   777777777776 0            317400033500 
FT1A	031722 0      0   0   777777777776 0            777777777776 
FT2	031722 0      0   0   0            0            777777777776 
FT2RQ	031722 0      0   0   777777777777 0            777777777776 
FT3	031722 0      0   0   777777777777 0            777777777776 
FT9	031723 0      0   0   777777777777 0            777777777776 
ET0	031724 0      0   0   000000000001 0            777777777776 
ST1A	031724 0      0   0   000000000001 0            777777777776 
ST9	031724 0      0   0   000000000001 0            777777777776 


*031724 JUMPA	0,031725
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031724 031724 0   0   324000031725 0            000000031725 
IT1	031724 0      0   0   324000031725 0            000000031725 
AT3	031724 0      0   0   000000031725 0            324000031725 
AT6	031724 031725 0   0   000000031725 0            324000031725 
FT1A	031724 031725 0   0   000000031725 0            000000031725 
FT2	031724 031725 0   0   0            0            000000031725 
FT2RQ	031724 031725 0   0   0            0            000000031725 
FT3	031724 031725 0   0   0            0            000000031725 
FT9	031725 031725 0   0   0            0            000000031725 
ET0	031725 031725 0   0   0            0            000000031725 
ST1A	031725 031725 0   0   0            0            000000031725 
ST9	031725 031725 0   0   0            0            000000031725 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 173
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0330

*031725 SETO 	10,000000
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

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


*031726 CAMG	10,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031726 031726 0   0   317400033462 0            777777777777 
IT1	031726 0      0   0   317400033462 0            777777777777 
AT3	031726 0      0   0   000000033462 0            317400033462 
AT6	031726 033462 0   0   000000033462 0            317400033462 
FT0	031726 033462 0   0   777777777777 0            317400033462 
FT1A	031726 033462 0   0   777777777777 0            777777777777 
FT2	031726 033462 0   0   0            0            777777777777 
FT2RQ	031726 033462 0   0   777777777777 0            777777777777 
FT3	031726 033462 0   0   777777777777 0            777777777777 
FT9	031727 033462 0   0   777777777777 0            777777777777 
ET0	031727 033462 0   0   0            0            777777777777 
ST1A	031727 033462 0   0   0            0            777777777777 
ST9	031727 033462 0   0   0            0            777777777777 


*031727 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	031727 031727 0   0   334000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 174
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0331

IT1	031727 0      0   0   334000000000 0            0            
AT3	031727 0      0   0   0            0            334000000000 
AT6	031727 0      0   0   0            0            334000000000 
FT0	031727 0      0   0   0            0            334000000000 
FT1A	031727 0      0   0   0            0            0            
FT9	031730 0      0   0   0            0            0            
ET0	031731 0      0   0   0            0            0            
ST1A	031731 0      0   0   0            0            0            
ST9	031731 0      0   0   0            0            0            


*031731 JUMPA	0,031732
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031731 031731 0   0   324000031732 0            000000031732 
IT1	031731 0      0   0   324000031732 0            000000031732 
AT3	031731 0      0   0   000000031732 0            324000031732 
AT6	031731 031732 0   0   000000031732 0            324000031732 
FT1A	031731 031732 0   0   000000031732 0            000000031732 
FT2	031731 031732 0   0   0            0            000000031732 
FT2RQ	031731 031732 0   0   0            0            000000031732 
FT3	031731 031732 0   0   0            0            000000031732 
FT9	031732 031732 0   0   0            0            000000031732 
ET0	031732 031732 0   0   0            0            000000031732 
ST1A	031732 031732 0   0   0            0            000000031732 
ST9	031732 031732 0   0   0            0            000000031732 


*031732 SETZ 	10,000000
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031732 031732 0   0   400400000000 0            0            
IT1	031732 0      0   0   400400000000 0            0            
AT3	031732 0      0   0   0            0            400400000000 
AT6	031732 0      0   0   0            0            400400000000 
FT1A	031732 0      0   0   0            0            0            
FT9	031733 0      0   0   0            0            0            
ET0	031733 0      0   0   0            0            0            
ST1	031733 0      0   0   0            0            0            
ST2	031733 0      0   0   0            0            0            
ST9	031733 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 175
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0332

*031733 CAMG	10,033462
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031733 031733 0   0   317400033462 0            777777777777 
IT1	031733 0      0   0   317400033462 0            777777777777 
AT3	031733 0      0   0   000000033462 0            317400033462 
AT6	031733 033462 0   0   000000033462 0            317400033462 
FT0	031733 033462 0   0   777777777777 0            317400033462 
FT1A	031733 033462 0   0   777777777777 0            777777777777 
FT2	031733 033462 0   0   0            0            777777777777 
FT2RQ	031733 033462 0   0   0            0            777777777777 
FT3	031733 033462 0   0   0            0            777777777777 
FT9	031734 033462 0   0   0            0            777777777777 
ET0	031735 033462 0   0   000000000001 0            777777777777 
ST1A	031735 033462 0   0   000000000001 0            777777777777 
ST9	031735 033462 0   0   000000000001 0            777777777777 


*031735 JUMPA	0,031736
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031735 031735 0   0   324000031736 0            000000031736 
IT1	031735 0      0   0   324000031736 0            000000031736 
AT3	031735 0      0   0   000000031736 0            324000031736 
AT6	031735 031736 0   0   000000031736 0            324000031736 
FT1A	031735 031736 0   0   000000031736 0            000000031736 
FT2	031735 031736 0   0   0            0            000000031736 
FT2RQ	031735 031736 0   0   0            0            000000031736 
FT3	031735 031736 0   0   0            0            000000031736 
FT9	031736 031736 0   0   0            0            000000031736 
ET0	031736 031736 0   0   0            0            000000031736 
ST1A	031736 031736 0   0   0            0            000000031736 
ST9	031736 031736 0   0   0            0            000000031736 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 176
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0333

*031736 SETO 	17,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

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


*031737 JUMPLE	17,031741
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031737 031737 0   0   323740031741 0            000000031741 
IT1	031737 0      0   0   323740031741 0            000000031741 
AT3	031737 0      0   0   000000031741 0            323740031741 
AT6	031737 031741 0   0   000000031741 0            323740031741 
FT1A	031737 031741 0   0   000000031741 0            000000031741 
FT2	031737 031741 0   0   0            0            000000031741 
FT2RQ	031737 031741 0   0   777777777777 0            000000031741 
FT3	031737 031741 0   0   777777777777 0            000000031741 
FT9	031740 031741 0   0   777777777777 0            000000031741 
ET0	031741 031741 0   0   777777777777 0            000000031741 
ST1A	031741 031741 0   0   777777777777 0            000000031741 
ST9	031741 031741 0   0   777777777777 0            000000031741 


*031741 JUMPA	0,031742
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031741 031741 0   0   324000031742 0            000000031742 
IT1	031741 0      0   0   324000031742 0            000000031742 
AT3	031741 0      0   0   000000031742 0            324000031742 
AT6	031741 031742 0   0   000000031742 0            324000031742 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 177
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0334

FT1A	031741 031742 0   0   000000031742 0            000000031742 
FT2	031741 031742 0   0   0            0            000000031742 
FT2RQ	031741 031742 0   0   0            0            000000031742 
FT3	031741 031742 0   0   0            0            000000031742 
FT9	031742 031742 0   0   0            0            000000031742 
ET0	031742 031742 0   0   0            0            000000031742 
ST1A	031742 031742 0   0   0            0            000000031742 
ST9	031742 031742 0   0   0            0            000000031742 


*031742 SETZ 	17,000000
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031742 031742 0   0   400740000000 0            0            
IT1	031742 0      0   0   400740000000 0            0            
AT3	031742 0      0   0   0            0            400740000000 
AT6	031742 0      0   0   0            0            400740000000 
FT1A	031742 0      0   0   0            0            0            
FT9	031743 0      0   0   0            0            0            
ET0	031743 0      0   0   0            0            0            
ST1	031743 0      0   0   0            0            0            
ST2	031743 0      0   0   0            0            0            
ST9	031743 0      0   0   0            0            0            


*031743 JUMPLE	17,031745
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031743 031743 0   0   323740031745 0            000000031745 
IT1	031743 0      0   0   323740031745 0            000000031745 
AT3	031743 0      0   0   000000031745 0            323740031745 
AT6	031743 031745 0   0   000000031745 0            323740031745 
FT1A	031743 031745 0   0   000000031745 0            000000031745 
FT2	031743 031745 0   0   0            0            000000031745 
FT2RQ	031743 031745 0   0   0            0            000000031745 
FT3	031743 031745 0   0   0            0            000000031745 
FT9	031744 031745 0   0   0            0            000000031745 
ET0	031745 031745 0   0   0            0            000000031745 
ST1A	031745 031745 0   0   0            0            000000031745 
ST9	031745 031745 0   0   0            0            000000031745 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 178
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0335

*031745 JUMPA	0,031746
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031745 031745 0   0   324000031746 0            000000031746 
IT1	031745 0      0   0   324000031746 0            000000031746 
AT3	031745 0      0   0   000000031746 0            324000031746 
AT6	031745 031746 0   0   000000031746 0            324000031746 
FT1A	031745 031746 0   0   000000031746 0            000000031746 
FT2	031745 031746 0   0   0            0            000000031746 
FT2RQ	031745 031746 0   0   0            0            000000031746 
FT3	031745 031746 0   0   0            0            000000031746 
FT9	031746 031746 0   0   0            0            000000031746 
ET0	031746 031746 0   0   0            0            000000031746 
ST1A	031746 031746 0   0   0            0            000000031746 
ST9	031746 031746 0   0   0            0            000000031746 


*031746 MOVEI	17,000001
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031746 031746 0   0   201740000001 0            000000000001 
IT1	031746 0      0   0   201740000001 0            000000000001 
AT3	031746 0      0   0   000000000001 0            201740000001 
AT6	031746 000001 0   0   000000000001 0            201740000001 
FT1A	031746 000001 0   0   000000000001 0            000000000001 
FT9	031747 000001 0   0   000000000001 0            000000000001 
ET0	031747 000001 0   0   000000000001 0            000000000001 
ST1	031747 000001 0   0   000000000001 0            000000000001 
ST2	031747 000001 0   0   000000000001 0            000000000001 
ST9	031747 000001 0   0   000000000001 0            000000000001 


*031747 JUMP 	17,031751
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031747 031747 0   0   320740031751 0            000000031751 
IT1	031747 0      0   0   320740031751 0            000000031751 
AT3	031747 0      0   0   000000031751 0            320740031751 
AT6	031747 031751 0   0   000000031751 0            320740031751 
FT1A	031747 031751 0   0   000000031751 0            000000031751 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 179
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0336

FT2	031747 031751 0   0   0            0            000000031751 
FT2RQ	031747 031751 0   0   000000000001 0            000000031751 
FT3	031747 031751 0   0   000000000001 0            000000031751 
FT9	031750 031751 0   0   000000000001 0            000000031751 
ET0	031750 031751 0   0   000000000001 0            000000031751 
ST1A	031750 031751 0   0   000000000001 0            000000031751 
ST9	031750 031751 0   0   000000000001 0            000000031751 


*031750 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	031750 031750 0   0   334000000000 0            0            
IT1	031750 0      0   0   334000000000 0            0            
AT3	031750 0      0   0   0            0            334000000000 
AT6	031750 0      0   0   0            0            334000000000 
FT0	031750 0      0   0   0            0            334000000000 
FT1A	031750 0      0   0   0            0            0            
FT9	031751 0      0   0   0            0            0            
ET0	031752 0      0   0   0            0            0            
ST1A	031752 0      0   0   0            0            0            
ST9	031752 0      0   0   0            0            0            


*031752 JUMPA	0,031753
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031752 031752 0   0   324000031753 0            000000031753 
IT1	031752 0      0   0   324000031753 0            000000031753 
AT3	031752 0      0   0   000000031753 0            324000031753 
AT6	031752 031753 0   0   000000031753 0            324000031753 
FT1A	031752 031753 0   0   000000031753 0            000000031753 
FT2	031752 031753 0   0   0            0            000000031753 
FT2RQ	031752 031753 0   0   0            0            000000031753 
FT3	031752 031753 0   0   0            0            000000031753 
FT9	031753 031753 0   0   0            0            000000031753 
ET0	031753 031753 0   0   0            0            000000031753 
ST1A	031753 031753 0   0   0            0            000000031753 
ST9	031753 031753 0   0   0            0            000000031753 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 180
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0337

*031753 SETO 	16,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

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


*031754 JUMPGE	16,031756
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031754 031754 0   0   325700031756 0            000000031756 
IT1	031754 0      0   0   325700031756 0            000000031756 
AT3	031754 0      0   0   000000031756 0            325700031756 
AT6	031754 031756 0   0   000000031756 0            325700031756 
FT1A	031754 031756 0   0   000000031756 0            000000031756 
FT2	031754 031756 0   0   0            0            000000031756 
FT2RQ	031754 031756 0   0   777777777777 0            000000031756 
FT3	031754 031756 0   0   777777777777 0            000000031756 
FT9	031755 031756 0   0   777777777777 0            000000031756 
ET0	031755 031756 0   0   777777777777 0            000000031756 
ST1A	031755 031756 0   0   777777777777 0            000000031756 
ST9	031755 031756 0   0   777777777777 0            000000031756 


*031755 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	031755 031755 0   0   334000000000 0            0            
IT1	031755 0      0   0   334000000000 0            0            
AT3	031755 0      0   0   0            0            334000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 181
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0338

AT6	031755 0      0   0   0            0            334000000000 
FT0	031755 0      0   0   0            0            334000000000 
FT1A	031755 0      0   0   0            0            0            
FT9	031756 0      0   0   0            0            0            
ET0	031757 0      0   0   0            0            0            
ST1A	031757 0      0   0   0            0            0            
ST9	031757 0      0   0   0            0            0            


*031757 JUMPA	0,031760
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031757 031757 0   0   324000031760 0            000000031760 
IT1	031757 0      0   0   324000031760 0            000000031760 
AT3	031757 0      0   0   000000031760 0            324000031760 
AT6	031757 031760 0   0   000000031760 0            324000031760 
FT1A	031757 031760 0   0   000000031760 0            000000031760 
FT2	031757 031760 0   0   0            0            000000031760 
FT2RQ	031757 031760 0   0   0            0            000000031760 
FT3	031757 031760 0   0   0            0            000000031760 
FT9	031760 031760 0   0   0            0            000000031760 
ET0	031760 031760 0   0   0            0            000000031760 
ST1A	031760 031760 0   0   0            0            000000031760 
ST9	031760 031760 0   0   0            0            000000031760 


*031760 SETZ 	16,000000
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031760 031760 0   0   400700000000 0            0            
IT1	031760 0      0   0   400700000000 0            0            
AT3	031760 0      0   0   0            0            400700000000 
AT6	031760 0      0   0   0            0            400700000000 
FT1A	031760 0      0   0   0            0            0            
FT9	031761 0      0   0   0            0            0            
ET0	031761 0      0   0   0            0            0            
ST1	031761 0      0   0   0            0            0            
ST2	031761 0      0   0   0            0            0            
ST9	031761 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 182
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0339

*031761 JUMPGE	16,031763
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031761 031761 0   0   325700031763 0            000000031763 
IT1	031761 0      0   0   325700031763 0            000000031763 
AT3	031761 0      0   0   000000031763 0            325700031763 
AT6	031761 031763 0   0   000000031763 0            325700031763 
FT1A	031761 031763 0   0   000000031763 0            000000031763 
FT2	031761 031763 0   0   0            0            000000031763 
FT2RQ	031761 031763 0   0   0            0            000000031763 
FT3	031761 031763 0   0   0            0            000000031763 
FT9	031762 031763 0   0   0            0            000000031763 
ET0	031763 031763 0   0   0            0            000000031763 
ST1A	031763 031763 0   0   0            0            000000031763 
ST9	031763 031763 0   0   0            0            000000031763 


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


*031764 MOVEI	16,000001
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031764 031764 0   0   201700000001 0            000000000001 
IT1	031764 0      0   0   201700000001 0            000000000001 
AT3	031764 0      0   0   000000000001 0            201700000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 183
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0340

AT6	031764 000001 0   0   000000000001 0            201700000001 
FT1A	031764 000001 0   0   000000000001 0            000000000001 
FT9	031765 000001 0   0   000000000001 0            000000000001 
ET0	031765 000001 0   0   000000000001 0            000000000001 
ST1	031765 000001 0   0   000000000001 0            000000000001 
ST2	031765 000001 0   0   000000000001 0            000000000001 
ST9	031765 000001 0   0   000000000001 0            000000000001 


*031765 JUMPGE	16,031767
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031765 031765 0   0   325700031767 0            000000031767 
IT1	031765 0      0   0   325700031767 0            000000031767 
AT3	031765 0      0   0   000000031767 0            325700031767 
AT6	031765 031767 0   0   000000031767 0            325700031767 
FT1A	031765 031767 0   0   000000031767 0            000000031767 
FT2	031765 031767 0   0   0            0            000000031767 
FT2RQ	031765 031767 0   0   000000000001 0            000000031767 
FT3	031765 031767 0   0   000000000001 0            000000031767 
FT9	031766 031767 0   0   000000000001 0            000000031767 
ET0	031767 031767 0   0   000000000001 0            000000031767 
ST1A	031767 031767 0   0   000000000001 0            000000031767 
ST9	031767 031767 0   0   000000000001 0            000000031767 


*031767 JUMPA	0,031770
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031767 031767 0   0   324000031770 0            000000031770 
IT1	031767 0      0   0   324000031770 0            000000031770 
AT3	031767 0      0   0   000000031770 0            324000031770 
AT6	031767 031770 0   0   000000031770 0            324000031770 
FT1A	031767 031770 0   0   000000031770 0            000000031770 
FT2	031767 031770 0   0   0            0            000000031770 
FT2RQ	031767 031770 0   0   0            0            000000031770 
FT3	031767 031770 0   0   0            0            000000031770 
FT9	031770 031770 0   0   0            0            000000031770 
ET0	031770 031770 0   0   0            0            000000031770 
ST1A	031770 031770 0   0   0            0            000000031770 
ST9	031770 031770 0   0   0            0            000000031770 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 184
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0341

*031770 HRROI	15,777776
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031770 031770 0   0   561640777776 0            000000777776 
IT1	031770 0      0   0   561640777776 0            000000777776 
AT3	031770 0      0   0   000000777776 0            561640777776 
AT6	031770 777776 0   0   000000777776 0            561640777776 
FT1A	031770 777776 0   0   000000777776 0            000000777776 
FT9	031771 777776 0   0   000000777776 0            000000777776 
ET0	031771 777776 0   0   777777777776 0            000000777776 
ST1	031771 777776 0   0   777777777776 0            000000777776 
ST2	031771 777776 0   0   777777777776 0            000000777776 
ST9	031771 777776 0   0   777777777776 0            000000777776 


*031771 AOJL	15,031773
INITIAL
C(AC)=777777 777776 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031771 031771 0   0   341640031773 0            000000031773 
IT1	031771 0      0   0   341640031773 0            000000031773 
AT3	031771 0      0   0   000000031773 0            341640031773 
AT6	031771 031773 0   0   000000031773 0            341640031773 
FT1A	031771 031773 0   0   000000031773 0            000000031773 
FT2	031771 031773 0   0   0            0            000000031773 
FT2RQ	031771 031773 0   0   777777777776 0            000000031773 
FT3	031771 031773 0   0   777777777776 0            000000031773 
FT9	031772 031773 0   0   777777777776 0            000000031773 
ET0	031773 031773 0   0   777777777777 0            000000031773 
ST1	031773 031773 0   0   777777777777 0            000000031773 
ST2	031773 031773 0   0   777777777777 0            000000031773 
ST9	031773 031773 0   0   777777777777 0            000000031773 


*031773 JUMPA	0,031774
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031773 031773 0   0   324000031774 0            000000031774 
IT1	031773 0      0   0   324000031774 0            000000031774 
AT3	031773 0      0   0   000000031774 0            324000031774 
AT6	031773 031774 0   0   000000031774 0            324000031774 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 185
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0342

FT1A	031773 031774 0   0   000000031774 0            000000031774 
FT2	031773 031774 0   0   0            0            000000031774 
FT2RQ	031773 031774 0   0   0            0            000000031774 
FT3	031773 031774 0   0   0            0            000000031774 
FT9	031774 031774 0   0   0            0            000000031774 
ET0	031774 031774 0   0   0            0            000000031774 
ST1A	031774 031774 0   0   0            0            000000031774 
ST9	031774 031774 0   0   0            0            000000031774 


*031774 CAME	15,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031774 031774 0   0   312640033462 0            777777777777 
IT1	031774 0      0   0   312640033462 0            777777777777 
AT3	031774 0      0   0   000000033462 0            312640033462 
AT6	031774 033462 0   0   000000033462 0            312640033462 
FT0	031774 033462 0   0   777777777777 0            312640033462 
FT1A	031774 033462 0   0   777777777777 0            777777777777 
FT2	031774 033462 0   0   0            0            777777777777 
FT2RQ	031774 033462 0   0   777777777777 0            777777777777 
FT3	031774 033462 0   0   777777777777 0            777777777777 
FT9	031775 033462 0   0   777777777777 0            777777777777 
ET0	031776 033462 0   0   0            0            777777777777 
ST1A	031776 033462 0   0   0            0            777777777777 
ST9	031776 033462 0   0   0            0            777777777777 


*031776 JUMPA	0,031777
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031776 031776 0   0   324000031777 0            000000031777 
IT1	031776 0      0   0   324000031777 0            000000031777 
AT3	031776 0      0   0   000000031777 0            324000031777 
AT6	031776 031777 0   0   000000031777 0            324000031777 
FT1A	031776 031777 0   0   000000031777 0            000000031777 
FT2	031776 031777 0   0   0            0            000000031777 
FT2RQ	031776 031777 0   0   0            0            000000031777 
FT3	031776 031777 0   0   0            0            000000031777 
FT9	031777 031777 0   0   0            0            000000031777 
ET0	031777 031777 0   0   0            0            000000031777 
ST1A	031777 031777 0   0   0            0            000000031777 
ST9	031777 031777 0   0   0            0            000000031777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 186
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0343



*031777 SETO 	15,000000
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

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


*032000 AOJL	15,032002
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   341640032002 0            000000032002 
IT1	0      0      0   0   341640032002 0            000000032002 
AT3	0      0      0   0   000000032002 0            341640032002 
AT6	0      032002 0   0   000000032002 0            341640032002 
FT1A	0      032002 0   0   000000032002 0            000000032002 
FT2	0      032002 0   0   0            0            000000032002 
FT2RQ	0      032002 0   0   777777777777 0            000000032002 
FT3	0      032002 0   0   777777777777 0            000000032002 
FT9	032001 032002 0   0   777777777777 0            000000032002 
ET0	032001 032002 0   0   0            0            000000032002 
ST1	032001 032002 0   0   0            0            000000032002 
ST2	032001 032002 0   0   0            0            000000032002 
ST9	032001 032002 0   0   0            0            000000032002 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 187
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0344

*032001 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	032001 032001 0   0   334000000000 0            0            
IT1	032001 0      0   0   334000000000 0            0            
AT3	032001 0      0   0   0            0            334000000000 
AT6	032001 0      0   0   0            0            334000000000 
FT0	032001 0      0   0   0            0            334000000000 
FT1A	032001 0      0   0   0            0            0            
FT9	032002 0      0   0   0            0            0            
ET0	032003 0      0   0   0            0            0            
ST1A	032003 0      0   0   0            0            0            
ST9	032003 0      0   0   0            0            0            


*032003 JUMPA	0,032004
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032003 032003 0   0   324000032004 0            000000032004 
IT1	032003 0      0   0   324000032004 0            000000032004 
AT3	032003 0      0   0   000000032004 0            324000032004 
AT6	032003 032004 0   0   000000032004 0            324000032004 
FT1A	032003 032004 0   0   000000032004 0            000000032004 
FT2	032003 032004 0   0   0            0            000000032004 
FT2RQ	032003 032004 0   0   0            0            000000032004 
FT3	032003 032004 0   0   0            0            000000032004 
FT9	032004 032004 0   0   0            0            000000032004 
ET0	032004 032004 0   0   0            0            000000032004 
ST1A	032004 032004 0   0   0            0            000000032004 
ST9	032004 032004 0   0   0            0            000000032004 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032004 032004 0   0   302640000000 0            0            
IT1	032004 0      0   0   302640000000 0            0            
AT3	032004 0      0   0   0            0            302640000000 
AT6	032004 0      0   0   0            0            302640000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 188
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0345

FT1A	032004 0      0   0   0            0            0            
FT2	032004 0      0   0   0            0            0            
FT2RQ	032004 0      0   0   0            0            0            
FT3	032004 0      0   0   0            0            0            
FT9	032005 0      0   0   0            0            0            
ET0	032006 0      0   0   0            0            0            
ST1A	032006 0      0   0   0            0            0            
ST9	032006 0      0   0   0            0            0            


*032006 JUMPA	0,032007
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032006 032006 0   0   324000032007 0            000000032007 
IT1	032006 0      0   0   324000032007 0            000000032007 
AT3	032006 0      0   0   000000032007 0            324000032007 
AT6	032006 032007 0   0   000000032007 0            324000032007 
FT1A	032006 032007 0   0   000000032007 0            000000032007 
FT2	032006 032007 0   0   0            0            000000032007 
FT2RQ	032006 032007 0   0   0            0            000000032007 
FT3	032006 032007 0   0   0            0            000000032007 
FT9	032007 032007 0   0   0            0            000000032007 
ET0	032007 032007 0   0   0            0            000000032007 
ST1A	032007 032007 0   0   0            0            000000032007 
ST9	032007 032007 0   0   0            0            000000032007 


*032007 SETZ 	15,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032007 032007 0   0   400640000000 0            0            
IT1	032007 0      0   0   400640000000 0            0            
AT3	032007 0      0   0   0            0            400640000000 
AT6	032007 0      0   0   0            0            400640000000 
FT1A	032007 0      0   0   0            0            0            
FT9	032010 0      0   0   0            0            0            
ET0	032010 0      0   0   0            0            0            
ST1	032010 0      0   0   0            0            0            
ST2	032010 0      0   0   0            0            0            
ST9	032010 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 189
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0346

*032010 AOJL	15,032012
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032010 032010 0   0   341640032012 0            000000032012 
IT1	032010 0      0   0   341640032012 0            000000032012 
AT3	032010 0      0   0   000000032012 0            341640032012 
AT6	032010 032012 0   0   000000032012 0            341640032012 
FT1A	032010 032012 0   0   000000032012 0            000000032012 
FT2	032010 032012 0   0   0            0            000000032012 
FT2RQ	032010 032012 0   0   0            0            000000032012 
FT3	032010 032012 0   0   0            0            000000032012 
FT9	032011 032012 0   0   0            0            000000032012 
ET0	032011 032012 0   0   000000000001 0            000000032012 
ST1	032011 032012 0   0   000000000001 0            000000032012 
ST2	032011 032012 0   0   000000000001 0            000000032012 
ST9	032011 032012 0   0   000000000001 0            000000032012 


*032011 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	032011 032011 0   0   334000000000 0            0            
IT1	032011 0      0   0   334000000000 0            0            
AT3	032011 0      0   0   0            0            334000000000 
AT6	032011 0      0   0   0            0            334000000000 
FT0	032011 0      0   0   0            0            334000000000 
FT1A	032011 0      0   0   0            0            0            
FT9	032012 0      0   0   0            0            0            
ET0	032013 0      0   0   0            0            0            
ST1A	032013 0      0   0   0            0            0            
ST9	032013 0      0   0   0            0            0            


*032013 JUMPA	0,032014
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032013 032013 0   0   324000032014 0            000000032014 
IT1	032013 0      0   0   324000032014 0            000000032014 
AT3	032013 0      0   0   000000032014 0            324000032014 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 190
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0347

AT6	032013 032014 0   0   000000032014 0            324000032014 
FT1A	032013 032014 0   0   000000032014 0            000000032014 
FT2	032013 032014 0   0   0            0            000000032014 
FT2RQ	032013 032014 0   0   0            0            000000032014 
FT3	032013 032014 0   0   0            0            000000032014 
FT9	032014 032014 0   0   0            0            000000032014 
ET0	032014 032014 0   0   0            0            000000032014 
ST1A	032014 032014 0   0   0            0            000000032014 
ST9	032014 032014 0   0   0            0            000000032014 


*032014 CAIE	15,000001
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032014 032014 0   0   302640000001 0            000000000001 
IT1	032014 0      0   0   302640000001 0            000000000001 
AT3	032014 0      0   0   000000000001 0            302640000001 
AT6	032014 000001 0   0   000000000001 0            302640000001 
FT1A	032014 000001 0   0   000000000001 0            000000000001 
FT2	032014 000001 0   0   0            0            000000000001 
FT2RQ	032014 000001 0   0   000000000001 0            000000000001 
FT3	032014 000001 0   0   000000000001 0            000000000001 
FT9	032015 000001 0   0   000000000001 0            000000000001 
ET0	032016 000001 0   0   0            0            000000000001 
ST1A	032016 000001 0   0   0            0            000000000001 
ST9	032016 000001 0   0   0            0            000000000001 


*032016 JUMPA	0,032017
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032016 032016 0   0   324000032017 0            000000032017 
IT1	032016 0      0   0   324000032017 0            000000032017 
AT3	032016 0      0   0   000000032017 0            324000032017 
AT6	032016 032017 0   0   000000032017 0            324000032017 
FT1A	032016 032017 0   0   000000032017 0            000000032017 
FT2	032016 032017 0   0   0            0            000000032017 
FT2RQ	032016 032017 0   0   0            0            000000032017 
FT3	032016 032017 0   0   0            0            000000032017 
FT9	032017 032017 0   0   0            0            000000032017 
ET0	032017 032017 0   0   0            0            000000032017 
ST1A	032017 032017 0   0   0            0            000000032017 
ST9	032017 032017 0   0   0            0            000000032017 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 191
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0348


*032017 HRROI	14,777776
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032017 032017 0   0   561600777776 0            000000777776 
IT1	032017 0      0   0   561600777776 0            000000777776 
AT3	032017 0      0   0   000000777776 0            561600777776 
AT6	032017 777776 0   0   000000777776 0            561600777776 
FT1A	032017 777776 0   0   000000777776 0            000000777776 
FT9	032020 777776 0   0   000000777776 0            000000777776 
ET0	032020 777776 0   0   777777777776 0            000000777776 
ST1	032020 777776 0   0   777777777776 0            000000777776 
ST2	032020 777776 0   0   777777777776 0            000000777776 
ST9	032020 777776 0   0   777777777776 0            000000777776 


*032020 AOJE	14,032022
INITIAL
C(AC)=777777 777776 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032020 032020 0   0   342600032022 0            000000032022 
IT1	032020 0      0   0   342600032022 0            000000032022 
AT3	032020 0      0   0   000000032022 0            342600032022 
AT6	032020 032022 0   0   000000032022 0            342600032022 
FT1A	032020 032022 0   0   000000032022 0            000000032022 
FT2	032020 032022 0   0   0            0            000000032022 
FT2RQ	032020 032022 0   0   777777777776 0            000000032022 
FT3	032020 032022 0   0   777777777776 0            000000032022 
FT9	032021 032022 0   0   777777777776 0            000000032022 
ET0	032021 032022 0   0   777777777777 0            000000032022 
ST1	032021 032022 0   0   777777777777 0            000000032022 
ST2	032021 032022 0   0   777777777777 0            000000032022 
ST9	032021 032022 0   0   777777777777 0            000000032022 


*032021 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	032021 032021 0   0   334000000000 0            0            
IT1	032021 0      0   0   334000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 192
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0349

AT3	032021 0      0   0   0            0            334000000000 
AT6	032021 0      0   0   0            0            334000000000 
FT0	032021 0      0   0   0            0            334000000000 
FT1A	032021 0      0   0   0            0            0            
FT9	032022 0      0   0   0            0            0            
ET0	032023 0      0   0   0            0            0            
ST1A	032023 0      0   0   0            0            0            
ST9	032023 0      0   0   0            0            0            


*032023 JUMPA	0,032024
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032023 032023 0   0   324000032024 0            000000032024 
IT1	032023 0      0   0   324000032024 0            000000032024 
AT3	032023 0      0   0   000000032024 0            324000032024 
AT6	032023 032024 0   0   000000032024 0            324000032024 
FT1A	032023 032024 0   0   000000032024 0            000000032024 
FT2	032023 032024 0   0   0            0            000000032024 
FT2RQ	032023 032024 0   0   0            0            000000032024 
FT3	032023 032024 0   0   0            0            000000032024 
FT9	032024 032024 0   0   0            0            000000032024 
ET0	032024 032024 0   0   0            0            000000032024 
ST1A	032024 032024 0   0   0            0            000000032024 
ST9	032024 032024 0   0   0            0            000000032024 


*032024 CAME	14,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032024 032024 0   0   312600033462 0            777777777777 
IT1	032024 0      0   0   312600033462 0            777777777777 
AT3	032024 0      0   0   000000033462 0            312600033462 
AT6	032024 033462 0   0   000000033462 0            312600033462 
FT0	032024 033462 0   0   777777777777 0            312600033462 
FT1A	032024 033462 0   0   777777777777 0            777777777777 
FT2	032024 033462 0   0   0            0            777777777777 
FT2RQ	032024 033462 0   0   777777777777 0            777777777777 
FT3	032024 033462 0   0   777777777777 0            777777777777 
FT9	032025 033462 0   0   777777777777 0            777777777777 
ET0	032026 033462 0   0   0            0            777777777777 
ST1A	032026 033462 0   0   0            0            777777777777 
ST9	032026 033462 0   0   0            0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 193
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0350



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


*032027 SETO 	14,000000
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

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


*032030 AOJE	14,032032
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032030 032030 0   0   342600032032 0            000000032032 
IT1	032030 0      0   0   342600032032 0            000000032032 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 194
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0351

AT3	032030 0      0   0   000000032032 0            342600032032 
AT6	032030 032032 0   0   000000032032 0            342600032032 
FT1A	032030 032032 0   0   000000032032 0            000000032032 
FT2	032030 032032 0   0   0            0            000000032032 
FT2RQ	032030 032032 0   0   777777777777 0            000000032032 
FT3	032030 032032 0   0   777777777777 0            000000032032 
FT9	032031 032032 0   0   777777777777 0            000000032032 
ET0	032032 032032 0   0   0            0            000000032032 
ST1	032032 032032 0   0   0            0            000000032032 
ST2	032032 032032 0   0   0            0            000000032032 
ST9	032032 032032 0   0   0            0            000000032032 


*032032 JUMPA	0,032033
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032032 032032 0   0   324000032033 0            000000032033 
IT1	032032 0      0   0   324000032033 0            000000032033 
AT3	032032 0      0   0   000000032033 0            324000032033 
AT6	032032 032033 0   0   000000032033 0            324000032033 
FT1A	032032 032033 0   0   000000032033 0            000000032033 
FT2	032032 032033 0   0   0            0            000000032033 
FT2RQ	032032 032033 0   0   0            0            000000032033 
FT3	032032 032033 0   0   0            0            000000032033 
FT9	032033 032033 0   0   0            0            000000032033 
ET0	032033 032033 0   0   0            0            000000032033 
ST1A	032033 032033 0   0   0            0            000000032033 
ST9	032033 032033 0   0   0            0            000000032033 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032033 032033 0   0   302600000000 0            0            
IT1	032033 0      0   0   302600000000 0            0            
AT3	032033 0      0   0   0            0            302600000000 
AT6	032033 0      0   0   0            0            302600000000 
FT1A	032033 0      0   0   0            0            0            
FT2	032033 0      0   0   0            0            0            
FT2RQ	032033 0      0   0   0            0            0            
FT3	032033 0      0   0   0            0            0            
FT9	032034 0      0   0   0            0            0            
ET0	032035 0      0   0   0            0            0            
ST1A	032035 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 195
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0352

ST9	032035 0      0   0   0            0            0            


*032035 JUMPA	0,032036
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032035 032035 0   0   324000032036 0            000000032036 
IT1	032035 0      0   0   324000032036 0            000000032036 
AT3	032035 0      0   0   000000032036 0            324000032036 
AT6	032035 032036 0   0   000000032036 0            324000032036 
FT1A	032035 032036 0   0   000000032036 0            000000032036 
FT2	032035 032036 0   0   0            0            000000032036 
FT2RQ	032035 032036 0   0   0            0            000000032036 
FT3	032035 032036 0   0   0            0            000000032036 
FT9	032036 032036 0   0   0            0            000000032036 
ET0	032036 032036 0   0   0            0            000000032036 
ST1A	032036 032036 0   0   0            0            000000032036 
ST9	032036 032036 0   0   0            0            000000032036 


*032036 SETZ 	14,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032036 032036 0   0   400600000000 0            0            
IT1	032036 0      0   0   400600000000 0            0            
AT3	032036 0      0   0   0            0            400600000000 
AT6	032036 0      0   0   0            0            400600000000 
FT1A	032036 0      0   0   0            0            0            
FT9	032037 0      0   0   0            0            0            
ET0	032037 0      0   0   0            0            0            
ST1	032037 0      0   0   0            0            0            
ST2	032037 0      0   0   0            0            0            
ST9	032037 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 196
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0353

*032037 AOJE	14,032041
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032037 032037 0   0   342600032041 0            000000032041 
IT1	032037 0      0   0   342600032041 0            000000032041 
AT3	032037 0      0   0   000000032041 0            342600032041 
AT6	032037 032041 0   0   000000032041 0            342600032041 
FT1A	032037 032041 0   0   000000032041 0            000000032041 
FT2	032037 032041 0   0   0            0            000000032041 
FT2RQ	032037 032041 0   0   0            0            000000032041 
FT3	032037 032041 0   0   0            0            000000032041 
FT9	032040 032041 0   0   0            0            000000032041 
ET0	032040 032041 0   0   000000000001 0            000000032041 
ST1	032040 032041 0   0   000000000001 0            000000032041 
ST2	032040 032041 0   0   000000000001 0            000000032041 
ST9	032040 032041 0   0   000000000001 0            000000032041 


*032040 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	032040 032040 0   0   334000000000 0            0            
IT1	032040 0      0   0   334000000000 0            0            
AT3	032040 0      0   0   0            0            334000000000 
AT6	032040 0      0   0   0            0            334000000000 
FT0	032040 0      0   0   0            0            334000000000 
FT1A	032040 0      0   0   0            0            0            
FT9	032041 0      0   0   0            0            0            
ET0	032042 0      0   0   0            0            0            
ST1A	032042 0      0   0   0            0            0            
ST9	032042 0      0   0   0            0            0            


*032042 JUMPA	0,032043
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032042 032042 0   0   324000032043 0            000000032043 
IT1	032042 0      0   0   324000032043 0            000000032043 
AT3	032042 0      0   0   000000032043 0            324000032043 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 197
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0354

AT6	032042 032043 0   0   000000032043 0            324000032043 
FT1A	032042 032043 0   0   000000032043 0            000000032043 
FT2	032042 032043 0   0   0            0            000000032043 
FT2RQ	032042 032043 0   0   0            0            000000032043 
FT3	032042 032043 0   0   0            0            000000032043 
FT9	032043 032043 0   0   0            0            000000032043 
ET0	032043 032043 0   0   0            0            000000032043 
ST1A	032043 032043 0   0   0            0            000000032043 
ST9	032043 032043 0   0   0            0            000000032043 


*032043 CAIE	14,000001
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032043 032043 0   0   302600000001 0            000000000001 
IT1	032043 0      0   0   302600000001 0            000000000001 
AT3	032043 0      0   0   000000000001 0            302600000001 
AT6	032043 000001 0   0   000000000001 0            302600000001 
FT1A	032043 000001 0   0   000000000001 0            000000000001 
FT2	032043 000001 0   0   0            0            000000000001 
FT2RQ	032043 000001 0   0   000000000001 0            000000000001 
FT3	032043 000001 0   0   000000000001 0            000000000001 
FT9	032044 000001 0   0   000000000001 0            000000000001 
ET0	032045 000001 0   0   0            0            000000000001 
ST1A	032045 000001 0   0   0            0            000000000001 
ST9	032045 000001 0   0   0            0            000000000001 


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

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 198
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0355


*032046 HRROI	13,777776
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032046 032046 0   0   561540777776 0            000000777776 
IT1	032046 0      0   0   561540777776 0            000000777776 
AT3	032046 0      0   0   000000777776 0            561540777776 
AT6	032046 777776 0   0   000000777776 0            561540777776 
FT1A	032046 777776 0   0   000000777776 0            000000777776 
FT9	032047 777776 0   0   000000777776 0            000000777776 
ET0	032047 777776 0   0   777777777776 0            000000777776 
ST1	032047 777776 0   0   777777777776 0            000000777776 
ST2	032047 777776 0   0   777777777776 0            000000777776 
ST9	032047 777776 0   0   777777777776 0            000000777776 


*032047 AOJLE	13,032051
INITIAL
C(AC)=777777 777776 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032047 032047 0   0   343540032051 0            000000032051 
IT1	032047 0      0   0   343540032051 0            000000032051 
AT3	032047 0      0   0   000000032051 0            343540032051 
AT6	032047 032051 0   0   000000032051 0            343540032051 
FT1A	032047 032051 0   0   000000032051 0            000000032051 
FT2	032047 032051 0   0   0            0            000000032051 
FT2RQ	032047 032051 0   0   777777777776 0            000000032051 
FT3	032047 032051 0   0   777777777776 0            000000032051 
FT9	032050 032051 0   0   777777777776 0            000000032051 
ET0	032051 032051 0   0   777777777777 0            000000032051 
ST1	032051 032051 0   0   777777777777 0            000000032051 
ST2	032051 032051 0   0   777777777777 0            000000032051 
ST9	032051 032051 0   0   777777777777 0            000000032051 


*032051 JUMPA	0,032052
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032051 032051 0   0   324000032052 0            000000032052 
IT1	032051 0      0   0   324000032052 0            000000032052 
AT3	032051 0      0   0   000000032052 0            324000032052 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 199
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0356

AT6	032051 032052 0   0   000000032052 0            324000032052 
FT1A	032051 032052 0   0   000000032052 0            000000032052 
FT2	032051 032052 0   0   0            0            000000032052 
FT2RQ	032051 032052 0   0   0            0            000000032052 
FT3	032051 032052 0   0   0            0            000000032052 
FT9	032052 032052 0   0   0            0            000000032052 
ET0	032052 032052 0   0   0            0            000000032052 
ST1A	032052 032052 0   0   0            0            000000032052 
ST9	032052 032052 0   0   0            0            000000032052 


*032052 CAME	13,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032052 032052 0   0   312540033462 0            777777777777 
IT1	032052 0      0   0   312540033462 0            777777777777 
AT3	032052 0      0   0   000000033462 0            312540033462 
AT6	032052 033462 0   0   000000033462 0            312540033462 
FT0	032052 033462 0   0   777777777777 0            312540033462 
FT1A	032052 033462 0   0   777777777777 0            777777777777 
FT2	032052 033462 0   0   0            0            777777777777 
FT2RQ	032052 033462 0   0   777777777777 0            777777777777 
FT3	032052 033462 0   0   777777777777 0            777777777777 
FT9	032053 033462 0   0   777777777777 0            777777777777 
ET0	032054 033462 0   0   0            0            777777777777 
ST1A	032054 033462 0   0   0            0            777777777777 
ST9	032054 033462 0   0   0            0            777777777777 


*032054 JUMPA	0,032055
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032054 032054 0   0   324000032055 0            000000032055 
IT1	032054 0      0   0   324000032055 0            000000032055 
AT3	032054 0      0   0   000000032055 0            324000032055 
AT6	032054 032055 0   0   000000032055 0            324000032055 
FT1A	032054 032055 0   0   000000032055 0            000000032055 
FT2	032054 032055 0   0   0            0            000000032055 
FT2RQ	032054 032055 0   0   0            0            000000032055 
FT3	032054 032055 0   0   0            0            000000032055 
FT9	032055 032055 0   0   0            0            000000032055 
ET0	032055 032055 0   0   0            0            000000032055 
ST1A	032055 032055 0   0   0            0            000000032055 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 200
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0357

ST9	032055 032055 0   0   0            0            000000032055 


*032055 SETO 	13,000000
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

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


*032056 AOJLE	13,032060
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032056 032056 0   0   343540032060 0            000000032060 
IT1	032056 0      0   0   343540032060 0            000000032060 
AT3	032056 0      0   0   000000032060 0            343540032060 
AT6	032056 032060 0   0   000000032060 0            343540032060 
FT1A	032056 032060 0   0   000000032060 0            000000032060 
FT2	032056 032060 0   0   0            0            000000032060 
FT2RQ	032056 032060 0   0   777777777777 0            000000032060 
FT3	032056 032060 0   0   777777777777 0            000000032060 
FT9	032057 032060 0   0   777777777777 0            000000032060 
ET0	032060 032060 0   0   0            0            000000032060 
ST1	032060 032060 0   0   0            0            000000032060 
ST2	032060 032060 0   0   0            0            000000032060 
ST9	032060 032060 0   0   0            0            000000032060 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 201
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0358

*032060 JUMPA	0,032061
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032060 032060 0   0   324000032061 0            000000032061 
IT1	032060 0      0   0   324000032061 0            000000032061 
AT3	032060 0      0   0   000000032061 0            324000032061 
AT6	032060 032061 0   0   000000032061 0            324000032061 
FT1A	032060 032061 0   0   000000032061 0            000000032061 
FT2	032060 032061 0   0   0            0            000000032061 
FT2RQ	032060 032061 0   0   0            0            000000032061 
FT3	032060 032061 0   0   0            0            000000032061 
FT9	032061 032061 0   0   0            0            000000032061 
ET0	032061 032061 0   0   0            0            000000032061 
ST1A	032061 032061 0   0   0            0            000000032061 
ST9	032061 032061 0   0   0            0            000000032061 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032061 032061 0   0   302540000000 0            0            
IT1	032061 0      0   0   302540000000 0            0            
AT3	032061 0      0   0   0            0            302540000000 
AT6	032061 0      0   0   0            0            302540000000 
FT1A	032061 0      0   0   0            0            0            
FT2	032061 0      0   0   0            0            0            
FT2RQ	032061 0      0   0   0            0            0            
FT3	032061 0      0   0   0            0            0            
FT9	032062 0      0   0   0            0            0            
ET0	032063 0      0   0   0            0            0            
ST1A	032063 0      0   0   0            0            0            
ST9	032063 0      0   0   0            0            0            


*032063 JUMPA	0,032064
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032063 032063 0   0   324000032064 0            000000032064 
IT1	032063 0      0   0   324000032064 0            000000032064 
AT3	032063 0      0   0   000000032064 0            324000032064 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 202
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0359

AT6	032063 032064 0   0   000000032064 0            324000032064 
FT1A	032063 032064 0   0   000000032064 0            000000032064 
FT2	032063 032064 0   0   0            0            000000032064 
FT2RQ	032063 032064 0   0   0            0            000000032064 
FT3	032063 032064 0   0   0            0            000000032064 
FT9	032064 032064 0   0   0            0            000000032064 
ET0	032064 032064 0   0   0            0            000000032064 
ST1A	032064 032064 0   0   0            0            000000032064 
ST9	032064 032064 0   0   0            0            000000032064 


*032064 SETZ 	13,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032064 032064 0   0   400540000000 0            0            
IT1	032064 0      0   0   400540000000 0            0            
AT3	032064 0      0   0   0            0            400540000000 
AT6	032064 0      0   0   0            0            400540000000 
FT1A	032064 0      0   0   0            0            0            
FT9	032065 0      0   0   0            0            0            
ET0	032065 0      0   0   0            0            0            
ST1	032065 0      0   0   0            0            0            
ST2	032065 0      0   0   0            0            0            
ST9	032065 0      0   0   0            0            0            


*032065 AOJLE	13,032067
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032065 032065 0   0   343540032067 0            000000032067 
IT1	032065 0      0   0   343540032067 0            000000032067 
AT3	032065 0      0   0   000000032067 0            343540032067 
AT6	032065 032067 0   0   000000032067 0            343540032067 
FT1A	032065 032067 0   0   000000032067 0            000000032067 
FT2	032065 032067 0   0   0            0            000000032067 
FT2RQ	032065 032067 0   0   0            0            000000032067 
FT3	032065 032067 0   0   0            0            000000032067 
FT9	032066 032067 0   0   0            0            000000032067 
ET0	032066 032067 0   0   000000000001 0            000000032067 
ST1	032066 032067 0   0   000000000001 0            000000032067 
ST2	032066 032067 0   0   000000000001 0            000000032067 
ST9	032066 032067 0   0   000000000001 0            000000032067 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 203
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0360


*032066 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	032066 032066 0   0   334000000000 0            0            
IT1	032066 0      0   0   334000000000 0            0            
AT3	032066 0      0   0   0            0            334000000000 
AT6	032066 0      0   0   0            0            334000000000 
FT0	032066 0      0   0   0            0            334000000000 
FT1A	032066 0      0   0   0            0            0            
FT9	032067 0      0   0   0            0            0            
ET0	032070 0      0   0   0            0            0            
ST1A	032070 0      0   0   0            0            0            
ST9	032070 0      0   0   0            0            0            


*032070 JUMPA	0,032071
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032070 032070 0   0   324000032071 0            000000032071 
IT1	032070 0      0   0   324000032071 0            000000032071 
AT3	032070 0      0   0   000000032071 0            324000032071 
AT6	032070 032071 0   0   000000032071 0            324000032071 
FT1A	032070 032071 0   0   000000032071 0            000000032071 
FT2	032070 032071 0   0   0            0            000000032071 
FT2RQ	032070 032071 0   0   0            0            000000032071 
FT3	032070 032071 0   0   0            0            000000032071 
FT9	032071 032071 0   0   0            0            000000032071 
ET0	032071 032071 0   0   0            0            000000032071 
ST1A	032071 032071 0   0   0            0            000000032071 
ST9	032071 032071 0   0   0            0            000000032071 


*032071 CAIE	13,000001
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032071 032071 0   0   302540000001 0            000000000001 
IT1	032071 0      0   0   302540000001 0            000000000001 
AT3	032071 0      0   0   000000000001 0            302540000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 204
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0361

AT6	032071 000001 0   0   000000000001 0            302540000001 
FT1A	032071 000001 0   0   000000000001 0            000000000001 
FT2	032071 000001 0   0   0            0            000000000001 
FT2RQ	032071 000001 0   0   000000000001 0            000000000001 
FT3	032071 000001 0   0   000000000001 0            000000000001 
FT9	032072 000001 0   0   000000000001 0            000000000001 
ET0	032073 000001 0   0   0            0            000000000001 
ST1A	032073 000001 0   0   0            0            000000000001 
ST9	032073 000001 0   0   0            0            000000000001 


*032073 JUMPA	0,032074
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032073 032073 0   0   324000032074 0            000000032074 
IT1	032073 0      0   0   324000032074 0            000000032074 
AT3	032073 0      0   0   000000032074 0            324000032074 
AT6	032073 032074 0   0   000000032074 0            324000032074 
FT1A	032073 032074 0   0   000000032074 0            000000032074 
FT2	032073 032074 0   0   0            0            000000032074 
FT2RQ	032073 032074 0   0   0            0            000000032074 
FT3	032073 032074 0   0   0            0            000000032074 
FT9	032074 032074 0   0   0            0            000000032074 
ET0	032074 032074 0   0   0            0            000000032074 
ST1A	032074 032074 0   0   0            0            000000032074 
ST9	032074 032074 0   0   0            0            000000032074 


*032074 HRROI	12,777776
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032074 032074 0   0   561500777776 0            000000777776 
IT1	032074 0      0   0   561500777776 0            000000777776 
AT3	032074 0      0   0   000000777776 0            561500777776 
AT6	032074 777776 0   0   000000777776 0            561500777776 
FT1A	032074 777776 0   0   000000777776 0            000000777776 
FT9	032075 777776 0   0   000000777776 0            000000777776 
ET0	032075 777776 0   0   777777777776 0            000000777776 
ST1	032075 777776 0   0   777777777776 0            000000777776 
ST2	032075 777776 0   0   777777777776 0            000000777776 
ST9	032075 777776 0   0   777777777776 0            000000777776 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 205
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0362

*032075 AOJA	12,032077
INITIAL
C(AC)=777777 777776 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032075 032075 0   0   344500032077 0            000000032077 
IT1	032075 0      0   0   344500032077 0            000000032077 
AT3	032075 0      0   0   000000032077 0            344500032077 
AT6	032075 032077 0   0   000000032077 0            344500032077 
FT1A	032075 032077 0   0   000000032077 0            000000032077 
FT2	032075 032077 0   0   0            0            000000032077 
FT2RQ	032075 032077 0   0   777777777776 0            000000032077 
FT3	032075 032077 0   0   777777777776 0            000000032077 
FT9	032076 032077 0   0   777777777776 0            000000032077 
ET0	032077 032077 0   0   777777777777 0            000000032077 
ST1	032077 032077 0   0   777777777777 0            000000032077 
ST2	032077 032077 0   0   777777777777 0            000000032077 
ST9	032077 032077 0   0   777777777777 0            000000032077 


*032077 JUMPA	0,032100
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032077 032077 0   0   324000032100 0            000000032100 
IT1	032077 0      0   0   324000032100 0            000000032100 
AT3	032077 0      0   0   000000032100 0            324000032100 
AT6	032077 0      0   0   000000032100 0            324000032100 
FT1A	032077 0      0   0   000000032100 0            000000032100 
FT2	032077 0      0   0   0            0            000000032100 
FT2RQ	032077 0      0   0   0            0            000000032100 
FT3	032077 0      0   0   0            0            000000032100 
FT9	0      0      0   0   0            0            000000032100 
ET0	0      0      0   0   0            0            000000032100 
ST1A	0      0      0   0   0            0            000000032100 
ST9	0      0      0   0   0            0            000000032100 


*032100 CAME	12,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   312500033462 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 206
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0363

IT1	0      0      0   0   312500033462 0            777777777777 
AT3	0      0      0   0   000000033462 0            312500033462 
AT6	0      033462 0   0   000000033462 0            312500033462 
FT0	0      033462 0   0   777777777777 0            312500033462 
FT1A	0      033462 0   0   777777777777 0            777777777777 
FT2	0      033462 0   0   0            0            777777777777 
FT2RQ	0      033462 0   0   777777777777 0            777777777777 
FT3	0      033462 0   0   777777777777 0            777777777777 
FT9	032101 033462 0   0   777777777777 0            777777777777 
ET0	032102 033462 0   0   0            0            777777777777 
ST1A	032102 033462 0   0   0            0            777777777777 
ST9	032102 033462 0   0   0            0            777777777777 


*032102 JUMPA	0,032103
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032102 032102 0   0   324000032103 0            000000032103 
IT1	032102 0      0   0   324000032103 0            000000032103 
AT3	032102 0      0   0   000000032103 0            324000032103 
AT6	032102 032103 0   0   000000032103 0            324000032103 
FT1A	032102 032103 0   0   000000032103 0            000000032103 
FT2	032102 032103 0   0   0            0            000000032103 
FT2RQ	032102 032103 0   0   0            0            000000032103 
FT3	032102 032103 0   0   0            0            000000032103 
FT9	032103 032103 0   0   0            0            000000032103 
ET0	032103 032103 0   0   0            0            000000032103 
ST1A	032103 032103 0   0   0            0            000000032103 
ST9	032103 032103 0   0   0            0            000000032103 


*032103 SETO 	12,000000
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032103 032103 0   0   474500000000 0            0            
IT1	032103 0      0   0   474500000000 0            0            
AT3	032103 0      0   0   0            0            474500000000 
AT6	032103 0      0   0   0            0            474500000000 
FT1A	032103 0      0   0   0            0            0            
FT9	032104 0      0   0   0            0            0            
ET0	032104 0      0   0   777777777777 0            0            
ST1	032104 0      0   0   777777777777 0            0            
ST2	032104 0      0   0   777777777777 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 207
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0364

ST9	032104 0      0   0   777777777777 0            0            


*032104 AOJA	12,032106
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032104 032104 0   0   344500032106 0            000000032106 
IT1	032104 0      0   0   344500032106 0            000000032106 
AT3	032104 0      0   0   000000032106 0            344500032106 
AT6	032104 032106 0   0   000000032106 0            344500032106 
FT1A	032104 032106 0   0   000000032106 0            000000032106 
FT2	032104 032106 0   0   0            0            000000032106 
FT2RQ	032104 032106 0   0   777777777777 0            000000032106 
FT3	032104 032106 0   0   777777777777 0            000000032106 
FT9	032105 032106 0   0   777777777777 0            000000032106 
ET0	032106 032106 0   0   0            0            000000032106 
ST1	032106 032106 0   0   0            0            000000032106 
ST2	032106 032106 0   0   0            0            000000032106 
ST9	032106 032106 0   0   0            0            000000032106 


*032106 JUMPA	0,032107
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032106 032106 0   0   324000032107 0            000000032107 
IT1	032106 0      0   0   324000032107 0            000000032107 
AT3	032106 0      0   0   000000032107 0            324000032107 
AT6	032106 032107 0   0   000000032107 0            324000032107 
FT1A	032106 032107 0   0   000000032107 0            000000032107 
FT2	032106 032107 0   0   0            0            000000032107 
FT2RQ	032106 032107 0   0   0            0            000000032107 
FT3	032106 032107 0   0   0            0            000000032107 
FT9	032107 032107 0   0   0            0            000000032107 
ET0	032107 032107 0   0   0            0            000000032107 
ST1A	032107 032107 0   0   0            0            000000032107 
ST9	032107 032107 0   0   0            0            000000032107 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 208
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0365

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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032107 032107 0   0   302500000000 0            0            
IT1	032107 0      0   0   302500000000 0            0            
AT3	032107 0      0   0   0            0            302500000000 
AT6	032107 0      0   0   0            0            302500000000 
FT1A	032107 0      0   0   0            0            0            
FT2	032107 0      0   0   0            0            0            
FT2RQ	032107 0      0   0   0            0            0            
FT3	032107 0      0   0   0            0            0            
FT9	032110 0      0   0   0            0            0            
ET0	032111 0      0   0   0            0            0            
ST1A	032111 0      0   0   0            0            0            
ST9	032111 0      0   0   0            0            0            


*032111 JUMPA	0,032112
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032111 032111 0   0   324000032112 0            000000032112 
IT1	032111 0      0   0   324000032112 0            000000032112 
AT3	032111 0      0   0   000000032112 0            324000032112 
AT6	032111 032112 0   0   000000032112 0            324000032112 
FT1A	032111 032112 0   0   000000032112 0            000000032112 
FT2	032111 032112 0   0   0            0            000000032112 
FT2RQ	032111 032112 0   0   0            0            000000032112 
FT3	032111 032112 0   0   0            0            000000032112 
FT9	032112 032112 0   0   0            0            000000032112 
ET0	032112 032112 0   0   0            0            000000032112 
ST1A	032112 032112 0   0   0            0            000000032112 
ST9	032112 032112 0   0   0            0            000000032112 


*032112 SETZ 	12,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032112 032112 0   0   400500000000 0            0            
IT1	032112 0      0   0   400500000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 209
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0366

AT3	032112 0      0   0   0            0            400500000000 
AT6	032112 0      0   0   0            0            400500000000 
FT1A	032112 0      0   0   0            0            0            
FT9	032113 0      0   0   0            0            0            
ET0	032113 0      0   0   0            0            0            
ST1	032113 0      0   0   0            0            0            
ST2	032113 0      0   0   0            0            0            
ST9	032113 0      0   0   0            0            0            


*032113 AOJA	12,032115
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032113 032113 0   0   344500032115 0            000000032115 
IT1	032113 0      0   0   344500032115 0            000000032115 
AT3	032113 0      0   0   000000032115 0            344500032115 
AT6	032113 032115 0   0   000000032115 0            344500032115 
FT1A	032113 032115 0   0   000000032115 0            000000032115 
FT2	032113 032115 0   0   0            0            000000032115 
FT2RQ	032113 032115 0   0   0            0            000000032115 
FT3	032113 032115 0   0   0            0            000000032115 
FT9	032114 032115 0   0   0            0            000000032115 
ET0	032115 032115 0   0   000000000001 0            000000032115 
ST1	032115 032115 0   0   000000000001 0            000000032115 
ST2	032115 032115 0   0   000000000001 0            000000032115 
ST9	032115 032115 0   0   000000000001 0            000000032115 


*032115 JUMPA	0,032116
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032115 032115 0   0   324000032116 0            000000032116 
IT1	032115 0      0   0   324000032116 0            000000032116 
AT3	032115 0      0   0   000000032116 0            324000032116 
AT6	032115 032116 0   0   000000032116 0            324000032116 
FT1A	032115 032116 0   0   000000032116 0            000000032116 
FT2	032115 032116 0   0   0            0            000000032116 
FT2RQ	032115 032116 0   0   0            0            000000032116 
FT3	032115 032116 0   0   0            0            000000032116 
FT9	032116 032116 0   0   0            0            000000032116 
ET0	032116 032116 0   0   0            0            000000032116 
ST1A	032116 032116 0   0   0            0            000000032116 
ST9	032116 032116 0   0   0            0            000000032116 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 210
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0367


*032116 CAIE	12,000001
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032116 032116 0   0   302500000001 0            000000000001 
IT1	032116 0      0   0   302500000001 0            000000000001 
AT3	032116 0      0   0   000000000001 0            302500000001 
AT6	032116 000001 0   0   000000000001 0            302500000001 
FT1A	032116 000001 0   0   000000000001 0            000000000001 
FT2	032116 000001 0   0   0            0            000000000001 
FT2RQ	032116 000001 0   0   000000000001 0            000000000001 
FT3	032116 000001 0   0   000000000001 0            000000000001 
FT9	032117 000001 0   0   000000000001 0            000000000001 
ET0	032120 000001 0   0   0            0            000000000001 
ST1A	032120 000001 0   0   0            0            000000000001 
ST9	032120 000001 0   0   0            0            000000000001 


*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 HRROI	11,777776
INITIAL
C(AC)=000000 000004 
FINAL
C(AC)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032121 032121 0   0   561440777776 0            000000777776 
IT1	032121 0      0   0   561440777776 0            000000777776 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 211
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0368

AT3	032121 0      0   0   000000777776 0            561440777776 
AT6	032121 777776 0   0   000000777776 0            561440777776 
FT1A	032121 777776 0   0   000000777776 0            000000777776 
FT9	032122 777776 0   0   000000777776 0            000000777776 
ET0	032122 777776 0   0   777777777776 0            000000777776 
ST1	032122 777776 0   0   777777777776 0            000000777776 
ST2	032122 777776 0   0   777777777776 0            000000777776 
ST9	032122 777776 0   0   777777777776 0            000000777776 


*032122 AOJGE	11,032124
INITIAL
C(AC)=777777 777776 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032122 032122 0   0   345440032124 0            000000032124 
IT1	032122 0      0   0   345440032124 0            000000032124 
AT3	032122 0      0   0   000000032124 0            345440032124 
AT6	032122 032124 0   0   000000032124 0            345440032124 
FT1A	032122 032124 0   0   000000032124 0            000000032124 
FT2	032122 032124 0   0   0            0            000000032124 
FT2RQ	032122 032124 0   0   777777777776 0            000000032124 
FT3	032122 032124 0   0   777777777776 0            000000032124 
FT9	032123 032124 0   0   777777777776 0            000000032124 
ET0	032123 032124 0   0   777777777777 0            000000032124 
ST1	032123 032124 0   0   777777777777 0            000000032124 
ST2	032123 032124 0   0   777777777777 0            000000032124 
ST9	032123 032124 0   0   777777777777 0            000000032124 


*032123 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	032123 032123 0   0   334000000000 0            0            
IT1	032123 0      0   0   334000000000 0            0            
AT3	032123 0      0   0   0            0            334000000000 
AT6	032123 0      0   0   0            0            334000000000 
FT0	032123 0      0   0   0            0            334000000000 
FT1A	032123 0      0   0   0            0            0            
FT9	032124 0      0   0   0            0            0            
ET0	032125 0      0   0   0            0            0            
ST1A	032125 0      0   0   0            0            0            
ST9	032125 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 212
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0369

*032125 JUMPA	0,032126
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032125 032125 0   0   324000032126 0            000000032126 
IT1	032125 0      0   0   324000032126 0            000000032126 
AT3	032125 0      0   0   000000032126 0            324000032126 
AT6	032125 032126 0   0   000000032126 0            324000032126 
FT1A	032125 032126 0   0   000000032126 0            000000032126 
FT2	032125 032126 0   0   0            0            000000032126 
FT2RQ	032125 032126 0   0   0            0            000000032126 
FT3	032125 032126 0   0   0            0            000000032126 
FT9	032126 032126 0   0   0            0            000000032126 
ET0	032126 032126 0   0   0            0            000000032126 
ST1A	032126 032126 0   0   0            0            000000032126 
ST9	032126 032126 0   0   0            0            000000032126 


*032126 CAME	11,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032126 032126 0   0   312440033462 0            777777777777 
IT1	032126 0      0   0   312440033462 0            777777777777 
AT3	032126 0      0   0   000000033462 0            312440033462 
AT6	032126 033462 0   0   000000033462 0            312440033462 
FT0	032126 033462 0   0   777777777777 0            312440033462 
FT1A	032126 033462 0   0   777777777777 0            777777777777 
FT2	032126 033462 0   0   0            0            777777777777 
FT2RQ	032126 033462 0   0   777777777777 0            777777777777 
FT3	032126 033462 0   0   777777777777 0            777777777777 
FT9	032127 033462 0   0   777777777777 0            777777777777 
ET0	032130 033462 0   0   0            0            777777777777 
ST1A	032130 033462 0   0   0            0            777777777777 
ST9	032130 033462 0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 213
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0370

*032130 JUMPA	0,032131
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032130 032130 0   0   324000032131 0            000000032131 
IT1	032130 0      0   0   324000032131 0            000000032131 
AT3	032130 0      0   0   000000032131 0            324000032131 
AT6	032130 032131 0   0   000000032131 0            324000032131 
FT1A	032130 032131 0   0   000000032131 0            000000032131 
FT2	032130 032131 0   0   0            0            000000032131 
FT2RQ	032130 032131 0   0   0            0            000000032131 
FT3	032130 032131 0   0   0            0            000000032131 
FT9	032131 032131 0   0   0            0            000000032131 
ET0	032131 032131 0   0   0            0            000000032131 
ST1A	032131 032131 0   0   0            0            000000032131 
ST9	032131 032131 0   0   0            0            000000032131 


*032131 SETO 	11,000000
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

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


*032132 AOJGE	11,032134
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032132 032132 0   0   345440032134 0            000000032134 
IT1	032132 0      0   0   345440032134 0            000000032134 
AT3	032132 0      0   0   000000032134 0            345440032134 
AT6	032132 032134 0   0   000000032134 0            345440032134 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 214
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0371

FT1A	032132 032134 0   0   000000032134 0            000000032134 
FT2	032132 032134 0   0   0            0            000000032134 
FT2RQ	032132 032134 0   0   777777777777 0            000000032134 
FT3	032132 032134 0   0   777777777777 0            000000032134 
FT9	032133 032134 0   0   777777777777 0            000000032134 
ET0	032134 032134 0   0   0            0            000000032134 
ST1	032134 032134 0   0   0            0            000000032134 
ST2	032134 032134 0   0   0            0            000000032134 
ST9	032134 032134 0   0   0            0            000000032134 


*032134 JUMPA	0,032135
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032134 032134 0   0   324000032135 0            000000032135 
IT1	032134 0      0   0   324000032135 0            000000032135 
AT3	032134 0      0   0   000000032135 0            324000032135 
AT6	032134 032135 0   0   000000032135 0            324000032135 
FT1A	032134 032135 0   0   000000032135 0            000000032135 
FT2	032134 032135 0   0   0            0            000000032135 
FT2RQ	032134 032135 0   0   0            0            000000032135 
FT3	032134 032135 0   0   0            0            000000032135 
FT9	032135 032135 0   0   0            0            000000032135 
ET0	032135 032135 0   0   0            0            000000032135 
ST1A	032135 032135 0   0   0            0            000000032135 
ST9	032135 032135 0   0   0            0            000000032135 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032135 032135 0   0   302440000000 0            0            
IT1	032135 0      0   0   302440000000 0            0            
AT3	032135 0      0   0   0            0            302440000000 
AT6	032135 0      0   0   0            0            302440000000 
FT1A	032135 0      0   0   0            0            0            
FT2	032135 0      0   0   0            0            0            
FT2RQ	032135 0      0   0   0            0            0            
FT3	032135 0      0   0   0            0            0            
FT9	032136 0      0   0   0            0            0            
ET0	032137 0      0   0   0            0            0            
ST1A	032137 0      0   0   0            0            0            
ST9	032137 0      0   0   0            0            0            

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 215
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0372


*032137 JUMPA	0,032140
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032137 032137 0   0   324000032140 0            000000032140 
IT1	032137 0      0   0   324000032140 0            000000032140 
AT3	032137 0      0   0   000000032140 0            324000032140 
AT6	032137 032140 0   0   000000032140 0            324000032140 
FT1A	032137 032140 0   0   000000032140 0            000000032140 
FT2	032137 032140 0   0   0            0            000000032140 
FT2RQ	032137 032140 0   0   0            0            000000032140 
FT3	032137 032140 0   0   0            0            000000032140 
FT9	032140 032140 0   0   0            0            000000032140 
ET0	032140 032140 0   0   0            0            000000032140 
ST1A	032140 032140 0   0   0            0            000000032140 
ST9	032140 032140 0   0   0            0            000000032140 


*032140 SETZ 	11,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032140 032140 0   0   400440000000 0            0            
IT1	032140 0      0   0   400440000000 0            0            
AT3	032140 0      0   0   0            0            400440000000 
AT6	032140 0      0   0   0            0            400440000000 
FT1A	032140 0      0   0   0            0            0            
FT9	032141 0      0   0   0            0            0            
ET0	032141 0      0   0   0            0            0            
ST1	032141 0      0   0   0            0            0            
ST2	032141 0      0   0   0            0            0            
ST9	032141 0      0   0   0            0            0            


*032141 AOJGE	11,032143
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032141 032141 0   0   345440032143 0            000000032143 
IT1	032141 0      0   0   345440032143 0            000000032143 
AT3	032141 0      0   0   000000032143 0            345440032143 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 216
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0373

AT6	032141 032143 0   0   000000032143 0            345440032143 
FT1A	032141 032143 0   0   000000032143 0            000000032143 
FT2	032141 032143 0   0   0            0            000000032143 
FT2RQ	032141 032143 0   0   0            0            000000032143 
FT3	032141 032143 0   0   0            0            000000032143 
FT9	032142 032143 0   0   0            0            000000032143 
ET0	032143 032143 0   0   000000000001 0            000000032143 
ST1	032143 032143 0   0   000000000001 0            000000032143 
ST2	032143 032143 0   0   000000000001 0            000000032143 
ST9	032143 032143 0   0   000000000001 0            000000032143 


*032143 JUMPA	0,032144
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032143 032143 0   0   324000032144 0            000000032144 
IT1	032143 0      0   0   324000032144 0            000000032144 
AT3	032143 0      0   0   000000032144 0            324000032144 
AT6	032143 032144 0   0   000000032144 0            324000032144 
FT1A	032143 032144 0   0   000000032144 0            000000032144 
FT2	032143 032144 0   0   0            0            000000032144 
FT2RQ	032143 032144 0   0   0            0            000000032144 
FT3	032143 032144 0   0   0            0            000000032144 
FT9	032144 032144 0   0   0            0            000000032144 
ET0	032144 032144 0   0   0            0            000000032144 
ST1A	032144 032144 0   0   0            0            000000032144 
ST9	032144 032144 0   0   0            0            000000032144 


*032144 CAIE	11,000001
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032144 032144 0   0   302440000001 0            000000000001 
IT1	032144 0      0   0   302440000001 0            000000000001 
AT3	032144 0      0   0   000000000001 0            302440000001 
AT6	032144 000001 0   0   000000000001 0            302440000001 
FT1A	032144 000001 0   0   000000000001 0            000000000001 
FT2	032144 000001 0   0   0            0            000000000001 
FT2RQ	032144 000001 0   0   000000000001 0            000000000001 
FT3	032144 000001 0   0   000000000001 0            000000000001 
FT9	032145 000001 0   0   000000000001 0            000000000001 
ET0	032146 000001 0   0   0            0            000000000001 
ST1A	032146 000001 0   0   0            0            000000000001 
ST9	032146 000001 0   0   0            0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 217
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0374



*032146 JUMPA	0,032147
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032146 032146 0   0   324000032147 0            000000032147 
IT1	032146 0      0   0   324000032147 0            000000032147 
AT3	032146 0      0   0   000000032147 0            324000032147 
AT6	032146 032147 0   0   000000032147 0            324000032147 
FT1A	032146 032147 0   0   000000032147 0            000000032147 
FT2	032146 032147 0   0   0            0            000000032147 
FT2RQ	032146 032147 0   0   0            0            000000032147 
FT3	032146 032147 0   0   0            0            000000032147 
FT9	032147 032147 0   0   0            0            000000032147 
ET0	032147 032147 0   0   0            0            000000032147 
ST1A	032147 032147 0   0   0            0            000000032147 
ST9	032147 032147 0   0   0            0            000000032147 


*032147 HRROI	10,777776
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032147 032147 0   0   561400777776 0            000000777776 
IT1	032147 0      0   0   561400777776 0            000000777776 
AT3	032147 0      0   0   000000777776 0            561400777776 
AT6	032147 777776 0   0   000000777776 0            561400777776 
FT1A	032147 777776 0   0   000000777776 0            000000777776 
FT9	032150 777776 0   0   000000777776 0            000000777776 
ET0	032150 777776 0   0   777777777776 0            000000777776 
ST1	032150 777776 0   0   777777777776 0            000000777776 
ST2	032150 777776 0   0   777777777776 0            000000777776 
ST9	032150 777776 0   0   777777777776 0            000000777776 


*032150 AOJN	10,032152
INITIAL
C(AC)=777777 777776 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032150 032150 0   0   346400032152 0            000000032152 
IT1	032150 0      0   0   346400032152 0            000000032152 
AT3	032150 0      0   0   000000032152 0            346400032152 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 218
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0375

AT6	032150 032152 0   0   000000032152 0            346400032152 
FT1A	032150 032152 0   0   000000032152 0            000000032152 
FT2	032150 032152 0   0   0            0            000000032152 
FT2RQ	032150 032152 0   0   777777777776 0            000000032152 
FT3	032150 032152 0   0   777777777776 0            000000032152 
FT9	032151 032152 0   0   777777777776 0            000000032152 
ET0	032152 032152 0   0   777777777777 0            000000032152 
ST1	032152 032152 0   0   777777777777 0            000000032152 
ST2	032152 032152 0   0   777777777777 0            000000032152 
ST9	032152 032152 0   0   777777777777 0            000000032152 


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


*032153 CAME	10,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032153 032153 0   0   312400033462 0            777777777777 
IT1	032153 0      0   0   312400033462 0            777777777777 
AT3	032153 0      0   0   000000033462 0            312400033462 
AT6	032153 033462 0   0   000000033462 0            312400033462 
FT0	032153 033462 0   0   777777777777 0            312400033462 
FT1A	032153 033462 0   0   777777777777 0            777777777777 
FT2	032153 033462 0   0   0            0            777777777777 
FT2RQ	032153 033462 0   0   777777777777 0            777777777777 
FT3	032153 033462 0   0   777777777777 0            777777777777 
FT9	032154 033462 0   0   777777777777 0            777777777777 
ET0	032155 033462 0   0   0            0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 219
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0376

ST1A	032155 033462 0   0   0            0            777777777777 
ST9	032155 033462 0   0   0            0            777777777777 


*032155 JUMPA	0,032156
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032155 032155 0   0   324000032156 0            000000032156 
IT1	032155 0      0   0   324000032156 0            000000032156 
AT3	032155 0      0   0   000000032156 0            324000032156 
AT6	032155 032156 0   0   000000032156 0            324000032156 
FT1A	032155 032156 0   0   000000032156 0            000000032156 
FT2	032155 032156 0   0   0            0            000000032156 
FT2RQ	032155 032156 0   0   0            0            000000032156 
FT3	032155 032156 0   0   0            0            000000032156 
FT9	032156 032156 0   0   0            0            000000032156 
ET0	032156 032156 0   0   0            0            000000032156 
ST1A	032156 032156 0   0   0            0            000000032156 
ST9	032156 032156 0   0   0            0            000000032156 


*032156 SETO 	10,000000
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 220
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0377

*032157 AOJN	10,032161
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032157 032157 0   0   346400032161 0            000000032161 
IT1	032157 0      0   0   346400032161 0            000000032161 
AT3	032157 0      0   0   000000032161 0            346400032161 
AT6	032157 032161 0   0   000000032161 0            346400032161 
FT1A	032157 032161 0   0   000000032161 0            000000032161 
FT2	032157 032161 0   0   0            0            000000032161 
FT2RQ	032157 032161 0   0   777777777777 0            000000032161 
FT3	032157 032161 0   0   777777777777 0            000000032161 
FT9	032160 032161 0   0   777777777777 0            000000032161 
ET0	032160 032161 0   0   0            0            000000032161 
ST1	032160 032161 0   0   0            0            000000032161 
ST2	032160 032161 0   0   0            0            000000032161 
ST9	032160 032161 0   0   0            0            000000032161 


*032160 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	032160 032160 0   0   334000000000 0            0            
IT1	032160 0      0   0   334000000000 0            0            
AT3	032160 0      0   0   0            0            334000000000 
AT6	032160 0      0   0   0            0            334000000000 
FT0	032160 0      0   0   0            0            334000000000 
FT1A	032160 0      0   0   0            0            0            
FT9	032161 0      0   0   0            0            0            
ET0	032162 0      0   0   0            0            0            
ST1A	032162 0      0   0   0            0            0            
ST9	032162 0      0   0   0            0            0            


*032162 JUMPA	0,032163
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032162 032162 0   0   324000032163 0            000000032163 
IT1	032162 0      0   0   324000032163 0            000000032163 
AT3	032162 0      0   0   000000032163 0            324000032163 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 221
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0378

AT6	032162 032163 0   0   000000032163 0            324000032163 
FT1A	032162 032163 0   0   000000032163 0            000000032163 
FT2	032162 032163 0   0   0            0            000000032163 
FT2RQ	032162 032163 0   0   0            0            000000032163 
FT3	032162 032163 0   0   0            0            000000032163 
FT9	032163 032163 0   0   0            0            000000032163 
ET0	032163 032163 0   0   0            0            000000032163 
ST1A	032163 032163 0   0   0            0            000000032163 
ST9	032163 032163 0   0   0            0            000000032163 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032163 032163 0   0   302400000000 0            0            
IT1	032163 0      0   0   302400000000 0            0            
AT3	032163 0      0   0   0            0            302400000000 
AT6	032163 0      0   0   0            0            302400000000 
FT1A	032163 0      0   0   0            0            0            
FT2	032163 0      0   0   0            0            0            
FT2RQ	032163 0      0   0   0            0            0            
FT3	032163 0      0   0   0            0            0            
FT9	032164 0      0   0   0            0            0            
ET0	032165 0      0   0   0            0            0            
ST1A	032165 0      0   0   0            0            0            
ST9	032165 0      0   0   0            0            0            


*032165 JUMPA	0,032166
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032165 032165 0   0   324000032166 0            000000032166 
IT1	032165 0      0   0   324000032166 0            000000032166 
AT3	032165 0      0   0   000000032166 0            324000032166 
AT6	032165 032166 0   0   000000032166 0            324000032166 
FT1A	032165 032166 0   0   000000032166 0            000000032166 
FT2	032165 032166 0   0   0            0            000000032166 
FT2RQ	032165 032166 0   0   0            0            000000032166 
FT3	032165 032166 0   0   0            0            000000032166 
FT9	032166 032166 0   0   0            0            000000032166 
ET0	032166 032166 0   0   0            0            000000032166 
ST1A	032166 032166 0   0   0            0            000000032166 
ST9	032166 032166 0   0   0            0            000000032166 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 222
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0379


*032166 SETZ 	10,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032166 032166 0   0   400400000000 0            0            
IT1	032166 0      0   0   400400000000 0            0            
AT3	032166 0      0   0   0            0            400400000000 
AT6	032166 0      0   0   0            0            400400000000 
FT1A	032166 0      0   0   0            0            0            
FT9	032167 0      0   0   0            0            0            
ET0	032167 0      0   0   0            0            0            
ST1	032167 0      0   0   0            0            0            
ST2	032167 0      0   0   0            0            0            
ST9	032167 0      0   0   0            0            0            


*032167 AOJN	10,032171
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032167 032167 0   0   346400032171 0            000000032171 
IT1	032167 0      0   0   346400032171 0            000000032171 
AT3	032167 0      0   0   000000032171 0            346400032171 
AT6	032167 032171 0   0   000000032171 0            346400032171 
FT1A	032167 032171 0   0   000000032171 0            000000032171 
FT2	032167 032171 0   0   0            0            000000032171 
FT2RQ	032167 032171 0   0   0            0            000000032171 
FT3	032167 032171 0   0   0            0            000000032171 
FT9	032170 032171 0   0   0            0            000000032171 
ET0	032171 032171 0   0   000000000001 0            000000032171 
ST1	032171 032171 0   0   000000000001 0            000000032171 
ST2	032171 032171 0   0   000000000001 0            000000032171 
ST9	032171 032171 0   0   000000000001 0            000000032171 


*032171 JUMPA	0,032172
INITIAL
C(AC)=000000 000000 
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 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 223
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0380

AT3	032171 0      0   0   000000032172 0            324000032172 
AT6	032171 032172 0   0   000000032172 0            324000032172 
FT1A	032171 032172 0   0   000000032172 0            000000032172 
FT2	032171 032172 0   0   0            0            000000032172 
FT2RQ	032171 032172 0   0   0            0            000000032172 
FT3	032171 032172 0   0   0            0            000000032172 
FT9	032172 032172 0   0   0            0            000000032172 
ET0	032172 032172 0   0   0            0            000000032172 
ST1A	032172 032172 0   0   0            0            000000032172 
ST9	032172 032172 0   0   0            0            000000032172 


*032172 CAIE	10,000001
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032172 032172 0   0   302400000001 0            000000000001 
IT1	032172 0      0   0   302400000001 0            000000000001 
AT3	032172 0      0   0   000000000001 0            302400000001 
AT6	032172 000001 0   0   000000000001 0            302400000001 
FT1A	032172 000001 0   0   000000000001 0            000000000001 
FT2	032172 000001 0   0   0            0            000000000001 
FT2RQ	032172 000001 0   0   000000000001 0            000000000001 
FT3	032172 000001 0   0   000000000001 0            000000000001 
FT9	032173 000001 0   0   000000000001 0            000000000001 
ET0	032174 000001 0   0   0            0            000000000001 
ST1A	032174 000001 0   0   0            0            000000000001 
ST9	032174 000001 0   0   0            0            000000000001 


*032174 JUMPA	0,032175
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032174 032174 0   0   324000032175 0            000000032175 
IT1	032174 0      0   0   324000032175 0            000000032175 
AT3	032174 0      0   0   000000032175 0            324000032175 
AT6	032174 032175 0   0   000000032175 0            324000032175 
FT1A	032174 032175 0   0   000000032175 0            000000032175 
FT2	032174 032175 0   0   0            0            000000032175 
FT2RQ	032174 032175 0   0   0            0            000000032175 
FT3	032174 032175 0   0   0            0            000000032175 
FT9	032175 032175 0   0   0            0            000000032175 
ET0	032175 032175 0   0   0            0            000000032175 
ST1A	032175 032175 0   0   0            0            000000032175 
ST9	032175 032175 0   0   0            0            000000032175 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 224
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0381



*032175 HRROI	7,777776
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032175 032175 0   0   561340777776 0            000000777776 
IT1	032175 0      0   0   561340777776 0            000000777776 
AT3	032175 0      0   0   000000777776 0            561340777776 
AT6	032175 777776 0   0   000000777776 0            561340777776 
FT1A	032175 777776 0   0   000000777776 0            000000777776 
FT9	032176 777776 0   0   000000777776 0            000000777776 
ET0	032176 777776 0   0   777777777776 0            000000777776 
ST1	032176 777776 0   0   777777777776 0            000000777776 
ST2	032176 777776 0   0   777777777776 0            000000777776 
ST9	032176 777776 0   0   777777777776 0            000000777776 


*032176 AOJG	7,032200
INITIAL
C(AC)=777777 777776 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032176 032176 0   0   347340032200 0            000000032200 
IT1	032176 0      0   0   347340032200 0            000000032200 
AT3	032176 0      0   0   000000032200 0            347340032200 
AT6	032176 0      0   0   000000032200 0            347340032200 
FT1A	032176 0      0   0   000000032200 0            000000032200 
FT2	032176 0      0   0   0            0            000000032200 
FT2RQ	032176 0      0   0   777777777776 0            000000032200 
FT3	032176 0      0   0   777777777776 0            000000032200 
FT9	032177 0      0   0   777777777776 0            000000032200 
ET0	032177 0      0   0   777777777777 0            000000032200 
ST1	032177 0      0   0   777777777777 0            000000032200 
ST2	032177 0      0   0   777777777777 0            000000032200 
ST9	032177 0      0   0   777777777777 0            000000032200 


*032177 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	032177 032177 0   0   334000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 225
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0382

IT1	032177 0      0   0   334000000000 0            0            
AT3	032177 0      0   0   0            0            334000000000 
AT6	032177 0      0   0   0            0            334000000000 
FT0	032177 0      0   0   0            0            334000000000 
FT1A	032177 0      0   0   0            0            0            
FT9	0      0      0   0   0            0            0            
ET0	032201 0      0   0   0            0            0            
ST1A	032201 0      0   0   0            0            0            
ST9	032201 0      0   0   0            0            0            


*032201 JUMPA	0,032202
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032201 032201 0   0   324000032202 0            000000032202 
IT1	032201 0      0   0   324000032202 0            000000032202 
AT3	032201 0      0   0   000000032202 0            324000032202 
AT6	032201 032202 0   0   000000032202 0            324000032202 
FT1A	032201 032202 0   0   000000032202 0            000000032202 
FT2	032201 032202 0   0   0            0            000000032202 
FT2RQ	032201 032202 0   0   0            0            000000032202 
FT3	032201 032202 0   0   0            0            000000032202 
FT9	032202 032202 0   0   0            0            000000032202 
ET0	032202 032202 0   0   0            0            000000032202 
ST1A	032202 032202 0   0   0            0            000000032202 
ST9	032202 032202 0   0   0            0            000000032202 


*032202 CAME	7,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032202 032202 0   0   312340033462 0            777777777777 
IT1	032202 0      0   0   312340033462 0            777777777777 
AT3	032202 0      0   0   000000033462 0            312340033462 
AT6	032202 033462 0   0   000000033462 0            312340033462 
FT0	032202 033462 0   0   777777777777 0            312340033462 
FT1A	032202 033462 0   0   777777777777 0            777777777777 
FT2	032202 033462 0   0   0            0            777777777777 
FT2RQ	032202 033462 0   0   777777777777 0            777777777777 
FT3	032202 033462 0   0   777777777777 0            777777777777 
FT9	032203 033462 0   0   777777777777 0            777777777777 
ET0	032204 033462 0   0   0            0            777777777777 
ST1A	032204 033462 0   0   0            0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 226
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0383

ST9	032204 033462 0   0   0            0            777777777777 


*032204 JUMPA	0,032205
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032204 032204 0   0   324000032205 0            000000032205 
IT1	032204 0      0   0   324000032205 0            000000032205 
AT3	032204 0      0   0   000000032205 0            324000032205 
AT6	032204 032205 0   0   000000032205 0            324000032205 
FT1A	032204 032205 0   0   000000032205 0            000000032205 
FT2	032204 032205 0   0   0            0            000000032205 
FT2RQ	032204 032205 0   0   0            0            000000032205 
FT3	032204 032205 0   0   0            0            000000032205 
FT9	032205 032205 0   0   0            0            000000032205 
ET0	032205 032205 0   0   0            0            000000032205 
ST1A	032205 032205 0   0   0            0            000000032205 
ST9	032205 032205 0   0   0            0            000000032205 


*032205 SETO 	7,000000
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

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


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 227
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0384

*032206 AOJG	7,032210
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032206 032206 0   0   347340032210 0            000000032210 
IT1	032206 0      0   0   347340032210 0            000000032210 
AT3	032206 0      0   0   000000032210 0            347340032210 
AT6	032206 032210 0   0   000000032210 0            347340032210 
FT1A	032206 032210 0   0   000000032210 0            000000032210 
FT2	032206 032210 0   0   0            0            000000032210 
FT2RQ	032206 032210 0   0   777777777777 0            000000032210 
FT3	032206 032210 0   0   777777777777 0            000000032210 
FT9	032207 032210 0   0   777777777777 0            000000032210 
ET0	032207 032210 0   0   0            0            000000032210 
ST1	032207 032210 0   0   0            0            000000032210 
ST2	032207 032210 0   0   0            0            000000032210 
ST9	032207 032210 0   0   0            0            000000032210 


*032207 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	032207 032207 0   0   334000000000 0            0            
IT1	032207 0      0   0   334000000000 0            0            
AT3	032207 0      0   0   0            0            334000000000 
AT6	032207 0      0   0   0            0            334000000000 
FT0	032207 0      0   0   0            0            334000000000 
FT1A	032207 0      0   0   0            0            0            
FT9	032210 0      0   0   0            0            0            
ET0	032211 0      0   0   0            0            0            
ST1A	032211 0      0   0   0            0            0            
ST9	032211 0      0   0   0            0            0            


*032211 JUMPA	0,032212
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032211 032211 0   0   324000032212 0            000000032212 
IT1	032211 0      0   0   324000032212 0            000000032212 
AT3	032211 0      0   0   000000032212 0            324000032212 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 228
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0385

AT6	032211 032212 0   0   000000032212 0            324000032212 
FT1A	032211 032212 0   0   000000032212 0            000000032212 
FT2	032211 032212 0   0   0            0            000000032212 
FT2RQ	032211 032212 0   0   0            0            000000032212 
FT3	032211 032212 0   0   0            0            000000032212 
FT9	032212 032212 0   0   0            0            000000032212 
ET0	032212 032212 0   0   0            0            000000032212 
ST1A	032212 032212 0   0   0            0            000000032212 
ST9	032212 032212 0   0   0            0            000000032212 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032212 032212 0   0   302340000000 0            0            
IT1	032212 0      0   0   302340000000 0            0            
AT3	032212 0      0   0   0            0            302340000000 
AT6	032212 0      0   0   0            0            302340000000 
FT1A	032212 0      0   0   0            0            0            
FT2	032212 0      0   0   0            0            0            
FT2RQ	032212 0      0   0   0            0            0            
FT3	032212 0      0   0   0            0            0            
FT9	032213 0      0   0   0            0            0            
ET0	032214 0      0   0   0            0            0            
ST1A	032214 0      0   0   0            0            0            
ST9	032214 0      0   0   0            0            0            


*032214 JUMPA	0,032215
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032214 032214 0   0   324000032215 0            000000032215 
IT1	032214 0      0   0   324000032215 0            000000032215 
AT3	032214 0      0   0   000000032215 0            324000032215 
AT6	032214 032215 0   0   000000032215 0            324000032215 
FT1A	032214 032215 0   0   000000032215 0            000000032215 
FT2	032214 032215 0   0   0            0            000000032215 
FT2RQ	032214 032215 0   0   0            0            000000032215 
FT3	032214 032215 0   0   0            0            000000032215 
FT9	032215 032215 0   0   0            0            000000032215 
ET0	032215 032215 0   0   0            0            000000032215 
ST1A	032215 032215 0   0   0            0            000000032215 
ST9	032215 032215 0   0   0            0            000000032215 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 229
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0386


*032215 SETZ 	7,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032215 032215 0   0   400340000000 0            0            
IT1	032215 0      0   0   400340000000 0            0            
AT3	032215 0      0   0   0            0            400340000000 
AT6	032215 0      0   0   0            0            400340000000 
FT1A	032215 0      0   0   0            0            0            
FT9	032216 0      0   0   0            0            0            
ET0	032216 0      0   0   0            0            0            
ST1	032216 0      0   0   0            0            0            
ST2	032216 0      0   0   0            0            0            
ST9	032216 0      0   0   0            0            0            


*032216 AOJG	7,032220
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032216 032216 0   0   347340032220 0            000000032220 
IT1	032216 0      0   0   347340032220 0            000000032220 
AT3	032216 0      0   0   000000032220 0            347340032220 
AT6	032216 032220 0   0   000000032220 0            347340032220 
FT1A	032216 032220 0   0   000000032220 0            000000032220 
FT2	032216 032220 0   0   0            0            000000032220 
FT2RQ	032216 032220 0   0   0            0            000000032220 
FT3	032216 032220 0   0   0            0            000000032220 
FT9	032217 032220 0   0   0            0            000000032220 
ET0	032220 032220 0   0   000000000001 0            000000032220 
ST1	032220 032220 0   0   000000000001 0            000000032220 
ST2	032220 032220 0   0   000000000001 0            000000032220 
ST9	032220 032220 0   0   000000000001 0            000000032220 


*032220 JUMPA	0,032221
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032220 032220 0   0   324000032221 0            000000032221 
IT1	032220 0      0   0   324000032221 0            000000032221 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 230
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0387

AT3	032220 0      0   0   000000032221 0            324000032221 
AT6	032220 032221 0   0   000000032221 0            324000032221 
FT1A	032220 032221 0   0   000000032221 0            000000032221 
FT2	032220 032221 0   0   0            0            000000032221 
FT2RQ	032220 032221 0   0   0            0            000000032221 
FT3	032220 032221 0   0   0            0            000000032221 
FT9	032221 032221 0   0   0            0            000000032221 
ET0	032221 032221 0   0   0            0            000000032221 
ST1A	032221 032221 0   0   0            0            000000032221 
ST9	032221 032221 0   0   0            0            000000032221 


*032221 CAIE	7,000001
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032221 032221 0   0   302340000001 0            000000000001 
IT1	032221 0      0   0   302340000001 0            000000000001 
AT3	032221 0      0   0   000000000001 0            302340000001 
AT6	032221 000001 0   0   000000000001 0            302340000001 
FT1A	032221 000001 0   0   000000000001 0            000000000001 
FT2	032221 000001 0   0   0            0            000000000001 
FT2RQ	032221 000001 0   0   000000000001 0            000000000001 
FT3	032221 000001 0   0   000000000001 0            000000000001 
FT9	032222 000001 0   0   000000000001 0            000000000001 
ET0	032223 000001 0   0   0            0            000000000001 
ST1A	032223 000001 0   0   0            0            000000000001 
ST9	032223 000001 0   0   0            0            000000000001 


*032223 JUMPA	0,032224
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032223 032223 0   0   324000032224 0            000000032224 
IT1	032223 0      0   0   324000032224 0            000000032224 
AT3	032223 0      0   0   000000032224 0            324000032224 
AT6	032223 032224 0   0   000000032224 0            324000032224 
FT1A	032223 032224 0   0   000000032224 0            000000032224 
FT2	032223 032224 0   0   0            0            000000032224 
FT2RQ	032223 032224 0   0   0            0            000000032224 
FT3	032223 032224 0   0   0            0            000000032224 
FT9	032224 032224 0   0   0            0            000000032224 
ET0	032224 032224 0   0   0            0            000000032224 
ST1A	032224 032224 0   0   0            0            000000032224 
ST9	032224 032224 0   0   0            0            000000032224 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 231
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0388



*032224 MOVE 	6,033474
INITIAL
C(AC)=000000 000002 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032224 032224 0   0   200300033474 0            707070707070 
IT1	032224 0      0   0   200300033474 0            707070707070 
AT3	032224 0      0   0   000000033474 0            200300033474 
AT6	032224 033474 0   0   000000033474 0            200300033474 
FT0	032224 033474 0   0   707070707070 0            200300033474 
FT1A	032224 033474 0   0   707070707070 0            707070707070 
FT9	032225 033474 0   0   707070707070 0            707070707070 
ET0	032225 033474 0   0   707070707070 0            707070707070 
ST1	032225 033474 0   0   707070707070 0            707070707070 
ST2	032225 033474 0   0   707070707070 0            707070707070 
ST9	032225 033474 0   0   707070707070 0            707070707070 


*032225 HRROI	7,777776
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032225 032225 0   0   561340777776 0            000000777776 
IT1	032225 0      0   0   561340777776 0            000000777776 
AT3	032225 0      0   0   000000777776 0            561340777776 
AT6	032225 777776 0   0   000000777776 0            561340777776 
FT1A	032225 777776 0   0   000000777776 0            000000777776 
FT9	032226 777776 0   0   000000777776 0            000000777776 
ET0	032226 777776 0   0   777777777776 0            000000777776 
ST1	032226 777776 0   0   777777777776 0            000000777776 
ST2	032226 777776 0   0   777777777776 0            000000777776 
ST9	032226 777776 0   0   777777777776 0            000000777776 


*032226 AOSL	6,000007
INITIAL
C(AC)=707070 707070 
C(E)=777777 777776 
FINAL
C(AC)=777777 777777 
C(E)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032226 032226 0   0   351300000007 0            777777777776 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 232
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0389

IT1	032226 0      0   0   351300000007 0            777777777776 
AT3	032226 0      0   0   000000000007 0            351300000007 
AT6	032226 000007 0   0   000000000007 0            351300000007 
FT0	032226 000007 0   0   777777777776 0            351300000007 
FT1A	032226 000007 0   0   777777777776 0            777777777776 
FT9	032227 000007 0   0   777777777776 0            777777777776 
ET0	032230 000007 0   0   777777777777 0            777777777776 
ST1	032230 000007 0   0   777777777777 0            777777777776 
ST2	032230 000007 0   0   777777777777 0            777777777776 
ST5	032230 000007 0   0   777777777777 0            777777777776 
ST6A	032230 000007 0   0   777777777777 0            777777777776 
ST9	032230 000007 0   0   777777777777 0            777777777776 


*032230 JUMPA	0,032231
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032230 032230 0   0   324000032231 0            000000032231 
IT1	032230 0      0   0   324000032231 0            000000032231 
AT3	032230 0      0   0   000000032231 0            324000032231 
AT6	032230 032231 0   0   000000032231 0            324000032231 
FT1A	032230 032231 0   0   000000032231 0            000000032231 
FT2	032230 032231 0   0   0            0            000000032231 
FT2RQ	032230 032231 0   0   0            0            000000032231 
FT3	032230 032231 0   0   0            0            000000032231 
FT9	032231 032231 0   0   0            0            000000032231 
ET0	032231 032231 0   0   0            0            000000032231 
ST1A	032231 032231 0   0   0            0            000000032231 
ST9	032231 032231 0   0   0            0            000000032231 


*032231 CAME	7,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032231 032231 0   0   312340033462 0            777777777777 
IT1	032231 0      0   0   312340033462 0            777777777777 
AT3	032231 0      0   0   000000033462 0            312340033462 
AT6	032231 033462 0   0   000000033462 0            312340033462 
FT0	032231 033462 0   0   777777777777 0            312340033462 
FT1A	032231 033462 0   0   777777777777 0            777777777777 
FT2	032231 033462 0   0   0            0            777777777777 
FT2RQ	032231 033462 0   0   777777777777 0            777777777777 
FT3	032231 033462 0   0   777777777777 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 233
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0390

FT9	032232 033462 0   0   777777777777 0            777777777777 
ET0	032233 033462 0   0   0            0            777777777777 
ST1A	032233 033462 0   0   0            0            777777777777 
ST9	032233 033462 0   0   0            0            777777777777 


*032233 JUMPA	0,032234
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032233 032233 0   0   324000032234 0            000000032234 
IT1	032233 0      0   0   324000032234 0            000000032234 
AT3	032233 0      0   0   000000032234 0            324000032234 
AT6	032233 032234 0   0   000000032234 0            324000032234 
FT1A	032233 032234 0   0   000000032234 0            000000032234 
FT2	032233 032234 0   0   0            0            000000032234 
FT2RQ	032233 032234 0   0   0            0            000000032234 
FT3	032233 032234 0   0   0            0            000000032234 
FT9	032234 032234 0   0   0            0            000000032234 
ET0	032234 032234 0   0   0            0            000000032234 
ST1A	032234 032234 0   0   0            0            000000032234 
ST9	032234 032234 0   0   0            0            000000032234 


*032234 CAME	6,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032234 032234 0   0   312300033462 0            777777777777 
IT1	032234 0      0   0   312300033462 0            777777777777 
AT3	032234 0      0   0   000000033462 0            312300033462 
AT6	032234 033462 0   0   000000033462 0            312300033462 
FT0	032234 033462 0   0   777777777777 0            312300033462 
FT1A	032234 033462 0   0   777777777777 0            777777777777 
FT2	032234 033462 0   0   0            0            777777777777 
FT2RQ	032234 033462 0   0   777777777777 0            777777777777 
FT3	032234 033462 0   0   777777777777 0            777777777777 
FT9	032235 033462 0   0   777777777777 0            777777777777 
ET0	032236 033462 0   0   0            0            777777777777 
ST1A	032236 033462 0   0   0            0            777777777777 
ST9	032236 033462 0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 234
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0391

*032236 JUMPA	0,032237
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032236 032236 0   0   324000032237 0            000000032237 
IT1	032236 0      0   0   324000032237 0            000000032237 
AT3	032236 0      0   0   000000032237 0            324000032237 
AT6	032236 032237 0   0   000000032237 0            324000032237 
FT1A	032236 032237 0   0   000000032237 0            000000032237 
FT2	032236 032237 0   0   0            0            000000032237 
FT2RQ	032236 032237 0   0   0            0            000000032237 
FT3	032236 032237 0   0   0            0            000000032237 
FT9	032237 032237 0   0   0            0            000000032237 
ET0	032237 032237 0   0   0            0            000000032237 
ST1A	032237 032237 0   0   0            0            000000032237 
ST9	032237 032237 0   0   0            0            000000032237 


*032237 MOVE 	6,033474
INITIAL
C(AC)=777777 777777 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032237 032237 0   0   200300033474 0            707070707070 
IT1	032237 0      0   0   200300033474 0            707070707070 
AT3	032237 0      0   0   000000033474 0            200300033474 
AT6	032237 033474 0   0   000000033474 0            200300033474 
FT0	032237 033474 0   0   707070707070 0            200300033474 
FT1A	032237 033474 0   0   707070707070 0            707070707070 
FT9	032240 033474 0   0   707070707070 0            707070707070 
ET0	032240 033474 0   0   707070707070 0            707070707070 
ST1	032240 033474 0   0   707070707070 0            707070707070 
ST2	032240 033474 0   0   707070707070 0            707070707070 
ST9	032240 033474 0   0   707070707070 0            707070707070 


*032240 HRROI	7,777776
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032240 032240 0   0   561340777776 0            000000777776 
IT1	032240 0      0   0   561340777776 0            000000777776 
AT3	032240 0      0   0   000000777776 0            561340777776 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 235
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0392

AT6	032240 777776 0   0   000000777776 0            561340777776 
FT1A	032240 777776 0   0   000000777776 0            000000777776 
FT9	032241 777776 0   0   000000777776 0            000000777776 
ET0	032241 777776 0   0   777777777776 0            000000777776 
ST1	032241 777776 0   0   777777777776 0            000000777776 
ST2	032241 777776 0   0   777777777776 0            000000777776 
ST9	032241 777776 0   0   777777777776 0            000000777776 


*032241 MOVEM	7,032255
INITIAL
C(AC)=777777 777776 
C(E)=000000 000000 
FINAL

C(E)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032241 032241 0   0   202340032255 0            000000032255 
IT1	032241 0      0   0   202340032255 0            000000032255 
AT3	032241 0      0   0   000000032255 0            202340032255 
AT6	032241 032255 0   0   000000032255 0            202340032255 
FT1A	032241 032255 0   0   000000032255 0            000000032255 
FT2	032241 032255 0   0   0            0            000000032255 
FT2RQ	032241 032255 0   0   777777777776 0            000000032255 
FT3	032241 032255 0   0   777777777776 0            000000032255 
FT9	032242 032255 0   0   777777777776 0            000000032255 
ET0	032242 032255 0   0   777777777776 0            000000032255 
ST6	032242 032255 0   0   777777777776 0            000000032255 
ST6A	032242 032255 0   0   777777777776 0            000000032255 
ST9	032242 032255 0   0   777777777776 0            000000032255 


*032242 AOSL	6,032255
INITIAL
C(AC)=707070 707070 
C(E)=777777 777776 
FINAL
C(AC)=777777 777777 
C(E)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032242 032242 0   0   351300032255 0            777777777776 
IT1	032242 0      0   0   351300032255 0            777777777776 
AT3	032242 0      0   0   000000032255 0            351300032255 
AT6	032242 032255 0   0   000000032255 0            351300032255 
FT0	032242 032255 0   0   777777777776 0            351300032255 
FT1A	032242 032255 0   0   777777777776 0            777777777776 
FT9	032243 032255 0   0   777777777776 0            777777777776 
ET0	032244 032255 0   0   777777777777 0            777777777776 
ST1	032244 032255 0   0   777777777777 0            777777777776 
ST2	032244 032255 0   0   777777777777 0            777777777776 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 236
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0393

ST5	032244 032255 0   0   777777777777 0            777777777776 
ST6A	032244 032255 0   0   777777777777 0            777777777776 
ST9	032244 032255 0   0   777777777777 0            777777777776 


*032244 JUMPA	0,032245
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032244 032244 0   0   324000032245 0            000000032245 
IT1	032244 0      0   0   324000032245 0            000000032245 
AT3	032244 0      0   0   000000032245 0            324000032245 
AT6	032244 032245 0   0   000000032245 0            324000032245 
FT1A	032244 032245 0   0   000000032245 0            000000032245 
FT2	032244 032245 0   0   0            0            000000032245 
FT2RQ	032244 032245 0   0   0            0            000000032245 
FT3	032244 032245 0   0   0            0            000000032245 
FT9	032245 032245 0   0   0            0            000000032245 
ET0	032245 032245 0   0   0            0            000000032245 
ST1A	032245 032245 0   0   0            0            000000032245 
ST9	032245 032245 0   0   0            0            000000032245 


*032245 MOVE 	7,032255
INITIAL
C(AC)=777777 777776 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032245 032245 0   0   200340032255 0            777777777777 
IT1	032245 0      0   0   200340032255 0            777777777777 
AT3	032245 0      0   0   000000032255 0            200340032255 
AT6	032245 032255 0   0   000000032255 0            200340032255 
FT0	032245 032255 0   0   777777777777 0            200340032255 
FT1A	032245 032255 0   0   777777777777 0            777777777777 
FT9	032246 032255 0   0   777777777777 0            777777777777 
ET0	032246 032255 0   0   777777777777 0            777777777777 
ST1	032246 032255 0   0   777777777777 0            777777777777 
ST2	032246 032255 0   0   777777777777 0            777777777777 
ST9	032246 032255 0   0   777777777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 237
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0394

*032246 CAME	7,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032246 032246 0   0   312340033462 0            777777777777 
IT1	032246 0      0   0   312340033462 0            777777777777 
AT3	032246 0      0   0   000000033462 0            312340033462 
AT6	032246 033462 0   0   000000033462 0            312340033462 
FT0	032246 033462 0   0   777777777777 0            312340033462 
FT1A	032246 033462 0   0   777777777777 0            777777777777 
FT2	032246 033462 0   0   0            0            777777777777 
FT2RQ	032246 033462 0   0   777777777777 0            777777777777 
FT3	032246 033462 0   0   777777777777 0            777777777777 
FT9	032247 033462 0   0   777777777777 0            777777777777 
ET0	032250 033462 0   0   0            0            777777777777 
ST1A	032250 033462 0   0   0            0            777777777777 
ST9	032250 033462 0   0   0            0            777777777777 


*032250 JUMPA	0,032251
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032250 032250 0   0   324000032251 0            000000032251 
IT1	032250 0      0   0   324000032251 0            000000032251 
AT3	032250 0      0   0   000000032251 0            324000032251 
AT6	032250 032251 0   0   000000032251 0            324000032251 
FT1A	032250 032251 0   0   000000032251 0            000000032251 
FT2	032250 032251 0   0   0            0            000000032251 
FT2RQ	032250 032251 0   0   0            0            000000032251 
FT3	032250 032251 0   0   0            0            000000032251 
FT9	032251 032251 0   0   0            0            000000032251 
ET0	032251 032251 0   0   0            0            000000032251 
ST1A	032251 032251 0   0   0            0            000000032251 
ST9	032251 032251 0   0   0            0            000000032251 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 238
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0395

*032251 CAME	6,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032251 032251 0   0   312300033462 0            777777777777 
IT1	032251 0      0   0   312300033462 0            777777777777 
AT3	032251 0      0   0   000000033462 0            312300033462 
AT6	032251 033462 0   0   000000033462 0            312300033462 
FT0	032251 033462 0   0   777777777777 0            312300033462 
FT1A	032251 033462 0   0   777777777777 0            777777777777 
FT2	032251 033462 0   0   0            0            777777777777 
FT2RQ	032251 033462 0   0   777777777777 0            777777777777 
FT3	032251 033462 0   0   777777777777 0            777777777777 
FT9	032252 033462 0   0   777777777777 0            777777777777 
ET0	032253 033462 0   0   0            0            777777777777 
ST1A	032253 033462 0   0   0            0            777777777777 
ST9	032253 033462 0   0   0            0            777777777777 


*032253 JUMPA	0,032254
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032253 032253 0   0   324000032254 0            000000032254 
IT1	032253 0      0   0   324000032254 0            000000032254 
AT3	032253 0      0   0   000000032254 0            324000032254 
AT6	032253 032254 0   0   000000032254 0            324000032254 
FT1A	032253 032254 0   0   000000032254 0            000000032254 
FT2	032253 032254 0   0   0            0            000000032254 
FT2RQ	032253 032254 0   0   0            0            000000032254 
FT3	032253 032254 0   0   0            0            000000032254 
FT9	032254 032254 0   0   0            0            000000032254 
ET0	032254 032254 0   0   0            0            000000032254 
ST1A	032254 032254 0   0   0            0            000000032254 
ST9	032254 032254 0   0   0            0            000000032254 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 239
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0396

*032254 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	032254 032254 0   0   334000000000 0            0            
IT1	032254 0      0   0   334000000000 0            0            
AT3	032254 0      0   0   0            0            334000000000 
AT6	032254 0      0   0   0            0            334000000000 
FT0	032254 0      0   0   0            0            334000000000 
FT1A	032254 0      0   0   0            0            0            
FT9	032255 0      0   0   0            0            0            
ET0	032256 0      0   0   0            0            0            
ST1A	032256 0      0   0   0            0            0            
ST9	032256 0      0   0   0            0            0            


*032256 MOVE 	6,033474
INITIAL
C(AC)=777777 777777 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032256 032256 0   0   200300033474 0            707070707070 
IT1	032256 0      0   0   200300033474 0            707070707070 
AT3	032256 0      0   0   000000033474 0            200300033474 
AT6	032256 033474 0   0   000000033474 0            200300033474 
FT0	032256 033474 0   0   707070707070 0            200300033474 
FT1A	032256 033474 0   0   707070707070 0            707070707070 
FT9	032257 033474 0   0   707070707070 0            707070707070 
ET0	032257 033474 0   0   707070707070 0            707070707070 
ST1	032257 033474 0   0   707070707070 0            707070707070 
ST2	032257 033474 0   0   707070707070 0            707070707070 
ST9	032257 033474 0   0   707070707070 0            707070707070 


*032257 SETO 	7,000000
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032257 032257 0   0   474340000000 0            0            
IT1	032257 0      0   0   474340000000 0            0            
AT3	032257 0      0   0   0            0            474340000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 240
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0397

AT6	032257 0      0   0   0            0            474340000000 
FT1A	032257 0      0   0   0            0            0            
FT9	032260 0      0   0   0            0            0            
ET0	032260 0      0   0   777777777777 0            0            
ST1	032260 0      0   0   777777777777 0            0            
ST2	032260 0      0   0   777777777777 0            0            
ST9	032260 0      0   0   777777777777 0            0            


*032260 AOSL	6,000007
INITIAL
C(AC)=707070 707070 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 
C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032260 032260 0   0   351300000007 0            777777777777 
IT1	032260 0      0   0   351300000007 0            777777777777 
AT3	032260 0      0   0   000000000007 0            351300000007 
AT6	032260 000007 0   0   000000000007 0            351300000007 
FT0	032260 000007 0   0   777777777777 0            351300000007 
FT1A	032260 000007 0   0   777777777777 0            777777777777 
FT9	032261 000007 0   0   777777777777 0            777777777777 
ET0	032261 000007 0   0   0            0            777777777777 
ST1	032261 000007 0   0   0            0            777777777777 
ST2	032261 000007 0   0   0            0            777777777777 
ST5	032261 000007 0   0   0            0            777777777777 
ST6A	032261 000007 0   0   0            0            777777777777 
ST9	032261 000007 0   0   0            0            777777777777 


*032261 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	032261 032261 0   0   334000000000 0            0            
IT1	032261 0      0   0   334000000000 0            0            
AT3	032261 0      0   0   0            0            334000000000 
AT6	032261 0      0   0   0            0            334000000000 
FT0	032261 0      0   0   0            0            334000000000 
FT1A	032261 0      0   0   0            0            0            
FT9	032262 0      0   0   0            0            0            
ET0	032263 0      0   0   0            0            0            
ST1A	032263 0      0   0   0            0            0            
ST9	032263 0      0   0   0            0            0            

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 241
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0398


*032263 JUMPA	0,032264
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032263 032263 0   0   324000032264 0            000000032264 
IT1	032263 0      0   0   324000032264 0            000000032264 
AT3	032263 0      0   0   000000032264 0            324000032264 
AT6	032263 032264 0   0   000000032264 0            324000032264 
FT1A	032263 032264 0   0   000000032264 0            000000032264 
FT2	032263 032264 0   0   0            0            000000032264 
FT2RQ	032263 032264 0   0   0            0            000000032264 
FT3	032263 032264 0   0   0            0            000000032264 
FT9	032264 032264 0   0   0            0            000000032264 
ET0	032264 032264 0   0   0            0            000000032264 
ST1A	032264 032264 0   0   0            0            000000032264 
ST9	032264 032264 0   0   0            0            000000032264 


*032264 CAME	7,033501
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032264 032264 0   0   312340033501 0            0            
IT1	032264 0      0   0   312340033501 0            0            
AT3	032264 0      0   0   000000033501 0            312340033501 
AT6	032264 033501 0   0   000000033501 0            312340033501 
FT0	032264 033501 0   0   0            0            312340033501 
FT1A	032264 033501 0   0   0            0            0            
FT2	032264 033501 0   0   0            0            0            
FT2RQ	032264 033501 0   0   0            0            0            
FT3	032264 033501 0   0   0            0            0            
FT9	032265 033501 0   0   0            0            0            
ET0	032266 033501 0   0   0            0            0            
ST1A	032266 033501 0   0   0            0            0            
ST9	032266 033501 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 242
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0399

*032266 JUMPA	0,032267
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032266 032266 0   0   324000032267 0            000000032267 
IT1	032266 0      0   0   324000032267 0            000000032267 
AT3	032266 0      0   0   000000032267 0            324000032267 
AT6	032266 032267 0   0   000000032267 0            324000032267 
FT1A	032266 032267 0   0   000000032267 0            000000032267 
FT2	032266 032267 0   0   0            0            000000032267 
FT2RQ	032266 032267 0   0   0            0            000000032267 
FT3	032266 032267 0   0   0            0            000000032267 
FT9	032267 032267 0   0   0            0            000000032267 
ET0	032267 032267 0   0   0            0            000000032267 
ST1A	032267 032267 0   0   0            0            000000032267 
ST9	032267 032267 0   0   0            0            000000032267 


*032267 CAME	6,033501
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032267 032267 0   0   312300033501 0            0            
IT1	032267 0      0   0   312300033501 0            0            
AT3	032267 0      0   0   000000033501 0            312300033501 
AT6	032267 033501 0   0   000000033501 0            312300033501 
FT0	032267 033501 0   0   0            0            312300033501 
FT1A	032267 033501 0   0   0            0            0            
FT2	032267 033501 0   0   0            0            0            
FT2RQ	032267 033501 0   0   0            0            0            
FT3	032267 033501 0   0   0            0            0            
FT9	032270 033501 0   0   0            0            0            
ET0	032271 033501 0   0   0            0            0            
ST1A	032271 033501 0   0   0            0            0            
ST9	032271 033501 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 243
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0400

*032271 JUMPA	0,032272
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032271 032271 0   0   324000032272 0            000000032272 
IT1	032271 0      0   0   324000032272 0            000000032272 
AT3	032271 0      0   0   000000032272 0            324000032272 
AT6	032271 032272 0   0   000000032272 0            324000032272 
FT1A	032271 032272 0   0   000000032272 0            000000032272 
FT2	032271 032272 0   0   0            0            000000032272 
FT2RQ	032271 032272 0   0   0            0            000000032272 
FT3	032271 032272 0   0   0            0            000000032272 
FT9	032272 032272 0   0   0            0            000000032272 
ET0	032272 032272 0   0   0            0            000000032272 
ST1A	032272 032272 0   0   0            0            000000032272 
ST9	032272 032272 0   0   0            0            000000032272 


*032272 MOVE 	6,033474
INITIAL
C(AC)=000000 000000 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032272 032272 0   0   200300033474 0            707070707070 
IT1	032272 0      0   0   200300033474 0            707070707070 
AT3	032272 0      0   0   000000033474 0            200300033474 
AT6	032272 033474 0   0   000000033474 0            200300033474 
FT0	032272 033474 0   0   707070707070 0            200300033474 
FT1A	032272 033474 0   0   707070707070 0            707070707070 
FT9	032273 033474 0   0   707070707070 0            707070707070 
ET0	032273 033474 0   0   707070707070 0            707070707070 
ST1	032273 033474 0   0   707070707070 0            707070707070 
ST2	032273 033474 0   0   707070707070 0            707070707070 
ST9	032273 033474 0   0   707070707070 0            707070707070 


*032273 SETZ 	7,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032273 032273 0   0   400340000000 0            0            
IT1	032273 0      0   0   400340000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 244
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0401

AT3	032273 0      0   0   0            0            400340000000 
AT6	032273 0      0   0   0            0            400340000000 
FT1A	032273 0      0   0   0            0            0            
FT9	032274 0      0   0   0            0            0            
ET0	032274 0      0   0   0            0            0            
ST1	032274 0      0   0   0            0            0            
ST2	032274 0      0   0   0            0            0            
ST9	032274 0      0   0   0            0            0            


*032274 AOSL	6,000007
INITIAL
C(AC)=707070 707070 
C(E)=000000 000000 
FINAL
C(AC)=000000 000001 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032274 032274 0   0   351300000007 0            0            
IT1	032274 0      0   0   351300000007 0            0            
AT3	032274 0      0   0   000000000007 0            351300000007 
AT6	032274 000007 0   0   000000000007 0            351300000007 
FT0	032274 000007 0   0   0            0            351300000007 
FT1A	032274 000007 0   0   0            0            0            
FT9	032275 000007 0   0   0            0            0            
ET0	032275 000007 0   0   000000000001 0            0            
ST1	032275 000007 0   0   000000000001 0            0            
ST2	032275 000007 0   0   000000000001 0            0            
ST5	032275 000007 0   0   000000000001 0            0            
ST6A	032275 000007 0   0   000000000001 0            0            
ST9	032275 000007 0   0   000000000001 0            0            


*032275 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	032275 032275 0   0   334000000000 0            0            
IT1	032275 0      0   0   334000000000 0            0            
AT3	032275 0      0   0   0            0            334000000000 
AT6	032275 0      0   0   0            0            334000000000 
FT0	032275 0      0   0   0            0            334000000000 
FT1A	032275 0      0   0   0            0            0            
FT9	032276 0      0   0   0            0            0            
ET0	032277 0      0   0   0            0            0            
ST1A	032277 0      0   0   0            0            0            
ST9	032277 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 245
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0402



*032277 JUMPA	0,032300
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032277 032277 0   0   324000032300 0            000000032300 
IT1	032277 0      0   0   324000032300 0            000000032300 
AT3	032277 0      0   0   000000032300 0            324000032300 
AT6	032277 0      0   0   000000032300 0            324000032300 
FT1A	032277 0      0   0   000000032300 0            000000032300 
FT2	032277 0      0   0   0            0            000000032300 
FT2RQ	032277 0      0   0   0            0            000000032300 
FT3	032277 0      0   0   0            0            000000032300 
FT9	0      0      0   0   0            0            000000032300 
ET0	0      0      0   0   0            0            000000032300 
ST1A	0      0      0   0   0            0            000000032300 
ST9	0      0      0   0   0            0            000000032300 


*032300 CAME	7,033502
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   312340033502 0            000000000001 
IT1	0      0      0   0   312340033502 0            000000000001 
AT3	0      0      0   0   000000033502 0            312340033502 
AT6	0      033502 0   0   000000033502 0            312340033502 
FT0	0      033502 0   0   000000000001 0            312340033502 
FT1A	0      033502 0   0   000000000001 0            000000000001 
FT2	0      033502 0   0   0            0            000000000001 
FT2RQ	0      033502 0   0   000000000001 0            000000000001 
FT3	0      033502 0   0   000000000001 0            000000000001 
FT9	032301 033502 0   0   000000000001 0            000000000001 
ET0	032302 033502 0   0   0            0            000000000001 
ST1A	032302 033502 0   0   0            0            000000000001 
ST9	032302 033502 0   0   0            0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 246
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0403

*032302 JUMPA	0,032303
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032302 032302 0   0   324000032303 0            000000032303 
IT1	032302 0      0   0   324000032303 0            000000032303 
AT3	032302 0      0   0   000000032303 0            324000032303 
AT6	032302 032303 0   0   000000032303 0            324000032303 
FT1A	032302 032303 0   0   000000032303 0            000000032303 
FT2	032302 032303 0   0   0            0            000000032303 
FT2RQ	032302 032303 0   0   0            0            000000032303 
FT3	032302 032303 0   0   0            0            000000032303 
FT9	032303 032303 0   0   0            0            000000032303 
ET0	032303 032303 0   0   0            0            000000032303 
ST1A	032303 032303 0   0   0            0            000000032303 
ST9	032303 032303 0   0   0            0            000000032303 


*032303 CAME	6,033502
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032303 032303 0   0   312300033502 0            000000000001 
IT1	032303 0      0   0   312300033502 0            000000000001 
AT3	032303 0      0   0   000000033502 0            312300033502 
AT6	032303 033502 0   0   000000033502 0            312300033502 
FT0	032303 033502 0   0   000000000001 0            312300033502 
FT1A	032303 033502 0   0   000000000001 0            000000000001 
FT2	032303 033502 0   0   0            0            000000000001 
FT2RQ	032303 033502 0   0   000000000001 0            000000000001 
FT3	032303 033502 0   0   000000000001 0            000000000001 
FT9	032304 033502 0   0   000000000001 0            000000000001 
ET0	032305 033502 0   0   0            0            000000000001 
ST1A	032305 033502 0   0   0            0            000000000001 
ST9	032305 033502 0   0   0            0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 247
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0404

*032305 JUMPA	0,032306
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032305 032305 0   0   324000032306 0            000000032306 
IT1	032305 0      0   0   324000032306 0            000000032306 
AT3	032305 0      0   0   000000032306 0            324000032306 
AT6	032305 032306 0   0   000000032306 0            324000032306 
FT1A	032305 032306 0   0   000000032306 0            000000032306 
FT2	032305 032306 0   0   0            0            000000032306 
FT2RQ	032305 032306 0   0   0            0            000000032306 
FT3	032305 032306 0   0   0            0            000000032306 
FT9	032306 032306 0   0   0            0            000000032306 
ET0	032306 032306 0   0   0            0            000000032306 
ST1A	032306 032306 0   0   0            0            000000032306 
ST9	032306 032306 0   0   0            0            000000032306 


*032306 MOVE 	5,033474
INITIAL
C(AC)=000000 000000 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032306 032306 0   0   200240033474 0            707070707070 
IT1	032306 0      0   0   200240033474 0            707070707070 
AT3	032306 0      0   0   000000033474 0            200240033474 
AT6	032306 033474 0   0   000000033474 0            200240033474 
FT0	032306 033474 0   0   707070707070 0            200240033474 
FT1A	032306 033474 0   0   707070707070 0            707070707070 
FT9	032307 033474 0   0   707070707070 0            707070707070 
ET0	032307 033474 0   0   707070707070 0            707070707070 
ST1	032307 033474 0   0   707070707070 0            707070707070 
ST2	032307 033474 0   0   707070707070 0            707070707070 
ST9	032307 033474 0   0   707070707070 0            707070707070 


*032307 HRROI	6,777776
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032307 032307 0   0   561300777776 0            000000777776 
IT1	032307 0      0   0   561300777776 0            000000777776 
AT3	032307 0      0   0   000000777776 0            561300777776 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 248
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0405

AT6	032307 777776 0   0   000000777776 0            561300777776 
FT1A	032307 777776 0   0   000000777776 0            000000777776 
FT9	032310 777776 0   0   000000777776 0            000000777776 
ET0	032310 777776 0   0   777777777776 0            000000777776 
ST1	032310 777776 0   0   777777777776 0            000000777776 
ST2	032310 777776 0   0   777777777776 0            000000777776 
ST9	032310 777776 0   0   777777777776 0            000000777776 


*032310 AOSE	5,000006
INITIAL
C(AC)=707070 707070 
C(E)=777777 777776 
FINAL
C(AC)=777777 777777 
C(E)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032310 032310 0   0   352240000006 0            777777777776 
IT1	032310 0      0   0   352240000006 0            777777777776 
AT3	032310 0      0   0   000000000006 0            352240000006 
AT6	032310 000006 0   0   000000000006 0            352240000006 
FT0	032310 000006 0   0   777777777776 0            352240000006 
FT1A	032310 000006 0   0   777777777776 0            777777777776 
FT9	032311 000006 0   0   777777777776 0            777777777776 
ET0	032311 000006 0   0   777777777777 0            777777777776 
ST1	032311 000006 0   0   777777777777 0            777777777776 
ST2	032311 000006 0   0   777777777777 0            777777777776 
ST5	032311 000006 0   0   777777777777 0            777777777776 
ST6A	032311 000006 0   0   777777777777 0            777777777776 
ST9	032311 000006 0   0   777777777777 0            777777777776 


*032311 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	032311 032311 0   0   334000000000 0            0            
IT1	032311 0      0   0   334000000000 0            0            
AT3	032311 0      0   0   0            0            334000000000 
AT6	032311 0      0   0   0            0            334000000000 
FT0	032311 0      0   0   0            0            334000000000 
FT1A	032311 0      0   0   0            0            0            
FT9	032312 0      0   0   0            0            0            
ET0	032313 0      0   0   0            0            0            
ST1A	032313 0      0   0   0            0            0            
ST9	032313 0      0   0   0            0            0            

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 249
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0406


*032313 JUMPA	0,032314
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032313 032313 0   0   324000032314 0            000000032314 
IT1	032313 0      0   0   324000032314 0            000000032314 
AT3	032313 0      0   0   000000032314 0            324000032314 
AT6	032313 032314 0   0   000000032314 0            324000032314 
FT1A	032313 032314 0   0   000000032314 0            000000032314 
FT2	032313 032314 0   0   0            0            000000032314 
FT2RQ	032313 032314 0   0   0            0            000000032314 
FT3	032313 032314 0   0   0            0            000000032314 
FT9	032314 032314 0   0   0            0            000000032314 
ET0	032314 032314 0   0   0            0            000000032314 
ST1A	032314 032314 0   0   0            0            000000032314 
ST9	032314 032314 0   0   0            0            000000032314 


*032314 CAME	6,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032314 032314 0   0   312300033462 0            777777777777 
IT1	032314 0      0   0   312300033462 0            777777777777 
AT3	032314 0      0   0   000000033462 0            312300033462 
AT6	032314 033462 0   0   000000033462 0            312300033462 
FT0	032314 033462 0   0   777777777777 0            312300033462 
FT1A	032314 033462 0   0   777777777777 0            777777777777 
FT2	032314 033462 0   0   0            0            777777777777 
FT2RQ	032314 033462 0   0   777777777777 0            777777777777 
FT3	032314 033462 0   0   777777777777 0            777777777777 
FT9	032315 033462 0   0   777777777777 0            777777777777 
ET0	032316 033462 0   0   0            0            777777777777 
ST1A	032316 033462 0   0   0            0            777777777777 
ST9	032316 033462 0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 250
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0407

*032316 JUMPA	0,032317
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032316 032316 0   0   324000032317 0            000000032317 
IT1	032316 0      0   0   324000032317 0            000000032317 
AT3	032316 0      0   0   000000032317 0            324000032317 
AT6	032316 032317 0   0   000000032317 0            324000032317 
FT1A	032316 032317 0   0   000000032317 0            000000032317 
FT2	032316 032317 0   0   0            0            000000032317 
FT2RQ	032316 032317 0   0   0            0            000000032317 
FT3	032316 032317 0   0   0            0            000000032317 
FT9	032317 032317 0   0   0            0            000000032317 
ET0	032317 032317 0   0   0            0            000000032317 
ST1A	032317 032317 0   0   0            0            000000032317 
ST9	032317 032317 0   0   0            0            000000032317 


*032317 CAME	5,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032317 032317 0   0   312240033462 0            777777777777 
IT1	032317 0      0   0   312240033462 0            777777777777 
AT3	032317 0      0   0   000000033462 0            312240033462 
AT6	032317 033462 0   0   000000033462 0            312240033462 
FT0	032317 033462 0   0   777777777777 0            312240033462 
FT1A	032317 033462 0   0   777777777777 0            777777777777 
FT2	032317 033462 0   0   0            0            777777777777 
FT2RQ	032317 033462 0   0   777777777777 0            777777777777 
FT3	032317 033462 0   0   777777777777 0            777777777777 
FT9	032320 033462 0   0   777777777777 0            777777777777 
ET0	032321 033462 0   0   0            0            777777777777 
ST1A	032321 033462 0   0   0            0            777777777777 
ST9	032321 033462 0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 251
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0408

*032321 JUMPA	0,032322
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032321 032321 0   0   324000032322 0            000000032322 
IT1	032321 0      0   0   324000032322 0            000000032322 
AT3	032321 0      0   0   000000032322 0            324000032322 
AT6	032321 032322 0   0   000000032322 0            324000032322 
FT1A	032321 032322 0   0   000000032322 0            000000032322 
FT2	032321 032322 0   0   0            0            000000032322 
FT2RQ	032321 032322 0   0   0            0            000000032322 
FT3	032321 032322 0   0   0            0            000000032322 
FT9	032322 032322 0   0   0            0            000000032322 
ET0	032322 032322 0   0   0            0            000000032322 
ST1A	032322 032322 0   0   0            0            000000032322 
ST9	032322 032322 0   0   0            0            000000032322 


*032322 MOVE 	5,033474
INITIAL
C(AC)=777777 777777 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032322 032322 0   0   200240033474 0            707070707070 
IT1	032322 0      0   0   200240033474 0            707070707070 
AT3	032322 0      0   0   000000033474 0            200240033474 
AT6	032322 033474 0   0   000000033474 0            200240033474 
FT0	032322 033474 0   0   707070707070 0            200240033474 
FT1A	032322 033474 0   0   707070707070 0            707070707070 
FT9	032323 033474 0   0   707070707070 0            707070707070 
ET0	032323 033474 0   0   707070707070 0            707070707070 
ST1	032323 033474 0   0   707070707070 0            707070707070 
ST2	032323 033474 0   0   707070707070 0            707070707070 
ST9	032323 033474 0   0   707070707070 0            707070707070 


*032323 SETO 	6,000000
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032323 032323 0   0   474300000000 0            0            
IT1	032323 0      0   0   474300000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 252
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0409

AT3	032323 0      0   0   0            0            474300000000 
AT6	032323 0      0   0   0            0            474300000000 
FT1A	032323 0      0   0   0            0            0            
FT9	032324 0      0   0   0            0            0            
ET0	032324 0      0   0   777777777777 0            0            
ST1	032324 0      0   0   777777777777 0            0            
ST2	032324 0      0   0   777777777777 0            0            
ST9	032324 0      0   0   777777777777 0            0            


*032324 AOSE	5,000006
INITIAL
C(AC)=707070 707070 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 
C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032324 032324 0   0   352240000006 0            777777777777 
IT1	032324 0      0   0   352240000006 0            777777777777 
AT3	032324 0      0   0   000000000006 0            352240000006 
AT6	032324 000006 0   0   000000000006 0            352240000006 
FT0	032324 000006 0   0   777777777777 0            352240000006 
FT1A	032324 000006 0   0   777777777777 0            777777777777 
FT9	032325 000006 0   0   777777777777 0            777777777777 
ET0	032326 000006 0   0   0            0            777777777777 
ST1	032326 000006 0   0   0            0            777777777777 
ST2	032326 000006 0   0   0            0            777777777777 
ST5	032326 000006 0   0   0            0            777777777777 
ST6A	032326 000006 0   0   0            0            777777777777 
ST9	032326 000006 0   0   0            0            777777777777 


*032326 JUMPA	0,032327
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032326 032326 0   0   324000032327 0            000000032327 
IT1	032326 0      0   0   324000032327 0            000000032327 
AT3	032326 0      0   0   000000032327 0            324000032327 
AT6	032326 032327 0   0   000000032327 0            324000032327 
FT1A	032326 032327 0   0   000000032327 0            000000032327 
FT2	032326 032327 0   0   0            0            000000032327 
FT2RQ	032326 032327 0   0   0            0            000000032327 
FT3	032326 032327 0   0   0            0            000000032327 
FT9	032327 032327 0   0   0            0            000000032327 
ET0	032327 032327 0   0   0            0            000000032327 
ST1A	032327 032327 0   0   0            0            000000032327 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 253
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0410

ST9	032327 032327 0   0   0            0            000000032327 


*032327 CAME	6,033501
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032327 032327 0   0   312300033501 0            0            
IT1	032327 0      0   0   312300033501 0            0            
AT3	032327 0      0   0   000000033501 0            312300033501 
AT6	032327 033501 0   0   000000033501 0            312300033501 
FT0	032327 033501 0   0   0            0            312300033501 
FT1A	032327 033501 0   0   0            0            0            
FT2	032327 033501 0   0   0            0            0            
FT2RQ	032327 033501 0   0   0            0            0            
FT3	032327 033501 0   0   0            0            0            
FT9	032330 033501 0   0   0            0            0            
ET0	032331 033501 0   0   0            0            0            
ST1A	032331 033501 0   0   0            0            0            
ST9	032331 033501 0   0   0            0            0            


*032331 JUMPA	0,032332
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032331 032331 0   0   324000032332 0            000000032332 
IT1	032331 0      0   0   324000032332 0            000000032332 
AT3	032331 0      0   0   000000032332 0            324000032332 
AT6	032331 032332 0   0   000000032332 0            324000032332 
FT1A	032331 032332 0   0   000000032332 0            000000032332 
FT2	032331 032332 0   0   0            0            000000032332 
FT2RQ	032331 032332 0   0   0            0            000000032332 
FT3	032331 032332 0   0   0            0            000000032332 
FT9	032332 032332 0   0   0            0            000000032332 
ET0	032332 032332 0   0   0            0            000000032332 
ST1A	032332 032332 0   0   0            0            000000032332 
ST9	032332 032332 0   0   0            0            000000032332 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 254
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0411

*032332 CAME	5,033501
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032332 032332 0   0   312240033501 0            0            
IT1	032332 0      0   0   312240033501 0            0            
AT3	032332 0      0   0   000000033501 0            312240033501 
AT6	032332 033501 0   0   000000033501 0            312240033501 
FT0	032332 033501 0   0   0            0            312240033501 
FT1A	032332 033501 0   0   0            0            0            
FT2	032332 033501 0   0   0            0            0            
FT2RQ	032332 033501 0   0   0            0            0            
FT3	032332 033501 0   0   0            0            0            
FT9	032333 033501 0   0   0            0            0            
ET0	032334 033501 0   0   0            0            0            
ST1A	032334 033501 0   0   0            0            0            
ST9	032334 033501 0   0   0            0            0            


*032334 JUMPA	0,032335
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032334 032334 0   0   324000032335 0            000000032335 
IT1	032334 0      0   0   324000032335 0            000000032335 
AT3	032334 0      0   0   000000032335 0            324000032335 
AT6	032334 032335 0   0   000000032335 0            324000032335 
FT1A	032334 032335 0   0   000000032335 0            000000032335 
FT2	032334 032335 0   0   0            0            000000032335 
FT2RQ	032334 032335 0   0   0            0            000000032335 
FT3	032334 032335 0   0   0            0            000000032335 
FT9	032335 032335 0   0   0            0            000000032335 
ET0	032335 032335 0   0   0            0            000000032335 
ST1A	032335 032335 0   0   0            0            000000032335 
ST9	032335 032335 0   0   0            0            000000032335 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 255
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0412

*032335 MOVE 	5,033474
INITIAL
C(AC)=000000 000000 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032335 032335 0   0   200240033474 0            707070707070 
IT1	032335 0      0   0   200240033474 0            707070707070 
AT3	032335 0      0   0   000000033474 0            200240033474 
AT6	032335 033474 0   0   000000033474 0            200240033474 
FT0	032335 033474 0   0   707070707070 0            200240033474 
FT1A	032335 033474 0   0   707070707070 0            707070707070 
FT9	032336 033474 0   0   707070707070 0            707070707070 
ET0	032336 033474 0   0   707070707070 0            707070707070 
ST1	032336 033474 0   0   707070707070 0            707070707070 
ST2	032336 033474 0   0   707070707070 0            707070707070 
ST9	032336 033474 0   0   707070707070 0            707070707070 


*032336 SETZ 	6,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032336 032336 0   0   400300000000 0            0            
IT1	032336 0      0   0   400300000000 0            0            
AT3	032336 0      0   0   0            0            400300000000 
AT6	032336 0      0   0   0            0            400300000000 
FT1A	032336 0      0   0   0            0            0            
FT9	032337 0      0   0   0            0            0            
ET0	032337 0      0   0   0            0            0            
ST1	032337 0      0   0   0            0            0            
ST2	032337 0      0   0   0            0            0            
ST9	032337 0      0   0   0            0            0            


*032337 AOSE	5,000006
INITIAL
C(AC)=707070 707070 
C(E)=000000 000000 
FINAL
C(AC)=000000 000001 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032337 032337 0   0   352240000006 0            0            
IT1	032337 0      0   0   352240000006 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 256
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0413

AT3	032337 0      0   0   000000000006 0            352240000006 
AT6	032337 000006 0   0   000000000006 0            352240000006 
FT0	032337 000006 0   0   0            0            352240000006 
FT1A	032337 000006 0   0   0            0            0            
FT9	032340 000006 0   0   0            0            0            
ET0	032340 000006 0   0   000000000001 0            0            
ST1	032340 000006 0   0   000000000001 0            0            
ST2	032340 000006 0   0   000000000001 0            0            
ST5	032340 000006 0   0   000000000001 0            0            
ST6A	032340 000006 0   0   000000000001 0            0            
ST9	032340 000006 0   0   000000000001 0            0            


*032340 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	032340 032340 0   0   334000000000 0            0            
IT1	032340 0      0   0   334000000000 0            0            
AT3	032340 0      0   0   0            0            334000000000 
AT6	032340 0      0   0   0            0            334000000000 
FT0	032340 0      0   0   0            0            334000000000 
FT1A	032340 0      0   0   0            0            0            
FT9	032341 0      0   0   0            0            0            
ET0	032342 0      0   0   0            0            0            
ST1A	032342 0      0   0   0            0            0            
ST9	032342 0      0   0   0            0            0            


*032342 JUMPA	0,032343
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032342 032342 0   0   324000032343 0            000000032343 
IT1	032342 0      0   0   324000032343 0            000000032343 
AT3	032342 0      0   0   000000032343 0            324000032343 
AT6	032342 032343 0   0   000000032343 0            324000032343 
FT1A	032342 032343 0   0   000000032343 0            000000032343 
FT2	032342 032343 0   0   0            0            000000032343 
FT2RQ	032342 032343 0   0   0            0            000000032343 
FT3	032342 032343 0   0   0            0            000000032343 
FT9	032343 032343 0   0   0            0            000000032343 
ET0	032343 032343 0   0   0            0            000000032343 
ST1A	032343 032343 0   0   0            0            000000032343 
ST9	032343 032343 0   0   0            0            000000032343 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 257
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0414



*032343 CAME	6,033502
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032343 032343 0   0   312300033502 0            000000000001 
IT1	032343 0      0   0   312300033502 0            000000000001 
AT3	032343 0      0   0   000000033502 0            312300033502 
AT6	032343 033502 0   0   000000033502 0            312300033502 
FT0	032343 033502 0   0   000000000001 0            312300033502 
FT1A	032343 033502 0   0   000000000001 0            000000000001 
FT2	032343 033502 0   0   0            0            000000000001 
FT2RQ	032343 033502 0   0   000000000001 0            000000000001 
FT3	032343 033502 0   0   000000000001 0            000000000001 
FT9	032344 033502 0   0   000000000001 0            000000000001 
ET0	032345 033502 0   0   0            0            000000000001 
ST1A	032345 033502 0   0   0            0            000000000001 
ST9	032345 033502 0   0   0            0            000000000001 


*032345 JUMPA	0,032346
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032345 032345 0   0   324000032346 0            000000032346 
IT1	032345 0      0   0   324000032346 0            000000032346 
AT3	032345 0      0   0   000000032346 0            324000032346 
AT6	032345 032346 0   0   000000032346 0            324000032346 
FT1A	032345 032346 0   0   000000032346 0            000000032346 
FT2	032345 032346 0   0   0            0            000000032346 
FT2RQ	032345 032346 0   0   0            0            000000032346 
FT3	032345 032346 0   0   0            0            000000032346 
FT9	032346 032346 0   0   0            0            000000032346 
ET0	032346 032346 0   0   0            0            000000032346 
ST1A	032346 032346 0   0   0            0            000000032346 
ST9	032346 032346 0   0   0            0            000000032346 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 258
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0415

*032346 CAME	5,033502
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032346 032346 0   0   312240033502 0            000000000001 
IT1	032346 0      0   0   312240033502 0            000000000001 
AT3	032346 0      0   0   000000033502 0            312240033502 
AT6	032346 033502 0   0   000000033502 0            312240033502 
FT0	032346 033502 0   0   000000000001 0            312240033502 
FT1A	032346 033502 0   0   000000000001 0            000000000001 
FT2	032346 033502 0   0   0            0            000000000001 
FT2RQ	032346 033502 0   0   000000000001 0            000000000001 
FT3	032346 033502 0   0   000000000001 0            000000000001 
FT9	032347 033502 0   0   000000000001 0            000000000001 
ET0	032350 033502 0   0   0            0            000000000001 
ST1A	032350 033502 0   0   0            0            000000000001 
ST9	032350 033502 0   0   0            0            000000000001 


*032350 JUMPA	0,032351
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032350 032350 0   0   324000032351 0            000000032351 
IT1	032350 0      0   0   324000032351 0            000000032351 
AT3	032350 0      0   0   000000032351 0            324000032351 
AT6	032350 032351 0   0   000000032351 0            324000032351 
FT1A	032350 032351 0   0   000000032351 0            000000032351 
FT2	032350 032351 0   0   0            0            000000032351 
FT2RQ	032350 032351 0   0   0            0            000000032351 
FT3	032350 032351 0   0   0            0            000000032351 
FT9	032351 032351 0   0   0            0            000000032351 
ET0	032351 032351 0   0   0            0            000000032351 
ST1A	032351 032351 0   0   0            0            000000032351 
ST9	032351 032351 0   0   0            0            000000032351 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 259
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0416

*032351 MOVE 	4,033474
INITIAL
C(AC)=000000 000000 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032351 032351 0   0   200200033474 0            707070707070 
IT1	032351 0      0   0   200200033474 0            707070707070 
AT3	032351 0      0   0   000000033474 0            200200033474 
AT6	032351 033474 0   0   000000033474 0            200200033474 
FT0	032351 033474 0   0   707070707070 0            200200033474 
FT1A	032351 033474 0   0   707070707070 0            707070707070 
FT9	032352 033474 0   0   707070707070 0            707070707070 
ET0	032352 033474 0   0   707070707070 0            707070707070 
ST1	032352 033474 0   0   707070707070 0            707070707070 
ST2	032352 033474 0   0   707070707070 0            707070707070 
ST9	032352 033474 0   0   707070707070 0            707070707070 


*032352 HRROI	5,777776
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032352 032352 0   0   561240777776 0            000000777776 
IT1	032352 0      0   0   561240777776 0            000000777776 
AT3	032352 0      0   0   000000777776 0            561240777776 
AT6	032352 777776 0   0   000000777776 0            561240777776 
FT1A	032352 777776 0   0   000000777776 0            000000777776 
FT9	032353 777776 0   0   000000777776 0            000000777776 
ET0	032353 777776 0   0   777777777776 0            000000777776 
ST1	032353 777776 0   0   777777777776 0            000000777776 
ST2	032353 777776 0   0   777777777776 0            000000777776 
ST9	032353 777776 0   0   777777777776 0            000000777776 


*032353 AOSLE	4,000005
INITIAL
C(AC)=707070 707070 
C(E)=777777 777776 
FINAL
C(AC)=777777 777777 
C(E)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032353 032353 0   0   353200000005 0            777777777776 
IT1	032353 0      0   0   353200000005 0            777777777776 
AT3	032353 0      0   0   000000000005 0            353200000005 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 260
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0417

AT6	032353 000005 0   0   000000000005 0            353200000005 
FT0	032353 000005 0   0   777777777776 0            353200000005 
FT1A	032353 000005 0   0   777777777776 0            777777777776 
FT9	032354 000005 0   0   777777777776 0            777777777776 
ET0	032355 000005 0   0   777777777777 0            777777777776 
ST1	032355 000005 0   0   777777777777 0            777777777776 
ST2	032355 000005 0   0   777777777777 0            777777777776 
ST5	032355 000005 0   0   777777777777 0            777777777776 
ST6A	032355 000005 0   0   777777777777 0            777777777776 
ST9	032355 000005 0   0   777777777777 0            777777777776 


*032355 JUMPA	0,032356
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032355 032355 0   0   324000032356 0            000000032356 
IT1	032355 0      0   0   324000032356 0            000000032356 
AT3	032355 0      0   0   000000032356 0            324000032356 
AT6	032355 032356 0   0   000000032356 0            324000032356 
FT1A	032355 032356 0   0   000000032356 0            000000032356 
FT2	032355 032356 0   0   0            0            000000032356 
FT2RQ	032355 032356 0   0   0            0            000000032356 
FT3	032355 032356 0   0   0            0            000000032356 
FT9	032356 032356 0   0   0            0            000000032356 
ET0	032356 032356 0   0   0            0            000000032356 
ST1A	032356 032356 0   0   0            0            000000032356 
ST9	032356 032356 0   0   0            0            000000032356 


*032356 CAME	5,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032356 032356 0   0   312240033462 0            777777777777 
IT1	032356 0      0   0   312240033462 0            777777777777 
AT3	032356 0      0   0   000000033462 0            312240033462 
AT6	032356 033462 0   0   000000033462 0            312240033462 
FT0	032356 033462 0   0   777777777777 0            312240033462 
FT1A	032356 033462 0   0   777777777777 0            777777777777 
FT2	032356 033462 0   0   0            0            777777777777 
FT2RQ	032356 033462 0   0   777777777777 0            777777777777 
FT3	032356 033462 0   0   777777777777 0            777777777777 
FT9	032357 033462 0   0   777777777777 0            777777777777 
ET0	032360 033462 0   0   0            0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 261
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0418

ST1A	032360 033462 0   0   0            0            777777777777 
ST9	032360 033462 0   0   0            0            777777777777 


*032360 JUMPA	0,032361
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032360 032360 0   0   324000032361 0            000000032361 
IT1	032360 0      0   0   324000032361 0            000000032361 
AT3	032360 0      0   0   000000032361 0            324000032361 
AT6	032360 032361 0   0   000000032361 0            324000032361 
FT1A	032360 032361 0   0   000000032361 0            000000032361 
FT2	032360 032361 0   0   0            0            000000032361 
FT2RQ	032360 032361 0   0   0            0            000000032361 
FT3	032360 032361 0   0   0            0            000000032361 
FT9	032361 032361 0   0   0            0            000000032361 
ET0	032361 032361 0   0   0            0            000000032361 
ST1A	032361 032361 0   0   0            0            000000032361 
ST9	032361 032361 0   0   0            0            000000032361 


*032361 CAME	4,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032361 032361 0   0   312200033462 0            777777777777 
IT1	032361 0      0   0   312200033462 0            777777777777 
AT3	032361 0      0   0   000000033462 0            312200033462 
AT6	032361 033462 0   0   000000033462 0            312200033462 
FT0	032361 033462 0   0   777777777777 0            312200033462 
FT1A	032361 033462 0   0   777777777777 0            777777777777 
FT2	032361 033462 0   0   0            0            777777777777 
FT2RQ	032361 033462 0   0   777777777777 0            777777777777 
FT3	032361 033462 0   0   777777777777 0            777777777777 
FT9	032362 033462 0   0   777777777777 0            777777777777 
ET0	032363 033462 0   0   0            0            777777777777 
ST1A	032363 033462 0   0   0            0            777777777777 
ST9	032363 033462 0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 262
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0419

*032363 JUMPA	0,032364
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032363 032363 0   0   324000032364 0            000000032364 
IT1	032363 0      0   0   324000032364 0            000000032364 
AT3	032363 0      0   0   000000032364 0            324000032364 
AT6	032363 032364 0   0   000000032364 0            324000032364 
FT1A	032363 032364 0   0   000000032364 0            000000032364 
FT2	032363 032364 0   0   0            0            000000032364 
FT2RQ	032363 032364 0   0   0            0            000000032364 
FT3	032363 032364 0   0   0            0            000000032364 
FT9	032364 032364 0   0   0            0            000000032364 
ET0	032364 032364 0   0   0            0            000000032364 
ST1A	032364 032364 0   0   0            0            000000032364 
ST9	032364 032364 0   0   0            0            000000032364 


*032364 MOVE 	4,033474
INITIAL
C(AC)=777777 777777 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032364 032364 0   0   200200033474 0            707070707070 
IT1	032364 0      0   0   200200033474 0            707070707070 
AT3	032364 0      0   0   000000033474 0            200200033474 
AT6	032364 033474 0   0   000000033474 0            200200033474 
FT0	032364 033474 0   0   707070707070 0            200200033474 
FT1A	032364 033474 0   0   707070707070 0            707070707070 
FT9	032365 033474 0   0   707070707070 0            707070707070 
ET0	032365 033474 0   0   707070707070 0            707070707070 
ST1	032365 033474 0   0   707070707070 0            707070707070 
ST2	032365 033474 0   0   707070707070 0            707070707070 
ST9	032365 033474 0   0   707070707070 0            707070707070 


*032365 SETOM	5,000000
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032365 032365 0   0   476240000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 263
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0420

IT1	032365 0      0   0   476240000000 0            0            
AT3	032365 0      0   0   0            0            476240000000 
AT6	032365 0      0   0   0            0            476240000000 
FT1A	032365 0      0   0   0            0            0            
FT9	032366 0      0   0   0            0            0            
ET0	032366 0      0   0   777777777777 0            0            
ST6	032366 0      0   0   777777777777 0            0            
ST6A	032366 0      0   0   777777777777 0            0            
ST9	032366 0      0   0   777777777777 0            0            


*032366 AOSLE	4,000005
INITIAL
C(AC)=707070 707070 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 
C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032366 032366 0   0   353200000005 0            777777777777 
IT1	032366 0      0   0   353200000005 0            777777777777 
AT3	032366 0      0   0   000000000005 0            353200000005 
AT6	032366 000005 0   0   000000000005 0            353200000005 
FT0	032366 000005 0   0   777777777777 0            353200000005 
FT1A	032366 000005 0   0   777777777777 0            777777777777 
FT9	032367 000005 0   0   777777777777 0            777777777777 
ET0	032370 000005 0   0   0            0            777777777777 
ST1	032370 000005 0   0   0            0            777777777777 
ST2	032370 000005 0   0   0            0            777777777777 
ST5	032370 000005 0   0   0            0            777777777777 
ST6A	032370 000005 0   0   0            0            777777777777 
ST9	032370 000005 0   0   0            0            777777777777 


*032370 JUMPA	0,032371
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032370 032370 0   0   324000032371 0            000000032371 
IT1	032370 0      0   0   324000032371 0            000000032371 
AT3	032370 0      0   0   000000032371 0            324000032371 
AT6	032370 032371 0   0   000000032371 0            324000032371 
FT1A	032370 032371 0   0   000000032371 0            000000032371 
FT2	032370 032371 0   0   0            0            000000032371 
FT2RQ	032370 032371 0   0   777777777777 0            000000032371 
FT3	032370 032371 0   0   777777777777 0            000000032371 
FT9	032371 032371 0   0   777777777777 0            000000032371 
ET0	032371 032371 0   0   777777777777 0            000000032371 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 264
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0421

ST1A	032371 032371 0   0   777777777777 0            000000032371 
ST9	032371 032371 0   0   777777777777 0            000000032371 


*032371 CAME	5,033501
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032371 032371 0   0   312240033501 0            0            
IT1	032371 0      0   0   312240033501 0            0            
AT3	032371 0      0   0   000000033501 0            312240033501 
AT6	032371 033501 0   0   000000033501 0            312240033501 
FT0	032371 033501 0   0   0            0            312240033501 
FT1A	032371 033501 0   0   0            0            0            
FT2	032371 033501 0   0   0            0            0            
FT2RQ	032371 033501 0   0   0            0            0            
FT3	032371 033501 0   0   0            0            0            
FT9	032372 033501 0   0   0            0            0            
ET0	032373 033501 0   0   0            0            0            
ST1A	032373 033501 0   0   0            0            0            
ST9	032373 033501 0   0   0            0            0            


*032373 JUMPA	0,032374
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032373 032373 0   0   324000032374 0            000000032374 
IT1	032373 0      0   0   324000032374 0            000000032374 
AT3	032373 0      0   0   000000032374 0            324000032374 
AT6	032373 032374 0   0   000000032374 0            324000032374 
FT1A	032373 032374 0   0   000000032374 0            000000032374 
FT2	032373 032374 0   0   0            0            000000032374 
FT2RQ	032373 032374 0   0   777777777777 0            000000032374 
FT3	032373 032374 0   0   777777777777 0            000000032374 
FT9	032374 032374 0   0   777777777777 0            000000032374 
ET0	032374 032374 0   0   777777777777 0            000000032374 
ST1A	032374 032374 0   0   777777777777 0            000000032374 
ST9	032374 032374 0   0   777777777777 0            000000032374 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 265
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0422

*032374 CAME	4,033501
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032374 032374 0   0   312200033501 0            0            
IT1	032374 0      0   0   312200033501 0            0            
AT3	032374 0      0   0   000000033501 0            312200033501 
AT6	032374 033501 0   0   000000033501 0            312200033501 
FT0	032374 033501 0   0   0            0            312200033501 
FT1A	032374 033501 0   0   0            0            0            
FT2	032374 033501 0   0   0            0            0            
FT2RQ	032374 033501 0   0   0            0            0            
FT3	032374 033501 0   0   0            0            0            
FT9	032375 033501 0   0   0            0            0            
ET0	032376 033501 0   0   0            0            0            
ST1A	032376 033501 0   0   0            0            0            
ST9	032376 033501 0   0   0            0            0            


*032376 JUMPA	0,032377
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032376 032376 0   0   324000032377 0            000000032377 
IT1	032376 0      0   0   324000032377 0            000000032377 
AT3	032376 0      0   0   000000032377 0            324000032377 
AT6	032376 032377 0   0   000000032377 0            324000032377 
FT1A	032376 032377 0   0   000000032377 0            000000032377 
FT2	032376 032377 0   0   0            0            000000032377 
FT2RQ	032376 032377 0   0   777777777777 0            000000032377 
FT3	032376 032377 0   0   777777777777 0            000000032377 
FT9	032377 032377 0   0   777777777777 0            000000032377 
ET0	032377 032377 0   0   777777777777 0            000000032377 
ST1A	032377 032377 0   0   777777777777 0            000000032377 
ST9	032377 032377 0   0   777777777777 0            000000032377 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 266
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0423

*032377 MOVE 	4,033474
INITIAL
C(AC)=000000 000000 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032377 032377 0   0   200200033474 0            707070707070 
IT1	032377 0      0   0   200200033474 0            707070707070 
AT3	032377 0      0   0   000000033474 0            200200033474 
AT6	032377 033474 0   0   000000033474 0            200200033474 
FT0	032377 033474 0   0   707070707070 0            200200033474 
FT1A	032377 033474 0   0   707070707070 0            707070707070 
FT9	0      033474 0   0   707070707070 0            707070707070 
ET0	0      033474 0   0   707070707070 0            707070707070 
ST1	0      033474 0   0   707070707070 0            707070707070 
ST2	0      033474 0   0   707070707070 0            707070707070 
ST9	0      033474 0   0   707070707070 0            707070707070 


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

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


*032401 AOSLE	4,000005
INITIAL
C(AC)=707070 707070 
C(E)=000000 000000 
FINAL
C(AC)=000000 000001 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032401 032401 0   0   353200000005 0            0            
IT1	032401 0      0   0   353200000005 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 267
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0424

AT3	032401 0      0   0   000000000005 0            353200000005 
AT6	032401 000005 0   0   000000000005 0            353200000005 
FT0	032401 000005 0   0   0            0            353200000005 
FT1A	032401 000005 0   0   0            0            0            
FT9	032402 000005 0   0   0            0            0            
ET0	032402 000005 0   0   000000000001 0            0            
ST1	032402 000005 0   0   000000000001 0            0            
ST2	032402 000005 0   0   000000000001 0            0            
ST5	032402 000005 0   0   000000000001 0            0            
ST6A	032402 000005 0   0   000000000001 0            0            
ST9	032402 000005 0   0   000000000001 0            0            


*032402 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	032402 032402 0   0   334000000000 0            0            
IT1	032402 0      0   0   334000000000 0            0            
AT3	032402 0      0   0   0            0            334000000000 
AT6	032402 0      0   0   0            0            334000000000 
FT0	032402 0      0   0   0            0            334000000000 
FT1A	032402 0      0   0   0            0            0            
FT9	032403 0      0   0   0            0            0            
ET0	032404 0      0   0   0            0            0            
ST1A	032404 0      0   0   0            0            0            
ST9	032404 0      0   0   0            0            0            


*032404 JUMPA	0,032405
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032404 032404 0   0   324000032405 0            000000032405 
IT1	032404 0      0   0   324000032405 0            000000032405 
AT3	032404 0      0   0   000000032405 0            324000032405 
AT6	032404 032405 0   0   000000032405 0            324000032405 
FT1A	032404 032405 0   0   000000032405 0            000000032405 
FT2	032404 032405 0   0   0            0            000000032405 
FT2RQ	032404 032405 0   0   0            0            000000032405 
FT3	032404 032405 0   0   0            0            000000032405 
FT9	032405 032405 0   0   0            0            000000032405 
ET0	032405 032405 0   0   0            0            000000032405 
ST1A	032405 032405 0   0   0            0            000000032405 
ST9	032405 032405 0   0   0            0            000000032405 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 268
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0425



*032405 CAME	5,033502
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032405 032405 0   0   312240033502 0            000000000001 
IT1	032405 0      0   0   312240033502 0            000000000001 
AT3	032405 0      0   0   000000033502 0            312240033502 
AT6	032405 033502 0   0   000000033502 0            312240033502 
FT0	032405 033502 0   0   000000000001 0            312240033502 
FT1A	032405 033502 0   0   000000000001 0            000000000001 
FT2	032405 033502 0   0   0            0            000000000001 
FT2RQ	032405 033502 0   0   000000000001 0            000000000001 
FT3	032405 033502 0   0   000000000001 0            000000000001 
FT9	032406 033502 0   0   000000000001 0            000000000001 
ET0	032407 033502 0   0   0            0            000000000001 
ST1A	032407 033502 0   0   0            0            000000000001 
ST9	032407 033502 0   0   0            0            000000000001 


*032407 JUMPA	0,032410
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032407 032407 0   0   324000032410 0            000000032410 
IT1	032407 0      0   0   324000032410 0            000000032410 
AT3	032407 0      0   0   000000032410 0            324000032410 
AT6	032407 032410 0   0   000000032410 0            324000032410 
FT1A	032407 032410 0   0   000000032410 0            000000032410 
FT2	032407 032410 0   0   0            0            000000032410 
FT2RQ	032407 032410 0   0   0            0            000000032410 
FT3	032407 032410 0   0   0            0            000000032410 
FT9	032410 032410 0   0   0            0            000000032410 
ET0	032410 032410 0   0   0            0            000000032410 
ST1A	032410 032410 0   0   0            0            000000032410 
ST9	032410 032410 0   0   0            0            000000032410 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 269
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0426

*032410 CAME	4,033502
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032410 032410 0   0   312200033502 0            000000000001 
IT1	032410 0      0   0   312200033502 0            000000000001 
AT3	032410 0      0   0   000000033502 0            312200033502 
AT6	032410 033502 0   0   000000033502 0            312200033502 
FT0	032410 033502 0   0   000000000001 0            312200033502 
FT1A	032410 033502 0   0   000000000001 0            000000000001 
FT2	032410 033502 0   0   0            0            000000000001 
FT2RQ	032410 033502 0   0   000000000001 0            000000000001 
FT3	032410 033502 0   0   000000000001 0            000000000001 
FT9	032411 033502 0   0   000000000001 0            000000000001 
ET0	032412 033502 0   0   0            0            000000000001 
ST1A	032412 033502 0   0   0            0            000000000001 
ST9	032412 033502 0   0   0            0            000000000001 


*032412 JUMPA	0,032413
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032412 032412 0   0   324000032413 0            000000032413 
IT1	032412 0      0   0   324000032413 0            000000032413 
AT3	032412 0      0   0   000000032413 0            324000032413 
AT6	032412 032413 0   0   000000032413 0            324000032413 
FT1A	032412 032413 0   0   000000032413 0            000000032413 
FT2	032412 032413 0   0   0            0            000000032413 
FT2RQ	032412 032413 0   0   0            0            000000032413 
FT3	032412 032413 0   0   0            0            000000032413 
FT9	032413 032413 0   0   0            0            000000032413 
ET0	032413 032413 0   0   0            0            000000032413 
ST1A	032413 032413 0   0   0            0            000000032413 
ST9	032413 032413 0   0   0            0            000000032413 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 270
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0427

*032413 MOVE 	3,033474
INITIAL
C(AC)=777777 777776 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032413 032413 0   0   200140033474 0            707070707070 
IT1	032413 0      0   0   200140033474 0            707070707070 
AT3	032413 0      0   0   000000033474 0            200140033474 
AT6	032413 033474 0   0   000000033474 0            200140033474 
FT0	032413 033474 0   0   707070707070 0            200140033474 
FT1A	032413 033474 0   0   707070707070 0            707070707070 
FT9	032414 033474 0   0   707070707070 0            707070707070 
ET0	032414 033474 0   0   707070707070 0            707070707070 
ST1	032414 033474 0   0   707070707070 0            707070707070 
ST2	032414 033474 0   0   707070707070 0            707070707070 
ST9	032414 033474 0   0   707070707070 0            707070707070 


*032414 HRROI	4,777776
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032414 032414 0   0   561200777776 0            000000777776 
IT1	032414 0      0   0   561200777776 0            000000777776 
AT3	032414 0      0   0   000000777776 0            561200777776 
AT6	032414 777776 0   0   000000777776 0            561200777776 
FT1A	032414 777776 0   0   000000777776 0            000000777776 
FT9	032415 777776 0   0   000000777776 0            000000777776 
ET0	032415 777776 0   0   777777777776 0            000000777776 
ST1	032415 777776 0   0   777777777776 0            000000777776 
ST2	032415 777776 0   0   777777777776 0            000000777776 
ST9	032415 777776 0   0   777777777776 0            000000777776 


*032415 AOSA	3,000004
INITIAL
C(AC)=707070 707070 
C(E)=777777 777776 
FINAL
C(AC)=777777 777777 
C(E)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032415 032415 0   0   354140000004 0            777777777776 
IT1	032415 0      0   0   354140000004 0            777777777776 
AT3	032415 0      0   0   000000000004 0            354140000004 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 271
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0428

AT6	032415 000004 0   0   000000000004 0            354140000004 
FT0	032415 000004 0   0   777777777776 0            354140000004 
FT1A	032415 000004 0   0   777777777776 0            777777777776 
FT9	032416 000004 0   0   777777777776 0            777777777776 
ET0	032417 000004 0   0   777777777777 0            777777777776 
ST1	032417 000004 0   0   777777777777 0            777777777776 
ST2	032417 000004 0   0   777777777777 0            777777777776 
ST5	032417 000004 0   0   777777777777 0            777777777776 
ST6A	032417 000004 0   0   777777777777 0            777777777776 
ST9	032417 000004 0   0   777777777777 0            777777777776 


*032417 JUMPA	0,032420
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032417 032417 0   0   324000032420 0            000000032420 
IT1	032417 0      0   0   324000032420 0            000000032420 
AT3	032417 0      0   0   000000032420 0            324000032420 
AT6	032417 032420 0   0   000000032420 0            324000032420 
FT1A	032417 032420 0   0   000000032420 0            000000032420 
FT2	032417 032420 0   0   0            0            000000032420 
FT2RQ	032417 032420 0   0   0            0            000000032420 
FT3	032417 032420 0   0   0            0            000000032420 
FT9	032420 032420 0   0   0            0            000000032420 
ET0	032420 032420 0   0   0            0            000000032420 
ST1A	032420 032420 0   0   0            0            000000032420 
ST9	032420 032420 0   0   0            0            000000032420 


*032420 CAME	4,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032420 032420 0   0   312200033462 0            777777777777 
IT1	032420 0      0   0   312200033462 0            777777777777 
AT3	032420 0      0   0   000000033462 0            312200033462 
AT6	032420 033462 0   0   000000033462 0            312200033462 
FT0	032420 033462 0   0   777777777777 0            312200033462 
FT1A	032420 033462 0   0   777777777777 0            777777777777 
FT2	032420 033462 0   0   0            0            777777777777 
FT2RQ	032420 033462 0   0   777777777777 0            777777777777 
FT3	032420 033462 0   0   777777777777 0            777777777777 
FT9	032421 033462 0   0   777777777777 0            777777777777 
ET0	032422 033462 0   0   0            0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 272
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0429

ST1A	032422 033462 0   0   0            0            777777777777 
ST9	032422 033462 0   0   0            0            777777777777 


*032422 JUMPA	0,032423
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032422 032422 0   0   324000032423 0            000000032423 
IT1	032422 0      0   0   324000032423 0            000000032423 
AT3	032422 0      0   0   000000032423 0            324000032423 
AT6	032422 032423 0   0   000000032423 0            324000032423 
FT1A	032422 032423 0   0   000000032423 0            000000032423 
FT2	032422 032423 0   0   0            0            000000032423 
FT2RQ	032422 032423 0   0   0            0            000000032423 
FT3	032422 032423 0   0   0            0            000000032423 
FT9	032423 032423 0   0   0            0            000000032423 
ET0	032423 032423 0   0   0            0            000000032423 
ST1A	032423 032423 0   0   0            0            000000032423 
ST9	032423 032423 0   0   0            0            000000032423 


*032423 CAME	3,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032423 032423 0   0   312140033462 0            777777777777 
IT1	032423 0      0   0   312140033462 0            777777777777 
AT3	032423 0      0   0   000000033462 0            312140033462 
AT6	032423 033462 0   0   000000033462 0            312140033462 
FT0	032423 033462 0   0   777777777777 0            312140033462 
FT1A	032423 033462 0   0   777777777777 0            777777777777 
FT2	032423 033462 0   0   0            0            777777777777 
FT2RQ	032423 033462 0   0   777777777777 0            777777777777 
FT3	032423 033462 0   0   777777777777 0            777777777777 
FT9	032424 033462 0   0   777777777777 0            777777777777 
ET0	032425 033462 0   0   0            0            777777777777 
ST1A	032425 033462 0   0   0            0            777777777777 
ST9	032425 033462 0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 273
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0430

*032425 JUMPA	0,032426
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032425 032425 0   0   324000032426 0            000000032426 
IT1	032425 0      0   0   324000032426 0            000000032426 
AT3	032425 0      0   0   000000032426 0            324000032426 
AT6	032425 032426 0   0   000000032426 0            324000032426 
FT1A	032425 032426 0   0   000000032426 0            000000032426 
FT2	032425 032426 0   0   0            0            000000032426 
FT2RQ	032425 032426 0   0   0            0            000000032426 
FT3	032425 032426 0   0   0            0            000000032426 
FT9	032426 032426 0   0   0            0            000000032426 
ET0	032426 032426 0   0   0            0            000000032426 
ST1A	032426 032426 0   0   0            0            000000032426 
ST9	032426 032426 0   0   0            0            000000032426 


*032426 MOVE 	3,033474
INITIAL
C(AC)=777777 777777 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032426 032426 0   0   200140033474 0            707070707070 
IT1	032426 0      0   0   200140033474 0            707070707070 
AT3	032426 0      0   0   000000033474 0            200140033474 
AT6	032426 033474 0   0   000000033474 0            200140033474 
FT0	032426 033474 0   0   707070707070 0            200140033474 
FT1A	032426 033474 0   0   707070707070 0            707070707070 
FT9	032427 033474 0   0   707070707070 0            707070707070 
ET0	032427 033474 0   0   707070707070 0            707070707070 
ST1	032427 033474 0   0   707070707070 0            707070707070 
ST2	032427 033474 0   0   707070707070 0            707070707070 
ST9	032427 033474 0   0   707070707070 0            707070707070 


*032427 SETO 	4,000000
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032427 032427 0   0   474200000000 0            0            
IT1	032427 0      0   0   474200000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 274
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0431

AT3	032427 0      0   0   0            0            474200000000 
AT6	032427 0      0   0   0            0            474200000000 
FT1A	032427 0      0   0   0            0            0            
FT9	032430 0      0   0   0            0            0            
ET0	032430 0      0   0   777777777777 0            0            
ST1	032430 0      0   0   777777777777 0            0            
ST2	032430 0      0   0   777777777777 0            0            
ST9	032430 0      0   0   777777777777 0            0            


*032430 AOSA	3,000004
INITIAL
C(AC)=707070 707070 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 
C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032430 032430 0   0   354140000004 0            777777777777 
IT1	032430 0      0   0   354140000004 0            777777777777 
AT3	032430 0      0   0   000000000004 0            354140000004 
AT6	032430 000004 0   0   000000000004 0            354140000004 
FT0	032430 000004 0   0   777777777777 0            354140000004 
FT1A	032430 000004 0   0   777777777777 0            777777777777 
FT9	032431 000004 0   0   777777777777 0            777777777777 
ET0	032432 000004 0   0   0            0            777777777777 
ST1	032432 000004 0   0   0            0            777777777777 
ST2	032432 000004 0   0   0            0            777777777777 
ST5	032432 000004 0   0   0            0            777777777777 
ST6A	032432 000004 0   0   0            0            777777777777 
ST9	032432 000004 0   0   0            0            777777777777 


*032432 JUMPA	0,032433
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032432 032432 0   0   324000032433 0            000000032433 
IT1	032432 0      0   0   324000032433 0            000000032433 
AT3	032432 0      0   0   000000032433 0            324000032433 
AT6	032432 032433 0   0   000000032433 0            324000032433 
FT1A	032432 032433 0   0   000000032433 0            000000032433 
FT2	032432 032433 0   0   0            0            000000032433 
FT2RQ	032432 032433 0   0   0            0            000000032433 
FT3	032432 032433 0   0   0            0            000000032433 
FT9	032433 032433 0   0   0            0            000000032433 
ET0	032433 032433 0   0   0            0            000000032433 
ST1A	032433 032433 0   0   0            0            000000032433 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 275
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0432

ST9	032433 032433 0   0   0            0            000000032433 


*032433 CAME	4,033501
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032433 032433 0   0   312200033501 0            0            
IT1	032433 0      0   0   312200033501 0            0            
AT3	032433 0      0   0   000000033501 0            312200033501 
AT6	032433 033501 0   0   000000033501 0            312200033501 
FT0	032433 033501 0   0   0            0            312200033501 
FT1A	032433 033501 0   0   0            0            0            
FT2	032433 033501 0   0   0            0            0            
FT2RQ	032433 033501 0   0   0            0            0            
FT3	032433 033501 0   0   0            0            0            
FT9	032434 033501 0   0   0            0            0            
ET0	032435 033501 0   0   0            0            0            
ST1A	032435 033501 0   0   0            0            0            
ST9	032435 033501 0   0   0            0            0            


*032435 JUMPA	0,032436
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032435 032435 0   0   324000032436 0            000000032436 
IT1	032435 0      0   0   324000032436 0            000000032436 
AT3	032435 0      0   0   000000032436 0            324000032436 
AT6	032435 032436 0   0   000000032436 0            324000032436 
FT1A	032435 032436 0   0   000000032436 0            000000032436 
FT2	032435 032436 0   0   0            0            000000032436 
FT2RQ	032435 032436 0   0   0            0            000000032436 
FT3	032435 032436 0   0   0            0            000000032436 
FT9	032436 032436 0   0   0            0            000000032436 
ET0	032436 032436 0   0   0            0            000000032436 
ST1A	032436 032436 0   0   0            0            000000032436 
ST9	032436 032436 0   0   0            0            000000032436 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 276
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0433

*032436 CAME	3,033501
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032436 032436 0   0   312140033501 0            0            
IT1	032436 0      0   0   312140033501 0            0            
AT3	032436 0      0   0   000000033501 0            312140033501 
AT6	032436 033501 0   0   000000033501 0            312140033501 
FT0	032436 033501 0   0   0            0            312140033501 
FT1A	032436 033501 0   0   0            0            0            
FT2	032436 033501 0   0   0            0            0            
FT2RQ	032436 033501 0   0   0            0            0            
FT3	032436 033501 0   0   0            0            0            
FT9	032437 033501 0   0   0            0            0            
ET0	032440 033501 0   0   0            0            0            
ST1A	032440 033501 0   0   0            0            0            
ST9	032440 033501 0   0   0            0            0            


*032440 JUMPA	0,032441
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032440 032440 0   0   324000032441 0            000000032441 
IT1	032440 0      0   0   324000032441 0            000000032441 
AT3	032440 0      0   0   000000032441 0            324000032441 
AT6	032440 032441 0   0   000000032441 0            324000032441 
FT1A	032440 032441 0   0   000000032441 0            000000032441 
FT2	032440 032441 0   0   0            0            000000032441 
FT2RQ	032440 032441 0   0   0            0            000000032441 
FT3	032440 032441 0   0   0            0            000000032441 
FT9	032441 032441 0   0   0            0            000000032441 
ET0	032441 032441 0   0   0            0            000000032441 
ST1A	032441 032441 0   0   0            0            000000032441 
ST9	032441 032441 0   0   0            0            000000032441 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 277
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0434

*032441 MOVE 	3,033474
INITIAL
C(AC)=000000 000000 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032441 032441 0   0   200140033474 0            707070707070 
IT1	032441 0      0   0   200140033474 0            707070707070 
AT3	032441 0      0   0   000000033474 0            200140033474 
AT6	032441 033474 0   0   000000033474 0            200140033474 
FT0	032441 033474 0   0   707070707070 0            200140033474 
FT1A	032441 033474 0   0   707070707070 0            707070707070 
FT9	032442 033474 0   0   707070707070 0            707070707070 
ET0	032442 033474 0   0   707070707070 0            707070707070 
ST1	032442 033474 0   0   707070707070 0            707070707070 
ST2	032442 033474 0   0   707070707070 0            707070707070 
ST9	032442 033474 0   0   707070707070 0            707070707070 


*032442 SETZ 	4,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032442 032442 0   0   400200000000 0            0            
IT1	032442 0      0   0   400200000000 0            0            
AT3	032442 0      0   0   0            0            400200000000 
AT6	032442 0      0   0   0            0            400200000000 
FT1A	032442 0      0   0   0            0            0            
FT9	032443 0      0   0   0            0            0            
ET0	032443 0      0   0   0            0            0            
ST1	032443 0      0   0   0            0            0            
ST2	032443 0      0   0   0            0            0            
ST9	032443 0      0   0   0            0            0            


*032443 AOSA	3,000004
INITIAL
C(AC)=707070 707070 
C(E)=000000 000000 
FINAL
C(AC)=000000 000001 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032443 032443 0   0   354140000004 0            0            
IT1	032443 0      0   0   354140000004 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 278
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0435

AT3	032443 0      0   0   000000000004 0            354140000004 
AT6	032443 000004 0   0   000000000004 0            354140000004 
FT0	032443 000004 0   0   0            0            354140000004 
FT1A	032443 000004 0   0   0            0            0            
FT9	032444 000004 0   0   0            0            0            
ET0	032445 000004 0   0   000000000001 0            0            
ST1	032445 000004 0   0   000000000001 0            0            
ST2	032445 000004 0   0   000000000001 0            0            
ST5	032445 000004 0   0   000000000001 0            0            
ST6A	032445 000004 0   0   000000000001 0            0            
ST9	032445 000004 0   0   000000000001 0            0            


*032445 JUMPA	0,032446
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032445 032445 0   0   324000032446 0            000000032446 
IT1	032445 0      0   0   324000032446 0            000000032446 
AT3	032445 0      0   0   000000032446 0            324000032446 
AT6	032445 032446 0   0   000000032446 0            324000032446 
FT1A	032445 032446 0   0   000000032446 0            000000032446 
FT2	032445 032446 0   0   0            0            000000032446 
FT2RQ	032445 032446 0   0   0            0            000000032446 
FT3	032445 032446 0   0   0            0            000000032446 
FT9	032446 032446 0   0   0            0            000000032446 
ET0	032446 032446 0   0   0            0            000000032446 
ST1A	032446 032446 0   0   0            0            000000032446 
ST9	032446 032446 0   0   0            0            000000032446 


*032446 CAME	4,033502
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032446 032446 0   0   312200033502 0            000000000001 
IT1	032446 0      0   0   312200033502 0            000000000001 
AT3	032446 0      0   0   000000033502 0            312200033502 
AT6	032446 033502 0   0   000000033502 0            312200033502 
FT0	032446 033502 0   0   000000000001 0            312200033502 
FT1A	032446 033502 0   0   000000000001 0            000000000001 
FT2	032446 033502 0   0   0            0            000000000001 
FT2RQ	032446 033502 0   0   000000000001 0            000000000001 
FT3	032446 033502 0   0   000000000001 0            000000000001 
FT9	032447 033502 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 279
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0436

ET0	032450 033502 0   0   0            0            000000000001 
ST1A	032450 033502 0   0   0            0            000000000001 
ST9	032450 033502 0   0   0            0            000000000001 


*032450 JUMPA	0,032451
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032450 032450 0   0   324000032451 0            000000032451 
IT1	032450 0      0   0   324000032451 0            000000032451 
AT3	032450 0      0   0   000000032451 0            324000032451 
AT6	032450 032451 0   0   000000032451 0            324000032451 
FT1A	032450 032451 0   0   000000032451 0            000000032451 
FT2	032450 032451 0   0   0            0            000000032451 
FT2RQ	032450 032451 0   0   0            0            000000032451 
FT3	032450 032451 0   0   0            0            000000032451 
FT9	032451 032451 0   0   0            0            000000032451 
ET0	032451 032451 0   0   0            0            000000032451 
ST1A	032451 032451 0   0   0            0            000000032451 
ST9	032451 032451 0   0   0            0            000000032451 


*032451 CAME	3,033502
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032451 032451 0   0   312140033502 0            000000000001 
IT1	032451 0      0   0   312140033502 0            000000000001 
AT3	032451 0      0   0   000000033502 0            312140033502 
AT6	032451 033502 0   0   000000033502 0            312140033502 
FT0	032451 033502 0   0   000000000001 0            312140033502 
FT1A	032451 033502 0   0   000000000001 0            000000000001 
FT2	032451 033502 0   0   0            0            000000000001 
FT2RQ	032451 033502 0   0   000000000001 0            000000000001 
FT3	032451 033502 0   0   000000000001 0            000000000001 
FT9	032452 033502 0   0   000000000001 0            000000000001 
ET0	032453 033502 0   0   0            0            000000000001 
ST1A	032453 033502 0   0   0            0            000000000001 
ST9	032453 033502 0   0   0            0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 280
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0437

*032453 JUMPA	0,032454
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032453 032453 0   0   324000032454 0            000000032454 
IT1	032453 0      0   0   324000032454 0            000000032454 
AT3	032453 0      0   0   000000032454 0            324000032454 
AT6	032453 032454 0   0   000000032454 0            324000032454 
FT1A	032453 032454 0   0   000000032454 0            000000032454 
FT2	032453 032454 0   0   0            0            000000032454 
FT2RQ	032453 032454 0   0   0            0            000000032454 
FT3	032453 032454 0   0   0            0            000000032454 
FT9	032454 032454 0   0   0            0            000000032454 
ET0	032454 032454 0   0   0            0            000000032454 
ST1A	032454 032454 0   0   0            0            000000032454 
ST9	032454 032454 0   0   0            0            000000032454 


*032454 MOVE 	2,033474
INITIAL
C(AC)=000000 000000 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032454 032454 0   0   200100033474 0            707070707070 
IT1	032454 0      0   0   200100033474 0            707070707070 
AT3	032454 0      0   0   000000033474 0            200100033474 
AT6	032454 033474 0   0   000000033474 0            200100033474 
FT0	032454 033474 0   0   707070707070 0            200100033474 
FT1A	032454 033474 0   0   707070707070 0            707070707070 
FT9	032455 033474 0   0   707070707070 0            707070707070 
ET0	032455 033474 0   0   707070707070 0            707070707070 
ST1	032455 033474 0   0   707070707070 0            707070707070 
ST2	032455 033474 0   0   707070707070 0            707070707070 
ST9	032455 033474 0   0   707070707070 0            707070707070 


*032455 HRROI	3,777776
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032455 032455 0   0   561140777776 0            000000777776 
IT1	032455 0      0   0   561140777776 0            000000777776 
AT3	032455 0      0   0   000000777776 0            561140777776 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 281
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0438

AT6	032455 777776 0   0   000000777776 0            561140777776 
FT1A	032455 777776 0   0   000000777776 0            000000777776 
FT9	032456 777776 0   0   000000777776 0            000000777776 
ET0	032456 777776 0   0   777777777776 0            000000777776 
ST1	032456 777776 0   0   777777777776 0            000000777776 
ST2	032456 777776 0   0   777777777776 0            000000777776 
ST9	032456 777776 0   0   777777777776 0            000000777776 


*032456 AOSGE	2,000003
INITIAL
C(AC)=707070 707070 
C(E)=777777 777776 
FINAL
C(AC)=777777 777777 
C(E)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032456 032456 0   0   355100000003 0            777777777776 
IT1	032456 0      0   0   355100000003 0            777777777776 
AT3	032456 0      0   0   000000000003 0            355100000003 
AT6	032456 000003 0   0   000000000003 0            355100000003 
FT0	032456 000003 0   0   777777777776 0            355100000003 
FT1A	032456 000003 0   0   777777777776 0            777777777776 
FT9	032457 000003 0   0   777777777776 0            777777777776 
ET0	032457 000003 0   0   777777777777 0            777777777776 
ST1	032457 000003 0   0   777777777777 0            777777777776 
ST2	032457 000003 0   0   777777777777 0            777777777776 
ST5	032457 000003 0   0   777777777777 0            777777777776 
ST6A	032457 000003 0   0   777777777777 0            777777777776 
ST9	032457 000003 0   0   777777777777 0            777777777776 


*032457 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	032457 032457 0   0   334000000000 0            0            
IT1	032457 0      0   0   334000000000 0            0            
AT3	032457 0      0   0   0            0            334000000000 
AT6	032457 0      0   0   0            0            334000000000 
FT0	032457 0      0   0   0            0            334000000000 
FT1A	032457 0      0   0   0            0            0            
FT9	032460 0      0   0   0            0            0            
ET0	032461 0      0   0   0            0            0            
ST1A	032461 0      0   0   0            0            0            
ST9	032461 0      0   0   0            0            0            

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 282
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0439


*032461 JUMPA	0,032462
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032461 032461 0   0   324000032462 0            000000032462 
IT1	032461 0      0   0   324000032462 0            000000032462 
AT3	032461 0      0   0   000000032462 0            324000032462 
AT6	032461 032462 0   0   000000032462 0            324000032462 
FT1A	032461 032462 0   0   000000032462 0            000000032462 
FT2	032461 032462 0   0   0            0            000000032462 
FT2RQ	032461 032462 0   0   0            0            000000032462 
FT3	032461 032462 0   0   0            0            000000032462 
FT9	032462 032462 0   0   0            0            000000032462 
ET0	032462 032462 0   0   0            0            000000032462 
ST1A	032462 032462 0   0   0            0            000000032462 
ST9	032462 032462 0   0   0            0            000000032462 


*032462 CAME	3,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032462 032462 0   0   312140033462 0            777777777777 
IT1	032462 0      0   0   312140033462 0            777777777777 
AT3	032462 0      0   0   000000033462 0            312140033462 
AT6	032462 033462 0   0   000000033462 0            312140033462 
FT0	032462 033462 0   0   777777777777 0            312140033462 
FT1A	032462 033462 0   0   777777777777 0            777777777777 
FT2	032462 033462 0   0   0            0            777777777777 
FT2RQ	032462 033462 0   0   777777777777 0            777777777777 
FT3	032462 033462 0   0   777777777777 0            777777777777 
FT9	032463 033462 0   0   777777777777 0            777777777777 
ET0	032464 033462 0   0   0            0            777777777777 
ST1A	032464 033462 0   0   0            0            777777777777 
ST9	032464 033462 0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 283
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0440

*032464 JUMPA	0,032465
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032464 032464 0   0   324000032465 0            000000032465 
IT1	032464 0      0   0   324000032465 0            000000032465 
AT3	032464 0      0   0   000000032465 0            324000032465 
AT6	032464 032465 0   0   000000032465 0            324000032465 
FT1A	032464 032465 0   0   000000032465 0            000000032465 
FT2	032464 032465 0   0   0            0            000000032465 
FT2RQ	032464 032465 0   0   0            0            000000032465 
FT3	032464 032465 0   0   0            0            000000032465 
FT9	032465 032465 0   0   0            0            000000032465 
ET0	032465 032465 0   0   0            0            000000032465 
ST1A	032465 032465 0   0   0            0            000000032465 
ST9	032465 032465 0   0   0            0            000000032465 


*032465 CAME	2,033462
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032465 032465 0   0   312100033462 0            777777777777 
IT1	032465 0      0   0   312100033462 0            777777777777 
AT3	032465 0      0   0   000000033462 0            312100033462 
AT6	032465 033462 0   0   000000033462 0            312100033462 
FT0	032465 033462 0   0   777777777777 0            312100033462 
FT1A	032465 033462 0   0   777777777777 0            777777777777 
FT2	032465 033462 0   0   0            0            777777777777 
FT2RQ	032465 033462 0   0   777777777777 0            777777777777 
FT3	032465 033462 0   0   777777777777 0            777777777777 
FT9	032466 033462 0   0   777777777777 0            777777777777 
ET0	032467 033462 0   0   0            0            777777777777 
ST1A	032467 033462 0   0   0            0            777777777777 
ST9	032467 033462 0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 284
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0441

*032467 JUMPA	0,032470
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032467 032467 0   0   324000032470 0            000000032470 
IT1	032467 0      0   0   324000032470 0            000000032470 
AT3	032467 0      0   0   000000032470 0            324000032470 
AT6	032467 032470 0   0   000000032470 0            324000032470 
FT1A	032467 032470 0   0   000000032470 0            000000032470 
FT2	032467 032470 0   0   0            0            000000032470 
FT2RQ	032467 032470 0   0   0            0            000000032470 
FT3	032467 032470 0   0   0            0            000000032470 
FT9	032470 032470 0   0   0            0            000000032470 
ET0	032470 032470 0   0   0            0            000000032470 
ST1A	032470 032470 0   0   0            0            000000032470 
ST9	032470 032470 0   0   0            0            000000032470 


*032470 MOVE 	2,033474
INITIAL
C(AC)=777777 777777 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032470 032470 0   0   200100033474 0            707070707070 
IT1	032470 0      0   0   200100033474 0            707070707070 
AT3	032470 0      0   0   000000033474 0            200100033474 
AT6	032470 033474 0   0   000000033474 0            200100033474 
FT0	032470 033474 0   0   707070707070 0            200100033474 
FT1A	032470 033474 0   0   707070707070 0            707070707070 
FT9	032471 033474 0   0   707070707070 0            707070707070 
ET0	032471 033474 0   0   707070707070 0            707070707070 
ST1	032471 033474 0   0   707070707070 0            707070707070 
ST2	032471 033474 0   0   707070707070 0            707070707070 
ST9	032471 033474 0   0   707070707070 0            707070707070 


*032471 SETO 	3,000000
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032471 032471 0   0   474140000000 0            0            
IT1	032471 0      0   0   474140000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 285
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0442

AT3	032471 0      0   0   0            0            474140000000 
AT6	032471 0      0   0   0            0            474140000000 
FT1A	032471 0      0   0   0            0            0            
FT9	032472 0      0   0   0            0            0            
ET0	032472 0      0   0   777777777777 0            0            
ST1	032472 0      0   0   777777777777 0            0            
ST2	032472 0      0   0   777777777777 0            0            
ST9	032472 0      0   0   777777777777 0            0            


*032472 AOSGE	2,000003
INITIAL
C(AC)=707070 707070 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 
C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032472 032472 0   0   355100000003 0            777777777777 
IT1	032472 0      0   0   355100000003 0            777777777777 
AT3	032472 0      0   0   000000000003 0            355100000003 
AT6	032472 000003 0   0   000000000003 0            355100000003 
FT0	032472 000003 0   0   777777777777 0            355100000003 
FT1A	032472 000003 0   0   777777777777 0            777777777777 
FT9	032473 000003 0   0   777777777777 0            777777777777 
ET0	032474 000003 0   0   0            0            777777777777 
ST1	032474 000003 0   0   0            0            777777777777 
ST2	032474 000003 0   0   0            0            777777777777 
ST5	032474 000003 0   0   0            0            777777777777 
ST6A	032474 000003 0   0   0            0            777777777777 
ST9	032474 000003 0   0   0            0            777777777777 


*032474 JUMPA	0,032475
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032474 032474 0   0   324000032475 0            000000032475 
IT1	032474 0      0   0   324000032475 0            000000032475 
AT3	032474 0      0   0   000000032475 0            324000032475 
AT6	032474 032475 0   0   000000032475 0            324000032475 
FT1A	032474 032475 0   0   000000032475 0            000000032475 
FT2	032474 032475 0   0   0            0            000000032475 
FT2RQ	032474 032475 0   0   0            0            000000032475 
FT3	032474 032475 0   0   0            0            000000032475 
FT9	032475 032475 0   0   0            0            000000032475 
ET0	032475 032475 0   0   0            0            000000032475 
ST1A	032475 032475 0   0   0            0            000000032475 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 286
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0443

ST9	032475 032475 0   0   0            0            000000032475 


*032475 CAME	3,033501
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032475 032475 0   0   312140033501 0            0            
IT1	032475 0      0   0   312140033501 0            0            
AT3	032475 0      0   0   000000033501 0            312140033501 
AT6	032475 033501 0   0   000000033501 0            312140033501 
FT0	032475 033501 0   0   0            0            312140033501 
FT1A	032475 033501 0   0   0            0            0            
FT2	032475 033501 0   0   0            0            0            
FT2RQ	032475 033501 0   0   0            0            0            
FT3	032475 033501 0   0   0            0            0            
FT9	032476 033501 0   0   0            0            0            
ET0	032477 033501 0   0   0            0            0            
ST1A	032477 033501 0   0   0            0            0            
ST9	032477 033501 0   0   0            0            0            


*032477 JUMPA	0,032500
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032477 032477 0   0   324000032500 0            000000032500 
IT1	032477 0      0   0   324000032500 0            000000032500 
AT3	032477 0      0   0   000000032500 0            324000032500 
AT6	032477 0      0   0   000000032500 0            324000032500 
FT1A	032477 0      0   0   000000032500 0            000000032500 
FT2	032477 0      0   0   0            0            000000032500 
FT2RQ	032477 0      0   0   0            0            000000032500 
FT3	032477 0      0   0   0            0            000000032500 
FT9	0      0      0   0   0            0            000000032500 
ET0	0      0      0   0   0            0            000000032500 
ST1A	0      0      0   0   0            0            000000032500 
ST9	0      0      0   0   0            0            000000032500 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 287
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0444

*032500 CAME	2,033501
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   312100033501 0            0            
IT1	0      0      0   0   312100033501 0            0            
AT3	0      0      0   0   000000033501 0            312100033501 
AT6	0      033501 0   0   000000033501 0            312100033501 
FT0	0      033501 0   0   0            0            312100033501 
FT1A	0      033501 0   0   0            0            0            
FT2	0      033501 0   0   0            0            0            
FT2RQ	0      033501 0   0   0            0            0            
FT3	0      033501 0   0   0            0            0            
FT9	032501 033501 0   0   0            0            0            
ET0	032502 033501 0   0   0            0            0            
ST1A	032502 033501 0   0   0            0            0            
ST9	032502 033501 0   0   0            0            0            


*032502 JUMPA	0,032503
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032502 032502 0   0   324000032503 0            000000032503 
IT1	032502 0      0   0   324000032503 0            000000032503 
AT3	032502 0      0   0   000000032503 0            324000032503 
AT6	032502 032503 0   0   000000032503 0            324000032503 
FT1A	032502 032503 0   0   000000032503 0            000000032503 
FT2	032502 032503 0   0   0            0            000000032503 
FT2RQ	032502 032503 0   0   0            0            000000032503 
FT3	032502 032503 0   0   0            0            000000032503 
FT9	032503 032503 0   0   0            0            000000032503 
ET0	032503 032503 0   0   0            0            000000032503 
ST1A	032503 032503 0   0   0            0            000000032503 
ST9	032503 032503 0   0   0            0            000000032503 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 288
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0445

*032503 MOVE 	2,033474
INITIAL
C(AC)=000000 000000 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032503 032503 0   0   200100033474 0            707070707070 
IT1	032503 0      0   0   200100033474 0            707070707070 
AT3	032503 0      0   0   000000033474 0            200100033474 
AT6	032503 033474 0   0   000000033474 0            200100033474 
FT0	032503 033474 0   0   707070707070 0            200100033474 
FT1A	032503 033474 0   0   707070707070 0            707070707070 
FT9	032504 033474 0   0   707070707070 0            707070707070 
ET0	032504 033474 0   0   707070707070 0            707070707070 
ST1	032504 033474 0   0   707070707070 0            707070707070 
ST2	032504 033474 0   0   707070707070 0            707070707070 
ST9	032504 033474 0   0   707070707070 0            707070707070 


*032504 SETZ 	3,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032504 032504 0   0   400140000000 0            0            
IT1	032504 0      0   0   400140000000 0            0            
AT3	032504 0      0   0   0            0            400140000000 
AT6	032504 0      0   0   0            0            400140000000 
FT1A	032504 0      0   0   0            0            0            
FT9	032505 0      0   0   0            0            0            
ET0	032505 0      0   0   0            0            0            
ST1	032505 0      0   0   0            0            0            
ST2	032505 0      0   0   0            0            0            
ST9	032505 0      0   0   0            0            0            


*032505 AOSGE	2,000003
INITIAL
C(AC)=707070 707070 
C(E)=000000 000000 
FINAL
C(AC)=000000 000001 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032505 032505 0   0   355100000003 0            0            
IT1	032505 0      0   0   355100000003 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 289
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0446

AT3	032505 0      0   0   000000000003 0            355100000003 
AT6	032505 000003 0   0   000000000003 0            355100000003 
FT0	032505 000003 0   0   0            0            355100000003 
FT1A	032505 000003 0   0   0            0            0            
FT9	032506 000003 0   0   0            0            0            
ET0	032507 000003 0   0   000000000001 0            0            
ST1	032507 000003 0   0   000000000001 0            0            
ST2	032507 000003 0   0   000000000001 0            0            
ST5	032507 000003 0   0   000000000001 0            0            
ST6A	032507 000003 0   0   000000000001 0            0            
ST9	032507 000003 0   0   000000000001 0            0            


*032507 JUMPA	0,032510
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032507 032507 0   0   324000032510 0            000000032510 
IT1	032507 0      0   0   324000032510 0            000000032510 
AT3	032507 0      0   0   000000032510 0            324000032510 
AT6	032507 032510 0   0   000000032510 0            324000032510 
FT1A	032507 032510 0   0   000000032510 0            000000032510 
FT2	032507 032510 0   0   0            0            000000032510 
FT2RQ	032507 032510 0   0   0            0            000000032510 
FT3	032507 032510 0   0   0            0            000000032510 
FT9	032510 032510 0   0   0            0            000000032510 
ET0	032510 032510 0   0   0            0            000000032510 
ST1A	032510 032510 0   0   0            0            000000032510 
ST9	032510 032510 0   0   0            0            000000032510 


*032510 CAME	3,033502
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032510 032510 0   0   312140033502 0            000000000001 
IT1	032510 0      0   0   312140033502 0            000000000001 
AT3	032510 0      0   0   000000033502 0            312140033502 
AT6	032510 033502 0   0   000000033502 0            312140033502 
FT0	032510 033502 0   0   000000000001 0            312140033502 
FT1A	032510 033502 0   0   000000000001 0            000000000001 
FT2	032510 033502 0   0   0            0            000000000001 
FT2RQ	032510 033502 0   0   000000000001 0            000000000001 
FT3	032510 033502 0   0   000000000001 0            000000000001 
FT9	032511 033502 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 290
DAKAE	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0447

ET0	032512 033502 0   0   0            0            000000000001 
ST1A	032512 033502 0   0   0            0            000000000001 
ST9	032512 033502 0   0   0            0            000000000001 


*032512 JUMPA	0,032513
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032512 032512 0   0   324000032513 0            000000032513 
IT1	032512 0      0   0   324000032513 0            000000032513 
AT3	032512 0      0   0   000000032513 0            324000032513 
AT6	032512 032513 0   0   000000032513 0            324000032513 
FT1A	032512 032513 0   0   000000032513 0            000000032513 
FT2	032512 032513 0   0   0            0            000000032513 
FT2RQ	032512 032513 0   0   0            0            000000032513 
FT3	032512 032513 0   0   0            0            000000032513 
FT9	032513 032513 0   0   0            0            000000032513 
ET0	032513 032513 0   0   0            0            000000032513 
ST1A	032513 032513 0   0   0            0            000000032513 
ST9	032513 032513 0   0   0            0            000000032513 


*032513 CAME	2,033502
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032513 032513 0   0   312100033502 0            000000000001 
IT1	032513 0      0   0   312100033502 0            000000000001 
AT3	032513 0      0   0   000000033502 0            312100033502 
AT6	032513 033502 0   0   000000033502 0            312100033502 
FT0	032513 033502 0   0   000000000001 0            312100033502 
FT1A	032513 033502 0   0   000000000001 0            000000000001 
FT2	032513 033502 0   0   0            0            000000000001 
FT2RQ	032513 033502 0   0   000000000001 0            000000000001 
FT3	032513 033502 0   0   000000000001 0            000000000001 
FT9	032514 033502 0   0   000000000001 0            000000000001 
ET0	032515 033502 0   0   0            0            000000000001 
ST1A	032515 033502 0   0   0            0            000000000001 
ST9	032515 033502 0   0   0            0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  28-DEC-78   PAGE 291
DAKAE	000000 000000  000000 000000  000000 0000